<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
<< ************************************************ >>                  00010000
<< *                                              * >>                  00012000
<< *   C7 - INCLLOG - User Logging Include File   * >>         <<09580>>00014000
<< *                                              * >>                  00016000
<< ************************************************ >>                  00018000
                                                                        00020000
                                                                        00022000
EQUATE                                                                  00024000
   LIDDST   =  %41,                                                     00026000
   LOGSIR   =  %40,                                                     00028000
   LOGDST   =  %33;                                                     00030000
                                                                        00032000
<<******************* LOGTAB *************************>>                00034000
<< User Logging Table definitions -- DST #27 (%33)    >>                00036000
<<                                                    >>                00038000
<< There will be one entry in this table for every    >>                00040000
<< active user logging process.                       >>                00042000
                                                                        00044000
LOGICAL ARRAY LOGTAB(*) = DB;                                           00046000
BYTE ARRAY BLOGTAB(*)  = DB;                                            00048000
DOUBLE ARRAY DLOGTAB(*) = DB;                                           00050000
                                                                        00052000
DEFINE                                                                  00054000
                                                                        00056000
BTABINDEX  =  TABINDEX*2#,   << LOGTAB byte addresses >>                00058000
DTABINDEX  =  TABINDEX/2#;   << LOGTAB double addr.   >>                00060000
                                                                        00062000
                                                                        00064000
<< Entry #0 of LOGTAB >>                                                00066000
                                                                        00068000
EQUATE                                                                  00070000
                                                                        00072000
NUMENTRIES  =  0,    << Current number of entries           >>          00074000
FREE        =  1,    << Pointer to first free entry         >>          00076000
INUSE       =  2,    << Pointer to first entry being used   >>          00078000
BUFNUM      =  3,    << Last four digits of buffer name     >>          00080000
MAXLOGPROCS =  4,    << Max # user logging processes        >>          00082000
MAX'USR'PROC=  5,    << Max # users per log process         >>          00084000
LOGTAB'ESIZE=  7,    << Size of each entry in the LOGTAB    >>          00086000
$edit void=00087000                                            <<01888>>00087000
                                                                        00088000
TENTRYSIZE  =  38;   << Each entry is 38 words              >>          00090000
                                                                        00092000
                                                                        00094000
<< Typical entry in the LOGTAB >>                                       00096000
                                                                        00098000
DEFINE                                                                  00100000
                                                                        00102000
