COMXLTC 
COMMON
  
#     COMXLTC - LONG TERM CONNECT TABLE.                              # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXLTC #
  
# 
**    COMXLTC - DEFINES THE LONG TERM CONNECT TABLE WHICH SSEXEC USES 
*             TO KEEP TRACK OF THE UCPS WHICH ARE CURRENTLY CONNECTED 
*             FOR REQUEST PROCESSING PURPOSES.
# 
  
  
      DEF LTCL       #4#;            # LENGTH OF AN LTCT ENTRY #
  
      COMMON XLTCCOM; 
  
        BEGIN  # XLTCCOM #
  
        ITEM LTCENTRY   U;           # ENTRY ORDINAL FOR CURRENT UCP
                                       REQUEST #
        ITEM LTCTCNT    U;           # NUMBER OF LTCT ENTRIES # 
        ITEM LTCTPTR    U;           # LOCATION OF LTCT # 
  
  
        BASED 
        ARRAY LTCT [1:1] S(LTCL); 
          BEGIN 
          ITEM LTC$WORD0  U(00,00,60);  # FULL WORD 0 DEFINITION #
          ITEM LTC$SFRC   U(00,00,06);  # REPLY CODE #
          ITEM LTC$SFFP   U(00,06,12);  # FUNCTION PARAMETER #
          ITEM LTC$SFFPPP B(00,12,01);  # PRIVILEDGED PROGRAM FLAG #
          ITEM LTC$SFFPPU B(00,13,01);  # PRIVILEDGED USER FLAG # 
          ITEM LTC$SFFPL  B(00,14,01);  # LONG TERM CONNECTION SET #
          ITEM LTC$SFFRRC U(00,15,03);  # REQUEST COUNT # 
          ITEM LTC$SFUCPA U(00,18,18);  # RELATIVE ADDRESS IN UCP # 
          ITEM LTC$SFSCPA U(00,36,18);  # RELATIVE ADDRESS IN SCP # 
          ITEM LTC$SFFC   U(00,54,06);  # FUNCTION CODE # 
          ITEM LTC$SFFCC  B(00,59,01);  # COMPLETE BIT #
          ITEM LTC$WORD1  U(01,00,60);  # FULL WORD 1 DEFINITION #
          ITEM LTC$SFJBSN U(01,00,24);  # JOB SEQUENCE NUMBER # 
          ITEM LTC$SFFSTA U(01,48,12);  # JOB *FST* ADDRESS # 
          ITEM LTC$WORD2  U(02,00,60);  # FULL WORD 2 DEFINITION #
          ITEM LTC$FLAGS  U(02,00,06);  # FLAGS # 
          ITEM LTC$UCPSW  B(02,00,01);  # SWAPPED UCP FLAG #
          ITEM LTC$CART   B(02,01,01);  # CARTRIDGE LOADED FLAG # 
          ITEM LTC$RQI    U(02,06,05);  # REQUESTOR ID #
          ITEM LTC$UNUSD1 U(02,11,13);  # UNUSED #
          ITEM LTC$LLRQA  U(02,24,18);  # ADDRESS OF *LLRQ* ENTRY # 
          ITEM LTC$UCPA   U(02,42,18);  # UCPA OF CURRENT REQUEST # 
          ITEM LTC$WORD3  U(03,00,60);  # FULL WORD 3 DEFINITION #
          ITEM LTC$RQR    U(03,00,06);  # REQUEST RESPONSE CODE # 
          ITEM LTC$FCTORD U(03,12,12);  # TYPE 3 DEFINITION # 
          ITEM LTC$DATE   U(03,24,36);  # TYPE 3 DEFINITION # 
          ITEM LTC$VSN    C(03,24,06);  # TYPE 3 DEFINITION # 
          ITEM LTC$DRD    U(03,24,01);  # TYPE 4 DEFINITION # 
          ITEM LTC$YP     U(03,25,05);  # TYPE 4 DEFINITION # 
          ITEM LTC$ZP     U(03,30,04);  # TYPE 4 DEFINITION # 
          END 
  
        END  # XLTCCOM #
  
      END  # COMXLTC #
  
                                               CONTROL LIST;
