DELETE ACC_RECORD;
REDEFINE RECORD ACC_RECORD OPTIMIZE
01 ACC_REC.
!
! This record definition reads the fields produced by the
! program which "fixes" System Accounting records by putting them
! into fixed format fields.
!
! B. Z. Lederman	15-Apr-1987
!			23-Apr-1987 Use FN$FAO to format UICs, etc.
!
   05 ROOT.
	10 TYPE USAGE BYTE.
	10 SUB_TYPE USAGE BYTE.
	10 SYSTEM_DATE USAGE DATE.
	10 SYSTEM_TIME COMPUTED BY FN$TIME(SYSTEM_DATE)
		EDIT_STRING X(12).
	10 EBIN REDEFINES SYSTEM_DATE.	! used for elapsed time
	    20 EQUAD USAGE QUAD.	! computations
!
! Begin fields from ID packet
!
   05 ID.
	10 IDENT.
	    20 DIN.
		30 FILLER PIC X(20).
	    20 DECIMALS REDEFINES DIN.
		30 DPID USAGE LONG.	! process ID
		30 DPIDOWN USAGE LONG.	! Owner process ID
		30 DUIC USAGE LONG.
		30 DPRIV1 USAGE LONG.
		30 DPRIV2 USAGE LONG.
	    20 PID COMPUTED BY FN$HEX(DPID) EDIT_STRING X(8).
	    20 PIDOWN COMPUTED BY FN$HEX(DPIDOWN) EDIT_STRING X(8).
	    20 NUIC COMPUTED BY FN$FAO("!%I",DUIC,"","","","","","","")
		    EDIT_STRING X(14).
	    20 PRIVILEGES.
		30 PRIV1 COMPUTED BY FN$HEX(DPRIV1) EDIT_STRING X(8).
		30 PRIV2 COMPUTED BY FN$HEX(DPRIV2) EDIT_STRING X(8).
	    20 PRIORITY USAGE BYTE EDIT_STRING Z9.
	10 USER.
	    20 USERNAME PIC X(12).
	    20 ACCOUNT PIC X(8).
	    20 NODE PIC X(6).
	    20 TERMINAL PIC X(6).
	10 JOB.
	    20 JOBNAME PIC X(12).
	    20 JOBID USAGE LONG.
	    20 QUEUE PIC X(32).
	    20 NODEADDR USAGE WORD.
	    20 REMOTE_ID PIC X(16).
!
! Start process deletion fields
!
  05 PROCESS_DELETION.
	10 TIMES.
	    20 SD.			! used to "hide" the starting date
		30 FILLER PIC X(8).	! because we don't need two dates
	    20 SDATE REDEFINES SD.
		30 START_DATE USAGE DATE.
		30 SBIN REDEFINES START_DATE.
		    40 SQUAD USAGE QUAD.
	    20 START_TIME COMPUTED BY FN$TIME(START_DATE)
			EDIT_STRING X(12).
	    20 ELAPSED COMPUTED BY (EQUAD - SQUAD) / 10000000
			EDIT_STRING ZZ,ZZ9.99.
	10 STATUS USAGE LONG.
	10 COUNTS.
	    20 IMAGE_COUNT USAGE LONG.
	    20 CPU_TIME USAGE LONG PIC 9(10)V99
			EDIT_STRING Z,ZZZ,ZZZ,ZZ9.99.
	    20 FAULTS USAGE LONG
			EDIT_STRING Z,ZZZ,ZZ9.
	    20 FAULT_IO USAGE LONG
			EDIT_STRING Z,ZZZ,ZZ9.
	    20 WS_PEAK USAGE LONG.
	    20 PAGE_FILE USAGE LONG
			EDIT_STRING Z,ZZZ,ZZ9.
	    20 DIO_COUNT USAGE LONG
			EDIT_STRING Z,ZZZ,ZZ9.
	    20 BIO_COUNT USAGE LONG
			EDIT_STRING Z,ZZZ,ZZ9.
	    20 VOLUMES USAGE LONG.
;