! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
      DECLARE LONG CONSTANT ACC$K_TERMLEN = 84  !  TERMINATION MESSAGE LENGTH 
      DECLARE LONG CONSTANT ACC$C_TERMLEN = 84  !  TERMINATION MESSAGE LENGTH 
    !  AND ACCOUNTING RECORD FOR NON BATCH JOBS
      DECLARE LONG CONSTANT ACC$K_JOB_LEN = 108  !  LENGTH OF BATCH JOB ACCOUNTING RECORD 
      DECLARE LONG CONSTANT ACC$C_JOB_LEN = 108  !  LENGTH OF BATCH JOB ACCOUNTING RECORD 
      DECLARE LONG CONSTANT ACC$S_ACCDEF = 108
      record ACCDEF
         WORD ACC$W_MSGTYP                  !  MESSAGE TYPE CODE 
         WORD ACC$W_MSGSIZ                  !  LENGTH OF DATA MESSAGE (VALID ONLY IN ACCLOG) 
         LONG ACC$L_FINALSTS                !  FINAL EXIT STATUS 
         LONG ACC$L_PID                     !  PROCESS ID 
         LONG ACC$L_JOBID                   !  JOB IDENTIFICATION (VALID ONLY IN ACCLOG) 
         BASIC$QUADWORD ACC$Q_TERMTIME      !  TERMINATION TIME (100NS UNITS) 
         STRING ACC$T_ACCOUNT = 8           !  ACCOUNT NAME STRING (BLANK FILLED) 
         STRING ACC$T_USERNAME = 12         !  USER NAME STRING (BLANK FILLED) 
         LONG ACC$L_CPUTIM                  !  CPUTIM IN 10MS UNITS 
         LONG ACC$L_PAGEFLTS                !  TOTAL PAGE FAULTS 
         LONG ACC$L_PGFLPEAK                !  PEAK PAGING FILE USAGE 
         LONG ACC$L_WSPEAK                  !  PEAK WORKING SET SIZE 
         LONG ACC$L_BIOCNT                  !  COUNT OF BUFFERED I/O OPERATIONS 
         LONG ACC$L_DIOCNT                  !  COUNT OF DIRECT I/O OPERATIONS 
         LONG ACC$L_VOLUMES                 !  COUNT OF VOLUMES MOUNTED 
         BASIC$QUADWORD ACC$Q_LOGIN         !  LOGIN TIME (100NS UNITS) 
         LONG ACC$L_OWNER                   !  PID OF SUBPROCESS OWNER 
    !  END OF TERMINATION MESSAGE
         STRING ACC$T_JOB_NAME = 8          !  JOB NAME (BLANK FILLED) 
         STRING ACC$T_JOB_QUE = 16          !  QUEUE NAME (.ASCIC) 
      end record ACCDEF
    
      DECLARE LONG CONSTANT ACC$K_PRT_LEN = 88  !  LENGTH OF PRINT ACCOUNTING RECORD 
      DECLARE LONG CONSTANT ACC$C_PRT_LEN = 88  !  LENGTH OF PRINT ACCOUNTING RECORD 
    ! 
      DECLARE LONG CONSTANT ACC$S_ACCDEF1 = 88
      record ACCDEF1
         BYTE ACCDEF$$_FILL_1 ( 1 to 48 )
         LONG ACC$L_PAGCNT                  !  SYMBIONT PAGE COUNT 
         LONG ACC$L_QIOCNT                  !  SYMBIONT QIO COUNT 
         LONG ACC$L_GETCNT                  !  SYMBIONT GET COUNT 
         BASIC$QUADWORD ACC$Q_QUETIME       !  TIME JOB WAS QUEUED 
         STRING ACC$T_PRT_NAME = 8          !  NAME OF PRINT JOB 
         STRING ACC$T_PRT_QUE = 12          !  NAME OF PRINT QUEUE 
    !  DEFINE USER ACCOUNTING MESSAGE DATA AREA
    ! 
      end record ACCDEF1
    
      DECLARE LONG CONSTANT ACC$K_INS_LEN = 176  !  LENGTH OF INSERT MESSAGE 
      DECLARE LONG CONSTANT ACC$C_INS_LEN = 176  !  LENGTH OF INSERT MESSAGE 
    ! 
      DECLARE LONG CONSTANT ACC$K_PRCTRM = 1  !  JOB TERMINATION 
      DECLARE LONG CONSTANT ACC$K_BATTRM = 2  !  BATCH JOB TERMINATION 
      DECLARE LONG CONSTANT ACC$K_INTTRM = 3  !  INTERACTIVE JOB TERMINATION 
      DECLARE LONG CONSTANT ACC$K_LOGTRM = 4  !  LOGIN FAILURE PROCESS TERMINATION 
      DECLARE LONG CONSTANT ACC$K_IMGTRM = 5  !  IMAGE TERMINATION 
      DECLARE LONG CONSTANT ACC$K_SUBTRM = 6  !  SUBPROCESS TERMINATION 
      DECLARE LONG CONSTANT ACC$K_DETTRM = 7  !  DETACHED PROCESS TERMINATION 
      DECLARE LONG CONSTANT ACC$K_NETTRM = 8  !  NETWORK PROCESS TERMINATION 
    !  MISC ACCOUNTING RECORDS 
      DECLARE LONG CONSTANT ACC$K_PRTJOB = 16  !  PRINT JOB ACCOUNTING 
      DECLARE LONG CONSTANT ACC$K_INSMSG = 17  !  INSERTED MESSAGE 
    ! 
      DECLARE LONG CONSTANT ACC$K_INSMESG = 1  !  INSERT MESSAGE INTO ACCOUNTING FILE 
      DECLARE LONG CONSTANT ACC$K_NEWFILE = 2  !  CREATE A NEW ACCOUNT FILE 
      DECLARE LONG CONSTANT ACC$K_ENABACC = 3  !  ENABLE ACCOUNTING 
      DECLARE LONG CONSTANT ACC$K_DISAACC = 4  !  DISABLE ACCOUNTING 
      DECLARE LONG CONSTANT ACC$K_ENABSEL = 5  !  ENABLE SELECTIVE ACCOUNTING 
      DECLARE LONG CONSTANT ACC$K_DISASEL = 6  !  DISABLE SELECTIVE ACCOUNTING 
      DECLARE LONG CONSTANT ACC$S_ACCDEF2 = 176
      record ACCDEF2
         BYTE ACCDEF$$_FILL_2 ( 1 to 44 )
         STRING ACC$T_USER_DATA = 132       !  ALLOW UP TO 132 BYTES OF USER DATA 
    !  ASSIGN RECORD TYPE CODES FOR RECORDS IN THE ACCOUNT LOG FILE
    ! 
    !  PROCESS ACCOUNTING RECORDS 
    !  DEFINE ACCOUNTING MANAGER MESSAGE CODES
    ! 
    !  
      end record ACCDEF2