!*** MODULE $ACRDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  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) 
	PARAMETER ACR$K_VERSION2 = '00000000'X	 !  VMS VERSION 2 ACCOUNTING FORMAT 
	PARAMETER ACR$K_VERSION3T = '00000001'X	 !  VMS VERSION 3 FIELD TEST 
	PARAMETER ACR$K_VERSION3 = '00000002'X	 !  VMS VERSION 3 ACCOUNTING FORMAT 
	PARAMETER ACR$K_VERSION4 = '00000003'X	 !  VMS VERSION 4 ACCOUNTING FORMAT
	PARAMETER ACR$K_CURVER = '00000002'X	 !  CURRENT FORMAT VERSION NUMBER 
	PARAMETER ACR$M_PACKET = '00000001'X
	PARAMETER ACR$M_TYPE = '000000FE'X
	PARAMETER ACR$M_SUBTYPE = '00000F00'X
	PARAMETER ACR$M_VERSION = '00007000'X
	PARAMETER ACR$M_CUSTOMER = '00008000'X
	PARAMETER ACR$K_PRCDEL = '00000001'X	 !  PROCESS DELETE 
	PARAMETER ACR$K_PRCPUR = '00000002'X	 !  PROCESS PURGE 
	PARAMETER ACR$K_IMGDEL = '00000003'X	 !  IMAGE DELETE 
	PARAMETER ACR$K_IMGPUR = '00000004'X	 !  IMAGE PURGE 
	PARAMETER ACR$K_SYSINIT = '00000005'X	 !  SYSTEM INITIALIZATION 
	PARAMETER ACR$K_SETTIME = '00000006'X	 !  SET SYSTEM TIME 
	PARAMETER ACR$K_LOGFAIL = '00000007'X	 !  LOGIN VALIDATION FAILURE 
	PARAMETER ACR$K_PRINT = '00000008'X	 !  PRINT JOB 
	PARAMETER ACR$K_USER = '00000009'X	 !  USER SUPPLIED DATA 
	PARAMETER ACR$K_ENABLE = '0000000A'X	 !  ACC. MANG. FUNCTION ENABLE 
	PARAMETER ACR$K_DISABLE = '0000000B'X	 !  ACC. MANG. FUNCTION DISABLE 
	PARAMETER ACR$K_ALTACM = '0000000C'X	 !  DECLARE ALTERNATE ACC. MANG. 
	PARAMETER ACR$K_FILE_FL = '0000000D'X	 !  ACCOUNTING FILE - FORWARD LINK 
	PARAMETER ACR$K_FILE_BL = '0000000E'X	 !  ACCOUNTING FILE - BACKWARD LINK 
 !  RECORD SUBTYPE (ACR$V_SUBTYPE) CONSTANTS 
	PARAMETER ACR$K_INTERACTIVE = '00000001'X  !  INTERACTIVE PROCESS 
	PARAMETER ACR$K_SUBPROCESS = '00000002'X  !  SUBPROCESS 
	PARAMETER ACR$K_DETACHED = '00000003'X	 !  DETACHED PROCESS 
	PARAMETER ACR$K_BATCH = '00000004'X	 !  BATCH PROCESS 
	PARAMETER ACR$K_NETWORK = '00000005'X	 !  NETWORK PROCESS 
 !  PACKET TYPE (ACR$V_TYPE) CONSTANTS 
	PARAMETER ACR$K_ID = '00000001'X	 !  IDENTIFICATION PACKET 
	PARAMETER ACR$K_RESOURCE = '00000002'X	 !  RESOURCE USAGE PACKET 
	PARAMETER ACR$K_IMAGENAME = '00000003'X	 !  IMAGENAME PACKET 
	PARAMETER ACR$K_FILENAME = '00000004'X	 !  FILENAME PACKET 
	PARAMETER ACR$K_USER_DATA = '00000005'X	 !  USER DATA PACKET 
	STRUCTURE /ACRDEF/
	    UNION
	        MAP
	        INTEGER*2 ACR$W_TYPE			 !  RECORD/PACKET TYPE 
	        END MAP
	        MAP
	            PARAMETER ACR$S_PACKET = 1
	            PARAMETER ACR$V_PACKET = 0		 !  RECORD(0)/PACKET(1) 
	            PARAMETER ACR$S_TYPE = 7
	            PARAMETER ACR$V_TYPE = 1		 !  RECORD/PACKET TYPE 
	            PARAMETER ACR$S_SUBTYPE = 4
	            PARAMETER ACR$V_SUBTYPE = 8		 !  RECORD/PACKET SUBTYPE 
	            PARAMETER ACR$S_VERSION = 3
	            PARAMETER ACR$V_VERSION = 12		 !  RECORD/PACKET VERSION NUMBER 
	            PARAMETER ACR$S_CUSTOMER = 1
	            PARAMETER ACR$V_CUSTOMER = 15
	            BYTE %FILL (2)				 !  DIGITAL(0)/CUSTOMER(1) 
	        END MAP
 !  RECORD TYPE (ACR$V_TYPE) CONSTANTS 
	    END UNION
	    INTEGER*2 ACR$W_LENGTH			 !  RECORD OR PACKET LENGTH 
 ! 
 !  RECORD HEADER
 ! 
	END STRUCTURE	! ACRDEF
	PARAMETER ACR$K_HDRLEN = '0000000C'X	 !  RECORD HEADER LENGTH 
	PARAMETER ACR$C_HDRLEN = '0000000C'X	 !  RECORD HEADER LENGTH 
 ! 
	STRUCTURE /ACRDEF1/
	    BYTE      %FILL(1:4)
	    INTEGER*4 ACR$Q_SYSTIME(2)		 !  EVENT SYSTEM TIME 
 !  IDENTIFICATION PACKET
 ! 
	END STRUCTURE	! ACRDEF1
	PARAMETER ACR$M_FULLNAME = '00000001'X
	PARAMETER ACR$M_UIDGID = '00000002'X
	PARAMETER ACR$M_FILL_1 = '000000FC'X
	PARAMETER ACR$K_IDVAR = '0000003A'X	 !  BEGINNING OF VARIABLE STORAGE AREA 
	PARAMETER ACR$C_IDVAR = '0000003A'X	 !  BEGINNING OF VARIABLE STORAGE AREA 
 ! 
	STRUCTURE /ACRDEF2/
	    BYTE      %FILL(1:4)
	    INTEGER*4 ACR$L_PID			 !  PROCESS ID 
	    INTEGER*4 ACR$L_OWNER			 !  OWNER PROCES ID 
	    UNION
	        MAP
	        INTEGER*4 ACR$L_UIC			 !  PROCESS UIC 
	        END MAP
	        MAP
	            INTEGER*2 ACR$W_MEM			 !  MEMBER UIC 
	            INTEGER*2 ACR$W_GRP			 !  GROUP UIC 
	        END MAP
	    END UNION
	    INTEGER*4 ACR$Q_PRIV(2)			 !  PROCESS PRIV 
	    BYTE      ACR$B_PRI			 !  PROCESS PRIORITY 
	    UNION
	        MAP
	        BYTE      ACR$B_IDFLGS			 !  FLAGS BIT MASK
	        END MAP
	        MAP
	            PARAMETER ACR$S_FULLNAME = 1
	            PARAMETER ACR$V_FULLNAME = 0		 !  NOT PRESENT (0)/PRESENT(1)
	            PARAMETER ACR$S_UIDGID = 1
	            PARAMETER ACR$V_UIDGID = 1		 !  NOT PRESENT (0)/PRESENT(1)
	            PARAMETER ACR$S_FILL_1 = 6
	            PARAMETER ACR$V_FILL_1 = 2
	            BYTE %FILL (1)				 !  SPARE BITS
	        END MAP
	    END UNION
	    INTEGER*2 ACR$W_USERNAME		 !  USERNAME OFFSET 
	    INTEGER*2 ACR$W_ACCOUNT			 !  ACCOUNT NAME OFFSET 
	    INTEGER*2 ACR$W_NODENAME		 !  NODE NAME OFFSET 
	    INTEGER*2 ACR$W_TERMINAL		 !  TERMINAL NAME OFFSET 
	    INTEGER*2 ACR$W_JOBNAME			 !  JOB NAME OFFSET 
	    INTEGER*4 ACR$L_JOBID			 !  JOB ID 
	    INTEGER*2 ACR$W_QUEUE			 !  QUEUE NAME OFFSET 
	    INTEGER*2 ACR$W_NODEADDR		 !  REMOTE NODE ADDRESS 
	    INTEGER*2 ACR$W_REMOTEID		 !  REMOTE ID OFFSET 
	    INTEGER*2 ACR$W_FULLADDR		 !  REMOTE PHASE V ADDRESS
	    INTEGER*2 ACR$W_FULLNAME		 !  REMOTE PHASE V FULLNAME
	    INTEGER*4 ACR$L_POSIX_UID		 !  POSIX UID
	    INTEGER*4 ACR$L_POSIX_GID		 !  POSIX GID
 !  RESOURCE PACKET
 ! 
	END STRUCTURE	! ACRDEF2
	STRUCTURE /ACRDEF3/
	    BYTE      %FILL(1:4)
	    INTEGER*4 ACR$Q_LOGIN(2)		 !  PROCESS/IMAGE START TIME 
	    INTEGER*4 ACR$L_STATUS			 !  PROCESS/IMAGE FINAL STATUS 
	    INTEGER*4 ACR$L_IMGCNT			 !  IMAGE EXECUTION COUNT/SEQUENCE NUMBER 
	    INTEGER*4 ACR$L_CPUTIME			 !  PROCESS/IMAGE CPU TIME 
	    INTEGER*4 ACR$L_FAULTS			 !  PROCESS/IMAGE PAGE FAULT COUNT 
	    INTEGER*4 ACR$L_FAULTIO			 !  PROCESS/IMAGE PAGE FAULT I/O COUNT 
	    INTEGER*4 ACR$L_WSPEAK			 !  PROCESS/IMAGE WORKING SET PEAK 
	    INTEGER*4 ACR$L_PAGEFL			 !  PROCESS/IMAGE PEAK PAGE FILE USAGE 
	    INTEGER*4 ACR$L_DIOCNT			 !  PROCESS/IMAGE DIRECT I/O COUNT 
	    INTEGER*4 ACR$L_BIOCNT			 !  PROCESS/IMAGE BUFFERED I/O COUNT 
	    INTEGER*4 ACR$L_VOLUMES			 !  PROCESS/IMAGE VOLUME MOUNT COUNT 
	    INTEGER*4 ACR$L_VP_CPUTIME		 !  PROCESS/IMAGE VECTOR CPU TIME
 ! 
 !  IMAGENAME PACKET
 ! 
	END STRUCTURE	! ACRDEF3
	STRUCTURE /ACRDEF4/
	    BYTE      %FILL(1:4)
	    CHARACTER*256 ACR$T_IMAGENAME		 !  IMAGENAME 
 ! 
 !  PRINT RESOURCE PACKET
 ! 
	END STRUCTURE	! ACRDEF4
	STRUCTURE /ACRDEF5/
	    BYTE      %FILL(1:4)
	    INTEGER*4 ACR$L_PRINTSTS		 !  JOB STATUS 
	    INTEGER*4 ACR$Q_QUETIME(2)		 !  TIME JOB WAS QUEUED 
	    INTEGER*4 ACR$Q_BEGTIME(2)		 !  TIME JOB WAS BEGUN 
	    INTEGER*4 ACR$L_SYMCPUTIM		 !  SYMBIONT CPU TIME 
	    INTEGER*4 ACR$L_PAGECNT			 !  TOTAL PAGES PRINTED 
	    INTEGER*4 ACR$L_QIOCNT			 !  TOTAL QIOS ISSUED 
	    INTEGER*4 ACR$L_GETCNT			 !  TOTAL GETS ISSUED 
 ! 
 !  FILENAME PACKET
 ! 
	END STRUCTURE	! ACRDEF5
	STRUCTURE /ACRDEF6/
	    BYTE      %FILL(1:4)
	    CHARACTER*256 ACR$T_FILENAME		 !  FILENAME 
 ! 
 !  USER DATA PACKET
 ! 
	END STRUCTURE	! ACRDEF6
	STRUCTURE /ACRDEF7/
	    BYTE      %FILL(1:4)
	    CHARACTER*256 ACR$T_USER_DATA		 !  USER DATA 
	END STRUCTURE	! ACRDEF7
!DEC$ END OPTIONS