DELETE SYSUAF_RECORD;
REDEFINE RECORD SYSUAF_RECORD
!
! The SYSUAF.DAT file. Has user accounts, etc.  Normally accessed through
! AUTHORIZE, but if done read-only interesting data may be obtained.
!
! The user must have the proper privileges to access SYSUAF.DAT
!
! B. Z. Lederman
!
01 SYSUAF_REC.
    10 IDENT.
	20 RTYPE USAGE BYTE.
	20 VERSION USAGE BYTE.
	20 INULL USAGE WORD.
    10 USERDATA.
	20 USERNAME PIC X(32) EDIT_STRING T(14). ! key
	20 HIDE_UIC.
	    30 FILLER PIC XXXX.
	20 UIC REDEFINES HIDE_UIC.
	    30 LUIC USAGE LONG.		! key
	20 UIC_WORDS REDEFINES HIDE_UIC.
	    30 MEMBER USAGE WORD.
	    30 GROUP USAGE WORD.
!
! Using the added FAO function
! this can be formatted in much neater ways than a decimal long word.
!
	20 NUMERIC COMPUTED BY FN$FAO("!%U", LUIC, 0,0,0,0,0,0,0)
		EDIT_STRING X(9).
	20 IDENTIFIER COMPUTED BY FN$FAO("!%I", LUIC, 0,0,0,0,0,0,0)
		EDIT_STRING X(22).
	20 SUB_ID USAGE LONG EDIT_STRING Z9.
	20 PARENT_ID USAGE QUAD EDIT_STRING Z9.	! key
	20 ACCOUNT PIC X(8).			! ought to be key
	20 FILLER PIC X(24).		! expansion of account someday
	20 OWNER_FIELD_LENGTH USAGE BYTE EDIT_STRING Z9.
	20 OWNER PIC X(31).
    10 DEFAULTS.
	20 DEVICE_FIELD_LENGTH USAGE BYTE EDIT_STRING Z9.
	20 DEVICE PIC X(31) EDIT_STRING T(16).
	20 DIRECTORY_FIELD_LENGTH USAGE BYTE EDIT_STRING Z9.
	20 DIRECTORY PIC X(63) EDIT_STRING T(16).
	20 LGICMD_FIELD_LENGTH USAGE BYTE EDIT_STRING Z9.
	20 LGICMD PIC X(63) EDIT_STRING T(12).
	20 CLI_FIELD_LENGTH USAGE BYTE EDIT_STRING Z9.
	20 CLI PIC X(31) EDIT_STRING T(8).
	20 TABLES_FIELD_LENGTH USAGE BYTE EDIT_STRING Z9.
	20 TABLES PIC X(31) EDIT_STRING T(12).
    10 PASSWORD.
	20 PWD USAGE QUAD.
	20 PWD2 USAGE QUAD.
	20 LOGFAILS USAGE WORD EDIT_STRING ZZ9.
	20 SALT USAGE WORD.
	20 ENCRYPT USAGE BYTE.
	20 ENCRYPT2 USAGE BYTE.
    10 PASSWORD_DATES.
	20 PWD_LENGTH USAGE BYTE EDIT_STRING Z9.
	20 FILLER PIC X.
	20 EXPIRATION USAGE QUAD.
	20 PWD_LIFETIME USAGE QUAD.
!        20 LIFETIME COMPUTED BY CHOICE OF
!	    PWD_LIFETIME NE 0 THEN FN$FROM_INTERNAL(22, PWD_LIFETIME)
!	    ELSE 0
!	    END_CHOICE.
	20 PWD_DATE USAGE DATE.
	20 PWD_TIME COMPUTED BY FN$TIME(PWD_DATE) EDIT_STRING X(11).
	20 PWD2_DATE USAGE DATE.
	20 PWD2_TIME COMPUTED BY FN$TIME(PWD2_DATE) EDIT_STRING X(11).
    10 LOGIN_DATES.
	20 LAST_LOGIN_I USAGE DATE QUERY_NAME IS LLI.
	20 TIME_LAST_LOGIN_I COMPUTED BY FN$TIME(LLI)
		EDIT_STRING X(11).
	20 LAST_LOGIN_N USAGE DATE QUERY_NAME IS LLN.
	20 TIME_LAST_LOGIN_N COMPUTED BY FN$TIME(LLN)
		EDIT_STRING X(11).
    10 PRIVILEGES.
	20 PRIV USAGE QUAD.
	20 DEF_PRIV USAGE QUAD.
!	20 MIN_CLASS PIC X(20) EDIT_STRING T(8).
!	20 MAX_CLASS PIC X(20) EDIT_STRING T(8).
	20 FILLER PIC X(40).
	20 LOGIN_FLAGS USAGE LONG.
    10 ACCESS.
	20 NETWORK_ACCESS_BYTES OCCURS 6 TIMES.	! 3 primary, 3 secondary
	    30 NETWORK_ACCESS_BYTE USAGE BYTE.
	20 BATCH_ACCESS_BYTES OCCURS 6 TIMES.
	    30 BATCH_ACCESS_BYTE USAGE BYTE.
	20 LOCAL_ACCESS_BYTES OCCURS 6 TIMES.
	    30 LOCAL_ACCESS_BYTE USAGE BYTE.
	20 DIALUP_ACCESS_BYTES OCCURS 6 TIMES.
	    30 DIALUP_ACCESS_BYTE USAGE BYTE.
	20 REMOTE_ACCESS_BYTES OCCURS 6 TIMES.
	    30 REMOTE_ACCESS_BYTE USAGE BYTE.
	20 FILLER PIC X(12).
	20 PRIME_DAYS USAGE BYTE.	! monday bit 0, sunday bit 6
	20 FILLER USAGE BYTE.
    10 QUOTA1.
	20 PRI USAGE BYTE EDIT_STRING Z9.
	20 QUEPRI USAGE BYTE EDIT_STRING Z9.
	20 MAX_JOBS USAGE WORD EDIT_STRING Z9.
	20 MAX_ACCT_JOBS USAGE WORD EDIT_STRING Z9.
	20 MAX_DETACH USAGE WORD EDIT_STRING.
	20 PRCLM USAGE WORD.	! or PRCCNT
	20 BIOLM USAGE WORD.
	20 DIOLM USAGE WORD.
	20 TQELM USAGE WORD.	! or TQCNT
	20 ASTLM USAGE WORD.
	20 ENQLM USAGE WORD.
	20 FILLM USAGE WORD.
	20 SHRFILLM USAGE WORD.
    10 QUOTA2.
	20 WSQUO USAGE LONG.
	20 WSDEF USAGE LONG.	! DFWSCNT
	20 WSEXTENT USAGE LONG.
	20 PGFLQUOTA USAGE LONG.
	20 CPUTIM USAGE LONG EDIT_STRING Z9.
	20 BYTLM USAGE LONG.
	20 PBYTLM USAGE LONG EDIT_STRING Z9.
	20 JTQUO USAGE LONG.
    10 QUOTA3.
	20 PROXY_LIM USAGE WORD.
	20 PROXIES USAGE WORD.
	20 ACCOUNT_LIM USAGE WORD.
	20 ACCOUNTS USAGE WORD.
    10 FILLER PIC X(64).	! filler to first record size
    10 END_FILLER.		! filler to second record size
	20 STUFFIT OCCURS 0 TO 1 TIMES DEPENDING ON INULL.
	    30 FILLER PIC X(255).
	    30 FILLER PIC X(255).
	    30 FILLER PIC X(255).
	    30 FILLER PIC X(3).
;