cdc:nos2.source:opl.opl871:common:comuqpr
Common COMUQPR
4 Modifications
Source
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;
cdc/nos2.source/opl.opl871/common/comuqpr.txt · Last modified: by 127.0.0.1