COMTMVP 
COMMON
                                                                      # 
          CTEXT  COMTMVP - *SSMOVE* CONTROL STATEMENT PARAMETERS. 
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN     # COMTMVP #
  
                                                                      # 
***       COMTMVP - ADDRESSES FOR THE PROCESSED *SSMOVE* PARAMETERS.
* 
*         *COMTMVP* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE 
*         AREA TO HOLD THE *SSMOVE* PROCESSED PARAMETERS. 
  
  
  
  
*         ADDRESSES AND DEFAULT VALUES FOR *SSMOVE* 
*         CONTROL STATEMENT PARAMETERS. 
  
          USE    /TMVPCOM/
 L        DATA   0LOUTPUT    OUTPUT FILE
 NW       DATA   0           NO WAIT OPTION 
 FM       DATA   0           FAMILY TO BE PROCESSED 
 UI       DATA   0           USER INDEX OPTION
 DN       DATA   0           DEVICE NUMBER
 I        DATA   0LINPUT     INPUT FILE 
 LO       DATA   0           LIST OPTIONS 
 PX       DATA   0           PROCESSING EXCEPTIONS
 LB       DATA   -1           LARGE FILE BOUNDARY 
          USE 
  
*         RELATIVE WORD POSITIONS OF THE PROCESSED
*         PARAMETERS.  ASSEMBLY ERRORS ARE CAUSED 
*         BY A CHANGE IN THE FOLLOWING ORDER. 
*         *L* IS CONSIDERED AS WORD 0 FOR *SYMPL* 
*         DECLARATIONS. 
                                                                      # 
                                          # WORD POSITIONS FOR #
#NW       #DEF#  L+1         # NW$W #1#;   # *NW* # 
#FM       #DEF#  L+2         # FM$W #2#;   # *FM* # 
#UI       #DEF#  L+3         # UI$W #3#;   # *UI* # 
#DN       #DEF#  L+4         # DN$W #4#;   # *DN* # 
#I        #DEF#  L+5         # I$W  #5#;   # *I* #
#LO       #DEF#  L+6         # LO$W #6#;   # *LO* # 
#PX       #DEF#  L+7         # PX$W #7#;   # *PX* # 
#LB       #DEF#  L+8         # LB$W #8#;   # *LB* # 
  
                                                                      # 
          COL    12 
                                                                      # 
  
           COMMON TMVPCOM;
  
             BEGIN  # TMVPCOM # 
  
                                                                      # 
*         ARRAY TO ACCESS THE PROCESSED PARAMETERS. 
*         THE RELATIVE WORD POSITIONS ARE DESCRIBED ABOVE.
                                                                      # 
  
             ARRAY MVARG [0:0] S(10); 
               BEGIN
               ITEM MVARG$ZL   U(00,00,60);    # *L* WORD REFERENCE # 
               ITEM MVARG$L    C(00,00,07);    # OUTPUT FILE NAME # 
               ITEM MVARG$ZNW  I(NW$W,00,60);  # *NW* WORD REFERENCE #
               ITEM MVARG$NW   B(NW$W,59,01);  # NO WAIT OPTION # 
               ITEM MVARG$ZFM  U(FM$W,00,60);  # *FM* WORD REFERENCE #
               ITEM MVARG$FM   C(FM$W,00,07);  # FAMILY NAME #
               ITEM MVARG$ZUI  I(UI$W,00,60);  # *UI* WORD REFERENCE #
               ITEM MVARG$UI   U(UI$W,00,60);  # USER INDEX OPTION #
               ITEM MVARG$ZDN  I(DN$W,00,60);  # *DN* WORD REFERENCE #
               ITEM MVARG$DN   I(DN$W,00,60);  # DEVICE NUMBER #
               ITEM MVARG$ZI   U(I$W,00,60);   # *I* WORD REFERENCE # 
               ITEM MVARG$I    C(I$W,00,7);    # INPUT FILE NAME #
               ITEM MVARG$ZLO  I(LO$W,00,60);  # *LO* WORD REFERENCE #
               ITEM MVARG$LO   C(LO$W,00,01);  # LIST OPTION #
               ITEM MVARG$ZP   U(PX$W,00,60);  # *PX* WORD REFERENCE #
               ITEM MVARG$PX   C(PX$W,00,06);  # PROC EXCEPT OPTION # 
               ITEM MVARG$LB   I(LB$W,00,60);  # LARGE FILE BOUNDARY #
               END
  
             END  # TMVPCOM # 
  
           END  # COMTMVP # 
                                                                      # 
          COL    30 
          ENDX                                                        # 
                                               CONTROL LIST;
