COMTBLD 
COMMON
  
#     COMTBLD - COMMON DEFINITIONS FOR *SSBLD* ROUTINES.              # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTBLD #
  
# 
***   COMTBLD - COMMON DEFINITIONS FOR *SSBLD* ROUTINES.
* 
*     COMTBLD CONTAINS THE ITEMS, ARRAYS AND THE
*     COMMON AREA USED BY *SSBLD* ROUTINES. 
* 
# 
  
# 
*     *COMTBLD* DEFINITIONS 
# 
  
      DEF BLBUFL     #O"1001"#;      # LENGTH OF *CIO* BUFFER # 
      DEF BLWBUFL    #8#;            # LENGTH OF WORKING BUFFER # 
  
# 
*     ITEMS COMMON TO *SSBLD* PROCEDURES. 
# 
  
      COMMON TBLDCOM; 
  
        BEGIN  # TBLDCOM #
                                     # $$ # 
        ITEM $$TBLD$$   C(20) = "****** COMTBLD *****"; 
                                     # $$ # 
  
# 
*     ARRAYS TO HOLD UDT
# 
  
        ITEM BL$UDT$HDR   U;         # UDT HEADER DATA #
        ARRAY BL$UDT$M862 [1:MAXCTN] S(UDTCNTL);; 
        ARRAY BL$UDT$M861 [1:MAXSM] S(SMALT);;
  
# 
*      BASED ARRAY FOR UDT
# 
  
        BASED 
        ARRAY BL$UDT$LOC[0:0] S(1);;
  
  
  
        ITEM CFNAME     C(7);        # ZERO FILLED CONFIGURATION FILE 
                                       NAME # 
  
# 
*     FETS AND BUFFERS. 
# 
  
        ARRAY BL$BUF[0:0] S(BLBUFL);;  # *CIO* BUFFER # 
        ARRAY BL$WBUF [0:0] S(BLWBUFL);;  # WORKING BUFFER #
        ARRAY BL$FET [0:2] S(SFETL);; 
  
# 
*     ARRAY TO HOLD MESSAGES
# 
  
        ARRAY BLMSG [0:0] P(4);      # *SSBLD* FATAL ERROR MESSAGE #
          BEGIN 
          ITEM BLMSG$LN   C(00,00,38);  # MESSAGE LINE #
          ITEM BLMSG$ABN  C(00,00,18) = [" SSBLD ABNORMAL, "];
          ITEM BLMSG$PROC C(01,48,08);  # PROC NAME # 
          ITEM BLMSG$BLNK C(02,36,12) = ["            "]; 
          ITEM BLMSG$VAL  C(02,06,10);  # NUMERIC VALUE # 
          ITEM BLMSG$TERM U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
          END 
  
        END  # TBLDCOM #
  
      END  # COMTBLD #
  
                                               CONTROL LIST;
