! *** 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 ! + ! ACRDEF - ACCOUNTING RECORD DEFINITIONS ! ! ********************************************************************** ! NOTE: IF ANY FIELDS CHANGE, A NEW VERSION NUMBER MUST BE ADDED AND * ! "ACR$K_CURVER" EQUATED TO IT. * ! ********************************************************************** ! ! - ! RECORD/PACKET VERSIONS (ACR$V_VERSION) DECLARE LONG CONSTANT ACR$K_VERSION2 = 0 ! VMS VERSION 2 ACCOUNTING FORMAT DECLARE LONG CONSTANT ACR$K_VERSION3T = 1 ! VMS VERSION 3 FIELD TEST DECLARE LONG CONSTANT ACR$K_VERSION3 = 2 ! VMS VERSION 3 ACCOUNTING FORMAT DECLARE LONG CONSTANT ACR$K_VERSION4 = 3 ! VMS VERSION 4 ACCOUNTING FORMAT DECLARE LONG CONSTANT ACR$K_CURVER = 3 ! CURRENT FORMAT VERSION NUMBER DECLARE LONG CONSTANT ACR$M_PACKET = x'00000001' DECLARE LONG CONSTANT ACR$M_TYPE = x'000000FE' DECLARE LONG CONSTANT ACR$M_SUBTYPE = x'00000F00' DECLARE LONG CONSTANT ACR$M_VERSION = x'00007000' DECLARE LONG CONSTANT ACR$M_CUSTOMER = x'00008000' DECLARE LONG CONSTANT ACR$K_PRCDEL = 1 ! PROCESS DELETE DECLARE LONG CONSTANT ACR$K_PRCPUR = 2 ! PROCESS PURGE DECLARE LONG CONSTANT ACR$K_IMGDEL = 3 ! IMAGE DELETE DECLARE LONG CONSTANT ACR$K_IMGPUR = 4 ! IMAGE PURGE DECLARE LONG CONSTANT ACR$K_SYSINIT = 5 ! SYSTEM INITIALIZATION DECLARE LONG CONSTANT ACR$K_SETTIME = 6 ! SET SYSTEM TIME DECLARE LONG CONSTANT ACR$K_LOGFAIL = 7 ! LOGIN VALIDATION FAILURE DECLARE LONG CONSTANT ACR$K_PRINT = 8 ! PRINT JOB DECLARE LONG CONSTANT ACR$K_USER = 9 ! USER SUPPLIED DATA DECLARE LONG CONSTANT ACR$K_ENABLE = 10 ! ACC. MANG. FUNCTION ENABLE DECLARE LONG CONSTANT ACR$K_DISABLE = 11 ! ACC. MANG. FUNCTION DISABLE DECLARE LONG CONSTANT ACR$K_ALTACM = 12 ! DECLARE ALTERNATE ACC. MANG. DECLARE LONG CONSTANT ACR$K_FILE_FL = 13 ! ACCOUNTING FILE - FORWARD LINK DECLARE LONG CONSTANT ACR$K_FILE_BL = 14 ! ACCOUNTING FILE - BACKWARD LINK ! RECORD SUBTYPE (ACR$V_SUBTYPE) CONSTANTS DECLARE LONG CONSTANT ACR$K_INTERACTIVE = 1 ! INTERACTIVE PROCESS DECLARE LONG CONSTANT ACR$K_SUBPROCESS = 2 ! SUBPROCESS DECLARE LONG CONSTANT ACR$K_DETACHED = 3 ! DETACHED PROCESS DECLARE LONG CONSTANT ACR$K_BATCH = 4 ! BATCH PROCESS DECLARE LONG CONSTANT ACR$K_NETWORK = 5 ! NETWORK PROCESS ! PACKET TYPE (ACR$V_TYPE) CONSTANTS DECLARE LONG CONSTANT ACR$K_ID = 1 ! IDENTIFICATION PACKET DECLARE LONG CONSTANT ACR$K_RESOURCE = 2 ! RESOURCE USAGE PACKET DECLARE LONG CONSTANT ACR$K_IMAGENAME = 3 ! IMAGENAME PACKET DECLARE LONG CONSTANT ACR$K_FILENAME = 4 ! FILENAME PACKET DECLARE LONG CONSTANT ACR$K_USER_DATA = 5 ! USER DATA PACKET DECLARE LONG CONSTANT ACR$S_ACRDEF = 4 record ACRDEF group ACR$R_TYPE_OVERLAY variant case WORD ACR$W_TYPE ! RECORD/PACKET TYPE case group ACR$R_TYPE_BITS ! RECORD(0)/PACKET(1) ! RECORD/PACKET TYPE ! RECORD/PACKET SUBTYPE ! RECORD/PACKET VERSION NUMBER ! DIGITAL(0)/CUSTOMER(1) WORD PACKET_bits ! COMMENT ADDED BY SDL - PACKET_bits contains bits PACKET through CUSTOMER end group ACR$R_TYPE_BITS ! RECORD TYPE (ACR$V_TYPE) CONSTANTS end variant end group ACR$R_TYPE_OVERLAY WORD ACR$W_LENGTH ! RECORD OR PACKET LENGTH ! ! RECORD HEADER ! end record ACRDEF DECLARE LONG CONSTANT ACR$K_HDRLEN = 12 ! RECORD HEADER LENGTH DECLARE LONG CONSTANT ACR$C_HDRLEN = 12 ! RECORD HEADER LENGTH ! DECLARE LONG CONSTANT ACR$S_ACRDEF1 = 12 record ACRDEF1 BYTE ACRDEF$$_FILL_2 ( 1 to 4 ) BASIC$QUADWORD ACR$Q_SYSTIME ! EVENT SYSTEM TIME ! IDENTIFICATION PACKET ! end record ACRDEF1 DECLARE LONG CONSTANT ACR$M_FULLNAME = x'00000001' DECLARE LONG CONSTANT ACR$M_UIDGID = x'00000002' DECLARE LONG CONSTANT ACR$M_FILL_1 = x'000000FC' DECLARE LONG CONSTANT ACR$K_IDVAR = 58 ! BEGINNING OF VARIABLE STORAGE AREA DECLARE LONG CONSTANT ACR$C_IDVAR = 58 ! BEGINNING OF VARIABLE STORAGE AREA ! DECLARE LONG CONSTANT ACR$S_ACRDEF2 = 58 record ACRDEF2 BYTE ACRDEF$$_FILL_3 ( 1 to 4 ) LONG ACR$L_PID ! PROCESS ID LONG ACR$L_OWNER ! OWNER PROCES ID group ACR$R_UIC_OVERLAY variant case LONG ACR$L_UIC ! PROCESS UIC case group ACR$R_UIC_FIELDS WORD ACR$W_MEM ! MEMBER UIC WORD ACR$W_GRP ! GROUP UIC end group ACR$R_UIC_FIELDS end variant end group ACR$R_UIC_OVERLAY BASIC$QUADWORD ACR$Q_PRIV ! PROCESS PRIV BYTE ACR$B_PRI ! PROCESS PRIORITY group ACR$R_IDFLGS_OVERLAY variant case BYTE ACR$B_IDFLGS ! FLAGS BIT MASK case group ACR$R_IDFLGS_BITS ! NOT PRESENT (0)/PRESENT(1) ! NOT PRESENT (0)/PRESENT(1) ! SPARE BITS BYTE FULLNAME_bits ! COMMENT ADDED BY SDL - FULLNAME_bits contains bits FULLNAME through FILL_1 end group ACR$R_IDFLGS_BITS end variant end group ACR$R_IDFLGS_OVERLAY WORD ACR$W_USERNAME ! USERNAME OFFSET WORD ACR$W_ACCOUNT ! ACCOUNT NAME OFFSET WORD ACR$W_NODENAME ! NODE NAME OFFSET WORD ACR$W_TERMINAL ! TERMINAL NAME OFFSET WORD ACR$W_JOBNAME ! JOB NAME OFFSET LONG ACR$L_JOBID ! JOB ID WORD ACR$W_QUEUE ! QUEUE NAME OFFSET WORD ACR$W_NODEADDR ! REMOTE NODE ADDRESS WORD ACR$W_REMOTEID ! REMOTE ID OFFSET WORD ACR$W_FULLADDR ! REMOTE PHASE V ADDRESS WORD ACR$W_FULLNAME ! REMOTE PHASE V FULLNAME LONG ACR$L_POSIX_UID ! POSIX UID LONG ACR$L_POSIX_GID ! POSIX GID ! RESOURCE PACKET ! end record ACRDEF2 DECLARE LONG CONSTANT ACR$S_ACRDEF3 = 56 record ACRDEF3 BYTE ACRDEF$$_FILL_4 ( 1 to 4 ) BASIC$QUADWORD ACR$Q_LOGIN ! PROCESS/IMAGE START TIME LONG ACR$L_STATUS ! PROCESS/IMAGE FINAL STATUS LONG ACR$L_IMGCNT ! IMAGE EXECUTION COUNT/SEQUENCE NUMBER LONG ACR$L_CPUTIME ! PROCESS/IMAGE CPU TIME LONG ACR$L_FAULTS ! PROCESS/IMAGE PAGE FAULT COUNT LONG ACR$L_FAULTIO ! PROCESS/IMAGE PAGE FAULT I/O COUNT LONG ACR$L_WSPEAK ! PROCESS/IMAGE WORKING SET PEAK LONG ACR$L_PAGEFL ! PROCESS/IMAGE PEAK PAGE FILE USAGE LONG ACR$L_DIOCNT ! PROCESS/IMAGE DIRECT I/O COUNT LONG ACR$L_BIOCNT ! PROCESS/IMAGE BUFFERED I/O COUNT LONG ACR$L_VOLUMES ! PROCESS/IMAGE VOLUME MOUNT COUNT LONG ACR$L_VP_CPUTIME ! PROCESS/IMAGE VECTOR CPU TIME ! ! IMAGENAME PACKET ! end record ACRDEF3 DECLARE LONG CONSTANT ACR$S_ACRDEF4 = 260 record ACRDEF4 BYTE ACRDEF$$_FILL_5 ( 1 to 4 ) STRING ACR$T_IMAGENAME = 256 ! IMAGENAME ! ! PRINT RESOURCE PACKET ! end record ACRDEF4 DECLARE LONG CONSTANT ACR$S_ACRDEF5 = 40 record ACRDEF5 BYTE ACRDEF$$_FILL_6 ( 1 to 4 ) LONG ACR$L_PRINTSTS ! JOB STATUS BASIC$QUADWORD ACR$Q_QUETIME ! TIME JOB WAS QUEUED BASIC$QUADWORD ACR$Q_BEGTIME ! TIME JOB WAS BEGUN LONG ACR$L_SYMCPUTIM ! SYMBIONT CPU TIME LONG ACR$L_PAGECNT ! TOTAL PAGES PRINTED LONG ACR$L_QIOCNT ! TOTAL QIOS ISSUED LONG ACR$L_GETCNT ! TOTAL GETS ISSUED ! ! FILENAME PACKET ! end record ACRDEF5 DECLARE LONG CONSTANT ACR$S_ACRDEF6 = 260 record ACRDEF6 BYTE ACRDEF$$_FILL_7 ( 1 to 4 ) STRING ACR$T_FILENAME = 256 ! FILENAME ! ! USER DATA PACKET ! end record ACRDEF6 DECLARE LONG CONSTANT ACR$S_ACRDEF7 = 260 record ACRDEF7 BYTE ACRDEF$$_FILL_8 ( 1 to 4 ) STRING ACR$T_USER_DATA = 256 ! USER DATA end record ACRDEF7