*COMDECK,COMQSCH
#     COMQSCH - SCHEDULER VARIABLES AND TIMERS  # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
**    COMQSCH - SCHEDULER VARIABLES AND TIMERS. 
# 
      BEGIN  # COMMON DECK COMQSCH #
  
      COMMON COMQSCH; 
  
      BEGIN  # COMMON BLOCK COMQSCH # 
  
      ITEM SCHSELSECS U = 20;      # FILE SELECTION RECALL PERIOD # 
      ITEM SCHMAXCONS U = ACNMAXC; # MAXIMUM CONNECTIONS #
      ITEM SCHTIMEOUT U = 120;     # NETWORK TIMEOUT PERIOD (SECS) #
      ITEM SCHDISABLE U = 120;     # PID/LID DISABLE PERIOD (SECS) #
      ITEM SCHRETRY   U = 2;       # TRANSFER RETRYS BEFORE DISABLE # 
      ITEM SCHLDTRFSH U = 120;     # PID/LID TABLE REFRESH (SECS) # 
      ITEM TIMLASTTIM U = 0;       # TIMT AT LAST TIMER UPDATE #
      ITEM TIMLDTRFSH U = 0;       # PID/LID TABLE REFRESH TIMER #
      ITEM TIMNXTEVNT U = 0;       # SECONDS UNTIL NEXT TIMEOUT # 
      ITEM TIMNXTTASK U = 0;       # SECONDS UNTIL TASK NEEDED #
      ITEM TIMPLRSTRT U = 0;       # RESTART DISABLED PID TIMER # 
      ITEM TIMSELSECS U = 0;       # FILE SELECTION TIMER # 
  
      END  # COMMON BLOCK COMQSCH # 
  
      END  # COMMON DECK COMQSCH #
                                               CONTROL LIST;
