COMXCTF 
COMMON
  
#     COMXCTF - EXEC COUNTS, THRESHOLDS, AND FLAGS.                   # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXCTF #
  
# 
***   COMXCTF - SSEXEC COUNTS, THRESHOLDS, AND FLAGS. 
* 
*     *COMXCTF* CONTAINS COUNTS, THRESHOLDS, FLAGS, AND EXPIRATION
*     TIMES USED BY SSEXEC. 
* 
*     NOTE - COMDECK *COMBFAS* MUST BE CALLED PRIOR TO *COMXCTF*. 
# 
  
  
      COMMON XCTFCOM; 
  
        BEGIN  # XCTFCOM #
                                     # $$ # 
        ITEM $$XCTF$$   C(20) = "****** COMXCTF *****"; 
                                     # $$ # 
  
# 
*     FLAGS.
# 
  
        ITEM CURESERVED B;           # CONTROLLER RESERVED FLAG # 
        ITEM DRVRACTIVE B;           # DRIVER ACTIVE FLAG # 
        ITEM DRVRRECALL B;           # DRIVER RECALL FLAG # 
        ITEM DRYUP      B;           # DRY-UP FLAG #
        ITEM FATALERR   B;           # FATAL ERROR FLAG # 
        ITEM GLBINTLK   B;           # GLOBAL CATALOG INTERLOCK FLAG #
        ITEM GLBRTRNB   B;           # GLOBAL RETURN BUFFER FLAG #
        ITEM GLBSTFL    B;           # GLOBAL STAGE FLAG #
        ITEM GLBDSFL    B;           # GLOBAL DESTAGE FLAG #
        ITEM GLPFMFL    B;           # GLOBAL PFM ACTIVE FLAG # 
        ITEM GLBUCPSW   B;           # GLOBAL *UCP* SWAPPED FLAG #
        ITEM INITIALIZE B;           # INITIALIZATION FLAG #
        ITEM LABELBUSY  B;           # LABEL BUFFER BUSY FLAG # 
        ITEM MAPINTLK   B;           # SM MAP INTERLOCK FLAG #
        ITEM PFMSTAT    I;           # PFM RETURN STATUS #
        ITEM RCLMCAT    B;           # RECLAIM CATALOGS PENDING FLAG #
        ITEM RCLMMAP    B;           # RECLAIM SM MAPS PENDING FLAG # 
        ITEM SLVACTIVE  B;           # SLAVE ACTIVE FLAG #
        ITEM TERMINATE  B;           # TERMINATION FLAG # 
  
# 
*     COUNTS. 
# 
  
        ITEM CUCNT      I;           # NUMBER OF CONTROLLERS #
        ITEM SMCNT      I;           # NUMBER OF SM-S # 
        ITEM FAMCNT     I;           # NUMBER OF FAMILIES # 
        ITEM MMSTCNT    I;           # NUMBER OF CTRLS WITH DRD-S # 
        ITEM NEXTSSN    U=1;         # STAGING SEQUENCE NUMBER #
        ITEM RTRQ$CT    I;           # COUNT OF TDAM-S IN *RTRQ* #
  
# 
*     DELAY EXPIRATION TIMES. 
# 
  
        ITEM ITLK$EXPIR U;           # RECLAIM CATALOG INTERLOCKS 
                                       EXPIRATION TIME #
        ITEM MAP$EXPIR  U;           # RECLAIM SM MAP INTERLOCKS
                                       EXPIRATION TIME #
        ITEM MINQ$EXPIR U;           # MINIMUM QUEUE DELAY EXPIRATION 
                                       TIME # 
        ITEM KDIS$EXPIR U;           # K-DISPLAY REFRESH #
        ITEM KSM$EXPIR  U;           # *SM* DISPLAY EXPIRATION TIME # 
        ITEM MTOS$EXPIR U;           # TIME TO NEXT UPDATE THE *MTOS* 
                                       FILE # 
        ITEM STOM$EXPIR U;           # TIME TO NEXT PROCESS THE *STOM*
                                       COMMUNICATION FILE # 
        ITEM UCP$EXPIR  U;           # SWAPPED *UCP* EXPIRATION TIME #
  
# 
*     CENTRAL MEMORY REFERENCES.
# 
        ARRAY NAMZFILL  [0:2]   S(1);     # PERM FILE NAME #
          BEGIN 
          ITEM NAME       U(00,00,60);  # ZERO-FILLED 10-CHAR NAME #
          ITEM NAMEC      C(00,00,07);  # 7-CHAR NAME (ZERO FILLED) # 
          END 
  
  
  
        ARRAY CMRINFO [0:0] S(1);    # MACHINE INFORMATION #
          BEGIN 
          ITEM CMR$MMF    B(00,01,01);  # MULTI-MAINFRAME FLAG #
          ITEM CMR$SLAVE  B(00,02,01);  # SLAVE EXEC FLAG # 
          ITEM CMR$MID    C(00,06,02);  # MACHINE *ID* #
          ITEM CMR$MFID   U(00,57,03);  # MAINFRAME IDENTIFICATION #
          END 
  
        ARRAY EVENT[0:0]   P(1);
          BEGIN      # ARRAY EVENT #
          ITEM EESET$ZRO  U(00,00,42) = [0];       # ZEROES # 
          ITEM EESET$ASXE U(00,27,12);  # MSAS EVENT #
          ITEM EESET$EQ   U(00,39,09);  # EQUIPMENT TYPE #
          ITEM EESET$EVT  U(00,48,12);  # EVENT INDICATOR # 
          END     # ARRAY EVENT # 
  
  
  
        END  # XCTFCOM #
  
      END  # COMXCTF #
  
                                               CONTROL LIST;
