*COMDECK COMSLOG
  
# COMSLOG -                                               #CONTROL LIST;
                  CONTROL IFEQ LISTCON,0; CONTROL NOLIST; CONTROL ENDIF;
# 
**    INSTALLATION ACCOUNTING - 
* 
*     ACCOUNTING PARAMETERS AND THE METHOD OF ACCOUNTING ARE DEFINED
*     IN THIS SECTION. THE SELECTION OF A JOB CARD AND ACCOUNT CARD 
*     DEPEND ON WHETHER THE ACCOUNTING INFORMATION IS TO BE ON THE
*     JOB CARD OR THE ACCOUNT CARD. THE FOLLOWING DESCRIBES THE TWO 
*     METHODS.
* 
* 
*-----------------------------------------------------------------------
* 
*     ACCOUNTING INFORMATION ON THE JOB CARD -
* 
*     THE JOB CARD FOR THIS METHOD IS:  
* 
*     "LODPF(MT01,IO0,T0)XXXXXXXXXX." 
* 
*     WHERE THE X'S ARE THE ACCOUNTING PARAMETERS.
* 
*     THE ACCOUNT CARD FOR THIS METHOD IS:  
* 
*     "COMMENT."
* 
*     EXAMPLE - 
* 
*     TO HAVE ABC,0123,456789,XYZ PLACED ON THE JOB CARD AS ACCOUNTING
*     PARAMETERS USE THE FOLLOWING CARDS: 
* 
*     "LODPF(MT01,IO0,T0)ABC,0123,456789,XYZ."
*     "COMMENT."
* 
* 
*-----------------------------------------------------------------------
* 
*     ACCOUNTING INFORMATION ON THE ACCOUNT CARD -
* 
*     THE JOB CARD FOR THIS METHOD IS:  
* 
*     "LODPF(MT01,IO0,T0)"
* 
*     THE ACCOUNT CARD FOR THIS METHOD IS:  
* 
*     "ACCOUNT,XXXXXXXXXX." 
* 
*     WHERE THE X'S ARE THE ACCOUNTING PARAMETERS.
* 
*     EXAMPLE - 
* 
*     TO HAVE ABC,0123,456789,XYZ PLACED ON THE ACCOUNT CARD AS 
*     ACCOUNTING PARAMETERS USE THE FOLLOWING CARDS:  
* 
*     "LODPF(MT01,IO0,T0)"
*     "ACCOUNT,ABC,0123,456789,XYZ."
* 
*-----------------------------------------------------------------------
* 
*     NOTE - BOTH THE JOB CARD AND THE ACCOUNT CARD MUST BE TERMINATED
*     BY A SEMI-COLON.
* 
# 
#**********************************************************************#
  
      ITEM JOBCARD C(72)= 
      "LODPF(MT01,IO0,T0)"; 
  
      ITEM ACCOUNT C(72)= 
      "ACCOUNT,ABC,0123,456789,XYZ."; 
  
