!++ ! Facility: (DEFINATION) - LIB:INCLUDE#UAF - VAX/VMS 4.3 FORTRAN. ! ! Abstract: Troy Frericks, 15-Jan-1986 ! Record format of SYS$SYSTEM:SYSUAF.DAT ! VAX/VMS 4.4 will have system services GETUAI, SETUAI ! which will make the use of this definatin obsolete. ! ! Modified: None !-- COMMON /COMMON_UAF2_BASE/ UAF2_BASE, UAF2_SIZE PARAMETER uaf2$C_USER_ID = 1 PARAMETER uaf2$C_VERSION1 = 1 PARAMETER uaf2$C_KEYED_PART = 52 PARAMETER uaf2$C_AD_II = 0 PARAMETER uaf2$C_PURDY = 1 PARAMETER uaf2$C_PURDY_V = 2 PARAMETER uaf2$K_FIXED = 644 PARAMETER uaf2$C_FIXED = 644 PARAMETER uaf2$K_LENGTH = 1412 PARAMETER uaf2$C_LENGTH = 1412 PARAMETER uaf2$S_UAFDEF = 1412 PARAMETER uaf2$B_RTYPE = 0 PARAMETER uaf2$B_VERSION = 1 PARAMETER uaf2$W_USRDATOFF = 2 PARAMETER uaf2$S_USERNAME = 32 PARAMETER uaf2$T_USERNAME = 4 PARAMETER uaf2$T_USERNAME_TAG = 35 PARAMETER uaf2$L_UIC = 36 PARAMETER uaf2$W_MEM = 36 PARAMETER uaf2$W_GRP = 38 PARAMETER uaf2$L_SUB_ID = 40 PARAMETER uaf2$S_PARENT_ID = 8 PARAMETER uaf2$Q_PARENT_ID = 44 PARAMETER uaf2$S_ACCOUNT = 32 PARAMETER uaf2$T_ACCOUNT = 52 PARAMETER uaf2$S_OWNER = 32 PARAMETER uaf2$T_OWNER = 84 PARAMETER uaf2$S_DEFDEV = 32 PARAMETER uaf2$T_DEFDEV = 116 PARAMETER uaf2$S_DEFDIR = 64 PARAMETER uaf2$T_DEFDIR = 148 PARAMETER uaf2$S_LGICMD = 64 PARAMETER uaf2$T_LGICMD = 212 PARAMETER uaf2$S_DEFCLI = 32 PARAMETER uaf2$T_DEFCLI = 276 PARAMETER uaf2$S_CLITABLES = 32 PARAMETER uaf2$T_CLITABLES = 308 PARAMETER uaf2$S_PWD = 8 PARAMETER uaf2$Q_PWD = 340 PARAMETER uaf2$L_PWD = 340 PARAMETER uaf2$S_PWD2 = 8 PARAMETER uaf2$Q_PWD2 = 348 PARAMETER uaf2$W_LOGFAILS = 356 PARAMETER uaf2$W_SALT = 358 PARAMETER uaf2$B_ENCRYPT = 360 PARAMETER uaf2$B_ENCRYPT2 = 361 PARAMETER uaf2$B_PWD_LENGTH = 362 PARAMETER uaf2$S_EXPIRATION = 8 PARAMETER uaf2$Q_EXPIRATION = 364 PARAMETER uaf2$S_PWD_LIFETIME = 8 PARAMETER uaf2$Q_PWD_LIFETIME = 372 PARAMETER uaf2$S_PWD_DATE = 8 PARAMETER uaf2$Q_PWD_DATE = 380 PARAMETER uaf2$S_PWD2_DATE = 8 PARAMETER uaf2$Q_PWD2_DATE = 388 PARAMETER uaf2$S_LASTLOGIN_I = 8 PARAMETER uaf2$Q_LASTLOGIN_I = 396 PARAMETER uaf2$S_LASTLOGIN_N = 8 PARAMETER uaf2$Q_LASTLOGIN_N = 404 PARAMETER uaf2$S_PRIV = 8 PARAMETER uaf2$Q_PRIV = 412 PARAMETER uaf2$S_DEF_PRIV = 8 PARAMETER uaf2$Q_DEF_PRIV = 420 PARAMETER uaf2$S_MIN_CLASS = 20 PARAMETER uaf2$R_MIN_CLASS = 428 PARAMETER uaf2$S_MAX_CLASS = 20 PARAMETER uaf2$R_MAX_CLASS = 448 PARAMETER uaf2$L_FLAGS = 468 PARAMETER uaf2$V_DISCTLY = 0 PARAMETER uaf2$V_DEFCLI = 1 PARAMETER uaf2$V_LOCKPWD = 2 PARAMETER uaf2$V_CAPTIVE = 3 PARAMETER uaf2$V_DISACNT = 4 PARAMETER uaf2$V_DISWELCOM = 5 PARAMETER uaf2$V_DISMAIL = 6 PARAMETER uaf2$V_NOMAIL = 7 PARAMETER uaf2$V_GENPWD = 8 PARAMETER uaf2$V_PWD_EXPIRED = 9 PARAMETER uaf2$V_PWD2_EXPIRED = 10 PARAMETER uaf2$V_AUDIT = 11 PARAMETER uaf2$V_DISREPORT = 12 PARAMETER uaf2$V_DISRECONNECT = 13 PARAMETER uaf2$S_NETWORK_ACCESS_P= 3 PARAMETER uaf2$B_NETWORK_ACCESS_P= 472 PARAMETER uaf2$S_NETWORK_ACCESS_S= 3 PARAMETER uaf2$B_NETWORK_ACCESS_S= 475 PARAMETER uaf2$S_BATCH_ACCESS_P = 3 PARAMETER uaf2$B_BATCH_ACCESS_P = 478 PARAMETER uaf2$S_BATCH_ACCESS_S = 3 PARAMETER uaf2$B_BATCH_ACCESS_S = 481 PARAMETER uaf2$S_LOCAL_ACCESS_P = 3 PARAMETER uaf2$B_LOCAL_ACCESS_P = 484 PARAMETER uaf2$S_LOCAL_ACCESS_S = 3 PARAMETER uaf2$B_LOCAL_ACCESS_S = 487 PARAMETER uaf2$S_DIALUP_ACCESS_P = 3 PARAMETER uaf2$B_DIALUP_ACCESS_P = 490 PARAMETER uaf2$S_DIALUP_ACCESS_S = 3 PARAMETER uaf2$B_DIALUP_ACCESS_S = 493 PARAMETER uaf2$S_REMOTE_ACCESS_P = 3 PARAMETER uaf2$B_REMOTE_ACCESS_P = 496 PARAMETER uaf2$S_REMOTE_ACCESS_S = 3 PARAMETER uaf2$B_REMOTE_ACCESS_S = 499 PARAMETER uaf2$B_PRIMEDAYS = 514 PARAMETER uaf2$V_MONDAY = 0 PARAMETER uaf2$V_TUESDAY = 1 PARAMETER uaf2$V_WEDNESDAY = 2 PARAMETER uaf2$V_THURSDAY = 3 PARAMETER uaf2$V_FRIDAY = 4 PARAMETER uaf2$V_SATURDAY = 5 PARAMETER uaf2$V_SUNDAY = 6 PARAMETER uaf2$B_PRI = 516 PARAMETER uaf2$B_QUEPRI = 517 PARAMETER uaf2$W_MAXJOBS = 518 PARAMETER uaf2$W_MAXACCTJOBS = 520 PARAMETER uaf2$W_MAXDETACH = 522 PARAMETER uaf2$W_PRCCNT = 524 PARAMETER uaf2$W_BIOLM = 526 PARAMETER uaf2$W_DIOLM = 528 PARAMETER uaf2$W_TQCNT = 530 PARAMETER uaf2$W_ASTLM = 532 PARAMETER uaf2$W_ENQLM = 534 PARAMETER uaf2$W_FILLM = 536 PARAMETER uaf2$W_SHRFILLM = 538 PARAMETER uaf2$L_WSQUOTA = 540 PARAMETER uaf2$L_DFWSCNT = 544 PARAMETER uaf2$L_WSEXTENT = 548 PARAMETER uaf2$L_PGFLQUOTA = 552 PARAMETER uaf2$L_CPUTIM = 556 PARAMETER uaf2$L_BYTLM = 560 PARAMETER uaf2$L_PBYTLM = 564 PARAMETER uaf2$L_JTQUOTA = 568 PARAMETER uaf2$W_PROXY_LIM = 572 PARAMETER uaf2$W_PROXIES = 574 PARAMETER uaf2$W_ACCOUNT_LIM = 576 PARAMETER uaf2$W_ACCOUNTS = 578 INTEGER*4 UAF2_SIZE BYTE UAF2_BASE (0:1411) CHARACTER*1412 UAF2_REC EQUIVALENCE (UAF2_REC,UAF2_BASE(0)) ! BEGIN RECORD STRUCTURE: BYTE uaf2_record$B_RTYPE EQUIVALENCE ( uaf2_record$B_RTYPE, UAF2_BASE(uaf2$B_RTYPE) ) BYTE uaf2_record$B_VERSION EQUIVALENCE ( uaf2_record$B_VERSION, UAF2_BASE(uaf2$B_VERSION) ) INTEGER*2 uaf2_record$W_USRDATOFF EQUIVALENCE ( uaf2_record$W_USRDATOFF, UAF2_BASE(uaf2$W_USRDATOFF) ) CHARACTER*32 uaf2_record$T_USERNAME EQUIVALENCE ( uaf2_record$T_USERNAME, UAF2_BASE(uaf2$T_USERNAME) ) INTEGER*4 uaf2_record$L_UIC EQUIVALENCE ( uaf2_record$L_UIC, UAF2_BASE(uaf2$L_UIC) ) INTEGER*2 uaf2_record$W_MEM EQUIVALENCE ( uaf2_record$W_MEM, UAF2_BASE(uaf2$W_MEM) ) INTEGER*2 uaf2_record$W_GRP EQUIVALENCE ( uaf2_record$W_GRP, UAF2_BASE(uaf2$W_GRP) ) INTEGER*4 uaf2_record$L_SUB_ID EQUIVALENCE ( uaf2_record$L_SUB_ID, UAF2_BASE(uaf2$L_SUB_ID) ) INTEGER*4 uaf2_record$Q_PARENT_ID(2) EQUIVALENCE ( uaf2_record$Q_PARENT_ID(1), UAF2_BASE(uaf2$Q_PARENT_ID) ) CHARACTER*32 uaf2_record$T_ACCOUNT EQUIVALENCE ( uaf2_record$T_ACCOUNT, UAF2_BASE(uaf2$T_ACCOUNT) ) BYTE uaf2_record$T_OWNER_LEN EQUIVALENCE ( uaf2_record$T_OWNER_LEN, UAF2_BASE(uaf2$T_OWNER) ) CHARACTER*31 uaf2_record$T_OWNER EQUIVALENCE ( uaf2_record$T_OWNER, UAF2_BASE(uaf2$T_OWNER+1) ) BYTE uaf2_record$T_DEFDEV_LEN EQUIVALENCE ( uaf2_record$T_DEFDEV_LEN, UAF2_BASE(uaf2$T_DEFDEV) ) CHARACTER*31 uaf2_record$T_DEFDEV EQUIVALENCE ( uaf2_record$T_DEFDEV, UAF2_BASE(uaf2$T_DEFDEV+1) ) BYTE uaf2_record$T_DEFDIR_LEN EQUIVALENCE ( uaf2_record$T_DEFDIR_LEN, UAF2_BASE(uaf2$T_DEFDIR) ) CHARACTER*63 uaf2_record$T_DEFDIR EQUIVALENCE ( uaf2_record$T_DEFDIR, UAF2_BASE(uaf2$T_DEFDIR+1) ) BYTE uaf2_record$T_LGICMD_LEN EQUIVALENCE ( uaf2_record$T_LGICMD_LEN, UAF2_BASE(uaf2$T_LGICMD) ) CHARACTER*63 uaf2_record$T_LGICMD EQUIVALENCE ( uaf2_record$T_LGICMD, UAF2_BASE(uaf2$T_LGICMD+1) ) BYTE uaf2_record$T_DEFCLI_LEN EQUIVALENCE ( uaf2_record$T_DEFCLI_LEN, UAF2_BASE(uaf2$T_DEFCLI) ) CHARACTER*31 uaf2_record$T_DEFCLI EQUIVALENCE ( uaf2_record$T_DEFCLI, UAF2_BASE(uaf2$T_DEFCLI+1) ) BYTE uaf2_record$T_CLITABLES_LEN EQUIVALENCE ( uaf2_record$T_CLITABLES_LEN, UAF2_BASE(uaf2$T_CLITABLES) ) CHARACTER*31 uaf2_record$T_CLITABLES EQUIVALENCE ( uaf2_record$T_CLITABLES, UAF2_BASE(uaf2$T_CLITABLES+1) ) INTEGER*4 uaf2_record$Q_PWD(2) EQUIVALENCE ( uaf2_record$Q_PWD(1), UAF2_BASE(uaf2$Q_PWD) ) INTEGER*4 uaf2_record$L_PWD EQUIVALENCE ( uaf2_record$L_PWD, UAF2_BASE(uaf2$L_PWD) ) INTEGER*4 uaf2_record$Q_PWD2(2) EQUIVALENCE ( uaf2_record$Q_PWD2(1), UAF2_BASE(uaf2$Q_PWD2) ) INTEGER*2 uaf2_record$W_LOGFAILS EQUIVALENCE ( uaf2_record$W_LOGFAILS, UAF2_BASE(uaf2$W_LOGFAILS) ) INTEGER*2 uaf2_record$W_SALT EQUIVALENCE ( uaf2_record$W_SALT, UAF2_BASE(uaf2$W_SALT) ) BYTE uaf2_record$B_ENCRYPT EQUIVALENCE ( uaf2_record$B_ENCRYPT, UAF2_BASE(uaf2$B_ENCRYPT) ) BYTE uaf2_record$B_ENCRYPT2 EQUIVALENCE ( uaf2_record$B_ENCRYPT2, UAF2_BASE(uaf2$B_ENCRYPT2) ) BYTE uaf2_record$B_PWD_LENGTH EQUIVALENCE ( uaf2_record$B_PWD_LENGTH, UAF2_BASE(uaf2$B_PWD_LENGTH) ) INTEGER*4 uaf2_record$Q_EXPIRATION(2) EQUIVALENCE ( uaf2_record$Q_EXPIRATION(1), UAF2_BASE(uaf2$Q_EXPIRATION) ) INTEGER*4 uaf2_record$Q_PWD_LIFETIME(2) EQUIVALENCE ( uaf2_record$Q_PWD_LIFETIME(1), 1 UAF2_BASE(uaf2$Q_PWD_LIFETIME) ) INTEGER*4 uaf2_record$Q_PWD_DATE(2) EQUIVALENCE ( uaf2_record$Q_PWD_DATE(1), UAF2_BASE(uaf2$Q_PWD_DATE) ) INTEGER*4 uaf2_record$Q_PWD2_DATE(2) EQUIVALENCE ( uaf2_record$Q_PWD2_DATE(1), UAF2_BASE(uaf2$Q_PWD2_DATE) ) INTEGER*4 uaf2_record$Q_LASTLOGIN_I(2) EQUIVALENCE ( uaf2_record$Q_LASTLOGIN_I(1), 1 UAF2_BASE(uaf2$Q_LASTLOGIN_I) ) EQUIVALENCE ( uaf2_record$Q_LASTLOGIN_I(2), 1 UAF2_BASE(uaf2$Q_LASTLOGIN_I+4) ) INTEGER*4 uaf2_record$Q_LASTLOGIN_N(2) EQUIVALENCE ( uaf2_record$Q_LASTLOGIN_N(1), 1 UAF2_BASE(uaf2$Q_LASTLOGIN_N) ) INTEGER*4 uaf2_record$Q_PRIV(2) EQUIVALENCE ( uaf2_record$Q_PRIV(1), UAF2_BASE(uaf2$Q_PRIV) ) INTEGER*4 uaf2_record$Q_DEF_PRIV(2) EQUIVALENCE ( uaf2_record$Q_DEF_PRIV(1), UAF2_BASE(uaf2$Q_DEF_PRIV) ) CHARACTER*20 uaf2_record$R_MIN_CLASS EQUIVALENCE ( uaf2_record$R_MIN_CLASS, UAF2_BASE(uaf2$R_MIN_CLASS) ) CHARACTER*20 uaf2_record$R_MAX_CLASS EQUIVALENCE ( uaf2_record$R_MAX_CLASS, UAF2_BASE(uaf2$R_MAX_CLASS) ) INTEGER*4 uaf2_record$L_FLAGS EQUIVALENCE ( uaf2_record$L_FLAGS, UAF2_BASE(uaf2$L_FLAGS) ) BYTE uaf2_record$B_NETWORK_ACCESS_P(3) EQUIVALENCE ( uaf2_record$B_NETWORK_ACCESS_P(1), 1 UAF2_BASE(uaf2$B_NETWORK_ACCESS_P) ) BYTE uaf2_record$B_NETWORK_ACCESS_S(3) EQUIVALENCE ( uaf2_record$B_NETWORK_ACCESS_S(1), 1 UAF2_BASE(uaf2$B_NETWORK_ACCESS_S) ) BYTE uaf2_record$B_BATCH_ACCESS_P(3) EQUIVALENCE ( uaf2_record$B_BATCH_ACCESS_P(1), 1 UAF2_BASE(uaf2$B_BATCH_ACCESS_P) ) BYTE uaf2_record$B_BATCH_ACCESS_S(3) EQUIVALENCE ( uaf2_record$B_BATCH_ACCESS_S(1), 1 UAF2_BASE(uaf2$B_BATCH_ACCESS_S) ) BYTE uaf2_record$B_LOCAL_ACCESS_P(3) EQUIVALENCE ( uaf2_record$B_LOCAL_ACCESS_P(1), 1 UAF2_BASE(uaf2$B_LOCAL_ACCESS_P) ) BYTE uaf2_record$B_LOCAL_ACCESS_S(3) EQUIVALENCE ( uaf2_record$B_LOCAL_ACCESS_S(1), 1 UAF2_BASE(uaf2$B_LOCAL_ACCESS_S) ) BYTE uaf2_record$B_DIALUP_ACCESS_P(3) EQUIVALENCE ( uaf2_record$B_DIALUP_ACCESS_P(1), 1 UAF2_BASE(uaf2$B_DIALUP_ACCESS_P) ) BYTE uaf2_record$B_DIALUP_ACCESS_S(3) EQUIVALENCE ( uaf2_record$B_DIALUP_ACCESS_S(1), 1 UAF2_BASE(uaf2$B_DIALUP_ACCESS_S) ) BYTE uaf2_record$B_REMOTE_ACCESS_P(3) EQUIVALENCE ( uaf2_record$B_REMOTE_ACCESS_P(1), 1 UAF2_BASE(uaf2$B_REMOTE_ACCESS_P) ) BYTE uaf2_record$B_REMOTE_ACCESS_S(3) EQUIVALENCE ( uaf2_record$B_REMOTE_ACCESS_S(1), 1 UAF2_BASE(uaf2$B_REMOTE_ACCESS_S) ) BYTE uaf2_record$B_PRIMEDAYS(2) EQUIVALENCE ( uaf2_record$B_PRIMEDAYS(1), UAF2_BASE(uaf2$B_PRIMEDAYS) ) BYTE uaf2_record$B_PRI EQUIVALENCE ( uaf2_record$B_PRI, UAF2_BASE(uaf2$B_PRI) ) BYTE uaf2_record$B_QUEPRI EQUIVALENCE ( uaf2_record$B_QUEPRI, UAF2_BASE(uaf2$B_QUEPRI) ) INTEGER*2 uaf2_record$W_MAXJOBS EQUIVALENCE ( uaf2_record$W_MAXJOBS, UAF2_BASE(uaf2$W_MAXJOBS) ) INTEGER*2 uaf2_record$W_MAXACCTJOBS EQUIVALENCE ( uaf2_record$W_MAXACCTJOBS, UAF2_BASE(uaf2$W_MAXACCTJOBS) ) INTEGER*2 uaf2_record$W_MAXDETACH EQUIVALENCE ( uaf2_record$W_MAXDETACH, UAF2_BASE(uaf2$W_MAXDETACH) ) INTEGER*2 uaf2_record$W_PRCCNT EQUIVALENCE ( uaf2_record$W_PRCCNT, UAF2_BASE(uaf2$W_PRCCNT) ) INTEGER*2 uaf2_record$W_BIOLM EQUIVALENCE ( uaf2_record$W_BIOLM, UAF2_BASE(uaf2$W_BIOLM) ) INTEGER*2 uaf2_record$W_DIOLM EQUIVALENCE ( uaf2_record$W_DIOLM, UAF2_BASE(uaf2$W_DIOLM) ) INTEGER*2 uaf2_record$W_TQCNT EQUIVALENCE ( uaf2_record$W_TQCNT, UAF2_BASE(uaf2$W_TQCNT) ) INTEGER*2 uaf2_record$W_ASTLM EQUIVALENCE ( uaf2_record$W_ASTLM, UAF2_BASE(uaf2$W_ASTLM) ) INTEGER*2 uaf2_record$W_ENQLM EQUIVALENCE ( uaf2_record$W_ENQLM, UAF2_BASE(uaf2$W_ENQLM) ) INTEGER*2 uaf2_record$W_FILLM EQUIVALENCE ( uaf2_record$W_FILLM, UAF2_BASE(uaf2$W_FILLM) ) INTEGER*2 uaf2_record$W_SHRFILLM EQUIVALENCE ( uaf2_record$W_SHRFILLM, UAF2_BASE(uaf2$W_SHRFILLM) ) INTEGER*4 uaf2_record$L_WSQUOTA EQUIVALENCE ( uaf2_record$L_WSQUOTA, UAF2_BASE(uaf2$L_WSQUOTA) ) INTEGER*4 uaf2_record$L_DFWSCNT EQUIVALENCE ( uaf2_record$L_DFWSCNT, UAF2_BASE(uaf2$L_DFWSCNT) ) INTEGER*4 uaf2_record$L_WSEXTENT EQUIVALENCE ( uaf2_record$L_WSEXTENT, UAF2_BASE(uaf2$L_WSEXTENT) ) INTEGER*4 uaf2_record$L_PGFLQUOTA EQUIVALENCE ( uaf2_record$L_PGFLQUOTA, UAF2_BASE(uaf2$L_PGFLQUOTA) ) INTEGER*4 uaf2_record$L_CPUTIM EQUIVALENCE ( uaf2_record$L_CPUTIM, UAF2_BASE(uaf2$L_CPUTIM) ) INTEGER*4 uaf2_record$L_BYTLM EQUIVALENCE ( uaf2_record$L_BYTLM, UAF2_BASE(uaf2$L_BYTLM) ) INTEGER*4 uaf2_record$L_PBYTLM EQUIVALENCE ( uaf2_record$L_PBYTLM, UAF2_BASE(uaf2$L_PBYTLM) ) INTEGER*4 uaf2_record$L_JTQUOTA EQUIVALENCE ( uaf2_record$L_JTQUOTA, UAF2_BASE(uaf2$L_JTQUOTA) ) INTEGER*2 uaf2_record$W_PROXY_LIM EQUIVALENCE ( uaf2_record$W_PROXY_LIM, UAF2_BASE(uaf2$W_PROXY_LIM) ) INTEGER*2 uaf2_record$W_PROXIES EQUIVALENCE ( uaf2_record$W_PROXIES, UAF2_BASE(uaf2$W_PROXIES) ) INTEGER*2 uaf2_record$W_ACCOUNT_LIM EQUIVALENCE ( uaf2_record$W_ACCOUNT_LIM, UAF2_BASE(uaf2$W_ACCOUNT_LIM) ) INTEGER*2 uaf2_record$W_ACCOUNTS EQUIVALENCE ( uaf2_record$W_ACCOUNTS, UAF2_BASE(uaf2$W_ACCOUNTS) ) ! END RECORD STRUCTURE