COMTUSP 
COMMON
                                                                      # 
          CTEXT  COMTUSP - *SSUSE* CONTROL STATEMENT PARAMETERS.
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
                             BEGIN     # COMTUSP #
  
                                                                      # 
***       COMTUSP - ADDRESSES FOR PROCESSED *SSUSE* PARAMETERS. 
* 
*         *COMTUSP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE 
*         AREA TO HOLD THE *SSUSE* PROCESSED PARAMETERS.
  
  
  
  
*         ADDRESSES AND DEFAULT PARAMETERS FOR THE *SSUSE* CONTROL
*         STATEMENT PARAMETERS. 
  
          USE    /TUSPCOM/
                                                    ##$$##
 OP       DATA   0           REPORT OPTION
 FM       DATA   0           FAMILY NAME
 SB       DATA   0L01234567  SELECTED SUBFAMILIES 
 SM       DATA   1HA         SM-ID
 L        DATA   0LOUTPUT    OUTPUT FILE
 CN       DATA   0           CSN OF SPECIFIC CARTRIDGE
 CM       DATA   2LA         CARTRIDGE MANUFACTURER 
          USE 
  
*         RELATIVE WORD POSITIONS OF THE PROCESSED PARAMETERS.
*         ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THE FOLLOWING 
*         ORDER.  *OP* IS CONSIDERED AS WORD *0* FOR *SYMPL*
*         DECLARATIONS. 
                                                                      # 
                                          # WORD POSITIONS FOR #
#OP       #DEF#  OP+0        # OP$US #0#;  # *OP* # 
#FM       #DEF#  OP+1        # FM$US #1#;  # *FM* # 
#SB       #DEF#  OP+2        # SB$US #2#;  # *SB* # 
#SM       #DEF#  OP+3        # SM$US #3#;  # *SM* # 
#L        #DEF#  OP+4        # L$US  #4#;  # *L* #
#CN       #DEF#  OP+5        # CN$US #5#;  # *CN* # 
#CM       #DEF#  OP+6        # CM$US #6#;  # *CM* # 
  
                                                                      # 
          COL    12 
                                                                      # 
  
           COMMON TUSPCOM;
  
             BEGIN  # TUSPCOM # 
  
                                                                      # 
*         ARRAY TO ACCESS THE PROCESSED *SSUSE* PARAMETERS. 
                                                                      # 
  
             ARRAY USARG [0:0] P(7);
               BEGIN
               ITEM USARG$OP   C(OP$US,00,10);  # REPORT OPTION # 
               ITEM USARG$FM   C(FM$US,00,07);  # FAMILY NAME # 
               ITEM USARG$SB   U(SB$US,00,60);  # SUBFAMILY # 
               ITEM USARG$SM   C(SM$US,00,08);  # SM-ID # 
               ITEM USARG$LZ   U(L$US,00,60);   # REFERENCE TO L$US # 
               ITEM USARG$L    C(L$US,00,07);   # OUTPUT FILE NAME #
               ITEM USARG$CN   C(CN$US,00,08);  # SPECIFIC CSN #
               ITEM USARG$CM   C(CM$US,00,02);  # CART. MANUFACTURER #
               END
  
             END  # TUSPCOM # 
  
           END  # COMTUSP # 
  
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
