cdc:nos2.source:opl.opl871:common:comuqpr
Common COMUQPR
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comuqpr +++| # 00002 M00S00002.comuqpr +++| CTEXT COMUQPR - *QGET*/*DROP* PARAMETERS. 00003 M00S00003.comuqpr +++| # 00004 M00S00004.comuqpr +++| CONTROL NOLIST; 00005 M00S00005.comuqpr +++| CONTROL IFEQ LISTCON,1; 00006 M00S00006.comuqpr +++| CONTROL LIST; 00007 M00S00007.comuqpr +++| CONTROL FI; 00008 M00S00008.comuqpr +++| 00009 M00S00009.comuqpr +++| BEGIN # COMUQPR # 00010 M00S00010.comuqpr +++| 00011 M00S00011.comuqpr +++| # 00012 M00S00012.comuqpr +++|*** COMUQPR - *QGET*/*DROP* PARAMETERS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M01S00001.281l803 +++|* 00014 M01S00002.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00015 M00S00013.comuqpr +++|*
| Line S00014 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00016 M01S00014.ns2118 ---|* *COMUQPR* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00017 M01S00001.ns2118 +++|* *COMUQPR* SETS UP THE SYMPL/COMPASS DEFINITION OF THE 00018 M00S00015.comuqpr +++|* COMMON AREA TO HOLD THE *QGET*/*DROP* PROCESSED PARAMETERS. 00019 M00S00016.comuqpr +++| 00020 M00S00017.comuqpr +++| USE /UQPRCOM/
| Line S00018 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00021 M01S00018.ns2118 ---| JS DATA 0 JOB SEQUENCE NUMBER
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00022 M01S00002.ns2118 +++| JS DATA 0 JOB SEQUENCE NAME 00023 M00S00019.comuqpr +++| DC DATA 0 DISPOSITION CODE 00024 M00S00020.comuqpr +++| UJ DATA 0 USER JOB NAME 00025 M00S00021.comuqpr +++| FN DATA 0 LOCAL FILE NAME
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
M02 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00026 M02S00003.ns2687 ---| OP DATA 0 SINGLE REPRIEVE OPTION
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00001.ns2687 +++| OP DATA 0 SINGLE REPRIEVE / NO ABORT OPTION
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00028 M01S00001.ns2710 +++| DQ DATA 0 DEQUEUE OPTION 00029 M00S00022.comuqpr +++| USE 00030 M00S00023.comuqpr +++| 00031 M00S00024.comuqpr +++|* FOLLOWING ARE THE RELATIVE WORD POSITIONS OF THE PROCESSED 00032 M00S00025.comuqpr +++|* PARAMETERS. ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THIS 00033 M00S00026.comuqpr +++|* ORDER. 00034 M00S00027.comuqpr +++| 00035 M00S00028.comuqpr +++| #
| Line S00029 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00036 M01S00029.ns2118 ---|#JS #DEF# JS+0 # JSN$WORD #0#; #JSN#
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00037 M01S00004.ns2118 +++|#JS #DEF# JS+0 # JSN$WORD #0#; # JSN # 00038 M00S00030.comuqpr +++|#DC #DEF# JS+1 # DC$WORD #1#; # DISPOSITION CODE # 00039 M00S00031.comuqpr +++|#UJ #DEF# JS+2 # UJN$WORD #2#; # UJN #
| Line S00032 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00040 M01S00032.ns2118 ---|#FN #DEF# JS+3 # FN$WORD #3#; # FN #
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00041 M01S00005.ns2118 +++|#FN #DEF# JS+3 # FN$WORD #3#; # LOCAL FILE NAME #
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
M02 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00042 M02S00006.ns2687 ---|#OP #DEF# JS+4 # OP$WORD #4#; # REPRIEVE OPTION #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00043 M01S00002.ns2687 +++|#OP #DEF# JS+4 # OP$WORD #4#; # REPRIEVE/NO ABORT #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00044 M01S00002.ns2710 +++|#DQ #DEF# JS+5 # DQ$WORD #5#; # DEQUEUE OPTION # 00045 M00S00033.comuqpr +++| # 00046 M00S00034.comuqpr +++| COL 12 00047 M00S00035.comuqpr +++| #
| Line S00036 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00048 M01S00036.ns2118 ---| DEF QARGL #4#; # LENGTH OF ARGUMENT BUFFER #
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
M02 (Removed by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00049 M02S00007.ns2710 ---| DEF QARGL #5#; # LENGTH OF ARGUMENT BUFFER #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00050 M01S00003.ns2710 +++| DEF QARGL #6#; # LENGTH OF ARGUMENT BUFFER # 00051 M00S00037.comuqpr +++| 00052 M00S00038.comuqpr +++| COMMON UQPRCOM; 00053 M00S00039.comuqpr +++| BEGIN # COMMON AREA UQPRCOM # 00054 M00S00040.comuqpr +++| 00055 M00S00041.comuqpr +++| # 00056 M00S00042.comuqpr +++|* PROCESSED *QGET*/*DROP* PARAMETERS. 00057 M00S00043.comuqpr +++| # 00058 M00S00044.comuqpr +++| 00059 M00S00045.comuqpr +++| ARRAY QARGUMENTS [0:0] P(QARGL); 00060 M00S00046.comuqpr +++| BEGIN 00061 M00S00047.comuqpr +++| ITEM QARG$JS C(JSN$WORD,00,07); # JSN #
| Line S00048 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00062 M01S00048.ns2118 ---| ITEM QARG$JS4 C(JSN$WORD,00,04); # JSN # 00063 M00S00049.comuqpr +++| ITEM QARG$JSI U(JSN$WORD,00,60); # INTEGER FORMAT # 00064 M00S00050.comuqpr +++| ITEM QARG$JSEND U(JSN$WORD,24,36); # END OF WORD #
| Line S00051 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00065 M01S00051.ns2118 ---| ITEM QARG$DC C(DC$WORD,00,03); # DISPOSITION CODE #
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00066 M01S00008.ns2118 +++| ITEM QARG$DC C(DC$WORD,00,07); # DISPOSITION CODE # 00067 M00S00052.comuqpr +++| ITEM QARG$DCI U(DC$WORD,00,60); # INTEGER FORMAT #
| Line S00053 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00068 M01S00053.ns2118 ---| ITEM QARG$DCEND U(DC$WORD,18,42); # END OF WORD # 00069 M00S00054.comuqpr +++| ITEM QARG$UJ C(UJN$WORD,00,07); # UJN # 00070 M00S00055.comuqpr +++| ITEM QARG$UJI U(UJN$WORD,00,60); # INTEGER FORMAT #
| Line S00056 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00071 M01S00056.ns2118 ---| ITEM QARG$UJEND U(UJN$WORD,42,18); # END OF WORD # 00072 M01S00057.ns2118 ---| ITEM QARG$FN C(FN$WORD,00,07); # FN #
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00073 M01S00009.ns2118 +++| ITEM QARG$FN C(FN$WORD,00,07); # LOCAL FILE NAME # 00074 M00S00058.comuqpr +++| ITEM QARG$FNI U(FN$WORD,00,60); # INTEGER FORMAT #
| Line S00059 Modification History | |
|---|---|
M01 (Removed by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00059.ns2118 ---| ITEM QARG$FNEND U(FN$WORD,42,18); # END OF WORD #
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
M02 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00076 M02S00010.ns2687 ---| ITEM QARG$OP C(OP$WORD,00,07); # REPRIEVE OPTION #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00077 M01S00003.ns2687 +++| ITEM QARG$OP C(OP$WORD,00,07); # REPRIEVE/NO ABORT#
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00078 M01S00011.ns2118 +++| ITEM QARG$OPI U(OP$WORD,00,60); # INTEGER FORMAT #
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00079 M01S00004.ns2710 +++| ITEM QARG$DQ C(DQ$WORD,00,07); # DEQUEUE OPTION # 00080 M01S00005.ns2710 +++| ITEM QARG$DQI U(DQ$WORD,00,60); # INTEGER FORMAT # 00081 M00S00060.comuqpr +++| END
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act ----------------------------+ 00082 M01S00012.ns2118 +++| 00083 M00S00061.comuqpr +++| END # COMMON AREA UQPRCOM # 00084 M00S00062.comuqpr +++| 00085 M00S00063.comuqpr +++| END # COMUQPR # 00086 M00S00064.comuqpr +++| # 00087 M00S00065.comuqpr +++| COL 30 00088 M00S00066.comuqpr +++| ENDX # 00089 M00S00067.comuqpr +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comuqpr.txt · Last modified: (external edit)