#**********************************************************************#
CONTROL EJECT;
#         THE REST OF COMDECK COMSLOG DEFINES SYMBOLS AND STATUS LISTS
          USED BY GENLDPF AND PFLOG SUBROUTINES.                       #
  
      DEF BLANKS    #"          "#;              # BLANK CHARACTERS    #
      DEF CHECKSUM(X) #B<0,12>X + B<12,12>X + B<24,12>X + B<36,12>X 
                       + B<48,12>X#;
                                   # CHECKSUM COMPUTES THE CHECKSUM OF
                                     A LOG ENTRY                       #
      DEF DX        #O"04300000000000000000"#;   # 2LDX FOR CRM        #
      DEF GEBIT     #B<20>LOGI[SHORT"ENTHDR"]#;  # GE BIT IN LOG ENTRY #
      DEF INPUT     #O"11162025240000000000"#;   # 5LINPUT FOR CRM     #
      DEF IO        #O"11461700000000000000"#;   # 3LI-O FOR CRM       #
      DEF LOGSIZE   #7#;           # SIZE OF SHORT LOG ENTRY           #
      DEF MSGL      #20#;          # SIZE OF ERROR MESSAGE LIST        #
      DEF N         #O"16000000000000000000"#;   # 1LN FOR CRM         #
      DEF NTBIT     #B<19>LOGI[SHORT"ENTHDR"]#;  # NT BIT IN LOG ENTRY #
      DEF OUTPUT    #O"17252420252400000000"#;   # 6LOUTPUT FOR CRM    #
      DEF PAGELINES #56#;          # NUMBER OF LINES PER PAGE          #
      DEF PFCBUFL   #640#;         # SIZE OF PFC BUFFER LENGTH IN 
                                     CHARACTERS                        #
      DEF PFCHDR    #O"7777777722022403"#;       # PFC HEADER FLAG     #
      DEF PFDHDR    #O"77772006043700000000"#;   # PFD HEADER FLAG     #
      DEF PRUSIZE   #64#;                        # PRU SIZE IS 100B    #
      DEF R         #O"22000000000000000000"#;   # 1LR FOR CRM         #
      DEF RA70      #O"70"#;       # LOCATION OF CONTROL CARD IMAGE    #
      DEF REPEAT    #FOR DUMMY = 0#;  # ABBREVIATION FOR DUMMY FOR LOOP#
      DEF SEPARATOR #CHAR EQ "(" OR CHAR EQ "," OR CHAR EQ "/" OR 
                     CHAR EQ "-" OR CHAR EQ "+"#; 
      DEF SET       #EQ 1#;        # ABBREVIATION FOR LOGICAL EQ 1     #
      DEF TAGSIZE   #999#;         # SIZE OF ARRAY TAG                 #
      DEF THRU      #STEP 1 UNTIL#;   # ABBREVIATION TO INCREMENT BY 1 #
      DEF U         #O"25000000000000000000"#;   # 1LU FOR CRM         #
  
      ITEM DUMMY I;                # DUMMY REPEAT LOOP VARIABLE        #
# 
**        THE FOLLOWING STATUS LIST DEFINES PFC WORDS.
* 
*         ********************* 
*         * * *  N O T E  * * * 
*         ********************* 
* 
*         ANY CHANGES IN PFC WORD ENTRY DEFINITIONS SHOULD ALSO BE
*         MADE HERE.
* 
# 
      STATUS PFCW 
             EF,                   # ENTRY IN USE FLAG WORD            #
             HDR,                  # PFC HEADER WORD                   #
             ID,                   # OWNER ID                          #
             PFN1,                 # PFN                               #
             PFN2,
             PFN3,
             PFN4,
             CY,                   # CYCLE NUMBER                      #
             RP,                   # RETENTION PERIOD                  #
             DLA,                  # DATE OF LAST ATTACH               #
             DLM,                  # DATE OF LAST ALTERATION           #
             SZ,                   # ENTRY SIZE                        #
             PST,                  # POINTER TO S AND T                #
             AC,                   # ACCOUNT                           #
             VSN1,                 # DUMP TAPE VSN1                    #
             VSN2,                 # DUMP TAPE VSN2                    #
             RES,                  # RESERVED WORD                     #
             DLD,                  # DATE OF LAST DUMP                 #
             TK,                   # TURNKEY PASSWORD                  #
             CN,                   # CONTROL PASSWORD                  #
             MD,                   # MODIFY PASSWORD                   #
             EX,                   # EXTEND PASSWORD                   #
             RD,                   # READ PASSWORD                     #
             ;                     # END OF STATUS LIST PFCW           #
# 
**        THE FOLLOWING STATUS LIST DEFINES PFD WORDS.
* 
*         ********************* 
*         * * *  N O T E  * * * 
*         ********************* 
* 
*         ANY CHANGES IN PFD WORD ENTRY DEFINITIONS SHOULD ALSO BE
*         MADE HERE.
* 
# 
      STATUS PFDW 
             HDR,                  # PFD HEADER                        #
             ID,                   # OWNER ID                          #
             PFN1,                 # PFN                               #
             PFN2,
             PFN3,
             PFN4,
             CY1,                  # CYCLE SLOTS                       #
             CY2, 
             CY3, 
             CY4, 
             CY5, 
             TK,                   # TURNKEY PASSWORD                  #
             CN,                   # CONTROL PASSWORD                  #
             MD,                   # MODIFY PASSWORD                   #
             EX,                   # EXTEND PASSWORD                   #
             RD,                   # READ PASSWORD                     #
             ;                     # END OF STATUS LIST PFD            #
