!*** MODULE UAFDEF ***
! +
! 
!  Data structure and related parameters for a record in the UAF (VMS v4.x)
! 
!  Extracted from SYS$LIBRARY:LIB.MLB ($UAFDEF) and adapted to FORTRAN by Leon H. Dill
!  at Hennepin County Bureau of Public Service, 320 Washington Ave., S., Hopkins, MN  55343.
! -
! 
	PARAMETER UAF$C_USER_ID    =    1
	PARAMETER UAF$C_VERSION1   =    1
	PARAMETER UAF$C_KEYED_PART =   52
	PARAMETER UAF$C_AD_II      =    0
	PARAMETER UAF$C_PURDY      =    1
	PARAMETER UAF$C_PURDY_V    =    2
	PARAMETER UAF$K_FIXED      =  644
	PARAMETER UAF$C_FIXED      =  644

	PARAMETER UAF$K_LENGTH     = 1412		! Record Length
	PARAMETER UAF$C_LENGTH     = 1412
	PARAMETER UAF$S_UAFDEF     = 1412

	STRUCTURE /UAFDEF/
	    BYTE            RTYPE
	    BYTE            VERSION
	    INTEGER   *  2  USRDATOFF
	    CHARACTER * 32  USERNAME
	    UNION
		MAP
		    INTEGER   *  4  UIC
		END MAP
		MAP
		    INTEGER   *  2  MEM
		    INTEGER   *  2  GRP
		END MAP
	    END UNION
	    INTEGER   *  4  SUB_ID
	    INTEGER   *  4  PARENT_ID(2)
	    CHARACTER * 32  ACCOUNT
	    BYTE            OWNER_LENGTH
	    CHARACTER * 31  OWNER
	    BYTE            DEFDEV_LENGTH
	    CHARACTER * 31  DEFDEV
	    BYTE            DEFDIR_LENGTH
	    CHARACTER * 63  DEFDIR
	    BYTE            LGICMD_LENGTH
	    CHARACTER * 63  LGICMD
	    BYTE            DEFCLI_LENGTH
	    CHARACTER * 31  DEFCLI
	    BYTE            CLITABLES_LENGTH
	    CHARACTER * 31  CLITABLES
	    UNION
		MAP
		    INTEGER   *  4  Q_PWD(2)
		END MAP
		MAP
		    INTEGER   *  4  L_PWD
		END MAP
	    END UNION
	    INTEGER   *  4  PWD2(2)
	    INTEGER   *  2  LOGFAILS
	    INTEGER   *  2  SALT
	    BYTE            ENCRYPT
	    BYTE            ENCRYPT2
	    BYTE            PWD_LENGTH
	    BYTE            UNUSED_1
	    INTEGER   *  4  EXPIRATION(2)
	    INTEGER   *  4  PWD_LIFETIME(2)
	    INTEGER   *  4  PWD_DATE(2)
	    INTEGER   *  4  PWD2_DATE(2)
	    INTEGER   *  4  LASTLOGIN_I(2)
	    INTEGER   *  4  LASTLOGIN_N(2)
	    INTEGER   *  4  PRIV(2)
	    INTEGER   *  4  DEF_PRIV(2)
	    CHARACTER * 20  MIN_CLASS
	    CHARACTER * 20  MAX_CLASS
	    INTEGER   *  4  FLAGS
		PARAMETER UAF$V_DISCTLY       =   0
		PARAMETER UAF$V_DEFCLI        =   1
		PARAMETER UAF$V_LOCKPWD       =   2
		PARAMETER UAF$V_CAPTIVE       =   3
		PARAMETER UAF$V_DISACNT       =   4
		PARAMETER UAF$V_DISWELCOM     =   5
		PARAMETER UAF$V_DISMAIL       =   6
		PARAMETER UAF$V_NOMAIL        =   7
		PARAMETER UAF$V_GENPWD        =   8
		PARAMETER UAF$V_PWD_EXPIRED   =   9
		PARAMETER UAF$V_PWD2_EXPIRED  =  10
		PARAMETER UAF$V_AUDIT         =  11
		PARAMETER UAF$V_DISREPORT     =  12
		PARAMETER UAF$V_DISRECONNECT  =  13
		PARAMETER UAF$V_AUTOLOGIN     =  14

		PARAMETER UAF$M_DISCTLY       = '00000001'X
		PARAMETER UAF$M_DEFCLI        = '00000002'X
		PARAMETER UAF$M_LOCKPWD       = '00000004'X
		PARAMETER UAF$M_CAPTIVE       = '00000008'X
		PARAMETER UAF$M_DISACNT       = '00000010'X
		PARAMETER UAF$M_DISWELCOM     = '00000020'X
		PARAMETER UAF$M_DISMAIL       = '00000040'X
		PARAMETER UAF$M_NOMAIL        = '00000080'X
		PARAMETER UAF$M_GENPWD        = '00000100'X
		PARAMETER UAF$M_PWD_EXPIRED   = '00000200'X
		PARAMETER UAF$M_PWD2_EXPIRED  = '00000400'X
		PARAMETER UAF$M_AUDIT         = '00000800'X
		PARAMETER UAF$M_DISREPORT     = '00001000'X
		PARAMETER UAF$M_DISRECONNECT  = '00002000'X
		PARAMETER UAF$M_AUTOLOGIN     = '00004000'X
	    BYTE            NETWORK_ACCESS_P
	    INTEGER   *  2  UNUSED_2
	    BYTE            NETWORK_ACCESS_S
	    INTEGER   *  2  UNUSED_3
	    BYTE            BATCH_ACCESS_P
	    INTEGER   *  2  UNUSED_4
	    BYTE            BATCH_ACCESS_S
	    INTEGER   *  2  UNUSED_5
	    BYTE            LOCAL_ACCESS_P
	    INTEGER   *  2  UNUSED_6
	    BYTE            LOCAL_ACCESS_S
	    INTEGER   *  2  UNUSED_7
	    BYTE            DIALUP_ACCESS_P
	    INTEGER   *  2  UNUSED_8
	    BYTE            DIALUP_ACCESS_S
	    INTEGER   *  2  UNUSED_9
	    BYTE            REMOTE_ACCESS_P
	    INTEGER   *  2  UNUSED_10
	    BYTE            REMOTE_ACCESS_S
	    INTEGER   *  2  UNUSED_11
	    CHARACTER * 12  UNUSED_12
	    BYTE            PRIMEDAYS
		PARAMETER UAF$V_MONDAY     =  0
		PARAMETER UAF$V_TUESDAY    =  1
		PARAMETER UAF$V_WEDNESDAY  =  2
		PARAMETER UAF$V_THURSDAY   =  3
		PARAMETER UAF$V_FRIDAY     =  4
		PARAMETER UAF$V_SATURDAY   =  5
		PARAMETER UAF$V_SUNDAY     =  6

		PARAMETER UAF$M_MONDAY     = '01'X
		PARAMETER UAF$M_TUESDAY    = '02'X
		PARAMETER UAF$M_WEDNESDAY  = '04'X
		PARAMETER UAF$M_THURSDAY   = '08'X
		PARAMETER UAF$M_FRIDAY     = '10'X
		PARAMETER UAF$M_SATURDAY   = '20'X
		PARAMETER UAF$M_SUNDAY     = '40'X
	    BYTE            UNUSED_13
	    BYTE            PRI
	    BYTE            QUEPRI
	    INTEGER   *  2  MAXJOBS
	    INTEGER   *  2  MAXACCTJOBS
	    INTEGER   *  2  MAXDETACH
	    INTEGER   *  2  PRCCNT
	    INTEGER   *  2  BIOLM
	    INTEGER   *  2  DIOLM
	    INTEGER   *  2  TQCNT
	    INTEGER   *  2  ASTLM
	    INTEGER   *  2  ENQLM
	    INTEGER   *  2  FILLM
	    INTEGER   *  2  SHRFILLM
	    INTEGER   *  4  WSQUOTA
	    INTEGER   *  4  DFWSCNT
	    INTEGER   *  4  WSEXTENT
	    INTEGER   *  4  PGFLQUOTA
	    INTEGER   *  4  CPUTIM
	    INTEGER   *  4  BYTLM
	    INTEGER   *  4  PBYTLM
	    INTEGER   *  4  JTQUOTA
	    INTEGER   *  2  PROXY_LIM
	    INTEGER   *  2  PROXIES
	    INTEGER   *  2  ACCOUNT_LIM
	    INTEGER   *  2  ACCOUNTS
	END STRUCTURE