COMTBLP 
COMMON
                                                                      # 
          CTEXT  COMTBLP - *SSBLD* CONTROL STATEMENT PARAMETERS.
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN     # COMTBLP #
  
                                                                      # 
***       COMTBLP - ADDRESSES FOR THE PROCESSED *SSBLD* PARAMETERS. 
* 
*         *COMTBLP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE 
*         AREA TO HOLD THE *SSBLD* PROCESSED PARAMETERS.
  
  
  
  
*         ADDRESSES AND THE DEFAULT VALUES FOR THE *SSBLD*
*         CONTROL STATEMENT AND THE DIRECTIVE PARAMETERS. 
  
          USE    /TBLPCOM/
  
 CF       DATA   0LSUDT      CONFIGURATION FILE NAME
 BF       DATA   0LBUDT      BUDT FILE NAME 
          USE 
  
  
*         FOLLOWING ARE THE RELATIVE WORD POSITIONS OF THE PROCESSED
*         PARAMETERS.  ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN
*         THIS ORDER. 
                                                                      # 
#CF       #DEF#  CF+0        # CF$WORD #0#;  #*CF*# 
#BF       #DEF#  CF+1        # BF$WORD #1#;  #*BF*# 
                                                                      # 
          COL    12 
                                                                      # 
           DEF BLARGL      #2#;  # LENGTH OF ARGUMENT BUFFER #
  
           COMMON TBLPCOM;
  
             BEGIN  # COMMON AREA TBLPCOM # 
  
                                                                      # 
*         ARRAY TO HOLD THE PROCESSED *SSBLD* PARAMETERS. 
                                                                      # 
  
             ARRAY BLARGUMENTS [0:0] P(BLARGL); 
               BEGIN # ARRAY BLARGUMENTS #
               ITEM DARG$CF    C(CF$WORD,00,07);  # CONFIG FILE NAME #
               ITEM DARG$ICF   I(CF$WORD,00,60);  # INTEGER NAME #
               ITEM DARG$BF    C(BF$WORD,00,07);  # BUDT FILE NAME #
               ITEM DARG$IBF   I(BF$WORD,00,60);  # INTEGER NAME #
               END  # ARRAY BLARGUMENT #
  
             END  # COMMON AREA TBLPCOM # 
  
           END  # COMTBLP # 
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
