DELETE SYSUAF_RECORD;
REDEFINE RECORD SYSUAF_RECORD USING OPTIMIZE
01 SYSUAF.
	03 FILLER PIC X(4).
	03 USERNAME PIC X(32).
	03 UIC_WORDS.
		05 MEMBER USAGE WORD.
		05 GROUP USAGE WORD.
	03 FILLER PIC X(12).
	03 ACCOUNT PIC X(8).
	03 FILLER PIC X(24).
	03 OWNER_FIELD_LENGTH USAGE BYTE.
	03 OWNER PIC X(31).
	03 DEVICE_FIELD_LENGTH USAGE BYTE.
	03 DEVICE PIC X(31).
	03 DIRECTORY_FIELD_LENGTH USAGE BYTE.
	03 DIRECTORY PIC X(63).
	03 LGICMD_FIELD_LENGTH USAGE BYTE.
	03 LGICMD PIC X(63).
	03 CLI_FIELD_LENGTH USAGE BYTE.
	03 CLI PIC X(31).
	03 TABLES_FIELD_LENGTH USAGE BYTE.
	03 TABLES PIC X(31).
	03 PASSWORD_DEPENDENT USAGE QUAD.
	03 FILLER USAGE QUAD.
	03 LOGFAILS USAGE WORD.
	03 FILLER PIC X(4).
	03 PWDMINIMUM USAGE BYTE.
	03 FILLER USAGE BYTE.
	03 EXPIRATION USAGE DATE.
	03 TIME_EXPIRATION COMPUTED BY FN$TIME(EXPIRATION).
	03 FILLER PIC X(8).
	03 PWDCHANGE USAGE DATE.
	03 FILLER PIC X(8).
	03 DATE_LAST_INTERACTIVE_LOGIN USAGE DATE QUERY_NAME IS DLIL.
	03 TIME_LAST_INTERACTIVE_LOGIN COMPUTED BY FN$TIME(DLIL).
	03 DATE_LAST_NONINTERACTIVE_LOGIN USAGE DATE QUERY_NAME IS DLNL.
	03 TIME_LAST_NONINTERACTIVE_LOGIN COMPUTED BY FN$TIME(DLNL).
	03 AUTHORIZE_PRIV_QUADWORD USAGE QUAD.
	03 DEFAULT_PRIV_QUADWORD USAGE QUAD.
	03 FILLER PIC X(40).
	03 LOGIN_FLAGS_WORD USAGE WORD.
	03 FILLER PIC X(2).
	03 NETWORK_ACCESS_BYTES OCCURS 6 TIMES.
		05 NETWORK_ACCESS_BYTE USAGE BYTE.
	03 BATCH_ACCESS_BYTES OCCURS 6 TIMES.
		05 BATCH_ACCESS_BYTE USAGE BYTE.
	03 LOCAL_ACCESS_BYTES OCCURS 6 TIMES.
		05 LOCAL_ACCESS_BYTE USAGE BYTE.
	03 DIALUP_ACCESS_BYTES OCCURS 6 TIMES.
		05 DIALUP_ACCESS_BYTE USAGE BYTE.
	03 REMOTE_ACCESS_BYTES OCCURS 6 TIMES.
		05 REMOTE_ACCESS_BYTE USAGE BYTE.
	03 FILLER PIC X(12).
	03 PRIME_DAYS_BITS USAGE BYTE.
	03 FILLER USAGE BYTE.
	03 PRIO USAGE BYTE.
	03 QUEPRIO USAGE BYTE.
	03 MAXJOBS USAGE WORD.
	03 MAXACCTJOBS USAGE WORD.
	03 MAXDETACH USAGE WORD.
	03 PRCLM USAGE WORD.
	03 DIOLM USAGE WORD.
	03 BIOLM USAGE WORD.
	03 TQELM USAGE WORD.
	03 ASTLM USAGE WORD.
	03 ENQLM USAGE WORD.
	03 FILLM USAGE WORD.
	03 SHRFILLM USAGE WORD.
	03 WSQUO USAGE LONG.
	03 WSDEF USAGE LONG.
	03 WSEXT USAGE LONG.
	03 PGFLQUO USAGE LONG.
	03 CPU USAGE LONG.
	03 BYTLM USAGE LONG.
	03 PBYTLM USAGE LONG.
	03 JTQUO USAGE LONG.
	03 FILLER PIC X(844).
;