# 
**        THE FOLLOWING STATUS LIST DEFINES LOG ENTRY WORDS.
* 
# 
      STATUS TAPEW
             ENTHDR,               # ENTRY HEADER                      #
             HDR,                  # PFC HEADER WORD                   #
             ID,                   # OWNER ID                          #
             PFN1,                 # PFN                               #
             PFN2,
             PFN3,
             PFN4,
             CY,                   # CYCLE NUMBER                      #
             RP,                   # RETENTION PERIOD                  #
             DLA,                  # DATE OF LAST ATTACH               #
             DLM,                  # DATE OF LAST ALTERATION           #
             SZ,                   # ENTRY SIZE                        #
             PST,                  # POINTER TO S AND T                #
             AC,                   # ACCOUNT                           #
             VSN1,                 # DUMP TAPE VSN 1                   #
             VSN2,                 # DUMP TAPE VSN 2                   #
             RES,                  # RESERVED WORD                     #
             DLD,                  # DATE OF LAST DUMP                 #
             TK,                   # TURNKEY PASSWORD                  #
             CN,                   # CONTROL PASSWORD                  #
             MD,                   # MODIFY PASSWORD                   #
             EX,                   # EXTEND PASSWORD                   #
             RD,                   # READ PASSWORD                     #
             ;                     # END OF STATUS LIST TAPEW          #
# 
**        THE FOLLOWING STATUS LIST DEFINES LOG ENTRY WORDS 
*         WHEN THE FILE IS NOT ARCHIVED.
* 
*         THIS IS THE SHORT FORM OF THE LOG ENTRY.
* 
# 
      STATUS SHORT
             ENTHDR,               # ENTRY HEADER                      #
             VSN,                  # VSN AND CYCLE                     #
             AC,                   # ACCOUNT                           #
             ID,                   # OWNER ID                          #
             PFN1,                 # PFN                               #
             PFN2,
             PFN3,
             PFN4,
             ;                     # END OF STATUS LIST SHORT          #
# 
**        ERROR MESSAGE CODES.
* 
# 
      STATUS ERRCODE
             NULL,                 # END OF MESSAGE LIST               #
             CCERR,                # CONTROL CARD ERROR                #
             DUPLFN,               # DUPLICATE LF PARAMETER            #
             DUPSN,                # DUPLICATE SN PARAMETER            #
             ILLKW,                # ILLEGAL KEYWORD                   #
             ILLFN,                # ILLEGAL LFN                       #
             ILLSN,                # ILLEGAL SETNAME                   #
             HWER,                 # TAPE HARDWARE ERROR               #
             ILLMSG,               # INVALID MESSAGE CODE              #
             NOTAPE,               # NO TAPE REQUESTED                 #
             ABT,                  # ABORT                             #
             DUPVSN,               # DUPLICATE VSN PARAMETER           #
             ILLVSN,               # ILLEGAL VSN                       #
             NOVSN,                # MISSING VSN PARAMETER             #
             NOSN,                 # MISSING SN PARAMETER              #
             NOTLOG,               # INCORRECT LOG TAPE MOUNTED        #
             NOLBL,                # TAPE NOT LABELLED                 #
             ATTFAIL,              # ATTACH OF DUM FAILED              #
             NOPW,                 # NO PASSWORD SPECIFIED             #
             DUPPW,                # DUPLICATE PASSWORD                #
             ILLPW,                # ILLEGAL PASSWORD                  #
             USENPAR,              # N PARAMETER MISSING               #
             BADTAPE,              # UNUSEABLE TAPE                    #
             FORCEOV,              # FORCED EOV DUE TO PARITY ERROR    #
             NOTMNT,               # SET NOT MOUNTED                   #
             NOPERM,               # INCORRECT PERMISSION              #
             ;                     # END OF STATUS LIST                #
                  CONTROL IFNQ LISTCON,0; CONTROL EJECT; CONTROL ENDIF; 
      CONTROL LIST; 
  
