COMTVLP 
COMMON
                                                                      # 
          CTEXT  COMTVLP - *SSVAL* CONTROL STATEMENT PARAMETERS.
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN     # COMTVLP #
                                                                      # 
***       COMTVLP - *SSVAL* CONTROL STATEMENT PARAMETERS ARRAY. 
* 
*         INITIALLY *COMTVLP* CONTAINS THE PARAMETER DEFAULTS IF THE
*         ARGUMENTS ARE OMITTED ON THE CONTROL STATEMENT.  DURING 
*         CONTROL STATEMENT PROCESSING BY *ASARG*, THE SPECIFIED
*         PARAMETERS ARE PLACED HERE AS DIRECTED BY THE ARGLIST TABLE 
*         IN *VLTAB*. 
  
  
  
  
*         *COMPASS* DEFINITION OF *SSVAL* ARGUMENTS.
  
          USE    /TVLPCOM/
  
 ARGF     BSS    0
 LF       CON    6LOUTPUT    OUTPUT FILE
 RF       DATA   0           RELEASE DATA FILE
 AM       DATA   0           ANALYZE SMMAP OPTION 
 SM       DATA   1LA         SELECTED SM-S
          DATA   0
 FM       DATA   0           FAMILY 
 FX       DATA   1L0         FIX CATALOGS THRESHOLD 
 RL       DATA   0           RELEASE PROCESSING OPTION
 SB       DATA   8L01234567  SELECTED SUBFAMILIES 
 ST       DATA   1HX
 ENDP     BSS    0           END-OF-LIST
 VLARGL   EQU    ENDP-ARGF   LENGTH OF LIST 
  
          USE 
  
  
*         *COMPASS*/*SYMPL* DEFINITION OF *ASVAL* ARGUMENTS 
*         OFFSETS FOR ARRAY ARGUMENTS.
                                                                      # 
#LF       #DEF#  LF+0        # VLF #00#; # OUTPUT FILE #
#RF       #DEF#  LF+1        # VRF #01#; # RDF FILE # 
#AM       #DEF#  LF+2        # VAM #02#; # ANALYZE CSUMAP # 
#SM       #DEF#  LF+3        # VSM #03#; # SELECTED SM-S #
#SM2      #DEF#  LF+4        # VS2 #04#; # SECOND WORD #
#FM       #DEF#  LF+5        # VFM #05#; # FAMILY # 
#FX       #DEF#  LF+6        # VFX #06#; # FIX THRESHOLD #
#RL       #DEF#  LF+7        # VRL #07#; # RELEASE OPTION # 
#SB       #DEF#  LF+8        # VSB #08#; # SUBFAMILIES #
#ST       #DEF#  LF+9        # VST #09#; # SCATTER THRESHOLD #
#VLARGL   #DEF#  10          # VARGL #10#; # END OF ARRAY # 
  
  
                                                                      # 
          COL    12 
  
  
*          *SYMPL* DEFINITION OF *SSVAL* ARGUMENTS. 
                                                                      # 
           COMMON TVLPCOM;  # OVERLAYS PREVIOUS *COMPASS* USE BLOCK # 
  
             BEGIN  # TVLPCOM COMMON BLOCK #
                                                      #$$#
                                                      #$$#
  
             ARRAY VARGUMENTS [0:0] S(VARGL); 
               BEGIN
               ITEM VARG$LF  C(VLF,00,07);
               ITEM VARG$RF  C(VRF,00,07);
               ITEM VARG$AM  U(VAM,00,60);
               ITEM VARG$SM  C(VSM,00,10);
               ITEM VARG$FM  C(VFM,00,07);
               ITEM VARG$IFM I(VFM,00,60);
               ITEM VARG$FX  U(VFX,00,60);
               ITEM VARG$RL  U(VRL,00,60);
               ITEM VARG$SB  C(VSB,00,08);
               ITEM VARG$ST  U(VST,00,60);
               END
  
             END  # TVLPCOM COMMON BLOCK #
  
           END  # COMTVLP # 
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
