Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comuqpr +++| #
00002 M01S00002.comuqpr +++| CTEXT COMUQPR - *QGET*/*DROP* PARAMETERS.
00003 M01S00003.comuqpr +++| #
00004 M01S00004.comuqpr +++| CONTROL NOLIST;
00005 M01S00005.comuqpr +++| CONTROL IFEQ LISTCON,1;
00006 M01S00006.comuqpr +++| CONTROL LIST;
00007 M01S00007.comuqpr +++| CONTROL FI;
00008 M01S00008.comuqpr +++|
00009 M01S00009.comuqpr +++| BEGIN # COMUQPR #
00010 M01S00010.comuqpr +++|
00011 M01S00011.comuqpr +++| #
00012 M01S00012.comuqpr +++|*** COMUQPR - *QGET*/*DROP* PARAMETERS.
00013 M01S00001.281l803 +++|*
00014 M01S00002.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00015 M01S00013.comuqpr +++|*
| Line S00014 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00016 M02S00014.ns2118 ---|* *COMUQPR* SETS UP THE *SYMPL*/*COMPASS* DEFINITION OF THE
00017 M01S00001.ns2118 +++|* *COMUQPR* SETS UP THE SYMPL/COMPASS DEFINITION OF THE
00018 M01S00015.comuqpr +++|* COMMON AREA TO HOLD THE *QGET*/*DROP* PROCESSED PARAMETERS.
00019 M01S00016.comuqpr +++|
00020 M01S00017.comuqpr +++| USE /UQPRCOM/
| Line S00018 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00021 M02S00018.ns2118 ---| JS DATA 0 JOB SEQUENCE NUMBER
00022 M01S00002.ns2118 +++| JS DATA 0 JOB SEQUENCE NAME
00023 M01S00019.comuqpr +++| DC DATA 0 DISPOSITION CODE
00024 M01S00020.comuqpr +++| UJ DATA 0 USER JOB NAME
00025 M01S00021.comuqpr +++| FN DATA 0 LOCAL FILE NAME
| Line S00003 Modification History |
M01 (Added by) | ns2118 |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00026 M02S00003.ns2687 ---| OP DATA 0 SINGLE REPRIEVE OPTION
00027 M01S00001.ns2687 +++| OP DATA 0 SINGLE REPRIEVE / NO ABORT OPTION
00028 M01S00001.ns2710 +++| DQ DATA 0 DEQUEUE OPTION
00029 M01S00022.comuqpr +++| USE
00030 M01S00023.comuqpr +++|
00031 M01S00024.comuqpr +++|* FOLLOWING ARE THE RELATIVE WORD POSITIONS OF THE PROCESSED
00032 M01S00025.comuqpr +++|* PARAMETERS. ASSEMBLY ERRORS ARE CAUSED BY A CHANGE IN THIS
00033 M01S00026.comuqpr +++|* ORDER.
00034 M01S00027.comuqpr +++|
00035 M01S00028.comuqpr +++| #
| Line S00029 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00036 M02S00029.ns2118 ---|#JS #DEF# JS+0 # JSN$WORD #0#; #JSN#
00037 M01S00004.ns2118 +++|#JS #DEF# JS+0 # JSN$WORD #0#; # JSN #
00038 M01S00030.comuqpr +++|#DC #DEF# JS+1 # DC$WORD #1#; # DISPOSITION CODE #
00039 M01S00031.comuqpr +++|#UJ #DEF# JS+2 # UJN$WORD #2#; # UJN #
| Line S00032 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00040 M02S00032.ns2118 ---|#FN #DEF# JS+3 # FN$WORD #3#; # FN #
00041 M01S00005.ns2118 +++|#FN #DEF# JS+3 # FN$WORD #3#; # LOCAL FILE NAME #
| Line S00006 Modification History |
M01 (Added by) | ns2118 |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00042 M02S00006.ns2687 ---|#OP #DEF# JS+4 # OP$WORD #4#; # REPRIEVE OPTION #
00043 M01S00002.ns2687 +++|#OP #DEF# JS+4 # OP$WORD #4#; # REPRIEVE/NO ABORT #
00044 M01S00002.ns2710 +++|#DQ #DEF# JS+5 # DQ$WORD #5#; # DEQUEUE OPTION #
00045 M01S00033.comuqpr +++| #
00046 M01S00034.comuqpr +++| COL 12
00047 M01S00035.comuqpr +++| #
| Line S00036 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00048 M02S00036.ns2118 ---| DEF QARGL #4#; # LENGTH OF ARGUMENT BUFFER #
| Line S00007 Modification History |
M01 (Added by) | ns2118 |
M02 (Updated by) | ns2710 |
Seq # *Modification Id* Act
----------------------------+
00049 M02S00007.ns2710 ---| DEF QARGL #5#; # LENGTH OF ARGUMENT BUFFER #
00050 M01S00003.ns2710 +++| DEF QARGL #6#; # LENGTH OF ARGUMENT BUFFER #
00051 M01S00037.comuqpr +++|
00052 M01S00038.comuqpr +++| COMMON UQPRCOM;
00053 M01S00039.comuqpr +++| BEGIN # COMMON AREA UQPRCOM #
00054 M01S00040.comuqpr +++|
00055 M01S00041.comuqpr +++| #
00056 M01S00042.comuqpr +++|* PROCESSED *QGET*/*DROP* PARAMETERS.
00057 M01S00043.comuqpr +++| #
00058 M01S00044.comuqpr +++|
00059 M01S00045.comuqpr +++| ARRAY QARGUMENTS [0:0] P(QARGL);
00060 M01S00046.comuqpr +++| BEGIN
00061 M01S00047.comuqpr +++| ITEM QARG$JS C(JSN$WORD,00,07); # JSN #
| Line S00048 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00062 M02S00048.ns2118 ---| ITEM QARG$JS4 C(JSN$WORD,00,04); # JSN #
00063 M01S00049.comuqpr +++| ITEM QARG$JSI U(JSN$WORD,00,60); # INTEGER FORMAT #
00064 M01S00050.comuqpr +++| ITEM QARG$JSEND U(JSN$WORD,24,36); # END OF WORD #
| Line S00051 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00065 M02S00051.ns2118 ---| ITEM QARG$DC C(DC$WORD,00,03); # DISPOSITION CODE #
00066 M01S00008.ns2118 +++| ITEM QARG$DC C(DC$WORD,00,07); # DISPOSITION CODE #
00067 M01S00052.comuqpr +++| ITEM QARG$DCI U(DC$WORD,00,60); # INTEGER FORMAT #
| Line S00053 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00068 M02S00053.ns2118 ---| ITEM QARG$DCEND U(DC$WORD,18,42); # END OF WORD #
00069 M01S00054.comuqpr +++| ITEM QARG$UJ C(UJN$WORD,00,07); # UJN #
00070 M01S00055.comuqpr +++| ITEM QARG$UJI U(UJN$WORD,00,60); # INTEGER FORMAT #
| Line S00056 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00071 M02S00056.ns2118 ---| ITEM QARG$UJEND U(UJN$WORD,42,18); # END OF WORD #
| Line S00057 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00072 M02S00057.ns2118 ---| ITEM QARG$FN C(FN$WORD,00,07); # FN #
00073 M01S00009.ns2118 +++| ITEM QARG$FN C(FN$WORD,00,07); # LOCAL FILE NAME #
00074 M01S00058.comuqpr +++| ITEM QARG$FNI U(FN$WORD,00,60); # INTEGER FORMAT #
| Line S00059 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00075 M02S00059.ns2118 ---| ITEM QARG$FNEND U(FN$WORD,42,18); # END OF WORD #
| Line S00010 Modification History |
M01 (Added by) | ns2118 |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00076 M02S00010.ns2687 ---| ITEM QARG$OP C(OP$WORD,00,07); # REPRIEVE OPTION #
00077 M01S00003.ns2687 +++| ITEM QARG$OP C(OP$WORD,00,07); # REPRIEVE/NO ABORT#
00078 M01S00011.ns2118 +++| ITEM QARG$OPI U(OP$WORD,00,60); # INTEGER FORMAT #
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 M01S00060.comuqpr +++| END
00082 M01S00012.ns2118 +++|
00083 M01S00061.comuqpr +++| END # COMMON AREA UQPRCOM #
00084 M01S00062.comuqpr +++|
00085 M01S00063.comuqpr +++| END # COMUQPR #
00086 M01S00064.comuqpr +++| #
00087 M01S00065.comuqpr +++| COL 30
00088 M01S00066.comuqpr +++| ENDX #
00089 M01S00067.comuqpr +++| CONTROL LIST;
00090 M01S00014.comuqpr +++|COMUQQC
| Line S17551 Modification History |
M01 (Yanked) (Added by) | @002540 |
M02 (Yanked) (Updated by) | @013260 |
M03 (Yanked) (Updated by) | @062380 |
M04 (Yanked) (Updated by) | @016467 |
M05 (Yanked) (Updated by) | @007103 |
M06 (Added by) | comuqpr |
Seq # *Modification Id* Act
----------------------------+
00091 M06S17551.comuqpr +++|7
00092 M01S00005.comuqpr +++| CONTROL LIST;
00093 M01S00006.comuqpr +++| CONTROL FI;
00094 M01S00007.comuqpr +++| CONTROL PRESET;
00095 M01S00008.comuqpr +++| BEGIN # COMUQQC #
00096 M01S00009.comuqpr +++|
00097 M01S00010.comuqpr +++|#
00098 M01S00011.comuqpr +++|*** COMUQQC - *QGET*/*DROP* COMMON DATA.
00099 M01S00001.@000010 +++|*
00100 M01S00002.@000010 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00101 M01S00012.comuqpr +++|*
00102 M01S00013.comuqpr +++|* *COMUQQC* CONTAINS THE COMMON STORAGE FOR THE *QAC* PARAMETER
00103 M01S00014.comuqpr +++|* BLOCK AND OTHER DATA USED TO PROCESS THE *QGET* AND *DROP*
| Line S00015 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00104 M02S00015.@000004 ---|* CONTROL STATEMENTS.
00105 M01S00001.@000004 +++|* COMMANDS.
00106 M01S00016.comuqpr +++|#
00107 M01S00017.comuqpr +++|
00108 M01S00018.comuqpr +++|#
00109 M01S00019.comuqpr +++|* MISCELLANEOUS DEFINITIONS.
00110 M01S00020.comuqpr +++|*
00111 M01S00021.comuqpr +++|* NOTE - THE REPLY BUFFER LENGTH (*REPLEN*) MUST BE DEFINED AS A
00112 M01S00022.comuqpr +++|* MULTIPLE OF THE ENTRY LENGTH (*QACRETL*).
00113 M01S00023.comuqpr +++|#
00114 M01S00024.comuqpr +++|
00115 M01S00001.@000005 +++| DEF AJLC #40#; # ABORT JOB MESSAGE MAX LENGTH #
00116 M01S00025.comuqpr +++| DEF ALLQUEUES #O"7777"#; # ALL QUEUES #
| Line S00026 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000008 |
Seq # *Modification Id* Act
----------------------------+
00117 M02S00026.@000008 ---| DEF ARGLEN #6#; # ARGUMENT TABLE LENGTH #
00118 M01S00027.comuqpr +++| DEF BADSTP #O"23"#; # BAD STEP CODE #
00119 M01S00001.ns2710 +++| DEF COUNT$END #4#; # QUEUE LOOP COUNT #
00120 M01S00028.comuqpr +++| DEF DCNUM #5#; # NUMBER OF *DC* VALUES #
00121 M01S00029.comuqpr +++| DEF DC$ALL #"ALL"#; # ALL DISPOSITION CODES #
00122 M01S00030.comuqpr +++| DEF DC$EX #"EX"#; # EXECUTE DISPOSITION CODE #
00123 M01S00031.comuqpr +++| DEF DC$IN #"IN"#; # INPUT DISPOSITION CODE #
00124 M01S00032.comuqpr +++| DEF DC$PL #"PL"#; # PLOT DISPOSITION CODE #
00125 M01S00033.comuqpr +++| DEF DC$PR #"PR"#; # PRINT DISPOSITION CODE #
00126 M01S00034.comuqpr +++| DEF DC$PU #"PU"#; # PUNCH DISPOSITION CODE #
00127 M01S00035.comuqpr +++| DEF DC$SC #"SC"#; # *DSP* CODE TO MAKE FILE LOCAL #
00128 M01S00036.comuqpr +++| DEF DC$TT #"TT"#; # WAIT DISPOSITION CODE #
00129 M01S00037.comuqpr +++| DEF DC$WT #"WT"#; # WAIT DISPOSITION CODE #
| Line S00001 Modification History |
M01 (Yanked) (Added by) | @000007 |
M02 (Yanked) (Updated by) | @000009 |
Seq # *Modification Id* Act
----------------------------+
00130 M02S00001.@000009 ---| DEF DUPLFN #8#; # DUPLICATE LOCAL FILE NAME #
00131 M01S00001.@000009 +++| DEF DQ$YES #"YES"#; # DEQUEUE=YES #
00132 M01S00002.@000009 +++| DEF DQ$NO #"NO"#; # DEQUEUE=NO #
00133 M01S00038.comuqpr +++| DEF DSPBLKL #7#; # *DSP* PARAMETER BLOCK LENGTH #
00134 M01S00003.@000009 +++| DEF DUPLFN #8#; # DUPLICATE LOCAL FILE NAME #
00135 M01S00039.comuqpr +++| DEF ENDDC #5#; # LAST ITEM IN *DCITEM* #
00136 M01S00001.ns2687 +++| DEF INVNM #10#; # INVALID LOCAL FILE NAME #
00137 M01S00040.comuqpr +++| DEF MAXCNT #O"7777"#; # MAXIMUM QUEUE COUNT #
00138 M01S00041.comuqpr +++| DEF NOTFND #7#; # ENTRY NOT FOUND #
00139 M01S00042.comuqpr +++| DEF OPTION #0#; # *XARG* OPTION #
00140 M01S00043.comuqpr +++| DEF PARML #17#; # *QAC* PARAMETER BLOCK LENGTH #
00141 M01S00044.comuqpr +++| DEF PARMNOPREL #12#; # LENGTH - PREFIX LENGTH #
00142 M01S00045.comuqpr +++| DEF PREFIXL #5#; # *QAC* BLOCK PREFIX LENGTH #
00143 M01S00001.@000006 +++| DEF PRULIMIT #29#; # PRU LIMIT ON ATTACH OF FILE #
00144 M01S00046.comuqpr +++| DEF QACRETL #2#; # *QAC* REPLY ENTRY LENGTH #
| Line S00047 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2710 |
Seq # *Modification Id* Act
----------------------------+
00145 M02S00047.ns2710 ---| DEF QAC$END #4#; # *QAC* END OF QUEUE BITS #
00146 M01S00002.ns2710 +++| DEF QAC$END #5#; # *QAC* END OF QUEUE BITS #
00147 M01S00048.comuqpr +++| DEF QAC$QBITS #0#; # *QAC* START OF QUEUE BITS #
00148 M01S00049.comuqpr +++| DEF QBIT (I) #B<12-I-1,1>QAC$W8Q[0]#; # QUEUE BIT ACCESS #
00149 M01S00050.comuqpr +++| DEF QCOUNT (I) #B<I*12,12>QAC$COUNT[0]#; # QUEUE COUNT ACCESS #
00150 M01S00051.comuqpr +++| DEF REPLEN #50#; # REPLY BUFFER LENGTH #
00151 M01S00052.comuqpr +++| DEF SELPARL #12#; # SELECTION BLOCK LENGTH #
00152 M01S00053.comuqpr +++| DEF SYNTAXOK #0#; # SYNTAX OK #
00153 M01S00054.comuqpr +++| DEF TTBIT #5#; # *TT* BIT #
00154 M01S00055.comuqpr +++|
00155 M01S00056.comuqpr +++|#
00156 M01S00057.comuqpr +++|* *QAC* FUNCTION AND PARAMETER BLOCK LENGTHS.
00157 M01S00058.comuqpr +++|#
00158 M01S00059.comuqpr +++|
00159 M01S00060.comuqpr +++| DEF ALTER #1#; # *QAC* ALTER CODE #
00160 M01S00061.comuqpr +++| DEF ALTERL #12#; # *QAC* ALTER BLOCK LENGTH #
00161 M01S00062.comuqpr +++| DEF GET #2#; # *QAC* GET CODE #
00162 M01S00063.comuqpr +++| DEF GETL #11#; # *QAC* GET BLOCK LENGTH #
00163 M01S00064.comuqpr +++| DEF PEEK #3#; # *QAC* PEEK CODE #
00164 M01S00065.comuqpr +++| DEF PEEKL #11#; # *QAC* PEEK BLOCK LENGTH #
00165 M01S00066.comuqpr +++|
00166 M01S00067.comuqpr +++|#
00167 M01S00068.comuqpr +++|* DISPOSITION CODES TABLE.
00168 M01S00069.comuqpr +++|*
00169 M01S00070.comuqpr +++|* THIS IS A TABLE USED TO MAP A 2 CHARACTER *DC* PARAMETER INTO
00170 M01S00071.comuqpr +++|* *QBIT* AND *QCOUNT*.
00171 M01S00072.comuqpr +++|#
00172 M01S00073.comuqpr +++|
00173 M01S00074.comuqpr +++| ARRAY DCITEM [0:DCNUM] S(1);
00174 M01S00075.comuqpr +++| BEGIN
00175 M01S00076.comuqpr +++| ITEM DCITEM$FUL C(00,00,02) = # 2 CHARACTER VALUES #
00176 M01S00077.comuqpr +++| ["IN","EX","PR","PU","PL","TT"];
00177 M01S00078.comuqpr +++| ITEM DCITEM$Q U(00,12,03) = # OFFSET #
00178 M01S00079.comuqpr +++| [0,1,2,3,4,5];
00179 M01S00080.comuqpr +++| END
00180 M01S00081.comuqpr +++|
00181 M01S00082.comuqpr +++|#
00182 M01S00083.comuqpr +++|* SCRATCH BUFFER SPACE.
00183 M01S00084.comuqpr +++|#
00184 M01S00085.comuqpr +++|
00185 M01S00086.comuqpr +++| BASED ARRAY DUMAR [0:0] P(1);;
| Line S00087 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00186 M02S00087.ns2687 ---|
| Line S00088 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00187 M02S00088.ns2687 ---|#
| Line S00089 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00188 M02S00089.ns2687 ---|* MESSAGE BUFFER.
| Line S00090 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00189 M02S00090.ns2687 ---|#
| Line S00091 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00190 M02S00091.ns2687 ---|
| Line S00092 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00191 M02S00092.ns2687 ---| ARRAY MSGBUF [0:0] S(4);
| Line S00093 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00192 M02S00093.ns2687 ---| BEGIN
| Line S00094 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00193 M02S00094.ns2687 ---| ITEM MSG$LINE C(00,00,38); # MESSAGE LINE #
| Line S00095 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00194 M02S00095.ns2687 ---| ITEM MSG$ZRO U(03,48,12); # ZERO BYTE TERMINATOR #
| Line S00096 Modification History |
M01 (Added by) | comuqpr |
M02 (Updated by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00195 M02S00096.ns2687 ---| END
00196 M01S00097.comuqpr +++|
00197 M01S00098.comuqpr +++|#
00198 M01S00099.comuqpr +++|* *QAC* FUNCTION LIST.
00199 M01S00100.comuqpr +++|#
00200 M01S00101.comuqpr +++|
00201 M01S00102.comuqpr +++| STATUS FCN
00202 M01S00103.comuqpr +++| PEEK, # *PEEK* FUNCTION #
00203 M01S00104.comuqpr +++| ALTER, # *ALTER* FUNCTION #
00204 M01S00105.comuqpr +++| GET; # *GET* FUNCTION #
00205 M01S00106.comuqpr +++|
00206 M01S00107.comuqpr +++| COMMON UQQCCOM;
00207 M01S00108.comuqpr +++| BEGIN # UQQCCOM #
00208 M01S00109.comuqpr +++|
| Line S00110 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00209 M02S00110.@000004 ---| ITEM GETCALL B; # *QGET* CALL FLAG #
| Line S00111 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00210 M02S00111.@000004 ---|
| Line S00112 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00211 M02S00112.@000004 ---|#
| Line S00113 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00212 M02S00113.@000004 ---|* ARRAY FOR JSN/UJN NOT FOUND MESSAGE.
| Line S00114 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00213 M02S00114.@000004 ---|#
| Line S00115 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00214 M02S00115.@000004 ---|
| Line S00116 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00215 M02S00116.@000004 ---| ARRAY MSGFILE [0:0] S(2);
| Line S00117 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00216 M02S00117.@000004 ---| BEGIN
| Line S00118 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00217 M02S00118.@000004 ---| ITEM MSG$TEXT C(00,00,15) = [" NNN NOT FOUND."];
| Line S00119 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00218 M02S00119.@000004 ---| ITEM MSG$FILE C(00,06,03); # JSN OR UJN #
| Line S00120 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00219 M02S00120.@000004 ---| ITEM MSG$ZERO U(01,30,12) = [0];
| Line S00121 Modification History |
M01 (Added by) | comuqpr |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act
----------------------------+
00220 M02S00121.@000004 ---| END
00221 M01S00002.@000004 +++| ITEM MSGLINE C(80); # DAYFILE MESSAGE LINE #
00222 M01S00002.@000005 +++| ITEM USRLINE C(AJLC); # USER DROP MESSAGE LINE #
00223 M01S00122.comuqpr +++|
00224 M01S00123.comuqpr +++|#
00225 M01S00124.comuqpr +++|* NEXT JSN.
00226 M01S00125.comuqpr +++|#
00227 M01S00126.comuqpr +++|
00228 M01S00127.comuqpr +++| ARRAY NEXTJSNA [0:0] S(1);
00229 M01S00128.comuqpr +++| BEGIN
00230 M01S00129.comuqpr +++| ITEM NEXTJSN C(00,00,04); # NEXT JSN #
00231 M01S00130.comuqpr +++| ITEM NEXTJSNI U(00,00,60); # INTEGER FORMAT #
00232 M01S00131.comuqpr +++| END
00233 M01S00132.comuqpr +++|
00234 M01S00133.comuqpr +++|#
00235 M01S00134.comuqpr +++|* HOLD NEXT UJN.
00236 M01S00135.comuqpr +++|#
00237 M01S00136.comuqpr +++|
00238 M01S00137.comuqpr +++| ARRAY NEXTUJNA [0:0] S(1);
00239 M01S00138.comuqpr +++| BEGIN
00240 M01S00139.comuqpr +++| ITEM NEXTUJN C(00,00,07); # NEXT UJN #
00241 M01S00140.comuqpr +++| ITEM NEXTUJNI U(00,00,60); # INTEGER FORMAT #
00242 M01S00141.comuqpr +++| END
00243 M01S00142.comuqpr +++|
00244 M01S00143.comuqpr +++|#
00245 M01S00144.comuqpr +++|* *QAC* PARAMETER BLOCK.
00246 M01S00145.comuqpr +++|*
00247 M01S00146.comuqpr +++|* NOTE - ANY CHANGES TO THIS ARRAY MAY REQUIRE CHANGES
00248 M01S00147.comuqpr +++|* TO *COMSQAC*.
00249 M01S00148.comuqpr +++|#
00250 M01S00149.comuqpr +++|
00251 M01S00150.comuqpr +++| ARRAY QACPARM [0:0] S(PARML);
00252 M01S00151.comuqpr +++| BEGIN # QACPARM #
00253 M01S00152.comuqpr +++| ITEM QAC$W0 U(00,00,60); # WORD 0 #
00254 M01S00153.comuqpr +++| ITEM QAC$LFN C(00,00,07); # LFN #
00255 M01S00154.comuqpr +++| ITEM QAC$ERR U(00,42,08); # ERROR RETURN CODE #
00256 M01S00155.comuqpr +++| ITEM QAC$FCN U(00,50,09); # FUNCTION CODE #
00257 M01S00156.comuqpr +++| ITEM QAC$COMP B(00,59,01); # COMPLETE BIT #
00258 M01S00157.comuqpr +++| ITEM QAC$LEN U(01,36,06); # LENGTH OF *QAC* BLOCK #
00259 M01S00158.comuqpr +++| ITEM QAC$FIRST U(01,42,18); # FIRST POINTER #
00260 M01S00159.comuqpr +++| ITEM QAC$IN U(02,42,18); # IN POINTER #
00261 M01S00160.comuqpr +++| ITEM QAC$OUT U(03,42,18); # OUT POINTER #
00262 M01S00161.comuqpr +++| ITEM QAC$W4ORD U(04,12,12); # WORD 4 ORDINAL #
00263 M01S00162.comuqpr +++| ITEM QAC$W4Q U(04,24,12); # WORD 4 QUEUE #
00264 M01S00163.comuqpr +++| ITEM QAC$LIMIT U(04,42,18); # FET LIMIT POINTER #
00265 M01S00164.comuqpr +++|
00266 M01S00165.comuqpr +++|
00267 M01S00166.comuqpr +++|#
00268 M01S00167.comuqpr +++|* SELECTION CRITERIA PORTION (WORDS 5 - 11).
00269 M01S00168.comuqpr +++|#
00270 M01S00169.comuqpr +++|
00271 M01S00170.comuqpr +++|
00272 M01S00171.comuqpr +++| ITEM QAC$JSN C(07,00,04); # JSN #
00273 M01S00001.281l803 +++| ITEM QAC$LID B(07,45,01); # LID SELECTION #
00274 M01S00172.comuqpr +++| ITEM QAC$SETJS B(07,53,01); # JSN SELECTION #
00275 M01S00001.ns2118 +++| ITEM QAC$PRI B(07,57,01); # PRIORITY #
00276 M01S00173.comuqpr +++| ITEM QAC$W8Q U(08,00,12); # QUEUE SELECTION BITS #
00277 M01S00174.comuqpr +++| ITEM QAC$DISP C(08,24,02); # DISPOSITION CODE #
00278 M01S00002.281l803 +++| ITEM QAC$LIDC C(09,18,03); # LID #
00279 M01S00175.comuqpr +++|
00280 M01S00176.comuqpr +++|#
00281 M01S00177.comuqpr +++|* *PEEK* FUNCTION PORTION (WORDS 12 - 15).
00282 M01S00178.comuqpr +++|#
00283 M01S00179.comuqpr +++|
00284 M01S00180.comuqpr +++| ITEM QAC$COUNT U(12,00,60); # QUEUE COUNTS #
00285 M01S00003.@000005 +++| ITEM QAC$EXCNT U(12,12,12); # EXECUTING QUEUE COUNT #
00286 M01S00181.comuqpr +++| ITEM QAC$PEEKJS B(14,58,01); # GET JSN #
00287 M01S00004.@000005 +++| ITEM QAC$PKFOUI B(14,51,01); # GET FO AND UI #
00288 M01S00182.comuqpr +++| ITEM QAC$PEEKUJ B(14,50,01); # GET UJN #
00289 M01S00183.comuqpr +++| ITEM QAC$TTCNT U(13,00,12); # *TT* COUNT #
00290 M01S00184.comuqpr +++|
00291 M01S00185.comuqpr +++|#
00292 M01S00186.comuqpr +++|* *ALTER* FUNCTION PORTION (WORDS 12 - 16).
00293 M01S00187.comuqpr +++|#
00294 M01S00188.comuqpr +++|
00295 M01S00003.@000004 +++| ITEM QAC$KILL B(12,41,01); # KILL (SINGLE REPRIEVE) FLAG #
00296 M01S00003.281l803 +++| ITEM QAC$SETLD B(12,42,01); # SET NEW LID FLAG #
00297 M01S00004.@000004 +++| ITEM QAC$MSGA B(12,44,01); # MESSAGE AVAILABLE ON ABORT #
00298 M01S00189.comuqpr +++| ITEM QAC$DROP B(12,50,01); # DROP FILE SELECTION FLAG #
00299 M01S00004.281l803 +++| ITEM QAC$NWLD U(13,41,18); # NEW LID #
00300 M01S00190.comuqpr +++| END # QACPARM #
00301 M01S00191.comuqpr +++|
00302 M01S00192.comuqpr +++|#
00303 M01S00193.comuqpr +++|* *QAC* *PEEK* REPLY ENTRY.
00304 M01S00194.comuqpr +++|#
00305 M01S00195.comuqpr +++|
00306 M01S00196.comuqpr +++| BASED ARRAY QACREP [0:0] S(QACRETL);
00307 M01S00197.comuqpr +++| BEGIN
00308 M01S00198.comuqpr +++| ITEM QACREP$JSN C(00,00,04); # RETURN JSN #
00309 M01S00199.comuqpr +++| ITEM QACREP$UJN C(01,00,07); # RETURN UJN #
00310 M01S00200.comuqpr +++| END
00311 M01S00201.comuqpr +++|
00312 M01S00202.comuqpr +++|
00313 M01S00203.comuqpr +++|#
00314 M01S00204.comuqpr +++|* RETURNED JSN.
00315 M01S00205.comuqpr +++|#
00316 M01S00206.comuqpr +++|
00317 M01S00207.comuqpr +++| ARRAY RETJSNA [0:0] S(1);
00318 M01S00208.comuqpr +++| BEGIN
00319 M01S00209.comuqpr +++| ITEM RETJSN C(00,00,04); # RETURNED JSN #
00320 M01S00210.comuqpr +++| ITEM RETJSNI U(00,00,60); # INTEGER FORMAT #
00321 M01S00211.comuqpr +++| END
00322 M01S00212.comuqpr +++|
00323 M01S00213.comuqpr +++| END # UQQCCOM #
00324 M01S00214.comuqpr +++|
00325 M01S00215.comuqpr +++| END # COMUQQC #
00326 M01S00216.comuqpr +++| CONTROL LIST;