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
!
   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 PID USAGE LONG.	! process ID
	10 PIDOWN USAGE LONG.	! Owner process ID
	10 UIC USAGE LONG.
	10 PRIVILEGES USAGE QUAD.
	10 PRIORITY USAGE BYTE EDIT_STRING Z9.
	10 USERNAME PIC X(12).
	10 ACCOUNT PIC X(8).
	10 NODE PIC X(6).
	10 TERMINAL PIC X(6).
	10 JOBNAME PIC X(12).
	10 JOBID USAGE LONG.
	10 QUEUE PIC X(32).
	10 NODEADDR USAGE WORD.
	10 REMOTE_ID PIC X(16).
!
! Start process deletion fields
!
  05 PROCESS_DELETION.
	10 SD.				! used to "hide" the starting date
	    20 FILLER PIC X(8).		! because we don't need two dates
	10 SDATE REDEFINES SD.
	    20 START_DATE USAGE DATE.
	    20 SBIN REDEFINES START_DATE.
		30 SQUAD USAGE QUAD.
	10 START_TIME COMPUTED BY FN$TIME(START_DATE)
		EDIT_STRING X(12).
	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.
;