LGNAME    =   BTABINDEX#,      << Logging identifier        >>          00104000
BNAME     =   BTABINDEX + 8  #,<< Buffer file name          >>          00106000
LFNAME    =   BTABINDEX + 16 #,<< Logging file name         >>          00108000
LFLOCKW   =   BTABINDEX + 24 #,<< Lockword - if disc        >>          00110000
LFGROUP   =   BTABINDEX + 32 #,<< Group file name - if disc >>          00112000
LFACCT    =   BTABINDEX + 40 #,<< Account file name -if disc>>          00114000
NUMUSERS  =   TABINDEX  + 24 #,<< # users on this log id    >>          00116000
DST       =   TABINDEX  + 25 #,<< DST of the LOGBUFF        >>          00118000
STATUS    =   TABINDEX  + 26 #,<< Status of logging process >>          00120000
LGTYPE    =   TABINDEX + 27).(8:8 #, << Type of log process >>          00122000
LGAUTO    =   TABINDEX + 27).(0:8 #, << Auto changelog flag >>          00124000
LGDEV     =   TABINDEX  + 28 #,<< Ldev of disc or disc buff.>>          00126000
PIN       =   TABINDEX  + 29 #,<< Logging process pin #     >>          00128000
LGSWITCH  =   TABINDEX  + 30 #,<< True if switch pending    >>          00130000
LGNEWTYPE =   TABINDEX +31).(8:8#,  << Type of new log file >>          00132000
LGNEWAUTO =   TABINDEX +31).(0:8#,  << Auto changelog flag  >>          00134000
LGADDR    =   DTABINDEX + 16 #,<< Address of logging buffer >>          00136000
BSIZE     =   DTABINDEX + 17 #,<< Size of logging buffer    >>          00138000
NEXT      =   TABINDEX  + 36 #,<< Pointer to next entry     >>          00140000
PREV      =   TABINDEX  + 37 #;<< Pointer to previous entry >>          00142000
                                                                        00144000
                                                                        00146000
<<**************** LOGBUFF ************************>>                   00148000
<< User Logging Buffer Table definitions.          >>                   00150000
<<                                                 >>                   00152000
<< This table has 50 words of global information,  >>                   00154000
<< one 25 word entry for every user accessing the  >>                   00156000
<< logging process (added via OPENLOG, deleted via >>                   00158000
<< CLOSELOG), and 4K buffer area.                  >>                   00160000
                                                                        00162000
LOGICAL ARRAY LOGBUFF(*) = DB;                                          00164000
INTEGER ARRAY ILOGBUFF(*) = DB;                                         00166000
BYTE ARRAY BLOGBUFF(*) = DB;                                            00168000
DOUBLE ARRAY DLOGBUFF(*) = DB;                                          00170000
                                                                        00172000
DEFINE                                                                  00174000
                                                                        00176000
BINDEX  =  INDEX*2#,   << LOGBUFF byte addresses   >>                   00178000
DINDEX  =  INDEX/2#,   << LOGBUFF double addresses >>                   00180000
                                                                        00182000
                                                                        00184000
<< Global information in the Logging Buffer (LOGBUFF) >>                00186000
                                                                        00188000
<< Byte indexes >>                                                      00190000
                                                                        00192000
LOGID     =  0#,     << Logging identifier                   >>         00194000
                                                                        00196000
<< Word indexes >>                                                      00198000
                                                                        00200000
SWITCH'   =  4#,     << True if switch pending               >>         00202000
NEWTYPE   = 5).(8:8#,<< Type of new log file                 >>         00204000
CHANGE    = 5).(0:8#,<< Change flag for log process          >><<09580>>00206000
LOGTYPE   = 6).(8:8#,<< Type of current log file             >>         00208000
AUTO      = 6).(0:8#,<< Auto flag for current log file       >>         00210000
BDST      =  7#,     << DST of the LOGBUFF                   >>         00212000
LOGPIN    =  8#,     << Pin of logging process               >>         00214000
NUMUSER   =  9#,     << Number of users accessing log process>>         00216000
MAXUSER'  = 10#,     << Maximum users allowed per process    >>         00218000
USERNO    = 11#,     << Next log number to assign            >>         00220000
SLPCT     = 12#,     << Number of users waiting for process  >>         00222000
STATE     = 13#,     << State of logging process             >>         00224000
MSG       = 14#,     << Internal message word                >>         00226000
LOGMSG    = 15#,     << Message from log process to user     >>         00228000
USERMSG   = 16#,     << Message from user to log process     >>         00230000
LOGERR    = 17#,     << Last error found                     >>         00232000
LOGDEV    = 18#,     << Ldev of disc - buffer file or logfile>>         00234000
BSPACE    = 19#,     << Space remaining in 4K buffer         >>         00236000
BUFUSED   = 20#,     << # records written in the 4K buffer   >>         00238000
VSETNO    = 21#,     << Number of this file in the set       >>         00240000
                                                                        00242000
<< Double indexes >>                                                    00244000
                                                                        00246000
LOGADDR   = 11#,     << Address of current extent            >>         00248000
INBUFREC  = 12#,     << Next record available in the extent  >>         00250000
FSIZE     = 13#,     << # Records in the current extent      >>         00252000
FSPACE'   = 14#,     << Space available in log buffer        >>         00254000
TRECS     = 15#,     << Total records written by this process>>         00256000
MAXFSPACE = 16#,     << Max file space useable - save 1 rec. >>         00258000
                                                                        00260000
<< Word indexes >>                                                      00262000
                                                                        00264000
LASTEXT'  = 34#,     << The last available extent in logfile >>         00266000
EXTENT    = 35#,     << Number of the current extent         >>         00268000
                                                               <<01886>>00268100
RESOURCE1  = 36#,    << For unique access to disc info       >><<01886>>00268200
RESOURCE2 = 40#,     << For unique access to buffer info     >><<01886>>00268300
                                                               <<01886>>00268400
RESOURCE3 = 140#,    << For unique access to user entries    >><<01886>>00268500
$EDIT VOID=00269300                                            <<09581>>00269000
                                                                        00270000
$edit                                                                   00272000
                                                                        00274000
$EDIT VOID=00277050                                                     00276000
OLD'LIMIT = 22#,     << File limit for previous file in set  >><<09580>>00277100
RES2'OWNER= RESOURCE2#, << Owner pcb of resource2            >><<01886>>00277101
OWNERPIN = RESOURCE1#,  << Owner pin of resource1            >><<01886>>00277102
RES3'OWNER= RESOURCE3#, << Owner pin of resource3            >><<01886>>00277103
                                                                        00278000
<< Word index >>                                                        00280000
                                                                        00282000
OLD'NUMEXT= 46#,     << # extents in previous file in set    >><<09580>>00283000
UHEAD     = 48#,     << Pointer to first entry in use list   >>         00284000
FHEAD     = 49#,     << Pointer to first entry in free list  >><<09580>>00286000
                                                                        00288000
<< Double index >>                                             <<09580>>00289000
                                                               <<09580>>00289100
FIRST'C'TIME = 25#,  << Creation time of first file in set   >><<09580>>00289200
                                                               <<09580>>00289300
<< Word index >>                                               <<09580>>00289400
                                                               <<09580>>00289500
FIRST'C'DATE = 52#,  << Date of creation of the first file   >><<09580>>00289600
F'TYPE       = 53#,  << First file type (0,1,2,3)            >><<09580>>00289700
P'TYPE       = 54#,  << Previous file type (0,1,2,3)         >><<09580>>00289800
C'TYPE       = 55#,  << Current file type (0,1,2,3)          >><<09580>>00289900
N'TYPE       = 56#,  << Next file type (0,1,2,3)             >><<09580>>00289910
                                                               <<09580>>00289920
<< Byte index >>                                               <<09580>>00289931
                                                               <<09580>>00289932
FIRST'FILE   = 114#, << Name of first file in set            >><<09580>>00289933
PREVIOUS'FILE= 150#, << Name of previous file in set         >><<09580>>00289934
CURRENT'FILE = 186#, << Name of current file in the set      >><<09580>>00289935
NEXT'FILE    = 222#, << Name of next file in the set         >><<09580>>00289936
                                                               <<09580>>00289937
<< Word index >>                                               <<09580>>00289938
                                                               <<09580>>00289939
CURR'C'DATE  = 114#, << Date of creation of the current file >><<09580>>00289940
                                                               <<09580>>00289941
<< Double index >>                                             <<09580>>00289942
                                                               <<09580>>00289943
RECS'IN'PREV = 67#,  << Total records in all previous files  >><<09580>>00289944
                                                               <<09580>>00289945
<< Word index >>                                               <<09580>>00289946
                                                               <<09580>>00289947
FSERR'CODE   = 136#,  << File system error #                >> <<09580>>00289948
ULERR'CODE   = 137#,  << User logging error #               >> <<09580>>00289949
HEAD'CHANGE'PIN= 138#,<<Process waiting for changelog       >> <<01887>>00289950
NOT'SAFE'TO'STOP= 144#; << INDICATES THAT ULOGPROC SHOULD   >> <<01887>>00289951
                        << NOT PROCESS A STOP MESSAGE.      >> <<01887>>00289961
<< Misc. LOGBUFF equates >>                                             00290000
                                                                        00292000
EQUATE                                                                  00294000
BENTRYSIZE=   25,    << Size of logbuff user entry           >>         00296000
BENTRYBASE=   6*BENTRYSIZE;  <<Base of LOGBUFF user entries >> <<09580>>00298000
                                                                        00300000
                                                                        00302000
<< User entry definitions for LOGBUFF >>                                00304000
                                                                        00306000
DEFINE                                                                  00308000
                                                                        00310000
USER      =   BINDEX#,       << User's name                  >>         00312000
GROUP     =   BINDEX +  8#,  << User's log on group          >>         00314000
ACCT      =   BINDEX + 16#,  << User's log on account        >>         00316000
UPIN      =   INDEX  + 12#,  << User's pin number            >>         00318000
OPENCNT   =   INDEX  + 13#,  << Number of OPENLOGS for user  >>         00320000
WSTATE    =   INDEX  + 14#,  << State of user process        >>         00322000
ERROR     =   INDEX  + 15#,  << Last error code              >>         00324000
LGNUM     =   INDEX  + 16#,  << Log number for this user     >>         00326000
SCODE     =   INDEX  + 17#,  << Subsystem code - if priv.    >>         00328000
RECS      =   DINDEX +  9#,  << Number of records written    >>         00330000
NENTRY    =   INDEX  + 23#,  << Pointer to next user entry   >>         00332000
PENTRY    =   INDEX  + 24#,  << Pointer to prev. user entry  >>         00334000
                                                                        00336000
                                                                        00338000
<< Table relative pointer to top of 4K buffer area >>                   00340000
                                                                        00342000
BUFBASE   =   BENTRYBASE + LOGBUFF(MAXUSER') * BENTRYSIZE#;             00344000
                                                                        00346000
                                                                        00348000
<<******************** LIDTAB ******************************>>          00350000
<< User Logging Identifier Table -- DST #33 (%41).  This    >>          00352000
<< table will have an entry for every logid on the system.  >>          00354000
<< Entries created via :GETLOG and deleted via :RELLOG.     >>          00356000
                                                                        00358000
<< Entry # 0 definitions  >>                                            00360000
                                                                        00362000
EQUATE                                                                  00364000
                                                                        00366000
MENTRIES  =   1,   << Max. number of entries in the table   >>          00368000
LID'ESIZE =   4,   << Size of LIDTAB entries                >>          00370000
LIDESIZE  =  33,   << Each entry is 33 words                >>          00372000
EBASE     = LIDESIZE,  << Base of LIDTAB entries            >>          00374000
                                                                        00376000
<< Typical entry definitions  >>                                        00378000
                                                                        00380000
<< Byte entries  >>                                                     00382000
                                                                        00384000
LID       =   0,   << Logging identifier                    >>          00386000
PW        =   8,   << Password for logid                    >>          00388000
FNAME'    =  16,   << Log file name                         >>          00390000
LW        =  24,   << Disc file lockword                    >>          00392000
FGROUP    =  32,   << Disc file group                       >>          00394000
FACCT     =  40,   << Disc file account                     >>          00396000
UNAME     =  48,   << Creator's name                        >>          00398000
UACCT     =  56,   << Creator's account                     >>          00400000
                                                                        00402000
<< Word entries >>                                                      00404000
                                                                        00406000
TYP       =  32;   << Type of log process                   >> <<09580>>00408000
                                                               <<09580>>00409000
DEFINE                                                         <<09580>>00409100
                                                               <<09580>>00409200
TYP'ALLOW'CHANGE  = (0:1)#,     << :CHANGELOG allowed       >> <<09580>>00409300
TYP'ALLOW'AUTO    = (1:1)#,     << Auto change allowed      >> <<09580>>00409400
TYP'FIRST         = (2:7)#,     << Type of FIRST log file>>    <<01906>>00409500
TYP'CURRENT       = (9:7)#;     << Type of current log file >> <<09580>>00409600
                                                               <<09580>>00409700
EQUATE                                                         <<09580>>00409800
                                                               <<09580>>00409900
MAX'TYP'FIELD     = 3,                                         <<09580>>00409910
                                                                        00410000
                                                                        00412000
<<************ LOGGING RECORD FORMAT **********************>>           00414000
                                                                        00416000
RNUM        =   0,   << Double -- record number              >>         00418000
CKSUM       =   2,   << Check sum                            >>         00420000
CODE        =   3,   << TYPE OF LOGGING RECORD               >>         00421000
LNUM'       =   7,   << Log # for writelog,endlog,beginlog   >>         00422000
TIME        =   2,   << Double -- from CLOCK intrinsic       >>         00424000
DATE        =   6,   << From CALENDAR intrinsic              >>         00426000
LID'        =  14,   << 8 bytes -- logid                     >>         00428000
LNUM        =  11,   <<                                      >>         00430000
CREATOR     =  24,   << 24 bytes -- name, group, account     >>         00432000
LPIN        =  24,   << User's pin number                    >>         00434000
$EDIT VOID=00440000                                            <<09580>>00436000
LEN'        =   8,   << # words in user data area            >>         00442000
UAREA       =   9,   << Data area of the log record          >>         00444000
                                                                        00446000
DATAREA     = 119,   << # words of user data per log record  >>         00448000
                                                               <<09580>>00448100
<< Fields for changelog records >>                             <<09580>>00448200
                                                               <<09580>>00448300
SEQ         =  11,   << Current file set number              >><<09580>>00448400
C'TIME      =   6,   << Double - Creation time of log file   >><<09580>>00448500
C'DATE      =  14,   << Creation date of log file            >><<09580>>00448600
F'FILE'NAME =  30,   << 36 bytes - first log file name       >><<09580>>00448700
F'FILE'TYPE =  33,   << File type of first log file          >><<09580>>00448800
P'FILE'NAME =  68,   << 36 bytes - previous log file name    >><<09580>>00448900
P'FILE'TYPE =  52,   << File type of previos log file        >><<09580>>00449000
N'FILE'NAME =  68,   << 36 bytes - next log file name        >><<09580>>00449100
N'FILE'TYPE =  52,   << File type of next log file           >><<09580>>00449200
C'FILE'NAME = 106,   << 36 bytes - current log file name     >><<09580>>00449300
C'FILE'TYPE =  71,   << File type of current log file        >><<09580>>00449400
                                                               <<09580>>00449500
                                                                        00450000
<< Log record values for CODE  >>                                       00452000
                                                                        00454000
OPEN        =   1,   << OPENLOG record                       >>         00456000
USER'SUB    =   2,   << User/subsystem record - WRITELOG     >>         00458000
CLOSE       =   3,   << CLOSELOG record                      >>         00460000
HEADER      =   4,   << When process is started              >>         00462000
TRAILER     =   5,   << When process is stoppped             >>         00464000
RSTART      =   6,   << When process is restarted            >>         00466000
CONT        =   7,   << Continuation of previous record      >>         00468000
CRASH       =   9,   << When file is recovered on warmstart  >>         00470000
TRAN'END    =  10,   << ENDLOG record                        >>         00472000
TRAN'BEGIN  =  11,   << BEGINLOG record                      >>         00474000
CHANGE'NEW  =  12,   << CHANGELOG record - last in "old" file>>         00476000
CHANGE'OLD  =  13,   << CHANGELOG record - first in "new" fil>>         00478000
FIRST'CODE  =  CHANGE'NEW,                                     <<09580>>00479000
NEXT'CODE   =  CHANGE'OLD,                                     <<09580>>00479100
                                                                        00480000
                                                                        00482000
<<************ MISC EQUATES *********************************>>         00484000
                                                                        00486000
<< State of user logging process >>                                     00488000
                                                                        00490000
INACT       =   0,           << Inactive log process         >>         00492000
ACT         =   1,           << Active log process           >>         00494000
RECOVERING  =   2,           << Recovering after warmstart   >>         00496000
INITIALIZING=  -1,           << Setting up from start/restart>>         00498000
                                                                        00500000
<< Values found in MSG field of LOGBUFF     >>                          00502000
                                                                        00504000
CONTINUE    =   6,           << Everything  is O.K.          >>         00506000
SUSPEND     =   2,           << Error - serial logfiles      >>         00508000
START       =   1,           << Start up                     >>         00510000
STOP        =   3,           << Stop as soon as numuser = 0  >>         00512000
RESTRT      =   5,           << Restart control message      >>         00514000
                                                                        00516000
NULL        =   -1,          <<                              >><<09580>>00518000
                                                                        00520000
<< Default values for new log file characteristics.          >><<09580>>00520100
                                                               <<09580>>00520200
DEFAULT'NUMEXT   =  16,                                        <<09580>>00520300
DEFAULT'LIMIT    =  20000,                                     <<09580>>00520400
LOWEST'LIMIT     =  256,                                       <<09580>>00520410
NO'BUF           =    0;    << Number of file system buffers >><<09580>>00520420
                                                               <<09580>>00520500
<< Values for ATTACHIO parameters >>                                    00522000
                                                                        00524000
DEFINE                                                         <<*7538>>00525000
                                                               <<*7538>>00525100
WAIT'FOR'POST = (4:1)#;   << Wait for disc post with caching >><<*7538>>00525200
                                                               <<*7538>>00525300
EQUATE                                                         <<*7538>>00525400
                                                               <<*7538>>00525500
READ        =   0,                                                      00526000
WRITE       =   1,                                                      00528000
REWIND      =   5,                                                      00530000
FORWARDSPACE=   7,                                                      00532000
BKSPACE     =  12,                                                      00534000
                                                                        00536000
FLAGS       =   %2001,    << Serial write queue >>             <<*7536>>00538000
POST'TAPE'BUFFER = 2,     << Used in FSETMODE >>               <<*7539>>00538100
QMISC       =   0,                                                      00540000
                                                                        00542000
SUCCESS     =   1,        << Good return from ATTACHIO >>               00544000
                                                               <<09580>>00545000
SET'EOF     =   6,        << FCONTROL to write EOF     >>      <<09580>>00545100
GET'LDEV    =   6,        << FFILEINFO to get ldev     >>      <<09580>>00545200
                                                               <<09580>>00545300
                                                                        00546000
<< CCTL codes for FWRITEs to serial log file >>                         00548000
                                                                        00550000
SPECIAL'WRITE  =  %3001,    << SDISC,CTAPE - to set gap table>>         00552000
NORMAL'WRITE   =      0,                                                00554000
                                                                        00556000
<< Types of logging processes >>                                        00558000
                                                                        00560000
DISC        =   0,                                                      00562000
TAPE        =   1,                                                      00564000
SDISC       =   2,                                                      00566000
CTAPE       =   3,                                                      00568000
                                                                        00570000
<< Log file equates >>                                                  00572000
                                                                        00574000
LOG         = 1090,   << File code for disc log files >>                00576000
RECSIZE     = 128,    << Record size                  >>                00578000
RECSIZEM1   = RECSIZE -1,                                               00580000
BLKSIZE     = 4096,   << Block size                   >>                00582000
BLKFACTOR   =   32,                                                     00584000
                                                                        00586000
<< File System error codes                            >>                00588000
                                                                        00590000
SYSPOWERFAIL         = 89,   << System power failed   >>                00592000
TAPEPOWERFAIL        = 18,   << Device power failed   >>                00594000
                                                                        00596000
OUT'OF'GROUP'SPACE   = 61,                                              00598000
OUT'OF'ACCOUNT'SPACE = 62,                                              00600000
DUP'FILENAME         = 100,                                    <<09580>>00601000
                                                                        00602000
<< System catalog set numbers                         >>                00604000
                                                                        00606000
SETNO          =  20, << User logging message set     >>                00608000
FSSETNO        =   8, << File System message set      >>                00610000
                                                                        00612000
<<*********** USER LOGGING MESSAGES ******************>>                00614000
                                                                        00616000
TOPENFAILED    =   1,   << FOPEN of tape log file failed     >>         00618000
BOPENFAILED    =   2,   << FOPEN failure on buffer file      >>         00620000
UOPENFAILED    =   3,   << Can't open disc log file          >>         00622000
NODSEG         =   4,   << No XDS available for LOGBUFF      >>         00624000
FLABELERR      =   5,   << File label error                  >>         00626000
BWRITEERROR    =   6,   << Error writing to log buffer file  >>         00628000
FWRITEERROR    =   7,   << Error writing to log file         >>         00630000
LOGFILEEOF     =   8,   << No more extents available         >>         00632000
OUTOFDISCSPACE =   9,   << Out of disc space                 >>         00634000
LOGPROCRUNS    =  10,   << Log process is running            >>         00636000
LOGPROCSTOP    =  11,   << Logging process is stopped        >>         00638000
LOGREC         =  12,   << Log file is recovered             >>         00640000
LOGRECERR      =  13,   << Error recovering log file         >>         00642000
NOLOGREC       =  14,   << Log file not recovered            >>         00644000
LOGRECOV       =  15,   << Recovering log file               >>         00646000
LOGRESTART     =  16,   << Log process restarted             >>         00648000
LOGEMPTY       =  17,   << Disc log file empty               >>         00650000
LOGSUSPENDED   =  18,   << Log process suspended             >>         00652000
INVALIDFILE    =  19,   << Invalid disc log file             >>         00654000
CANTSTART      =  20,   << Can't start Log Process           >>         00656000
LOGINUSE       =  21,   << Log process in use - term. pending>>         00658000
NOTEMPTY       =  22,   << Log file not empty, cannot start  >>         00660000
READERR        =  23,   << Read error while restarting       >>         00662000
TAPELOGREC    =24,   <<Number of records recovered for tape>>  <<*1912>>00663000
BREADERROR     =  25,   << Error reading buffer file         >>         00664000
FCLOSEERROR    =  26,   << Error closing log file            >>         00666000
FREADERROR     =  27,   << Error reading from log file       >>         00668000
CANTRESTART    =  28,   << Can't restart log process         >>         00670000
PFAILERROR     =  29,   << Log file not recovered after pfail>>         00672000
BAD'USER'COUNT =  30,   << Max users/process is invalid      >>         00674000
TOOSMALL       =  31,   << Disc log file is too small        >>         00676000
TPOWERFAIL     =  32,   << Tape powefail detected            >>         00678000
NEWBOPENFAIL   =  33,   << Can't open new buffer file        >><<09580>>00678010
NLOGOPENFAIL   =  34,   << Can't open new log file           >><<09580>>00678020
NEW'TOO'SMALL  =  35,   << New disc log file is too small    >><<09580>>00678030
NEWBWRITEERROR =  36,   << Write error on new buffer file    >><<09580>>00678040
NEWFWRITEERROR =  37,   << Write error on new log file       >><<09580>>00678050
CHANGELOG'OK   =  38,   << Changelog successfully complete   >><<09580>>00678060
CHANGELOG'LOST =  39,   << Changelog lost when sys went down >><<09580>>00678070
MOUNT'NEXT     =  40,   << Mount next serial volume in set   >><<09580>>00678080
CHANGELOG'ABORT=  41,   << Error during changelog            >><<09580>>00678081
MOUNT'PREV     =  42,   << Error - mount prev serial volume  >><<09580>>00678090
SAME'DISC'FILE =  43,   << Error - new file must not be same >><<09580>>00678100
NEWFLABERROR   =  44,   << File label error on new log file >> <<09580>>00678110
NEWLOGEOF      =  45,   << EOF on new log file              >> <<09580>>00678220
NEWLOGCLOSEFAIL=  46,   << Fclose fail on new log file      >> <<09580>>00678330
NEWDISCSPACE   =  47,   << Out of disc space for new log fil>> <<09580>>00678440
OLDBCLOSEFAIL  =  48,   << Fclose fail on old buffer file   >> <<09580>>00678550
OLDLOGCLOSEFAIL=  49,   << Fclose fail on old log file      >> <<09580>>00678660
PREVIOUS'ERROR =  50,   << Log process has error, no change  >><<09580>>00678670
CHANGELOG'LOST1=  51,   << Changelog lost when system crashed>><<09580>>00678680
CHANGELOG'LOST2=  52,   << Changelog lost when system crashed>><<09580>>00678690
                                                                        00680000
                                                                        00682000
<<******** CI MESSAGES - COMMAND PARSING ********************>>         00684000
                                                                        00686000
NOBACKREF       =  205,  << Backreference illegal            >>         00688000
NOSYSFILE       =  206,  << System files illegal             >>         00690000
FNAMELENGTH     =  532,  << Fname length > 8 characters      >>         00692000
NOTALPHAFNAME   =  530,  << Must begin with alpha char       >>         00694000
EXPECTEDLWORD   =  561,  << Expected lockword                >>         00696000
LOCKWORDLENGTH  =  562,  << Lock word length > 8 characters  >>         00698000
INVALIDCHAR     =  582,  << Must begin with alpha character  >>         00700000
PWLEN           = 1201,  << Password cannot be > 8 chars.    >>         00702000
EXPECTEDPW      = 1202,  << Expected password                >>         00704000
EXPECTEDEQ      = 1203,  << Expected "="                     >>         00706000
ILLEGALTYPE     = 1204,  << Illegal type parameter           >>         00708000
EXPECTEDCOMMA   = 1205,  << Expected ","                     >>         00710000
NIXLOGID        = 1206,  << Non-existent logging id          >>         00712000
DUPLICATE       = 1207,  << Duplicate logging identifier     >>         00714000
ILLEGALTAPEFILE = 1208,  << Illegal tape file name           >>         00716000
BUSY            = 1209,  << Logging process is busy          >>         00718000
MAXEXCEEDED     = 1210,  << Max # log ids exceeded           >>         00720000
INVALIDPARM     = 1211,  << Invalid parameter                >>         00722000
SECURITYVIOL    = 1212,  << Must be the creator              >>         00724000
INVALIDKEY      = 1213,  << Invalid keyword                  >>         00726000
EXP'LOG'OR'PASS = 1214,  << Expected LOG or PASS parameters  >><<09580>>00728000
EXPECTEDLNAME   = 1215,  << Expected log file name           >>         00730000
CHANGELOG'PENDING=1216,  << Changelog already pending        >><<09580>>00730010
$edit void=00730020                                            <<01888>>00730020
INVALID'STATE   = 1219,  << Process not able to accept chagel>><<09580>>00730040
EXP'AUTO'NOAUTO = 1220,  << Expect AUTO or NOAUTO            >><<09580>>00730050
INVALID'PARM    = 1221,  << Illegal parameter found          >><<09580>>00730060
EXPECTDEVNAME   = 1222,  << Illegal device name found        >><<09580>>00730070
CHANGELOG'FAILED= 1223,  << Serious error - changelog aborted>><<09580>>00730080
EXPECTEDLOGID   = 1225,  << Expected log id                  >>         00732000
LOGIDLENGTH     = 1226,  << Incorrect length                 >>         00734000
NOSPECHAR       = 1227,  << No special characters allowed    >>         00736000
ONEPARM         = 1229,  << Only one parameter for command   >>         00738000
NOLOGPROCRUN    = 1230,  << No logging processes running     >>         00740000
NOLOGID         = 1231,  << No log id assigned               >>         00742000
LOGPROCNORUN    = 1232,  << Logging process not running      >>         00744000
EXPASS          = 1233,  << Expected password                >>         00746000
CREPARM         = 1234,  << Param. only used by creator      >>         00748000
ILLEGALFILE     = 1250,  << File must reside in logon account>>         00750000
EXTRAPARM       = 1251,  << Extraneous parameter             >>         00752000
DUPKEYWORD      = 1252,  << Keyword already found            >>         00754000
EXPECTEDSEMI    = 1253,  << Expected ";"                     >>         00756000
EXTRA'DELIM     = 1397,  << Extraneous delimeter ignored     >><<09580>>00756010
AUTONOAUTOSPEC  = 3750,  << AUTO and NOAUTO specifed ->NOAUTO>><<09580>>00756011
CANTBEAUTOAND001= 3751,  << AUTO specifed, not correct fname >><<09580>>00756012
AUTOONFILENOGOOD =3752,  << Invalid file name for auto change>><<09580>>00756013
ONLY1MEMBERINSET =3753,  << Only one log file in set no "001">><<09580>>00756014
CANTCLOGONFILE   =3754,  << Wrong file name for :CHANGELOG   >><<09580>>00756015
LOGEXP2PARMS    = 3810,  << :LOG has exactly 2 parms         >><<09580>>00756030
LOGMUSTBE1TO8   = 3811,  << Logid is 1 to 8 characters       >><<09580>>00756040
NOTALPHALOGID   = 3812,  << Must start with alpha char.      >>         00758000
LOGIDMUSTBEAN   = 3813,  << Non alpha-numeric chars not allow>><<09580>>00758010
LOGNOTACTIVE    = 3814,  << No active process for this logid >><<09580>>00758020
EXP1OFSSR       = 3815,  << Expected START,STOP, or RESTART  >><<09580>>00758030
LOGIDACTIVE     = 3816,  << Log process already active       >><<09580>>00758040
NOINITLOG       = 3817,  << Can't initiate log process       >><<09580>>00758050
                                                                        00760000
                                                                        00762000
<<***** ERROR CODES FROM USER LOGGING INTRINSICS ************>>         00764000
                                                                        00766000
NWAITERR     =   1, << Process is busy -- nowait is illegal  >>         00768000
BOUNDSERR    =   2, << Parameter out of bounds               >>         00770000
NOLOGPROC    =   3, << Logging process not running           >>         00772000
INDEXERR     =   4, << Invalid index parameter               >>         00774000
MODEERR      =   5, << Incorrect value of mode parameter     >>         00776000
SUSPENDED    =   6, << Logging process is suspended          >>         00778000
ILLEGALCAP   =   7, << User must have LG or OP capability    >>         00780000
PASSERR      =   8, << Incorrect password                    >>         00782000
WRITEERR     =   9, << Error occurred while writing          >>         00784000
DISCSPACE    =  12, << No disc space available               >>         00786000
NOLOGENTRIES =  13, << No more logging entries available     >>         00788000
SECVIOL      =  14, << Security violation                    >>         00790000
EOFONLOGFILE =  15, << End of file on log file               >>         00792000
INVALIDLOGID =  16, << Logging identifier doesn't exist      >>         00794000
PARAMMISS    =  17, <<One parameter missing                   >>        00796000
INVLDNUM     =  18, <<Invalid itemnum                         >>        00797000
INITLOGPROC  =  19, << Log process is initializing/recovering>><<*2231>>00797500
<< Condition code equates   >>                                          00798000
                                                                        00800000
CCE       =  2,                                                         00802000
CCL       =  1,                                                         00804000
CCG       =  0;                                                         00806000
                                                                        00808000
<< Misc. defines    >>                                                  00810000
                                                                        00812000
DEFINE                                                                  00814000
$EDIT                                                          <<09583>>00816000
MYPIN      =  CURPRC#,                                         <<09583>>00818000
PXFXLOGGING=  PXFIXED(6).(10:1)#,                              <<06543>>00819000
PDISABLE   =  ASSEMBLE(PSDB)#,                                          00820000
PENABLE    =  ASSEMBLE(PSEB)#;                                          00822000
                                                                        00824000
<< ************************************************ >>                  00826000
<< *                                              * >>                  00828000
<< *             End of INCLLOG                   * >>                  00830000
<< *                                              * >>                  00832000
<< ************************************************ >>                  00834000
