COMUQPR 
COMMON
                                                                      # 
          CTEXT  COMUQPR - *QGET*/*DROP* PARAMETERS.
                                                                      # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN  # COMUQPR # 
  
                                                                      # 
***       COMUQPR - *QGET*/*DROP* PARAMETERS. 
* 
*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*         *COMUQPR* SETS UP THE SYMPL/COMPASS DEFINITION OF THE 
*         COMMON AREA TO HOLD THE *QGET*/*DROP* PROCESSED PARAMETERS. 
  
          USE    /UQPRCOM/
 JS       DATA   0           JOB SEQUENCE NAME
 DC       DATA   0           DISPOSITION CODE 
 UJ       DATA   0           USER JOB NAME
 FN       DATA   0           LOCAL FILE NAME
 OP       DATA   0           SINGLE REPRIEVE / NO ABORT OPTION
 DQ       DATA   0           DEQUEUE OPTION 
          USE 
  
*         FOLLOWING ARE THE RELATIVE WORD POSITIONS OF THE PROCESSED
*         PARAMETERS.  ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THIS 
*         ORDER.
  
                                                                      # 
#JS       #DEF#  JS+0        # JSN$WORD #0#;  # JSN # 
#DC       #DEF#  JS+1        # DC$WORD #1#;   # DISPOSITION CODE #
#UJ       #DEF#  JS+2        # UJN$WORD #2#;  # UJN # 
#FN       #DEF#  JS+3        # FN$WORD #3#;   # LOCAL FILE NAME # 
#OP       #DEF#  JS+4        # OP$WORD #4#;   # REPRIEVE/NO ABORT # 
#DQ       #DEF#  JS+5        # DQ$WORD #5#;   # DEQUEUE OPTION #
                                                                      # 
          COL    12 
                                                                      # 
           DEF QARGL      #6#;  # LENGTH OF ARGUMENT BUFFER # 
  
           COMMON  UQPRCOM; 
             BEGIN  # COMMON AREA UQPRCOM # 
  
                                                                      # 
*         PROCESSED *QGET*/*DROP* PARAMETERS. 
                                                                      # 
  
             ARRAY QARGUMENTS [0:0] P(QARGL); 
               BEGIN
               ITEM QARG$JS    C(JSN$WORD,00,07);  # JSN #
               ITEM QARG$JSI   U(JSN$WORD,00,60);  # INTEGER FORMAT # 
               ITEM QARG$JSEND U(JSN$WORD,24,36);  # END OF WORD #
               ITEM QARG$DC    C(DC$WORD,00,07);   # DISPOSITION CODE # 
               ITEM QARG$DCI   U(DC$WORD,00,60);   # INTEGER FORMAT # 
               ITEM QARG$UJ    C(UJN$WORD,00,07);  # UJN #
               ITEM QARG$UJI   U(UJN$WORD,00,60);  # INTEGER FORMAT # 
               ITEM QARG$FN    C(FN$WORD,00,07);   # LOCAL FILE NAME #
               ITEM QARG$FNI   U(FN$WORD,00,60);   # INTEGER FORMAT # 
               ITEM QARG$OP    C(OP$WORD,00,07);   # REPRIEVE/NO ABORT# 
               ITEM QARG$OPI   U(OP$WORD,00,60);   # INTEGER FORMAT # 
               ITEM QARG$DQ    C(DQ$WORD,00,07);   # DEQUEUE OPTION # 
               ITEM QARG$DQI   U(DQ$WORD,00,60);   # INTEGER FORMAT # 
               END
  
             END  # COMMON AREA UQPRCOM # 
  
           END  # COMUQPR # 
                                                                      # 
          COL 30
          ENDX                                                        # 
                                               CONTROL LIST;
