C-----------------------------------------------------------/SCANUAF.INC

                                      ! UAF record layout

      STRUCTURE /SYSUAF_RECORD/
          byte         UAF$B_RTYPE         
          byte         UAF$B_VERSION       
          integer*2    UAF$W_USRDATOFF     
          character*32 UAF$T_USERNAME      
          integer*2    UAF$W_MEM           
          integer*2    UAF$W_GRP           
          integer      UAF$L_SUB_ID        
          integer      UAF$Q_PARENT_ID(2)
          character*32 UAF$T_ACCOUNT       
          character*32 UAF$T_OWNER         
          character*32 UAF$T_DEFDEV        
          character*64 UAF$T_DEFDIR        
          character*64 UAF$T_LGICMD        
          character*32 UAF$T_DEFCLI        
          character*32 UAF$T_CLITABLES     
          integer      UAF$Q_PWD(2)
          integer      UAF$Q_PWD2(2)
          integer*2    UAF$W_LOGFAILS      
          integer*2    UAF$W_SALT          
          byte         UAF$B_ENCRYPT       
          byte         UAF$B_ENCRYPT2      
          byte         UAF$B_PWD_LENGTH    
          byte         uaf$b_filler1       
          integer      UAF$Q_EXPIRATION(2)
          integer      UAF$Q_PWD_LIFETIME(2)
          integer      UAF$Q_PWD_DATE(2)
          integer      UAF$Q_PWD2_DATE(2)
          integer      UAF$Q_LASTLOGIN_I(2)
          integer      UAF$Q_LASTLOGIN_N(2)
          integer      UAF$Q_PRIV(2)
          integer      UAF$Q_DEF_PRIV(2)
          character*20 UAF$R_MIN_CLASS     
          character*20 UAF$R_MAX_CLASS     
          integer      UAF$L_FLAGS         
          byte         UAF$B_NETWORK_ACCESS_P(3)
          byte         UAF$B_NETWORK_ACCESS_S(3)
          byte         UAF$B_BATCH_ACCESS_P(3)
          byte         UAF$B_BATCH_ACCESS_S(3)
          byte         UAF$B_LOCAL_ACCESS_P(3)
          byte         UAF$B_LOCAL_ACCESS_S(3)
          byte         UAF$B_DIALUP_ACCESS_P(3)
          byte         UAF$B_DIALUP_ACCESS_S(3)
          byte         UAF$B_REMOTE_ACCESS_P(3)
          byte         UAF$B_REMOTE_ACCESS_S(3)
          byte         uaf$b_filler2(12)
          byte         UAF$B_PRIMEDAYS 
          byte         uaf$b_filler3
          byte         UAF$B_PRI 
          byte         UAF$B_QUEPRI 
          integer*2    UAF$W_MAXJOBS 
          integer*2    UAF$W_MAXACCTJOBS 
          integer*2    UAF$W_MAXDETACH 
          integer*2    UAF$W_PRCCNT 
          integer*2    UAF$W_BIOLM 
          integer*2    UAF$W_DIOLM 
          integer*2    UAF$W_TQCNT 
          integer*2    UAF$W_ASTLM 
          integer*2    UAF$W_ENQLM 
          integer*2    UAF$W_FILLM 
          integer*2    UAF$W_SHRFILLM 
          integer      UAF$L_WSQUOTA 
          integer      UAF$L_DFWSCNT 
          integer      UAF$L_WSEXTENT 
          integer      UAF$L_PGFLQUOTA 
          integer      UAF$L_CPUTIM 
          integer      UAF$L_BYTLM 
          integer      UAF$L_PBYTLM 
          integer      UAF$L_JTQUOTA 
          integer*2    UAF$W_PROXY_LIM 
          integer*2    UAF$W_PROXIES 
          integer*2    UAF$W_ACCOUNT_LIM 
          integer*2    UAF$W_ACCOUNTS 
          byte         uaf$b_filler4(64)
CCCCC          byte         uaf$b_filler5(380)
CCCCC          byte         uaf$b_filler6(388)
      END STRUCTURE

CCCCC      character*1 UAF$T_USERNAME_TAG
CCCCC      integer     UAF$L_UIC 
CCCCC      integer     UAF$L_PWD 

                                      ! Common variables

      INTEGER       ICONTROL_C

      PARAMETER     MASTER = 69
      CHARACTER*12  PARAM(MASTER)
      INTEGER       ISTAR(MASTER)
      CHARACTER*4   COMPCHARS(MASTER)
      CHARACTER*1   TYPE(MASTER)
      CHARACTER*400 THIS_BUFF
      INTEGER       MASTER_INDEX

      PARAMETER     MAX_PARAMS = 64
      INTEGER       IPARAM_LIST(MAX_PARAMS)
      INTEGER       IVALUE_LIST(MAX_PARAMS)
      CHARACTER*64  CVALUE_LIST(MAX_PARAMS)
      CHARACTER*1   COMPARE_LIST(MAX_PARAMS)
      INTEGER       NUM_PARAMS
      CHARACTER*255 ZSTRING
      INTEGER       ZSIZE
      INTEGER       ZINDEX(MAX_PARAMS)

      LOGICAL       RESET_DATE_CHECK
      LOGICAL       RESET_PRIV_CHECK
      LOGICAL       RESET_FLAG_CHECK
      LOGICAL       RESET_HOUR_CHECK
      LOGICAL       RESET_DAY_CHECK
      INTEGER       INDEX_DATE_CHECK
      INTEGER       INDEX_PRIV_CHECK
      INTEGER       INDEX_FLAG_CHECK
      INTEGER       INDEX_HOUR_CHECK
      INTEGER       INDEX_DAY_CHECK

      PARAMETER     MAX_NODES = 50
      CHARACTER*15  CNODE_LIST(MAX_NODES), NODESET
      CHARACTER*5   REPORTSET
      CHARACTER*60  UAF_FILENAME(MAX_NODES), OUTPUTSET
      INTEGER       NUM_NODES, LUN
      LOGICAL       VALID_INPUT

      COMMON /SCANUAF_COMMON/ ICONTROL_C,
     +                        PARAM,
     +                        ISTAR,
     +                        COMPCHARS,
     +                        TYPE,
     +                        THIS_BUFF,
     +                        MASTER_INDEX,
     +                        IPARAM_LIST,
     +                        IVALUE_LIST,
     +                        CVALUE_LIST,
     +                        COMPARE_LIST,
     +                        NUM_PARAMS,
     +                        ZSTRING,
     +                        ZSIZE,
     +                        ZINDEX,
     +                        RESET_DATE_CHECK,
     +                        RESET_PRIV_CHECK,
     +                        RESET_FLAG_CHECK,
     +                        RESET_HOUR_CHECK,
     +                        RESET_DAY_CHECK,
     +                        INDEX_DATE_CHECK,
     +                        INDEX_PRIV_CHECK,
     +                        INDEX_FLAG_CHECK,
     +                        INDEX_HOUR_CHECK,
     +                        INDEX_DAY_CHECK,
     +                        CNODE_LIST,
     +                        NODESET,
     +                        REPORTSET,
     +                        UAF_FILENAME,
     +                        NUM_NODES,
     +                        VALID_INPUT,
     +                        OUTPUTSET,
     +                        LUN