cdc:nos2.source:opl.opl871:deck:qget
Deck QGET
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.qget +++|PRGM QGET; 00002 M00S00002.qget +++|# TITLE QGET - GET QUEUE FILE. # 00003 M00S00003.qget +++| 00004 M00S00004.qget +++| BEGIN # QGET # 00005 M00S00005.qget +++| 00006 M00S00006.qget +++|# 00007 M00S00007.qget +++|*** QGET - GET QUEUE FILE. 00008 M00S00008.qget +++|* 00009 M00S00009.qget +++|* *QGET* WILL ALLOW USERS TO OBTAIN ANY JOB OUTPUT FROM THEIR 00010 M00S00010.qget +++|* PRINT, PUNCH, PLOT, OR WAIT QUEUES. 00011 M00S00011.qget +++|*
| Line S00012 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00012.ns2687 ---|* QGET,JSN=JJJJ,DC=XX,UJN=NAME,FN=XXXXXXX.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
M02 (Removed by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00013 M02S00001.ns2710 ---|* QGET,JSN=JJJJ,DC=XX,UJN=NAME,FN=XXXXXXX,OP=NA.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00014 M01S00001.ns2710 +++|* QGET,JSN=JJJJ,DC=XX,UJN=NAME,FN=XXXXXXX,OP=NA,DQ=XXX. 00015 M00S00013.qget +++|* 00016 M00S00014.qget +++|* OR 00017 M00S00015.qget +++|*
| Line S00016 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00018 M01S00016.ns2687 ---|* QGET,JJJJ,XX,NAME,XXXXXXX.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
M02 (Removed by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00019 M02S00002.ns2710 ---|* QGET,JJJJ,XX,NAME,XXXXXXX,NA.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00002.ns2710 +++|* QGET,JJJJ,XX,NAME,XXXXXXX,NA,XXX 00021 M00S00017.qget +++|* 00022 M00S00018.qget +++|* PRGM QGET. 00023 M00S00019.qget +++|* 00024 M00S00020.qget +++|* ENTRY. *QGET* PARAMETERS ARE - 00025 M00S00021.qget +++|* 00026 M00S00022.qget +++|* PARAMETER DESCRIPTION 00027 M00S00023.qget +++|* 00028 M00S00024.qget +++|* JSN = JJJJ FOUR CHARACTER JOB SEQUENCE NAME SPECIFYING 00029 M00S00025.qget +++|* THE QUEUED FILE TO BE OBTAINED. 00030 M00S00026.qget +++|* 00031 M00S00027.qget +++|* DC = XX DISPOSITION CODE WHICH SELECTS QUEUE THAT THE 00032 M00S00028.qget +++|* JOB IS LOCATED IN IS ONE OF THE FOLLOWING - 00033 M00S00029.qget +++|* 00034 M00S00030.qget +++|* PR - PRINT QUEUE. 00035 M00S00031.qget +++|* PU - PUNCH QUEUE. 00036 M00S00032.qget +++|* PL - PLOT QUEUE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | qget7 |
Seq # *Modification Id* Act ----------------------------+ 00037 M01S00001.qget7 +++|* IN - INPUT QUEUE. 00038 M00S00033.qget +++|* TT OR WT - WAIT QUEUE (DEFAULT IF *DC* 00039 M00S00034.qget +++|* OMITTED). 00040 M00S00035.qget +++|* 00041 M00S00036.qget +++|* UJN = NAME ONE TO SEVEN CHARACTER USER JOB NAME 00042 M00S00037.qget +++|* SPECIFYING THE QUEUED FILE TO BE OBTAINED. 00043 M00S00038.qget +++|* 00044 M00S00039.qget +++|* FN = XXXXXXX ONE TO SEVEN CHARACTER FILE NAME INDICATING THE 00045 M00S00040.qget +++|* LOCAL FILE NAME THAT IS TO BE ASSOCIATED WITH 00046 M00S00041.qget +++|* THE ATTACHED OUTPUT FILE. 00047 M00S00042.qget +++|*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00048 M01S00003.ns2687 +++|* OP = NA INDICATES THAT *QGET* IS NOT TO ABORT IN THE 00049 M01S00004.ns2687 +++|* EVENT OF A NON-SYNTACTICAL ERROR, FOR EXAMPLE 00050 M01S00005.ns2687 +++|* *FILE NOT FOUND* OR *DUPLICATE UJN*.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00051 M01S00003.ns2710 +++|* 00052 M01S00004.ns2710 +++|* DQ = XXX A VALUE OF EITHER *YES* OR *NO* INDICATING 00053 M01S00005.ns2710 +++|* WHETHER THE FILE SHOULD BE REMOVED FROM THE 00054 M01S00006.ns2710 +++|* QUEUE AFTER IT IS ATTACHED TO THE JOB. A 00055 M01S00007.ns2710 +++|* VALUE OF *YES* (DEFAULT) INDICATES THAT THE 00056 M01S00008.ns2710 +++|* FILE WILL BE REMOVED FROM THE QUEUE. A VALUE 00057 M01S00009.ns2710 +++|* OF *NO* INDICATES THAT THE PRIOR ROUTING FOR 00058 M01S00010.ns2710 +++|* THE FILE REMAINS IN EFFECT - IT IS NOT REMOVED 00059 M01S00011.ns2710 +++|* FROM THE QUEUE. THE FILE IS LOCKED AND MAY 00060 M01S00012.ns2710 +++|* NOT BE MODIFIED, BUT MAY BE EXAMINED OR COPIED.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00061 M01S00006.ns2687 +++|* 00062 M00S00043.qget +++|* EXIT. THE QUEUE FILE IS OBTAINED IF THERE WERE NO ERRORS. 00063 M00S00044.qget +++|* IF AN ERROR CONDITION IS ENCOUNTERED, *QGET* WILL
| Line S00045 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00064 M01S00045.ns2687 ---|* ABORT WITH A DAYFILE MESSAGE.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00065 M01S00007.ns2687 +++|* NORMALLY ABORT WITH A DAYFILE MESSAGE. IF THE *NA* 00066 M01S00008.ns2687 +++|* OPTION IS SELECTED AND A NON-SYNTACTICAL ERROR OCCURS, 00067 M01S00009.ns2687 +++|* SUCH AS *FILE NOT FOUND* OR *DUPLICATE UJN*, *QGET* 00068 M01S00010.ns2687 +++|* ISSUES THE DAYFILE ERROR MESSAGE BUT DOES NOT ABORT. 00069 M00S00046.qget +++|* 00070 M00S00047.qget +++|* MESSAGES. * DUPLICATE UJN - MUST SPECIFY JSN.*
| Line S00048 Modification History | |
|---|---|
M01 (Removed by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00071 M01S00048.qget5 ---|* * INCORRECT COMMAND.* 00072 M00S00049.qget +++|* * INCORRECT DC PARAMETER - XXX.* 00073 M00S00050.qget +++|* * INCORRECT LOCAL FILE NAME - XXXXXXX.*
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00074 M01S00011.ns2687 +++|* * INCORRECT OP PARAMETER - XXXXXXX.*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00001.qget5 +++|* * INCORRECT PARAMETER.* 00076 M00S00051.qget +++|* * JSN MORE THAN FOUR CHARACTERS.* 00077 M00S00052.qget +++|* * JSN OR UJN MUST BE SPECIFIED.* 00078 M00S00053.qget +++|* * LOCAL FILE XXXXXXX ALREADY EXISTS.* 00079 M00S00054.qget +++|* * PRU LIMIT.* 00080 M00S00055.qget +++|* * QGET COMPLETE.* 00081 M00S00056.qget +++|* * SYSTEM ERROR - NOTIFY SITE ANALYST.* 00082 M00S00057.qget +++|* * XXXXXXX NOT FOUND.* 00083 M00S00058.qget +++|* * XXXX/YYYYYYY NOT FOUND.* 00084 M00S00059.qget +++|* 00085 M00S00060.qget +++|* NOTES. EITHER JSN OR UJN MUST BE SPECIFIED. IF BOTH ARE 00086 M00S00061.qget +++|* SPECIFIED THEY MUST REFER TO THE SAME FILE. IF UJN 00087 M00S00062.qget +++|* IS SPECIFIED, THE UJN WILL BE THE LOCAL FILE NAME OF 00088 M00S00063.qget +++|* THE RETURNED FILE, OTHERWISE THE JSN WILL BE THE 00089 M00S00064.qget +++|* LOCAL FILE NAME OF THE RETURNED FILE. 00090 M00S00065.qget +++|*
| Line S00066 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00091 M01S00066.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00092 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00093 M00S00067.qget +++|# 00094 M00S00068.qget +++| 00095 M00S00069.qget +++|# 00096 M00S00070.qget +++|**** PRGM QGET - XREF LIST BEGIN. 00097 M00S00071.qget +++|# 00098 M00S00072.qget +++| 00099 M00S00073.qget +++| XREF 00100 M00S00074.qget +++| BEGIN 00101 M00S00075.qget +++| PROC ABORT; # CALLS *ABORT* MACRO # 00102 M00S00076.qget +++| PROC BZFILL; # BLANK FILLS ITEM # 00103 M00S00077.qget +++| PROC CALLQAC; # SETS UP *QAC* CALL # 00104 M00S00078.qget +++| PROC MSG; # CALLS *MESSAGE* MACRO # 00105 M00S00079.qget +++| PROC PKP; # CRACKS PARAMETERS # 00106 M00S00080.qget +++| PROC RETERN; # CALLS *RETURN* MACRO # 00107 M00S00081.qget +++| PROC RET$JSN; # RETURNS JSN # 00108 M00S00082.qget +++| PROC ROUTE; # CALLS *ROUTE* MACRO # 00109 M00S00083.qget +++| PROC SETNM; # SET NAME IN MESSAGE # 00110 M00S00084.qget +++| PROC SQA; # SET ARGUMENT LIST # 00111 M00S00085.qget +++| PROC ZFILL; # ZERO FILLS BUFFER # 00112 M00S00086.qget +++| PROC ZSETFET; # SETS UP FET # 00113 M00S00087.qget +++| END 00114 M00S00088.qget +++| 00115 M00S00089.qget +++|# 00116 M00S00090.qget +++|**** PRGM QGET - XREF LIST END. 00117 M00S00091.qget +++|# 00118 M00S00092.qget +++| 00119 M00S00093.qget +++| 00120 M00S00094.qget +++|# 00121 M00S00095.qget +++|* DAYFILE MESSAGES. 00122 M00S00096.qget +++|# 00123 M00S00097.qget +++| 00124 M00S00098.qget +++| DEF COMPLETE #" QGET COMPLETE.;"#;
| Line S00099 Modification History | |
|---|---|
M01 (Removed by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00125 M01S00099.qget5 ---| DEF INCCMD #" INCORRECT COMMAND.;"#; 00126 M00S00100.qget +++| DEF INCDC #" INCORRECT DC PARAMETER - XXXXXXX.;"#; 00127 M00S00101.qget +++| DEF INCJSN #" JSN MORE THAN FOUR CHARACTERS.;"#;
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00128 M01S00012.ns2687 +++| DEF INCOP #" INCORRECT OP PARAMETER - XXXXXXX.;"#;
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00129 M01S00002.qget5 +++| DEF INCPRM #" INCORRECT PARAMETER.;"#; 00130 M00S00102.qget +++| DEF JNREQ #" JSN OR UJN MUST BE SPECIFIED.;"#; 00131 M00S00103.qget +++| DEF JOBNF #" XXXX/+++++++ NOT FOUND.;"#; 00132 M00S00104.qget +++| DEF NOTFD #" XXXXXXX NOT FOUND.;"#;
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00133 M01S00013.ns2710 +++| DEF NOTRMVD #" PRIOR ROUTING REMAINS IN EFFECT.;"#; 00134 M00S00105.qget +++| 00135 M00S00106.qget +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 00136 M00S00107.qget +++|*CALL,COMAMSS 00137 M00S00108.qget +++|*CALL,COMABZF 00138 M00S00109.qget +++|*CALL,COMUQPR 00139 M00S00110.qget +++|*CALL,COMUQQC 00140 M00S00111.qget +++| 00141 M00S00112.qget +++| ITEM ARGLIST U; # ADDRESS OF ARGUMENT LIST #
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00142 M01S00013.ns2687 +++| ITEM ARGLEN U; # LENGTH OF ARGUMENT LIST # 00143 M00S00113.qget +++| ITEM BLKFILL S:TYPFILL = S"BFILL"; # BLANK FILL #
| Line S00114 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00144 M01S00114.ns2687 ---| ITEM ERR B; # ERROR RETURN FLAG #
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00145 M01S00014.ns2687 +++| ITEM ERR U; # ERROR RETURN CODE # 00146 M00S00115.qget +++| ITEM FLAG U; # SYNTAX FLAG # 00147 M00S00116.qget +++| ITEM JSN C(4); # JSN # 00148 M00S00117.qget +++| ITEM LFN C(7); # LFN # 00149 M00S00118.qget +++| ITEM TEMPPAR C(7); # TEMPORARY CHARACTER FIELD # 00150 M00S00119.qget +++| 00151 M00S00120.qget +++|# 00152 M00S00121.qget +++|* *DSP* PARAMETER BLOCK. 00153 M00S00122.qget +++|# 00154 M00S00123.qget +++| 00155 M00S00124.qget +++| ARRAY DSPBLK [0:0] S(DSPBLKL); 00156 M00S00125.qget +++| BEGIN 00157 M00S00126.qget +++| ITEM DSP$LFN C(00,00,07); # LFN # 00158 M00S00127.qget +++| ITEM DSP$DISP C(01,24,02); # DISPOSITION CODE # 00159 M00S00128.qget +++| ITEM DSP$DISPF B(01,55,01); # CODE SELECTION FLAG # 00160 M00S00129.qget +++| END 00161 M00S00130.qget +++| 00162 M00S00131.qget +++| ARRAY FETRET [0:0] S(SFETL);; 00163 M00S00132.qget +++| CONTROL EJECT; 00164 M00S00133.qget +++| 00165 M00S00134.qget +++|# 00166 M00S00135.qget +++|* CRACK COMMAND. 00167 M00S00136.qget +++|# 00168 M00S00137.qget +++|
| Line S00138 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00169 M01S00138.ns2687 ---| SQA(ARGLIST);
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00170 M01S00015.ns2687 +++| SQA(ARGLIST,ARGLEN); 00171 M00S00139.qget +++| PKP(ARGLIST,ARGLEN,FLAG); # CRACK THE PARAMETERS # 00172 M00S00140.qget +++| 00173 M00S00141.qget +++| IF FLAG NQ SYNTAXOK
| Line S00142 Modification History | |
|---|---|
M01 (Removed by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00174 M01S00142.qget5 ---| THEN # INCORRECT COMMAND #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00175 M01S00003.qget5 +++| THEN # INCORRECT PARAMETER # 00176 M00S00143.qget +++| BEGIN
| Line S00144 Modification History | |
|---|---|
M01 (Removed by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00177 M01S00144.qget5 ---| MSG(INCCMD,SYSUDF1);
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00178 M01S00004.qget5 +++| MSG(INCPRM,SYSUDF1); 00179 M00S00145.qget +++| ABORT; 00180 M00S00146.qget +++| END 00181 M00S00147.qget +++| 00182 M00S00148.qget +++|# 00183 M00S00149.qget +++|* CHECK PARAMETERS AND SET UP *QAC* CALL. 00184 M00S00150.qget +++|# 00185 M00S00151.qget +++| 00186 M00S00152.qget +++|
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00187 M01S00016.ns2687 +++| IF QARG$OPI[0] NQ 0 00188 M01S00017.ns2687 +++| THEN 00189 M01S00018.ns2687 +++| BEGIN # *OP* SPECIFIED # 00190 M01S00019.ns2687 +++| TEMPPAR = QARG$OP[0]; 00191 M01S00020.ns2687 +++| BZFILL(TEMPPAR,TYPFILL"BFILL",7); # BLANK FILL OPTION # 00192 M01S00021.ns2687 +++| IF TEMPPAR NQ "NA" 00193 M01S00022.ns2687 +++| THEN 00194 M01S00023.ns2687 +++| BEGIN 00195 M01S00024.ns2687 +++| SETNM(TEMPPAR,"X",";",INCOP,MSGLINE); 00196 M01S00025.ns2687 +++| MSG(MSGLINE,SYSUDF1); 00197 M01S00026.ns2687 +++| ABORT; 00198 M01S00027.ns2687 +++| END 00199 M01S00028.ns2687 +++| 00200 M01S00029.ns2687 +++| END # *OP* SPECIFIED # 00201 M01S00030.ns2687 +++| 00202 M00S00153.qget +++| IF QARG$DCI[0] EQ 0 00203 M00S00154.qget +++| THEN # *DC* NOT SPECIFIED # 00204 M00S00155.qget +++| BEGIN 00205 M00S00156.qget +++| QARG$DC[0] = DC$TT; # SET DEFAULT *DC* VALUE # 00206 M00S00157.qget +++| END 00207 M00S00158.qget +++| 00208 M00S00159.qget +++| TEMPPAR = QARG$DC[0]; 00209 M00S00160.qget +++| BZFILL(TEMPPAR,BLKFILL,7); # BLANK FILL DISPOSITION # 00210 M00S00161.qget +++| IF TEMPPAR EQ DC$WT 00211 M00S00162.qget +++| THEN 00212 M00S00163.qget +++| BEGIN 00213 M00S00164.qget +++| QARG$DC[0] = DC$TT; 00214 M00S00165.qget +++| END 00215 M00S00166.qget +++| 00216 M00S00167.qget +++| IF TEMPPAR NQ DC$PL 00217 M00S00168.qget +++| AND TEMPPAR NQ DC$PR 00218 M00S00169.qget +++| AND TEMPPAR NQ DC$PU 00219 M00S00170.qget +++| AND TEMPPAR NQ DC$TT 00220 M00S00171.qget +++| AND TEMPPAR NQ DC$WT
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | qget7 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00002.qget7 +++| AND TEMPPAR NQ DC$IN 00222 M00S00172.qget +++| AND QARG$DCI[0] NQ 0 00223 M00S00173.qget +++| THEN # INCORRECT *DC* PARAMETER # 00224 M00S00174.qget +++| BEGIN 00225 M00S00175.qget +++| SETNM(TEMPPAR,"X",";",INCDC,MSGLINE); 00226 M00S00176.qget +++| MSG(MSGLINE,SYSUDF1); 00227 M00S00177.qget +++| ABORT; 00228 M00S00178.qget +++| END 00229 M00S00179.qget +++| 00230 M00S00180.qget +++| IF QARG$JSEND[0] NQ 0 00231 M00S00181.qget +++| THEN # JSN MORE THAN FOUR CHARACTERS # 00232 M00S00182.qget +++| BEGIN 00233 M00S00183.qget +++| MSG(INCJSN,SYSUDF1); 00234 M00S00184.qget +++| ABORT; 00235 M00S00185.qget +++| END 00236 M00S00186.qget +++| 00237 M00S00187.qget +++| IF QARG$JSI[0] EQ 0 00238 M00S00188.qget +++| THEN 00239 M00S00189.qget +++| BEGIN # CHECK UJN WITH NO JSN SPECIFIED # 00240 M00S00190.qget +++| IF QARG$UJI[0] EQ 0 00241 M00S00191.qget +++| THEN # JSN OR UJN REQUIRED # 00242 M00S00192.qget +++| BEGIN 00243 M00S00193.qget +++| MSG(JNREQ,SYSUDF1); 00244 M00S00194.qget +++| ABORT; 00245 M00S00195.qget +++| END 00246 M00S00196.qget +++| 00247 M00S00197.qget +++| ELSE 00248 M00S00198.qget +++| BEGIN # ONLY UJN SPECIFIED #
| Line S00199 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00249 M01S00199.ns2687 ---| RET$JSN; 00250 M01S00200.ns2687 ---| IF RETJSNI[0] EQ 0 00251 M01S00201.ns2687 ---| THEN # UJN NOT FOUND #
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00252 M01S00031.ns2687 +++| RET$JSN(ERR); 00253 M01S00032.ns2687 +++| IF ERR EQ 0 00254 M01S00033.ns2687 +++| THEN 00255 M00S00202.qget +++| BEGIN
| Line S00203 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00256 M01S00203.ns2687 ---| SETNM(QARG$UJ[0],"X",";",NOTFD,MSGLINE); 00257 M01S00204.ns2687 ---| MSG(MSGLINE,SYSUDF1); 00258 M01S00205.ns2687 ---| ABORT; 00259 M01S00206.ns2687 ---| END
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00260 M01S00034.ns2687 +++| IF RETJSNI[0] EQ 0 00261 M01S00035.ns2687 +++| THEN # UJN NOT FOUND # 00262 M01S00036.ns2687 +++| BEGIN 00263 M01S00037.ns2687 +++| SETNM(QARG$UJ[0],"X",";",NOTFD,MSGLINE); 00264 M01S00038.ns2687 +++| MSG(MSGLINE,SYSUDF1); 00265 M01S00039.ns2687 +++| ERR = 1; # INDICATE ERROR DETECTED # 00266 M01S00040.ns2687 +++| END 00267 M00S00207.qget +++|
| Line S00208 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00268 M01S00208.ns2687 ---| ELSE 00269 M01S00209.ns2687 ---| BEGIN 00270 M01S00210.ns2687 ---| LFN = QARG$UJ[0]; 00271 M01S00211.ns2687 ---| JSN = RETJSN[0];
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00272 M01S00041.ns2687 +++| ELSE 00273 M01S00042.ns2687 +++| BEGIN 00274 M01S00043.ns2687 +++| LFN = QARG$UJ[0]; 00275 M01S00044.ns2687 +++| JSN = RETJSN[0]; 00276 M01S00045.ns2687 +++| END 00277 M00S00212.qget +++| END 00278 M00S00213.qget +++| 00279 M00S00214.qget +++| END # ONLY UJN SPECIFIED # 00280 M00S00215.qget +++| 00281 M00S00216.qget +++| END # CHECK UJN WITH NO JSN SPECIFIED # 00282 M00S00217.qget +++| 00283 M00S00218.qget +++| ELSE 00284 M00S00219.qget +++| BEGIN # CHECK UJN WITH JSN SPECIFIED # 00285 M00S00220.qget +++| IF QARG$UJI[0] EQ 0 00286 M00S00221.qget +++| THEN 00287 M00S00222.qget +++| BEGIN # JSN ONLY # 00288 M00S00223.qget +++| LFN = QARG$JS[0]; 00289 M00S00224.qget +++| JSN = QARG$JS[0]; 00290 M00S00225.qget +++| END # JSN ONLY # 00291 M00S00226.qget +++| 00292 M00S00227.qget +++| ELSE 00293 M00S00228.qget +++| BEGIN # BOTH JSN AND UJN #
| Line S00229 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00294 M01S00229.ns2687 ---| RET$JSN; 00295 M01S00230.ns2687 ---| IF RETJSNI[0] NQ QARG$JSI[0] 00296 M01S00231.ns2687 ---| THEN # JSN/UJN NOT FOUND #
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00297 M01S00046.ns2687 +++| RET$JSN(ERR); 00298 M01S00047.ns2687 +++| IF ERR EQ 0 00299 M01S00048.ns2687 +++| THEN 00300 M00S00232.qget +++| BEGIN
| Line S00233 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00301 M01S00233.ns2687 ---| SETNM(QARG$JS[0],"X",";",JOBNF,MSGLINE); 00302 M01S00234.ns2687 ---| SETNM(QARG$UJ[0],"+",0,MSGLINE,MSGLINE); 00303 M01S00235.ns2687 ---| MSG(MSGLINE,SYSUDF1); 00304 M01S00236.ns2687 ---| ABORT; 00305 M01S00237.ns2687 ---| END
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00306 M01S00049.ns2687 +++| IF RETJSNI[0] NQ QARG$JSI[0] 00307 M01S00050.ns2687 +++| THEN # JSN/UJN NOT FOUND # 00308 M01S00051.ns2687 +++| BEGIN 00309 M01S00052.ns2687 +++| SETNM(QARG$JS[0],"X",";",JOBNF,MSGLINE); 00310 M01S00053.ns2687 +++| SETNM(QARG$UJ[0],"+",0,MSGLINE,MSGLINE); 00311 M01S00054.ns2687 +++| MSG(MSGLINE,SYSUDF1); 00312 M01S00055.ns2687 +++| ERR = 1; # INDICATE ERROR DETECTED # 00313 M01S00056.ns2687 +++| END 00314 M00S00238.qget +++|
| Line S00239 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00315 M01S00239.ns2687 ---| ELSE 00316 M01S00240.ns2687 ---| BEGIN 00317 M01S00241.ns2687 ---| LFN = QARG$UJ[0]; 00318 M01S00242.ns2687 ---| JSN = QARG$JS[0];
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00319 M01S00057.ns2687 +++| ELSE 00320 M01S00058.ns2687 +++| BEGIN 00321 M01S00059.ns2687 +++| LFN = QARG$UJ[0]; 00322 M01S00060.ns2687 +++| JSN = QARG$JS[0]; 00323 M01S00061.ns2687 +++| END 00324 M00S00243.qget +++| END 00325 M00S00244.qget +++| 00326 M00S00245.qget +++| END # BOTH JSN AND UJN # 00327 M00S00246.qget +++| 00328 M00S00247.qget +++| END # CHECK UJN WITH JSN # 00329 M00S00248.qget +++| 00330 M00S00249.qget +++| IF QARG$FNI[0] NQ 0 00331 M00S00250.qget +++| THEN 00332 M00S00251.qget +++| BEGIN 00333 M00S00252.qget +++| LFN = QARG$FN[0]; 00334 M00S00253.qget +++| END 00335 M00S00254.qget +++|
| Line S00255 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00336 M01S00255.ns2687 ---| P<DUMAR> = LOC(QACPARM); 00337 M01S00256.ns2687 ---| ZFILL(DUMAR[0],PREFIXL); 00338 M01S00257.ns2687 ---| CALLQAC(FCN"GET",LFN,JSN,QARG$DC[0],ERR);
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00339 M01S00062.ns2687 +++| IF ERR EQ 0 00340 M01S00063.ns2687 +++| THEN # IF NO ERRORS DETECTED # 00341 M01S00064.ns2687 +++| BEGIN 00342 M01S00065.ns2687 +++| P<DUMAR> = LOC(QACPARM); 00343 M01S00066.ns2687 +++| ZFILL(DUMAR[0],PREFIXL); 00344 M01S00067.ns2687 +++| CALLQAC(FCN"GET",LFN,JSN,QARG$DC[0],ERR); 00345 M01S00068.ns2687 +++| IF ERR EQ NOTFND 00346 M01S00069.ns2687 +++| THEN # JOB NOT FOUND # 00347 M01S00070.ns2687 +++| BEGIN 00348 M01S00071.ns2687 +++| IF QARG$JSI[0] NQ 0 00349 M01S00072.ns2687 +++| THEN 00350 M01S00073.ns2687 +++| BEGIN 00351 M01S00074.ns2687 +++| SETNM(QARG$JS[0],"X",";",NOTFD,MSGLINE); 00352 M01S00075.ns2687 +++| END 00353 M01S00076.ns2687 +++| 00354 M01S00077.ns2687 +++| ELSE 00355 M01S00078.ns2687 +++| BEGIN 00356 M01S00079.ns2687 +++| SETNM(QARG$UJ[0],"X",";",NOTFD,MSGLINE); 00357 M01S00080.ns2687 +++| END 00358 M01S00081.ns2687 +++| 00359 M01S00082.ns2687 +++| MSG(MSGLINE,SYSUDF1); 00360 M01S00083.ns2687 +++| END 00361 M01S00084.ns2687 +++| END 00362 M01S00085.ns2687 +++|
| Line S00258 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00363 M01S00258.ns2687 ---| IF ERR
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00364 M01S00086.ns2687 +++| IF ERR NQ 0
| Line S00259 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00365 M01S00259.ns2687 ---| THEN # JOB NOT FOUND #
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00366 M01S00087.ns2687 +++| THEN # IF AN ERROR OCCURRED # 00367 M00S00260.qget +++| BEGIN
| Line S00261 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00368 M01S00261.ns2687 ---| IF QARG$JSI[0] NQ 0 00369 M01S00262.ns2687 ---| THEN 00370 M01S00263.ns2687 ---| BEGIN 00371 M01S00264.ns2687 ---| SETNM(QARG$JS[0],"X",";",NOTFD,MSGLINE); 00372 M01S00265.ns2687 ---| END 00373 M01S00266.ns2687 ---| 00374 M01S00267.ns2687 ---| ELSE 00375 M01S00268.ns2687 ---| BEGIN 00376 M01S00269.ns2687 ---| SETNM(QARG$UJ[0],"X",";",NOTFD,MSGLINE); 00377 M01S00270.ns2687 ---| END 00378 M01S00271.ns2687 ---| 00379 M01S00272.ns2687 ---| MSG(MSGLINE,SYSUDF1); 00380 M01S00273.ns2687 ---| ABORT;
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00381 M01S00088.ns2687 +++| IF QARG$OPI[0] EQ 0 00382 M01S00089.ns2687 +++| THEN # NO ABORT NOT SELECTED # 00383 M01S00090.ns2687 +++| BEGIN 00384 M01S00091.ns2687 +++| ABORT; 00385 M01S00092.ns2687 +++| END 00386 M00S00274.qget +++| END 00387 M00S00275.qget +++|
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00388 M01S00093.ns2687 +++| ELSE 00389 M01S00094.ns2687 +++| BEGIN 00390 M00S00276.qget +++|# 00391 M00S00277.qget +++|* MAKE *QAC* FILE LOCAL. 00392 M00S00278.qget +++|# 00393 M00S00279.qget +++|
| Line S00280 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00394 M01S00280.ns2687 ---| P<DUMAR> = LOC(DSPBLK[0]); 00395 M01S00281.ns2687 ---| ZFILL(DUMAR[0],DSPBLKL); 00396 M01S00282.ns2687 ---| DSP$LFN[0] = LFN; 00397 M01S00283.ns2687 ---| DSP$DISP[0] = DC$SC; 00398 M01S00284.ns2687 ---| DSP$DISPF[0] = TRUE; 00399 M01S00285.ns2687 ---| ROUTE(DSPBLK[0],RCL);
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
M02 (Removed by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00400 M02S00095.ns2710 ---| P<DUMAR> = LOC(DSPBLK[0]); 00401 M02S00096.ns2710 ---| ZFILL(DUMAR[0],DSPBLKL); 00402 M02S00097.ns2710 ---| DSP$LFN[0] = LFN; 00403 M02S00098.ns2710 ---| DSP$DISP[0] = DC$SC; 00404 M02S00099.ns2710 ---| DSP$DISPF[0] = TRUE; 00405 M02S00100.ns2710 ---| ROUTE(DSPBLK[0],RCL);
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 00406 M01S00014.ns2710 +++| TEMPPAR = QARG$DQ[0]; # BLANK FILL DQ VALUE # 00407 M01S00015.ns2710 +++| BZFILL(TEMPPAR,BLKFILL,7); 00408 M01S00016.ns2710 +++| IF TEMPPAR NQ DQ$NO 00409 M01S00017.ns2710 +++| THEN # IF FILE IS TO BE DEQUEUED # 00410 M01S00018.ns2710 +++| BEGIN 00411 M01S00019.ns2710 +++| P<DUMAR> = LOC(DSPBLK[0]); # BUILD *DSP* BLOCK # 00412 M01S00020.ns2710 +++| ZFILL(DUMAR[0],DSPBLKL); 00413 M01S00021.ns2710 +++| DSP$LFN[0] = LFN; 00414 M01S00022.ns2710 +++| DSP$DISP[0] = DC$SC; 00415 M01S00023.ns2710 +++| DSP$DISPF[0] = TRUE; 00416 M01S00024.ns2710 +++| ROUTE(DSPBLK[0],RCL); # DEQUEUE THE FILE # 00417 M01S00025.ns2710 +++| END 00418 M01S00026.ns2710 +++| ELSE 00419 M01S00027.ns2710 +++| BEGIN 00420 M01S00028.ns2710 +++| MSG(NOTRMVD,UDFL1); # PRIOR RTNG REMAINS IN EFF. # 00421 M01S00029.ns2710 +++| END 00422 M00S00286.qget +++|
| Line S00287 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00423 M01S00287.ns2687 ---| MSG(COMPLETE,UDFL1); # *QGET* COMPLETE #
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00424 M01S00101.ns2687 +++| MSG(COMPLETE,UDFL1); # *QGET* COMPLETE # 00425 M01S00102.ns2687 +++| END 00426 M00S00288.qget +++| 00427 M00S00289.qget +++| END # QGET # 00428 M00S00290.qget +++| 00429 M00S00291.qget +++| TERM 00430 M00S00292.qget +++|PRGM DROP; 00431 M00S00293.qget +++|# TITLE DROP - DROP QUEUE FILE. # 00432 M00S00294.qget +++| 00433 M00S00295.qget +++| BEGIN # DROP # 00434 M00S00296.qget +++| 00435 M00S00297.qget +++|# 00436 M00S00298.qget +++|*** DROP - DROP QUEUE FILE. 00437 M00S00299.qget +++|* 00438 M00S00300.qget +++|* *DROP* WILL ALLOW USERS TO DROP THEIR EXECUTING JOBS OR QUEUED 00439 M00S00301.qget +++|* FILES. *DROP* CANNOT BE USED TO DROP THE JOB FROM WHICH THE 00440 M00S00302.qget +++|* *DROP* COMMAND IS ENTERED. 00441 M00S00303.qget +++|* 00442 M00S00304.qget +++|* DROP,JSN=JJJJ,DC=XX,UJN=NAME,OP=R. 00443 M00S00305.qget +++|* 00444 M00S00306.qget +++|* OR 00445 M00S00307.qget +++|* 00446 M00S00308.qget +++|* DROP,JJJJ,XX,NAME,R. 00447 M00S00309.qget +++|* 00448 M00S00310.qget +++|* PRGM DROP. 00449 M00S00311.qget +++|* 00450 M00S00312.qget +++|* ENTRY. *DROP* PARAMETERS ARE - 00451 M00S00313.qget +++|* 00452 M00S00314.qget +++|* PARAMETER DESCRIPTION 00453 M00S00315.qget +++|* 00454 M00S00316.qget +++|* JSN = JJJJ FOUR CHARACTER JOB SEQUENCE NAME SPECIFYING 00455 M00S00317.qget +++|* THE QUEUED FILE TO BE DROPPED. 00456 M00S00318.qget +++|* 00457 M00S00319.qget +++|* DC = XX DISPOSITION CODE WHICH SELECTS QUEUE THAT THE 00458 M00S00320.qget +++|* JOB IS LOCATED IN. IF NEITHER THE JSN NOR THE 00459 M00S00321.qget +++|* UJN IS SPECIFIED, *DC* IS REQUIRED. IN THIS 00460 M00S00322.qget +++|* CASE, THE SYSTEM DROPS ALL OF THE USER-S JOBS 00461 M00S00323.qget +++|* WITH THE SPECIFIED DISPOSITION. 00462 M00S00324.qget +++|* 00463 M00S00325.qget +++|* *XX* MAY BE ONE OF THE FOLLOWING - 00464 M00S00326.qget +++|* 00465 M00S00327.qget +++|* PR - PRINT QUEUE. 00466 M00S00328.qget +++|* PU - PUNCH QUEUE. 00467 M00S00329.qget +++|* PL - PLOT QUEUE. 00468 M00S00330.qget +++|* TT OR WT - WAIT QUEUE. 00469 M00S00331.qget +++|* IN - INPUT QUEUE. 00470 M00S00332.qget +++|* EX - EXECUTING JOB QUEUE. 00471 M00S00333.qget +++|* ALL - ALL QUEUES (DEFAULT IF *DC* OMITTED). 00472 M00S00334.qget +++|* 00473 M00S00335.qget +++|* UJN = NAME ONE TO SEVEN CHARACTER USER JOB NAME 00474 M00S00336.qget +++|* SPECIFYING THE QUEUED FILE TO BE DROPPED. 00475 M00S00337.qget +++|* 00476 M00S00338.qget +++|* OP = R INDICATES THAT FOR JOBS WITH REPRIEVE 00477 M00S00339.qget +++|* PROCESSING, ONLY A SINGLE REPRIEVE WILL BE 00478 M00S00340.qget +++|* PROCESSED BEFORE THE DROP. THE EXECUTING JOBS 00479 M00S00341.qget +++|* WILL BE DROPPED WITHOUT EXIT PROCESSING. 00480 M00S00342.qget +++|* 00481 M00S00343.qget +++|* EXIT. THE QUEUE FILE IS DROPPED IF THERE WERE NO ERRORS. 00482 M00S00344.qget +++|* IF AN ERROR CONDITION IS ENCOUNTERED, *DROP* WILL 00483 M00S00345.qget +++|* ABORT WITH A DAYFILE MESSAGE. 00484 M00S00346.qget +++|* 00485 M00S00347.qget +++|* MESSAGES. * CALLING JOB MAY NOT DROP ITSELF.* 00486 M00S00348.qget +++|* * DC REQUIRED IF JSN/UJN NOT SPECIFIED.* 00487 M00S00349.qget +++|* * DROP COMPLETE.* 00488 M00S00350.qget +++|* * DROPPED BY USER JOB XXXX.* 00489 M00S00351.qget +++|* * DUPLICATE UJN - MUST SPECIFY JSN.*
| Line S00352 Modification History | |
|---|---|
M01 (Removed by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00490 M01S00352.qget5 ---|* * INCORRECT COMMAND.* 00491 M00S00353.qget +++|* * INCORRECT DC PARAMETER - XXXXXXX.* 00492 M00S00354.qget +++|* * INCORRECT OP PARAMETER - XXXXXXX.*
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00493 M01S00005.qget5 +++|* * INCORRECT PARAMETER.* 00494 M00S00355.qget +++|* * JSN MORE THAN FOUR CHARACTERS.* 00495 M00S00356.qget +++|* * SYSTEM ERROR - NOTIFY SITE ANALYST.* 00496 M00S00357.qget +++|* * UNABLE TO DROP JOB.* 00497 M00S00358.qget +++|* * XXXXXXX NOT FOUND.* 00498 M00S00359.qget +++|* * XXXX/YYYYYYY NOT FOUND.* 00499 M00S00360.qget +++|* 00500 M00S00361.qget +++|* NOTES. IF BOTH JSN AND UJN ARE SPECIFIED, THEY MUST REFER TO 00501 M00S00362.qget +++|* THE SAME FILE. 00502 M00S00363.qget +++|*
| Line S00364 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00503 M01S00364.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1981.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00504 M01S00002.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00505 M00S00365.qget +++|# 00506 M00S00366.qget +++| 00507 M00S00367.qget +++|# 00508 M00S00368.qget +++|**** PRGM DROP - XREF LIST BEGIN. 00509 M00S00369.qget +++|# 00510 M00S00370.qget +++| 00511 M00S00371.qget +++| XREF 00512 M00S00372.qget +++| BEGIN 00513 M00S00373.qget +++| PROC ABORT; # CALLS *ABORT* MACRO # 00514 M00S00374.qget +++| PROC BZFILL; # BLANK FILLS ITEM # 00515 M00S00375.qget +++| PROC CALLQAC; # SETS UP *QAC* CALL # 00516 M00S00376.qget +++| PROC GETJN; # GETS JOB SEQUENCE NUMBER # 00517 M00S00377.qget +++| PROC MSG; # CALLS *MESSAGE* MACRO # 00518 M00S00378.qget +++| PROC PKP; # CRACKS PARAMETERS # 00519 M00S00379.qget +++| PROC RET$JSN; # RETURNS JSN # 00520 M00S00380.qget +++| PROC SDA; # SET ARGUMENT LIST # 00521 M00S00381.qget +++| PROC SETNM; # SET NAME IN MESSAGE # 00522 M00S00382.qget +++| END 00523 M00S00383.qget +++| 00524 M00S00384.qget +++|# 00525 M00S00385.qget +++|**** PRGM DROP - XREF LIST END. 00526 M00S00386.qget +++|# 00527 M00S00387.qget +++| 00528 M00S00388.qget +++|# 00529 M00S00389.qget +++|* DAYFILE MESSAGES. 00530 M00S00390.qget +++|# 00531 M00S00391.qget +++| 00532 M00S00392.qget +++| DEF COMPLETE #" DROP COMPLETE.;"#; 00533 M00S00393.qget +++| DEF DCREQ #" DC REQUIRED IF JSN/UJN NOT SPECIFIED.;"#;
| Line S00394 Modification History | |
|---|---|
M01 (Removed by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00534 M01S00394.qget5 ---| DEF INCCMD #" INCORRECT COMMAND.;"#; 00535 M00S00395.qget +++| DEF INCDC #" INCORRECT DC PARAMETER - XXXXXXX.;"#; 00536 M00S00396.qget +++| DEF INCJSN #" JSN MORE THAN FOUR CHARACTERS.;"#; 00537 M00S00397.qget +++| DEF INCOP #" INCORRECT OP PARAMETER - XXXXXXX.;"#;
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00538 M01S00006.qget5 +++| DEF INCPRM #" INCORRECT PARAMETER.;"#; 00539 M00S00398.qget +++| DEF JOBNF #" XXXX/+++++++ NOT FOUND.;"#; 00540 M00S00399.qget +++| DEF NOTFD #" XXXXXXX NOT FOUND.;"#; 00541 M00S00400.qget +++| DEF SAMEJOB #" CALLING JOB MAY NOT DROP ITSELF.;"#; 00542 M00S00401.qget +++| DEF USERDROP #" DROPPED BY USER JOB XXXX.;"#; 00543 M00S00402.qget +++| 00544 M00S00403.qget +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 00545 M00S00404.qget +++|*CALL COMAMSS 00546 M00S00405.qget +++|*CALL COMABZF 00547 M00S00406.qget +++|*CALL COMUQPR 00548 M00S00407.qget +++|*CALL COMUQQC 00549 M00S00408.qget +++| 00550 M00S00409.qget +++| ITEM ARGLIST U; # ADDRESS OF ARGUMENT LIST #
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00551 M01S00103.ns2687 +++| ITEM ARGLEN U; # LENGTH OF ARGUMENT LIST #
| Line S00410 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00552 M01S00410.ns2687 ---| ITEM ERR B; # ERROR RETURN FLAG #
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00553 M01S00104.ns2687 +++| ITEM ERR U; # ERROR RETURN CODE # 00554 M00S00411.qget +++| ITEM FLAG U; # SYNTAX FLAG # 00555 M00S00412.qget +++| ITEM JSN C(4); # JSN # 00556 M00S00413.qget +++| ITEM JSNSAVE C(4); # JSN STORAGE # 00557 M00S00414.qget +++| ITEM TEMPPAR C(7); # TEMPORARY CHARACTER FIELD # 00558 M00S00415.qget +++| ITEM TEMPJSN C(4); # TEMPORARY JSN FIELD # 00559 M00S00416.qget +++| CONTROL EJECT; 00560 M00S00417.qget +++| 00561 M00S00418.qget +++|# 00562 M00S00419.qget +++|* CRACK COMMAND. 00563 M00S00420.qget +++|# 00564 M00S00421.qget +++|
| Line S00422 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00565 M01S00422.ns2687 ---| SDA(ARGLIST);
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00566 M01S00105.ns2687 +++| SDA(ARGLIST,ARGLEN); 00567 M00S00423.qget +++| PKP(ARGLIST,ARGLEN,FLAG); # CRACK THE PARAMETERS # 00568 M00S00424.qget +++| 00569 M00S00425.qget +++| IF FLAG NQ SYNTAXOK
| Line S00426 Modification History | |
|---|---|
M01 (Removed by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00570 M01S00426.qget5 ---| THEN # INCORRECT COMMAND #
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00571 M01S00007.qget5 +++| THEN # INCORRECT PARAMETER # 00572 M00S00427.qget +++| BEGIN
| Line S00428 Modification History | |
|---|---|
M01 (Removed by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00573 M01S00428.qget5 ---| MSG(INCCMD,SYSUDF1);
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | qget5 |
Seq # *Modification Id* Act ----------------------------+ 00574 M01S00008.qget5 +++| MSG(INCPRM,SYSUDF1); 00575 M00S00429.qget +++| ABORT; 00576 M00S00430.qget +++| END 00577 M00S00431.qget +++| 00578 M00S00432.qget +++|# 00579 M00S00433.qget +++|* CHECK PARAMETERS AND SET UP *QAC* CALL. 00580 M00S00434.qget +++|# 00581 M00S00435.qget +++| 00582 M00S00436.qget +++| IF QARG$OPI[0] NQ 0 00583 M00S00437.qget +++| THEN 00584 M00S00438.qget +++| BEGIN # *OP* SPECIFIED # 00585 M00S00439.qget +++| TEMPPAR = QARG$OP[0]; 00586 M00S00440.qget +++| BZFILL(TEMPPAR,TYPFILL"BFILL",7); # BLANK FILL OPTION # 00587 M00S00441.qget +++| IF TEMPPAR NQ "R" 00588 M00S00442.qget +++| THEN 00589 M00S00443.qget +++| BEGIN 00590 M00S00444.qget +++| SETNM(TEMPPAR,"X",";",INCOP,MSGLINE); 00591 M00S00445.qget +++| MSG(MSGLINE,SYSUDF1); 00592 M00S00446.qget +++| ABORT; 00593 M00S00447.qget +++| END 00594 M00S00448.qget +++| 00595 M00S00449.qget +++| END # *OP* SPECIFIED # 00596 M00S00450.qget +++| 00597 M00S00451.qget +++| TEMPPAR = QARG$DC[0]; 00598 M00S00452.qget +++| BZFILL(TEMPPAR,TYPFILL"BFILL",7); # BLANK FILL DISPOSITION # 00599 M00S00453.qget +++| IF TEMPPAR EQ DC$WT 00600 M00S00454.qget +++| THEN 00601 M00S00455.qget +++| BEGIN 00602 M00S00456.qget +++| QARG$DC[0] = DC$TT; 00603 M00S00457.qget +++| END 00604 M00S00458.qget +++| 00605 M00S00459.qget +++| IF TEMPPAR NQ DC$EX 00606 M00S00460.qget +++| AND TEMPPAR NQ DC$IN 00607 M00S00461.qget +++| AND TEMPPAR NQ DC$PL 00608 M00S00462.qget +++| AND TEMPPAR NQ DC$PR 00609 M00S00463.qget +++| AND TEMPPAR NQ DC$PU 00610 M00S00464.qget +++| AND TEMPPAR NQ DC$TT 00611 M00S00465.qget +++| AND TEMPPAR NQ DC$WT 00612 M00S00466.qget +++| AND TEMPPAR NQ DC$ALL 00613 M00S00467.qget +++| AND QARG$DCI[0] NQ 0 00614 M00S00468.qget +++| THEN # INCORRECT *DC* PARAMETER # 00615 M00S00469.qget +++| BEGIN 00616 M00S00470.qget +++| SETNM(TEMPPAR,"X",";",INCDC,MSGLINE); 00617 M00S00471.qget +++| MSG(MSGLINE,SYSUDF1); 00618 M00S00472.qget +++| ABORT; 00619 M00S00473.qget +++| END 00620 M00S00474.qget +++| 00621 M00S00475.qget +++| IF QARG$JSEND[0] NQ 0 00622 M00S00476.qget +++| THEN # JSN MORE THAN FOUR CHARACTERS # 00623 M00S00477.qget +++| BEGIN 00624 M00S00478.qget +++| MSG(INCJSN,SYSUDF1); 00625 M00S00479.qget +++| ABORT; 00626 M00S00480.qget +++| END 00627 M00S00481.qget +++| 00628 M00S00482.qget +++| IF QARG$DCI[0] EQ 0 00629 M00S00483.qget +++| THEN 00630 M00S00484.qget +++| BEGIN # *DC* NOT SPECIFIED # 00631 M00S00485.qget +++| IF QARG$JSI[0] EQ 0 AND QARG$UJI[0] EQ 0 00632 M00S00486.qget +++| THEN # DISPOSITION REQUIRED # 00633 M00S00487.qget +++| BEGIN 00634 M00S00488.qget +++| MSG(DCREQ,SYSUDF1); 00635 M00S00489.qget +++| ABORT; 00636 M00S00490.qget +++| END 00637 M00S00491.qget +++| 00638 M00S00492.qget +++| ELSE # SET DEFAULT DISPOSITION # 00639 M00S00493.qget +++| BEGIN 00640 M00S00494.qget +++| QARG$DC[0] = DC$ALL; 00641 M00S00495.qget +++| TEMPPAR = DC$ALL; 00642 M00S00496.qget +++| END 00643 M00S00497.qget +++| 00644 M00S00498.qget +++| END # *DC* NOT SPECIFIED # 00645 M00S00499.qget +++| 00646 M00S00500.qget +++| IF QARG$JSI[0] EQ 0 00647 M00S00501.qget +++| THEN # JSN NOT SPECIFIED # 00648 M00S00502.qget +++| BEGIN 00649 M00S00503.qget +++| SETNM(QARG$UJ[0],"X",";",NOTFD,MSGLINE); 00650 M00S00504.qget +++| END 00651 M00S00505.qget +++| 00652 M00S00506.qget +++| IF QARG$UJI[0] NQ 0 00653 M00S00507.qget +++| THEN 00654 M00S00508.qget +++| BEGIN # UJN SPECIFIED #
| Line S00509 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00655 M01S00509.ns2687 ---| RET$JSN;
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00656 M01S00106.ns2687 +++| RET$JSN(ERR); 00657 M01S00107.ns2687 +++| IF ERR NQ 0 00658 M01S00108.ns2687 +++| THEN # IF DUPLICATE UJN ERROR # 00659 M01S00109.ns2687 +++| BEGIN 00660 M01S00110.ns2687 +++| ABORT; 00661 M01S00111.ns2687 +++| END 00662 M00S00510.qget +++| JSN = RETJSN[0]; 00663 M00S00511.qget +++| IF QARG$JSI[0] EQ 0 00664 M00S00512.qget +++| THEN # ONLY UJN SPECIFIED # 00665 M00S00513.qget +++| BEGIN 00666 M00S00514.qget +++| IF RETJSNI[0] EQ 0 00667 M00S00515.qget +++| THEN # UJN NOT FOUND # 00668 M00S00516.qget +++| BEGIN 00669 M00S00517.qget +++| MSG(MSGLINE,SYSUDF1); 00670 M00S00518.qget +++| ABORT; 00671 M00S00519.qget +++| END 00672 M00S00520.qget +++| 00673 M00S00521.qget +++| END 00674 M00S00522.qget +++| 00675 M00S00523.qget +++| ELSE # JSN AND UJN SPECIFIED # 00676 M00S00524.qget +++| BEGIN 00677 M00S00525.qget +++| IF RETJSNI[0] NQ QARG$JSI[0] 00678 M00S00526.qget +++| THEN # JSN/UJN NOT FOUND # 00679 M00S00527.qget +++| BEGIN 00680 M00S00528.qget +++| SETNM(QARG$JS[0],"X",";",JOBNF,MSGLINE); 00681 M00S00529.qget +++| SETNM(QARG$UJ[0],"+",0,MSGLINE,MSGLINE); 00682 M00S00530.qget +++| MSG(MSGLINE,SYSUDF1); 00683 M00S00531.qget +++| ABORT; 00684 M00S00532.qget +++| END 00685 M00S00533.qget +++| 00686 M00S00534.qget +++| END 00687 M00S00535.qget +++| 00688 M00S00536.qget +++| END # UJN SPECIFIED # 00689 M00S00537.qget +++| 00690 M00S00538.qget +++| ELSE # UJN NOT SPECIFIED # 00691 M00S00539.qget +++| BEGIN 00692 M00S00540.qget +++| JSN = QARG$JS[0]; 00693 M00S00541.qget +++| END 00694 M00S00542.qget +++| 00695 M00S00543.qget +++| IF QARG$JSI[0] NQ 0 00696 M00S00544.qget +++| THEN # JSN SPECIFIED # 00697 M00S00545.qget +++| BEGIN 00698 M00S00546.qget +++| SETNM(QARG$JS[0],"X",";",NOTFD,MSGLINE); 00699 M00S00547.qget +++| TEMPJSN = QARG$JS[0]; 00700 M00S00548.qget +++| BZFILL(TEMPJSN,TYPFILL"BFILL",4); # BLANK FILL JSN # 00701 M00S00549.qget +++| QARG$JS[0] = TEMPJSN; 00702 M00S00550.qget +++| END 00703 M00S00551.qget +++| 00704 M00S00552.qget +++| GETJN(JSNSAVE); # GET JOB NAME # 00705 M00S00553.qget +++| IF TEMPPAR EQ DC$EX OR TEMPPAR EQ DC$ALL AND QARG$JSI[0] NQ 0 00706 M00S00554.qget +++| THEN 00707 M00S00555.qget +++| BEGIN 00708 M00S00556.qget +++| IF JSN EQ JSNSAVE 00709 M00S00557.qget +++| THEN # CANNOT DROP CALLING JOB # 00710 M00S00558.qget +++| BEGIN 00711 M00S00559.qget +++| MSG(SAMEJOB,SYSUDF1); 00712 M00S00560.qget +++| ABORT; 00713 M00S00561.qget +++| END 00714 M00S00562.qget +++| END 00715 M00S00563.qget +++| 00716 M00S00564.qget +++| SETNM(JSNSAVE,"X",";",USERDROP,USRLINE); 00717 M00S00565.qget +++| 00718 M00S00566.qget +++|# 00719 M00S00567.qget +++|* ISSUE *QAC* CALL. 00720 M00S00568.qget +++|# 00721 M00S00569.qget +++| 00722 M00S00570.qget +++| CALLQAC(FCN"ALTER",JSNSAVE,JSN,QARG$DC[0],ERR); 00723 M00S00571.qget +++|
| Line S00572 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00724 M01S00572.ns2687 ---| IF ERR
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00725 M01S00112.ns2687 +++| IF ERR NQ 0 00726 M00S00573.qget +++| THEN # QUEUE FILE NOT FOUND # 00727 M00S00574.qget +++| BEGIN 00728 M00S00575.qget +++| MSG(MSGLINE,SYSUDF1); 00729 M00S00576.qget +++| ABORT; 00730 M00S00577.qget +++| END 00731 M00S00578.qget +++| 00732 M00S00579.qget +++| MSG(COMPLETE,UDFL1); # DROP COMPLETE # 00733 M00S00580.qget +++| END # DROP # 00734 M00S00581.qget +++| 00735 M00S00582.qget +++| TERM 00736 M00S00583.qget +++|PROC CALLQAC((FUNCT),(LFN),(JSN),(DC),FLAG); 00737 M00S00584.qget +++|# TITLE CALLQAC - SETS UP *QAC* PARAMETER BLOCK AND CALLS *QAC*. # 00738 M00S00585.qget +++| 00739 M00S00586.qget +++| BEGIN # CALLQAC # 00740 M00S00587.qget +++| 00741 M00S00588.qget +++|# 00742 M00S00589.qget +++|** CALLQAC - SETS UP *QAC* PARAMETER BLOCK AND CALLS *QAC*. 00743 M00S00590.qget +++|* 00744 M00S00591.qget +++|* *CALLQAC* WILL SET UP THE PARAMETER BLOCK REQUIRED TO PERFORM THE 00745 M00S00592.qget +++|* SPECIFIED FUNCTION AND CALL *QAC*. 00746 M00S00593.qget +++|* 00747 M00S00594.qget +++|* PROC CALLQAC((FUNCT),(LFN),(JSN),(DC),FLAG) 00748 M00S00595.qget +++|* 00749 M00S00596.qget +++|* ENTRY (FUNCT) - *QAC* FUNCTION CODE. 00750 M00S00597.qget +++|* (LFN) - LFN OF FILE FOR *GET* FUNCTION. 00751 M00S00598.qget +++|* - JSN OF CALLING JOB FOR *ALTER* FUNCTION. 00752 M00S00599.qget +++|* (JSN) - JOB SEQUENCE NAME TO LOOK FOR. 00753 M00S00600.qget +++|* (DC) - DISPOSITION CODE. 00754 M00S00601.qget +++|* 00755 M00S00602.qget +++|* EXIT (FLAG) - IF *PEEK* FUNCTION, *FLAG* INDICATES WHEN 00756 M00S00603.qget +++|* ALL QUEUES ARE SEARCHED.
| Line S00604 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00757 M01S00604.ns2687 ---|* IF *GET* OR *ALTER*, *FLAG* INDICATES WHETHER 00758 M01S00605.ns2687 ---|* SPECIFIED FILE WAS FOUND (TRUE = FOUND).
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00759 M01S00113.ns2687 +++|* IF *ALTER* FUNCTION, *FLAG* INDICATES WHETHER 00760 M01S00114.ns2687 +++|* SPECIFIED FILE WAS FOUND (ZERO = FOUND). 00761 M01S00115.ns2687 +++|* IF *GET* FUNCTION, *FLAG* INDICATES WHETHER AN 00762 M01S00116.ns2687 +++|* ERROR OCCURRED. ((*FLAG*) = ERROR CODE). 00763 M00S00606.qget +++|* 00764 M00S00607.qget +++|* MESSAGES * INCORRECT LOCAL FILE NAME - XXXXXXX.* 00765 M00S00608.qget +++|* * LOCAL FILE XXXXXXX ALREADY EXISTS.* 00766 M00S00609.qget +++|* * PRU LIMIT.* 00767 M00S00610.qget +++|* * SYSTEM ERROR - NOTIFY SITE ANALYST.* 00768 M00S00611.qget +++|* * UNABLE TO DROP JOB.* 00769 M00S00612.qget +++|# 00770 M00S00613.qget +++| 00771 M00S00614.qget +++| ITEM FUNCT U; # FUNCTION CODE # 00772 M00S00615.qget +++| ITEM LFN C(10); # LFN # 00773 M00S00616.qget +++| ITEM JSN C(4); # JSN # 00774 M00S00617.qget +++| ITEM DC C(3); # DISPOSITION CODE #
| Line S00618 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00775 M01S00618.ns2687 ---| ITEM FLAG B; # COMMUNICATION FLAG #
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00776 M01S00117.ns2687 +++| ITEM FLAG U; # COMMUNICATION FLAG/CODE # 00777 M00S00619.qget +++| 00778 M00S00620.qget +++|# 00779 M00S00621.qget +++|**** PROC CALLQAC - XREF LIST BEGIN. 00780 M00S00622.qget +++|# 00781 M00S00623.qget +++| 00782 M00S00624.qget +++| XREF 00783 M00S00625.qget +++| BEGIN 00784 M00S00626.qget +++| PROC ABORT; # CALLS *ABORT* MACRO # 00785 M00S00627.qget +++| PROC MQC; # MAKES *QAC* CALL # 00786 M00S00628.qget +++| PROC MSG; # CALLS *MESSAGE* MACRO # 00787 M00S00629.qget +++| FUNC QSET I; # SETS QUEUE TYPE # 00788 M00S00630.qget +++| PROC SETNM; # SET NAME IN MESSAGE # 00789 M00S00631.qget +++| PROC ZFILL; # ZERO FILLS BUFFER # 00790 M00S00632.qget +++| END 00791 M00S00633.qget +++| 00792 M00S00634.qget +++|# 00793 M00S00635.qget +++|**** PROC CALLQAC - XREF LIST END. 00794 M00S00636.qget +++|# 00795 M00S00637.qget +++| 00796 M00S00638.qget +++|# 00797 M00S00639.qget +++|* ERROR MESSAGES. 00798 M00S00640.qget +++|# 00799 M00S00641.qget +++| 00800 M00S00642.qget +++| DEF DUPLFNM #" LOCAL FILE ZZZZZZZ ALREADY EXISTS.;"#; 00801 M00S00643.qget +++| DEF INCLFN #" INCORRECT LOCAL FILE NAME - XXXXXXX.;"#; 00802 M00S00644.qget +++| DEF NODROP #" UNABLE TO DROP JOB.;"#; 00803 M00S00645.qget +++| DEF PRULIM #" PRU LIMIT.;"#; 00804 M00S00646.qget +++| DEF SYSERROR #" SYSTEM ERROR - NOTIFY SITE ANALYST.;"#; 00805 M00S00647.qget +++| 00806 M00S00648.qget +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 00807 M00S00649.qget +++|*CALL,COMAMSS 00808 M00S00650.qget +++|*CALL,COMABZF 00809 M00S00651.qget +++|*CALL,COMUQPR 00810 M00S00652.qget +++|*CALL,COMUQQC 00811 M00S00653.qget +++| 00812 M00S00654.qget +++| ITEM I U; # INDEX # 00813 M00S00655.qget +++| ITEM INIT$PEEK B = TRUE; # INITIAL *PEEK* FLAG # 00814 M00S00656.qget +++| ITEM QUEUE U; # QUEUE TYPE # 00815 M00S00657.qget +++| 00816 M00S00658.qget +++| ARRAY FOUIBUF [0:0] S(1); # *QAC* *PEEK* REPLY ENTRY # 00817 M00S00659.qget +++| BEGIN 00818 M00S00660.qget +++| ITEM QACREP$DFO U(00,00,06); # DESTINATION FAMILY ORDINAL # 00819 M00S00661.qget +++| ITEM QACREP$DUI U(00,06,18); # DESTINATION USER INDEX # 00820 M00S00662.qget +++| ITEM QACREP$CFO U(00,24,06); # CREATION FAMILY ORDINAL # 00821 M00S00663.qget +++| ITEM QACREP$CUI U(00,30,18); # CREATION USER INDEX # 00822 M00S00664.qget +++| END 00823 M00S00665.qget +++| 00824 M00S00666.qget +++|# 00825 M00S00667.qget +++|* SWITCH FOR *QAC* FUNCTION. 00826 M00S00668.qget +++|# 00827 M00S00669.qget +++| 00828 M00S00670.qget +++| SWITCH FUNCJMP 00829 M00S00671.qget +++| PEEKJ, 00830 M00S00672.qget +++| ALTERJ, 00831 M00S00673.qget +++| GETJ; 00832 M00S00674.qget +++| CONTROL EJECT;
| Line S00675 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00833 M01S00675.ns2687 ---| FLAG = FALSE;
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00834 M01S00118.ns2687 +++| FLAG = 0; 00835 M00S00676.qget +++| GOTO FUNCJMP[FUNCT]; 00836 M00S00677.qget +++| 00837 M00S00678.qget +++|# 00838 M00S00679.qget +++|* BEGIN *QAC* FUNCTION PROCESSORS. 00839 M00S00680.qget +++|# 00840 M00S00681.qget +++| 00841 M00S00682.qget +++|PEEKJ: # PROCESS *PEEK* FUNCTION # 00842 M00S00683.qget +++| 00843 M00S00684.qget +++| 00844 M00S00685.qget +++|# 00845 M00S00686.qget +++|* PROCESS INITIAL *QAC* CALL OR INTERRUPTED *QAC* CALL. 00846 M00S00687.qget +++|# 00847 M00S00688.qget +++| 00848 M00S00689.qget +++| 00849 M00S00690.qget +++| IF QAC$W4ORD[0] NQ 0 AND QAC$W4Q[0] NQ 0 00850 M00S00691.qget +++| THEN 00851 M00S00692.qget +++| BEGIN # *PEEK* INTERRUPTED #
| Line S00693 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00852 M01S00693.ns2687 ---| FLAG = TRUE;
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00853 M01S00119.ns2687 +++| FLAG = 1; 00854 M00S00694.qget +++| SLOWFOR I = QAC$QBITS STEP 1 WHILE I LQ QAC$END 00855 M00S00695.qget +++| DO 00856 M00S00696.qget +++| BEGIN # FIND INTERRUPTED QUEUE # 00857 M00S00697.qget +++| IF QBIT(I) NQ 0 00858 M00S00698.qget +++| THEN 00859 M00S00699.qget +++| BEGIN 00860 M00S00700.qget +++| IF I EQ TTBIT 00861 M00S00701.qget +++| THEN 00862 M00S00702.qget +++| BEGIN 00863 M00S00703.qget +++| QAC$TTCNT[0] = MAXCNT; 00864 M00S00704.qget +++| END 00865 M00S00705.qget +++| 00866 M00S00706.qget +++| ELSE 00867 M00S00707.qget +++| BEGIN 00868 M00S00708.qget +++| QCOUNT(I) = MAXCNT; 00869 M00S00709.qget +++| END 00870 M00S00710.qget +++|
| Line S00711 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00871 M01S00711.ns2687 ---| FLAG = FALSE;
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00872 M01S00120.ns2687 +++| FLAG = 0; 00873 M00S00712.qget +++| QAC$COMP[0] = FALSE; 00874 M00S00713.qget +++| END 00875 M00S00714.qget +++| 00876 M00S00715.qget +++| END # FIND INTERRUPTED QUEUE # 00877 M00S00716.qget +++| 00878 M00S00717.qget +++| END # *PEEK* INTERRUPTED # 00879 M00S00718.qget +++| 00880 M00S00719.qget +++| ELSE 00881 M00S00720.qget +++| BEGIN # CHECK INITIAL *QAC* CALL # 00882 M00S00721.qget +++| IF INIT$PEEK 00883 M00S00722.qget +++| THEN 00884 M00S00723.qget +++| BEGIN # IF INITIAL *QAC* CALL # 00885 M00S00724.qget +++| P<DUMAR> = LOC(QACPARM) + PREFIXL; 00886 M00S00725.qget +++| ZFILL(DUMAR[0],PARMNOPREL); 00887 M00S00726.qget +++| QAC$FCN[0] = PEEK; # SET FUNCTION # 00888 M00S00727.qget +++| QAC$LEN[0] = PEEKL; # SET BLOCK LENGTH # 00889 M00S00728.qget +++| QAC$PEEKJS[0] = TRUE; 00890 M00S00729.qget +++| QAC$PEEKUJ[0] = TRUE;
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2564 |
Seq # *Modification Id* Act ----------------------------+ 00891 M01S00001.ns2564 +++| QAC$LID[0] = TRUE; 00892 M01S00002.ns2564 +++| QAC$LIDC[0] = "***"; 00893 M00S00730.qget +++| IF DC EQ DC$ALL 00894 M00S00731.qget +++| THEN 00895 M00S00732.qget +++| BEGIN 00896 M00S00733.qget +++| QAC$W8Q[0] = ALLQUEUES; 00897 M00S00734.qget +++| END 00898 M00S00735.qget +++| 00899 M00S00736.qget +++| ELSE 00900 M00S00737.qget +++| BEGIN 00901 M00S00738.qget +++| QUEUE = QSET(DC); 00902 M00S00739.qget +++| QBIT(QUEUE) = 1; 00903 M00S00740.qget +++| END 00904 M00S00741.qget +++|
| Line S00742 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00905 M01S00742.ns2687 ---| FLAG = FALSE;
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00906 M01S00121.ns2687 +++| FLAG = 0; 00907 M00S00743.qget +++| INIT$PEEK = FALSE; 00908 M00S00744.qget +++| QAC$TTCNT[0] = MAXCNT; 00909 M00S00745.qget +++| 00910 M00S00746.qget +++| SLOWFOR I = QAC$QBITS STEP 1 WHILE I LQ COUNT$END 00911 M00S00747.qget +++| DO 00912 M00S00748.qget +++| BEGIN 00913 M00S00749.qget +++| QCOUNT(I) = MAXCNT; 00914 M00S00750.qget +++| END 00915 M00S00751.qget +++| 00916 M00S00752.qget +++| END # IF INITIAL *QAC* CALL # 00917 M00S00753.qget +++| 00918 M00S00754.qget +++| ELSE 00919 M00S00755.qget +++| BEGIN 00920 M00S00756.qget +++| QAC$COMP[0] = FALSE;
| Line S00757 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00921 M01S00757.ns2687 ---| FLAG = TRUE;
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00922 M01S00122.ns2687 +++| FLAG = 1; 00923 M00S00758.qget +++| END 00924 M00S00759.qget +++| 00925 M00S00760.qget +++| END # CHECK INITIAL *QAC* CALL # 00926 M00S00761.qget +++|
| Line S00762 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 00927 M01S00762.ns2687 ---| IF NOT FLAG
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act
----------------------------+
00928 M01S00123.ns2687 +++| IF FLAG EQ 0
00929 M00S00763.qget +++| THEN
00930 M00S00764.qget +++| BEGIN # MAKE *QAC* CALL #
00931 M00S00765.qget +++| MQC(LOC(QACPARM));
00932 M00S00766.qget +++|
00933 M00S00767.qget +++| IF QAC$ERR[0] NQ 0
00934 M00S00768.qget +++| AND QAC$ERR[0] NQ NOTFND
00935 M00S00769.qget +++| THEN # *QAC* ERROR #
00936 M00S00770.qget +++| BEGIN
00937 M00S00771.qget +++| GOTO SYSERR; # PROCESS UNEXPECTED ERROR #
00938 M00S00772.qget +++| END
00939 M00S00773.qget +++|
00940 M00S00774.qget +++| END # MAKE *QAC* CALL #
00941 M00S00775.qget +++|
00942 M00S00776.qget +++| RETURN;
00943 M00S00777.qget +++| CONTROL EJECT;
00944 M00S00778.qget +++|
00945 M00S00779.qget +++|#
00946 M00S00780.qget +++|* *ALTER* FUNCTION.
00947 M00S00781.qget +++|#
00948 M00S00782.qget +++|
00949 M00S00783.qget +++|ALTERJ: # PROCESS *ALTER* FUNCTION #
00950 M00S00784.qget +++|
00951 M00S00785.qget +++| P<DUMAR> = LOC(QACPARM); # GET FO AND UI OF CALLER #
00952 M00S00786.qget +++| ZFILL(DUMAR[0],PARML);
00953 M00S00787.qget +++| QAC$FCN[0] = PEEK;
00954 M00S00788.qget +++| QAC$LEN[0] = PEEKL;
00955 M00S00789.qget +++| QAC$JSN[0] = LFN;
00956 M00S00790.qget +++| QAC$SETJS[0] = TRUE;
00957 M00S00791.qget +++| QAC$PKFOUI[0] = TRUE;
00958 M00S00792.qget +++| QUEUE = QSET("EX");
00959 M00S00793.qget +++| QBIT(QUEUE) = 1;
00960 M00S00794.qget +++| QAC$EXCNT[0] = 1;
00961 M00S00795.qget +++| QAC$FIRST[0] = LOC(FOUIBUF[0]);
00962 M00S00796.qget +++| QAC$IN[0] = LOC(FOUIBUF[0]);
00963 M00S00797.qget +++| QAC$OUT[0] = LOC(FOUIBUF[0]);
00964 M00S00798.qget +++| QAC$LIMIT[0] = LOC(FOUIBUF[0]) + 2;
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2564 |
Seq # *Modification Id* Act ----------------------------+ 00965 M01S00003.ns2564 +++| QAC$LID[0] = TRUE; 00966 M01S00004.ns2564 +++| QAC$LIDC[0] = "***"; 00967 M00S00799.qget +++| 00968 M00S00800.qget +++| MQC(LOC(QACPARM)); 00969 M00S00801.qget +++| 00970 M00S00802.qget +++| IF QAC$ERR[0] NQ 0 00971 M00S00803.qget +++| THEN # *QAC* ERROR # 00972 M00S00804.qget +++| BEGIN 00973 M00S00805.qget +++| IF QAC$ERR[0] EQ NOTFND 00974 M00S00806.qget +++| THEN # CALLER MUST BE *DIS* # 00975 M00S00807.qget +++| BEGIN 00976 M00S00808.qget +++| QACREP$CUI[0] = 0; # TREAT *DIS* AS A USER JOB # 00977 M00S00809.qget +++| END 00978 M00S00810.qget +++| ELSE # UNEXPECTED ERROR # 00979 M00S00811.qget +++| BEGIN 00980 M00S00812.qget +++| GOTO SYSERR; # PROCESS UNEXPECTED ERROR # 00981 M00S00813.qget +++| END 00982 M00S00814.qget +++| END 00983 M00S00815.qget +++| 00984 M00S00816.qget +++| ZFILL(DUMAR[0],PARML); # ISSUE *ALTER* REQUEST # 00985 M00S00817.qget +++| QAC$FCN[0] = ALTER; 00986 M00S00818.qget +++| QAC$LEN[0] = ALTERL;
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2564 |
Seq # *Modification Id* Act ----------------------------+ 00987 M01S00005.ns2564 +++| QAC$LID[0] = TRUE; 00988 M01S00006.ns2564 +++| QAC$LIDC[0] = "***"; 00989 M00S00819.qget +++| IF JSN NQ 0 00990 M00S00820.qget +++| THEN 00991 M00S00821.qget +++| BEGIN 00992 M00S00822.qget +++| QAC$JSN[0] = JSN; 00993 M00S00823.qget +++| IF C<3,1>QAC$JSN[0] EQ O"0" 00994 M00S00824.qget +++| THEN # BLANK-FILL THREE-CHARACTER JSN # 00995 M00S00825.qget +++| BEGIN 00996 M00S00826.qget +++| C<3,1>QAC$JSN[0] = O"55"; 00997 M00S00827.qget +++| END 00998 M00S00828.qget +++| QAC$SETJS[0] = TRUE; 00999 M00S00829.qget +++| END 01000 M00S00830.qget +++| 01001 M00S00831.qget +++| IF QARG$OPI[0] EQ 0 01002 M00S00832.qget +++| THEN # *DROP* COMMAND # 01003 M00S00833.qget +++| BEGIN 01004 M00S00834.qget +++| QAC$DROP[0] = TRUE; 01005 M00S00835.qget +++| END 01006 M00S00836.qget +++| 01007 M00S00837.qget +++| ELSE # *DROP,OP=R* COMMAND # 01008 M00S00838.qget +++| BEGIN 01009 M00S00839.qget +++| QAC$KILL[0] = TRUE; 01010 M00S00840.qget +++| END 01011 M00S00841.qget +++| 01012 M00S00842.qget +++| QAC$PRI[0] =TRUE; 01013 M00S00843.qget +++| QAC$SETLD[0] = TRUE; 01014 M00S00844.qget +++| QAC$NWLD[0] = 0; 01015 M00S00845.qget +++| IF DC EQ DC$ALL 01016 M00S00846.qget +++| THEN 01017 M00S00847.qget +++| BEGIN 01018 M00S00848.qget +++| QAC$W8Q[0] = ALLQUEUES; 01019 M00S00849.qget +++| END 01020 M00S00850.qget +++| 01021 M00S00851.qget +++| ELSE 01022 M00S00852.qget +++| BEGIN 01023 M00S00853.qget +++| QUEUE = QSET(DC); 01024 M00S00854.qget +++| QBIT(QUEUE) = 1; 01025 M00S00855.qget +++| END 01026 M00S00856.qget +++| 01027 M00S00857.qget +++| IF NOT((QACREP$CFO[0] EQ 1) AND (QACREP$CUI[0] EQ O"377777")) 01028 M00S00858.qget +++| THEN # CALLED BY USER # 01029 M00S00859.qget +++| BEGIN 01030 M00S00860.qget +++| QAC$FIRST[0] = LOC(USRLINE); 01031 M00S00861.qget +++| QAC$IN[0] = LOC(USRLINE) + AJLC/10; 01032 M00S00862.qget +++| QAC$OUT[0] = LOC(USRLINE); 01033 M00S00863.qget +++| QAC$LIMIT[0] = LOC(USRLINE) + AJLC/10 + 1; 01034 M00S00864.qget +++| QAC$MSGA[0] = TRUE; 01035 M00S00865.qget +++| END 01036 M00S00866.qget +++| 01037 M00S00867.qget +++| MQC(LOC(QACPARM)); 01038 M00S00868.qget +++| 01039 M00S00869.qget +++| IF QAC$ERR[0] EQ 0 01040 M00S00870.qget +++| THEN 01041 M00S00871.qget +++| BEGIN 01042 M00S00872.qget +++| RETURN; 01043 M00S00873.qget +++| END 01044 M00S00874.qget +++| 01045 M00S00875.qget +++| IF QAC$ERR[0] EQ BADSTP 01046 M00S00876.qget +++| THEN # UNABLE TO DROP JOB # 01047 M00S00877.qget +++| BEGIN 01048 M00S00878.qget +++| MSG(NODROP,SYSUDF1); 01049 M00S00879.qget +++| 01050 M00S00880.qget +++| IF JSN EQ 0 01051 M00S00881.qget +++| THEN # JSN NOT SPECIFIED # 01052 M00S00882.qget +++| BEGIN 01053 M00S00883.qget +++| RETURN; 01054 M00S00884.qget +++| END 01055 M00S00885.qget +++| ELSE # JSN SPECIFIED # 01056 M00S00886.qget +++| BEGIN 01057 M00S00887.qget +++| ABORT; 01058 M00S00888.qget +++| END 01059 M00S00889.qget +++| END 01060 M00S00890.qget +++| 01061 M00S00891.qget +++| GOTO ENDQAC; # PROCESS ERRORS # 01062 M00S00892.qget +++| CONTROL EJECT; 01063 M00S00893.qget +++| 01064 M00S00894.qget +++|# 01065 M00S00895.qget +++|* *GET* FUNCTION. 01066 M00S00896.qget +++|# 01067 M00S00897.qget +++| 01068 M00S00898.qget +++|GETJ: # PROCESS *GET* FUNCTION # 01069 M00S00899.qget +++| P<DUMAR> = LOC(QACPARM); 01070 M00S00900.qget +++| ZFILL(DUMAR[0],PARML); 01071 M00S00901.qget +++| QAC$LFN[0] = LFN; 01072 M00S00902.qget +++| QAC$FCN[0] = GET; 01073 M00S00903.qget +++| QAC$LEN[0] = GETL; 01074 M00S00904.qget +++| QAC$JSN[0] = JSN;
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2564 |
Seq # *Modification Id* Act ----------------------------+ 01075 M01S00007.ns2564 +++| QAC$LID[0] = TRUE; 01076 M00S00905.qget +++| QAC$LIDC[0] = "***"; 01077 M00S00906.qget +++| QAC$SETJS[0] = TRUE; 01078 M00S00907.qget +++| QAC$PRI[0] = TRUE;
| Line S00908 Modification History | |
|---|---|
M01 (Removed by) | ns2564 |
Seq # *Modification Id* Act ----------------------------+ 01079 M01S00908.ns2564 ---| QAC$LID[0] = TRUE; 01080 M00S00909.qget +++| QUEUE = QSET(DC); 01081 M00S00910.qget +++| QBIT(QUEUE) = 1; 01082 M00S00911.qget +++| IF C<3,1>QAC$JSN[0] EQ O"0" 01083 M00S00912.qget +++| THEN # BLANK-FILL THREE-CHARACTER JSN # 01084 M00S00913.qget +++| BEGIN 01085 M00S00914.qget +++| C<3,1>QAC$JSN[0] = O"55"; 01086 M00S00915.qget +++| END 01087 M00S00916.qget +++| 01088 M00S00917.qget +++| MQC(LOC(QACPARM)); 01089 M00S00918.qget +++| 01090 M00S00919.qget +++| IF QAC$ERR[0] EQ 0 01091 M00S00920.qget +++| THEN 01092 M00S00921.qget +++| BEGIN 01093 M00S00922.qget +++| RETURN; 01094 M00S00923.qget +++| END 01095 M00S00924.qget +++| 01096 M00S00925.qget +++| IF QAC$ERR[0] EQ DUPLFN # DUPLICATE LOCAL FILE NAME # 01097 M00S00926.qget +++| THEN 01098 M00S00927.qget +++| BEGIN 01099 M00S00928.qget +++| SETNM(QAC$LFN[0],"Z",";",DUPLFNM,MSGLINE); 01100 M00S00929.qget +++| MSG(MSGLINE,SYSUDF1);
| Line S00930 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01101 M01S00930.ns2687 ---| ABORT;
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01102 M01S00124.ns2687 +++| FLAG = DUPLFN; 01103 M01S00125.ns2687 +++| RETURN; 01104 M00S00931.qget +++| END 01105 M00S00932.qget +++| 01106 M00S00933.qget +++| IF QAC$ERR[0] EQ INVNM 01107 M00S00934.qget +++| THEN # INCORRECT LFN # 01108 M00S00935.qget +++| BEGIN 01109 M00S00936.qget +++| SETNM(LFN,"X",";",INCLFN,MSGLINE); 01110 M00S00937.qget +++| MSG(MSGLINE,SYSUDF1); 01111 M00S00938.qget +++| ABORT; 01112 M00S00939.qget +++| END 01113 M00S00940.qget +++| 01114 M00S00941.qget +++| IF QAC$ERR[0] EQ PRULIMIT 01115 M00S00942.qget +++| THEN # PRU LIMIT # 01116 M00S00943.qget +++| BEGIN 01117 M00S00944.qget +++| MSG(PRULIM,SYSUDF1);
| Line S00945 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01118 M01S00945.ns2687 ---| ABORT;
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01119 M01S00126.ns2687 +++| FLAG = PRULIMIT; 01120 M01S00127.ns2687 +++| RETURN; 01121 M00S00946.qget +++| END 01122 M00S00947.qget +++| 01123 M00S00948.qget +++|# 01124 M00S00949.qget +++|* END OF *QAC* FUNCTION PROCESSORS. 01125 M00S00950.qget +++|# 01126 M00S00951.qget +++| 01127 M00S00952.qget +++|ENDQAC: # PROCESS *QAC* ERROR # 01128 M00S00953.qget +++| IF QAC$ERR[0] EQ NOTFND 01129 M00S00954.qget +++| THEN # QUEUE FILE NOT FOUND # 01130 M00S00955.qget +++| BEGIN
| Line S00956 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01131 M01S00956.ns2687 ---| FLAG = TRUE;
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01132 M01S00128.ns2687 +++| FLAG = NOTFND; 01133 M00S00957.qget +++| RETURN; 01134 M00S00958.qget +++| END 01135 M00S00959.qget +++| 01136 M00S00960.qget +++|SYSERR: # UNEXPECTED ERROR # 01137 M00S00961.qget +++| MSG(SYSERROR,SYSUDF1); 01138 M00S00962.qget +++| ABORT; 01139 M00S00963.qget +++| 01140 M00S00964.qget +++| END # CALLQAC # 01141 M00S00965.qget +++| 01142 M00S00966.qget +++| TERM 01143 M00S00967.qget +++|PROC GETNXT; 01144 M00S00968.qget +++|# TITLE GETNXT - GET NEXT REPLY BUFFER ENTRY. # 01145 M00S00969.qget +++| 01146 M00S00970.qget +++| BEGIN # GETNXT # 01147 M00S00971.qget +++| 01148 M00S00972.qget +++|# 01149 M00S00973.qget +++|** GETNXT - GET NEXT REPLY BUFFER ENTRY. 01150 M00S00974.qget +++|* 01151 M00S00975.qget +++|* *GETNXT* WILL RETURN THE NEXT JSN AND THE NEXT UJN FROM THE 01152 M00S00976.qget +++|* CIRCULAR *PEEK* REPLY BUFFER. 01153 M00S00977.qget +++|* 01154 M00S00978.qget +++|* PROC GETNXT 01155 M00S00979.qget +++|* 01156 M00S00980.qget +++|* ENTRY THE REPLY BUFFER HAS BEEN FILLED BY *QAC*. 01157 M00S00981.qget +++|* 01158 M00S00982.qget +++|* 01159 M00S00983.qget +++|* EXIT (NEXTJSN) - NEXT JSN FROM REPLY BUFFER. 01160 M00S00984.qget +++|* (NEXTUJN) - NEXT UJN FROM REPLY BUFFER. 01161 M00S00985.qget +++|* 01162 M00S00986.qget +++|* NOTES THIS PROCEDURE ASSUMES THAT THE REPLY BUFFER LENGTH 01163 M00S00987.qget +++|* (*REPLEN* DEFINED IN *COMUQQC*) HAS BEEN DEFINED AS 01164 M00S00988.qget +++|* A MULTIPLE OF THE ENTRY LENGTH (*QACRETL* DEFINED IN 01165 M00S00989.qget +++|* *COMUQQC*). 01166 M00S00990.qget +++|# 01167 M00S00991.qget +++| 01168 M00S00992.qget +++| DEF LISTCON #0#; # DO NOT LIST COMDECK # 01169 M00S00993.qget +++|*CALL,COMAMSS 01170 M00S00994.qget +++|*CALL,COMUQQC 01171 M00S00995.qget +++| CONTROL EJECT; 01172 M00S00996.qget +++| 01173 M00S00997.qget +++|# 01174 M00S00998.qget +++|* EXTRACT THE NEXT ENTRY INFORMATION AND UPDATE THE BUFFER 01175 M00S00999.qget +++|* POINTERS. 01176 M00S01000.qget +++|# 01177 M00S01001.qget +++| 01178 M00S01002.qget +++| 01179 M00S01003.qget +++| IF QAC$OUT[0] EQ QAC$IN[0] 01180 M00S01004.qget +++| THEN # REPLY BUFFER IS EMPTY # 01181 M00S01005.qget +++| BEGIN 01182 M00S01006.qget +++| NEXTJSNI[0] = 0; 01183 M00S01007.qget +++| NEXTUJNI[0] = 0; 01184 M00S01008.qget +++| RETURN; 01185 M00S01009.qget +++| END 01186 M00S01010.qget +++| 01187 M00S01011.qget +++| P<QACREP> = QAC$OUT[0]; 01188 M00S01012.qget +++| NEXTJSN[0] = QACREP$JSN[0]; 01189 M00S01013.qget +++| NEXTUJN[0] = QACREP$UJN[0]; 01190 M00S01014.qget +++| QAC$OUT[0] = QAC$OUT[0] + QACRETL; 01191 M00S01015.qget +++| IF QAC$OUT[0] EQ QAC$LIMIT[0] 01192 M00S01016.qget +++| THEN 01193 M00S01017.qget +++| BEGIN 01194 M00S01018.qget +++| QAC$OUT[0] = QAC$FIRST[0]; 01195 M00S01019.qget +++| END 01196 M00S01020.qget +++| 01197 M00S01021.qget +++| RETURN; 01198 M00S01022.qget +++| END # GETNXT # 01199 M00S01023.qget +++| 01200 M00S01024.qget +++| TERM 01201 M00S01025.qget +++|FUNC QSET(DC); 01202 M00S01026.qget +++|# TITLE QSET - SETS QUEUE TYPE OFFSET ACCORDING TO *DC* PARAMETER. # 01203 M00S01027.qget +++| 01204 M00S01028.qget +++| BEGIN # QSET # 01205 M00S01029.qget +++| 01206 M00S01030.qget +++|# 01207 M00S01031.qget +++|** QSET - SETS QUEUE TYPE OFFSET ACCORDING TO *DC* PARAMETER. 01208 M00S01032.qget +++|* 01209 M00S01033.qget +++|* *QSET* WILL RETURN A NUMBER INDICATING THE QUEUE BIT OFFSET INTO 01210 M00S01034.qget +++|* WORD 8 OF THE PARAMETER BLOCK. 01211 M00S01035.qget +++|* 01212 M00S01036.qget +++|* Y = QSET(DC) 01213 M00S01037.qget +++|* 01214 M00S01038.qget +++|* ENTRY (DC) - *DC* PARAMETER INDICATES QUEUE TYPE. 01215 M00S01039.qget +++|* 01216 M00S01040.qget +++|* EXIT (Y) - QUEUE TYPE OFFSET FOR SPECIFIED *DC* PARAMETER. 01217 M00S01041.qget +++|# 01218 M00S01042.qget +++| 01219 M00S01043.qget +++| ITEM DC C(2); # DISPOSITION CODE # 01220 M00S01044.qget +++| 01221 M00S01045.qget +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 01222 M00S01046.qget +++|*CALL,COMAMSS 01223 M00S01047.qget +++|*CALL,COMUQQC 01224 M00S01048.qget +++| ITEM I U; # INDEX # 01225 M00S01049.qget +++| 01226 M00S01050.qget +++| 01227 M00S01051.qget +++| 01228 M00S01052.qget +++| 01229 M00S01053.qget +++| 01230 M00S01054.qget +++|# 01231 M00S01055.qget +++|* FIND THE 6 BIT CODE FIELD FOR THE SPECIFIED DISPOSITION CODE AND 01232 M00S01056.qget +++|* EXTRACT THE UPPER 3 BITS. 01233 M00S01057.qget +++|# 01234 M00S01058.qget +++| 01235 M00S01059.qget +++| SLOWFOR I = QAC$QBITS STEP 1 WHILE I LQ ENDDC 01236 M00S01060.qget +++| DO 01237 M00S01061.qget +++| BEGIN # CHECK *DC* # 01238 M00S01062.qget +++| IF DCITEM$FUL[I] EQ DC 01239 M00S01063.qget +++| THEN 01240 M00S01064.qget +++| BEGIN 01241 M00S01065.qget +++| QSET = DCITEM$Q[I]; 01242 M00S01066.qget +++| RETURN; 01243 M00S01067.qget +++| END 01244 M00S01068.qget +++| 01245 M00S01069.qget +++| END # CHECK *DC* # 01246 M00S01070.qget +++| 01247 M00S01071.qget +++| END # QSET # 01248 M00S01072.qget +++| 01249 M00S01073.qget +++| TERM
| Line S01074 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01250 M01S01074.ns2687 ---|PROC RET$JSN;
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01251 M01S00129.ns2687 +++|PROC RET$JSN(FLAG); 01252 M00S01075.qget +++|# TITLE RET$JSN - RETURN JSN FOR A SPECIFIC UJN. # 01253 M00S01076.qget +++| 01254 M00S01077.qget +++| BEGIN # RET$JSN # 01255 M00S01078.qget +++| 01256 M00S01079.qget +++|# 01257 M00S01080.qget +++|** RET$JSN - RETURN JSN FOR A SPECIFIED UJN. 01258 M00S01081.qget +++|* 01259 M00S01082.qget +++|* *RET$JSN* WILL SEARCH THE SPECIFIED QUEUE(S) FOR THE JSN OR THE 01260 M00S01083.qget +++|* JSN-S THAT BELONG TO THE SPECIFIED UJN. 01261 M00S01084.qget +++|*
| Line S01085 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01262 M01S01085.ns2687 ---|* PROC RET$JSN
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01263 M01S00130.ns2687 +++|* PROC RET$JSN(FLAG) 01264 M00S01086.qget +++|* 01265 M00S01087.qget +++|* ENTRY THE COMMAND ARGUMENTS *JSN*, *UJN* AND *DC* ARE 01266 M00S01088.qget +++|* VALIDATED AND STORED IN ARRAY *QARGUMENTS*. 01267 M00S01089.qget +++|*
| Line S01090 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01268 M01S01090.ns2687 ---|* EXIT (RETJSNA) - JSN THAT BELONGS TO UJN.
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01269 M01S00131.ns2687 +++|* EXIT (RETJSN) - JSN THAT BELONGS TO UJN. 01270 M01S00132.ns2687 +++|* (FLAG) - ERROR CODE - ZERO IF NO ERROR. 01271 M00S01091.qget +++|* 01272 M00S01092.qget +++|* MESSAGES * DUPLICATE UJN - MUST SPECIFY JSN. * 01273 M00S01093.qget +++|#
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01274 M01S00133.ns2687 +++| 01275 M01S00134.ns2687 +++| ITEM FLAG U; # COMMUNICATION FLAG/CODE # 01276 M00S01094.qget +++| 01277 M00S01095.qget +++|# 01278 M00S01096.qget +++|**** PROC RET$JSN - XREF LIST BEGIN. 01279 M00S01097.qget +++|# 01280 M00S01098.qget +++| 01281 M00S01099.qget +++| XREF 01282 M00S01100.qget +++| BEGIN 01283 M00S01101.qget +++| PROC ABORT; # CALLS *ABORT* MACRO # 01284 M00S01102.qget +++| PROC CALLQAC; # SETS UP *QAC* CALL # 01285 M00S01103.qget +++| PROC GETNXT; # GETS NEXT REPLY BUFFER ENTRY # 01286 M00S01104.qget +++| PROC MSG; # CALLS *MESSAGE* MACRO # 01287 M00S01105.qget +++| PROC ZFILL; # ZERO FILLS BUFFER # 01288 M00S01106.qget +++| END 01289 M00S01107.qget +++| 01290 M00S01108.qget +++|# 01291 M00S01109.qget +++|**** PROC RET$JSN - XREF LIST END. 01292 M00S01110.qget +++|# 01293 M00S01111.qget +++| 01294 M00S01112.qget +++| DEF DUPUJN #" DUPLICATE UJN - MUST SPECIFY JSN.;"#; 01295 M00S01113.qget +++| 01296 M00S01114.qget +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS # 01297 M00S01115.qget +++|*CALL,COMAMSS 01298 M00S01116.qget +++|*CALL,COMUQPR 01299 M00S01117.qget +++|*CALL,COMUQQC 01300 M00S01118.qget +++| 01301 M00S01119.qget +++| ITEM I I; # LOOP VARIABLE # 01302 M00S01120.qget +++| ITEM PEEK$DONE B; # *PEEK* DONE FLAG # 01303 M00S01121.qget +++| ITEM STOPS B; # *PEEK* SCAN FLAG # 01304 M00S01122.qget +++| 01305 M00S01123.qget +++| ARRAY REPBUF [0:0] S(REPLEN);; # *QAC* REPLY BUFFER # 01306 M00S01124.qget +++| CONTROL EJECT; 01307 M00S01125.qget +++| 01308 M00S01126.qget +++|# 01309 M00S01127.qget +++|* SET UP REPLY BUFFER FET POINTERS. 01310 M00S01128.qget +++|# 01311 M00S01129.qget +++| 01312 M00S01130.qget +++| P<DUMAR> = LOC(QACPARM); 01313 M00S01131.qget +++| ZFILL(DUMAR[0],PREFIXL); 01314 M00S01132.qget +++| 01315 M00S01133.qget +++| QAC$FIRST[0] = LOC(REPBUF[0]); 01316 M00S01134.qget +++| QAC$IN[0] = LOC(REPBUF[0]); 01317 M00S01135.qget +++| QAC$OUT[0] = LOC(REPBUF[0]); 01318 M00S01136.qget +++| QAC$LIMIT[0] = LOC(REPBUF[0]) + REPLEN; 01319 M00S01137.qget +++| 01320 M00S01138.qget +++| PEEK$DONE = FALSE; 01321 M00S01139.qget +++| RETJSNI[0] = 0;
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01322 M01S00135.ns2687 +++| FLAG = 0; 01323 M00S01140.qget +++| 01324 M00S01141.qget +++| REPEAT WHILE NOT PEEK$DONE 01325 M00S01142.qget +++| DO 01326 M00S01143.qget +++| BEGIN # CALL *QAC* AND PROCESS REPLY BUFFER # 01327 M00S01144.qget +++| 01328 M00S01145.qget +++|# 01329 M00S01146.qget +++|* SEARCH THE REPLY BUFFER FOR THE JSN THAT BELONGS TO THE 01330 M00S01147.qget +++|* SPECIFIED UJN. 01331 M00S01148.qget +++|# 01332 M00S01149.qget +++| 01333 M00S01150.qget +++| CALLQAC(FCN"PEEK",0,0,QARG$DC[0],PEEK$DONE); 01334 M00S01151.qget +++| STOPS = FALSE; 01335 M00S01152.qget +++| SLOWFOR I = 0 WHILE NOT STOPS 01336 M00S01153.qget +++| DO 01337 M00S01154.qget +++| BEGIN # SCAN *PEEK* BUFFER # 01338 M00S01155.qget +++| GETNXT; 01339 M00S01156.qget +++| IF NEXTUJNI[0] EQ 0 01340 M00S01157.qget +++| THEN # END OF REPLY BUFFER ENTRIES # 01341 M00S01158.qget +++| BEGIN 01342 M00S01159.qget +++| STOPS = TRUE; 01343 M00S01160.qget +++| TEST I; 01344 M00S01161.qget +++| END 01345 M00S01162.qget +++| 01346 M00S01163.qget +++| IF NEXTUJN[0] EQ QARG$UJ[0] 01347 M00S01164.qget +++| THEN 01348 M00S01165.qget +++| BEGIN # UJN FOUND # 01349 M00S01166.qget +++| IF RETJSNI[0] NQ 0 AND QARG$JSI[0] EQ 0 01350 M00S01167.qget +++| THEN # DUPLICATE UJN - JSN REQUIRED # 01351 M00S01168.qget +++| BEGIN 01352 M00S01169.qget +++| MSG(DUPUJN,SYSUDF1);
| Line S01170 Modification History | |
|---|---|
M01 (Removed by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01353 M01S01170.ns2687 ---| ABORT;
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01354 M01S00136.ns2687 +++| FLAG = 1; # INDICATE ERROR OCCURRED # 01355 M01S00137.ns2687 +++| RETURN; 01356 M00S01171.qget +++| END 01357 M00S01172.qget +++| 01358 M00S01173.qget +++| RETJSN[0] = NEXTJSN[0]; 01359 M00S01174.qget +++| IF QARG$JSI[0] EQ RETJSNI[0] 01360 M00S01175.qget +++| THEN # JSN/UJN FOUND # 01361 M00S01176.qget +++| BEGIN 01362 M00S01177.qget +++| RETURN; 01363 M00S01178.qget +++| END 01364 M00S01179.qget +++| 01365 M00S01180.qget +++| END # UJN FOUND # 01366 M00S01181.qget +++| 01367 M00S01182.qget +++| END # SCAN *PEEK* BUFFER # 01368 M00S01183.qget +++| 01369 M00S01184.qget +++| END # CALL *QAC* AND PROCESS REPLY BUFFER # 01370 M00S01185.qget +++| 01371 M00S01186.qget +++| END # RETJSN # 01372 M00S01187.qget +++| 01373 M00S01188.qget +++| TERM 01374 M00S01189.qget +++|*WEOR 01375 M00S01190.qget +++| IDENT MQC 01376 M00S01191.qget +++| ENTRY MQC 01377 M00S01192.qget +++| SYSCOM B1 01378 M00S01193.qget +++|*COMMENT MAKE *QAC* CALL.
| Line S01194 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01379 M01S01194.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01380 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01381 M00S01195.qget +++| SPACE 4,10 01382 M00S01196.qget +++|** FOLLOWING ARE THE *QGET*/*DROP* COMPASS INTERFACE ROUTINES. 01383 M00S01197.qget +++| SPACE 4,10 01384 M00S01198.qget +++|** MQC - MAKE *QAC* CALL. 01385 M00S01199.qget +++|* 01386 M00S01200.qget +++|* MQC(ADDR); (SYMPL CALL) 01387 M00S01201.qget +++|* 01388 M00S01202.qget +++|* ENTRY (ADDR) = ADDRESS OF *QAC* PARAMETER BLOCK. 01389 M00S01203.qget +++|* 01390 M00S01204.qget +++|* EXIT *QAC* HAS BEEN CALLED. 01391 M00S01205.qget +++|* 01392 M00S01206.qget +++|* USES X - 1. 01393 M00S01207.qget +++|* A - 1. 01394 M00S01208.qget +++|* B - 1. 01395 M00S01209.qget +++|* 01396 M00S01210.qget +++|* MACROS SYSTEM. 01397 M00S01211.qget +++| SPACE 4,10 01398 M00S01212.qget +++|* COMMON DECKS. 01399 M00S01213.qget +++| 01400 M00S01214.qget +++|*CALL,COMCMAC 01401 M00S01215.qget +++| 01402 M00S01216.qget +++| 01403 M00S01217.qget +++| MQC SUBR ENTRY/EXIT 01404 M00S01218.qget +++| SB1 1 01405 M00S01219.qget +++| SA1 X1
| Line S01220 Modification History | |
|---|---|
M01 (Removed by) | qget6 |
Seq # *Modification Id* Act ----------------------------+ 01406 M01S01220.qget6 ---| SYSTEM QAC,R,X1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | qget6 |
Seq # *Modification Id* Act ----------------------------+ 01407 M01S00001.qget6 +++| SA2 X1+7 01408 M01S00002.qget6 +++| MX3 24 01409 M01S00003.qget6 +++| BX4 X3*X2 01410 M01S00004.qget6 +++| ZR X4,MQC1 IF JSN NOT SUPPLIED 01411 M01S00005.qget6 +++| MX7 -42 01412 M01S00006.qget6 +++| BX7 -X7*X4 01413 M01S00007.qget6 +++| NZ X7,MQC1 IF 4 CHARACTER JSN 01414 M01S00008.qget6 +++| SX5 1R BLANK FILL THE JSN 01415 M01S00009.qget6 +++| LX5 36 01416 M01S00010.qget6 +++| BX6 X2+X5 01417 M01S00011.qget6 +++| SA6 A2 01418 M01S00012.qget6 +++| MQC1 SYSTEM QAC,R,X1 01419 M00S01221.qget +++| EQ MQCX EXIT 01420 M00S01222.qget +++| 01421 M00S01223.qget +++| END 01422 M00S01224.qget +++| IDENT PKP 01423 M00S01225.qget +++| ENTRY PKP 01424 M00S01226.qget +++| SYSCOM B1 01425 M00S01227.qget +++|*COMMENT PROCESS KEYWORD OR POSITIONAL ARGUMENTS.
| Line S01228 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01426 M01S01228.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01427 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01428 M00S01229.qget +++| SPACE 4,10 01429 M00S01230.qget +++|** PKP - PROCESS KEYWORD OR POSITIONAL ARGUMENTS. 01430 M00S01231.qget +++|* 01431 M00S01232.qget +++|* PKP(ARGLIST,ARGLEN,FLAG); (SYMPL CALL) 01432 M00S01233.qget +++|* 01433 M00S01234.qget +++|* ENTRY (ARGLIST) = ADDRESS OF ARGUMENT LIST. 01434 M00S01235.qget +++|* (ARGLEN) = LENGTH OF ARGUMENT LIST. 01435 M00S01236.qget +++|* 01436 M00S01237.qget +++|* EXIT (FLAG) = ERROR STATUS. 01437 M00S01238.qget +++|* 0 = NO ERROR. 01438 M00S01239.qget +++|* 1 = ERROR. 01439 M00S01240.qget +++|* 01440 M00S01241.qget +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 01441 M00S01242.qget +++|* A - 1, 2, 3, 4, 5, 6, 7. 01442 M00S01243.qget +++|* B - 1, 2, 3, 4, 6. 01443 M00S01244.qget +++|* 01444 M00S01245.qget +++|* CALLS ARM, CPA, USB. 01445 M00S01246.qget +++| SPACE 4,10 01446 M00S01247.qget +++|* COMMON DECKS. 01447 M00S01248.qget +++| 01448 M00S01249.qget +++|*CALL,COMCMAC 01449 M00S01250.qget +++|*CALL,COMCARM 01450 M00S01251.qget +++|*CALL,COMCCPA 01451 M00S01252.qget +++|*CALL,COMCPOP 01452 M00S01253.qget +++|*CALL,COMCUSB 01453 M00S01254.qget +++| 01454 M00S01255.qget +++| PKP2 SX6 1 SET ERROR FLAG 01455 M00S01256.qget +++| SA5 PKPB 01456 M00S01257.qget +++| SA6 X5 01457 M00S01258.qget +++| 01458 M00S01259.qget +++| PKP SUBR ENTRY/EXIT 01459 M00S01260.qget +++| SB1 1 01460 M00S01261.qget +++| SA3 A1+B1 ADDRESS OF ARGUMENT LENGTH 01461 M00S01262.qget +++| SA4 A3+B1 ADDRESS OF FLAG 01462 M00S01263.qget +++| BX6 X4 01463 M00S01264.qget +++| SA6 PKPB SAVE ADDRESS OF FLAG 01464 M00S01265.qget +++| SA4 X4 01465 M00S01266.qget +++| SA3 X3 01466 M00S01267.qget +++| BX7 X3 SET UP LIST LENGTH 01467 M00S01268.qget +++| SA3 X1 01468 M00S01269.qget +++| BX6 X3 SET UP ARGUMENT LIST 01469 M00S01270.qget +++| SA6 PKPA SAVE ADDRESS AND LENGTH 01470 M00S01271.qget +++| SA7 A6+1 01471 M00S01272.qget +++| SB2 CCDR UNPACK COMMAND 01472 M00S01273.qget +++| RJ USB 01473 M00S01274.qget +++| SA1 A6 ASSURE TERMINATION 01474 M00S01275.qget +++| SX6 1R. 01475 M00S01276.qget +++| SA6 X1+B1 01476 M00S01277.qget +++| 01477 M00S01278.qget +++|* SKIP TO FIRST ARGUMENT. 01478 M00S01279.qget +++| 01479 M00S01280.qget +++| PKP1 SA1 B6 SKIP OVER COMMAND NAME 01480 M00S01281.qget +++| SB6 B6+B1 ADVANCE CHARACTER ADDRESS 01481 M00S01282.qget +++| SB2 X1-1R9-1 01482 M00S01283.qget +++| NG B2,PKP1 IF NOT END OF NAME 01483 M00S01284.qget +++| SB2 X1-1R 01484 M00S01285.qget +++| ZR B2,PKP1 IF A BLANK 01485 M00S01286.qget +++| SB3 X1-1R. 01486 M00S01287.qget +++| SB4 X1-1R) 01487 M00S01288.qget +++| ZR B3,PKPX IF NO ARGUMENTS 01488 M00S01289.qget +++| ZR B4,PKPX IF NO ARGUMENTS 01489 M00S01290.qget +++| 01490 M00S01291.qget +++|* PROCESS ARGUMENTS. 01491 M00S01292.qget +++| 01492 M00S01293.qget +++| SA1 PKPA RETRIEVE ADDRESS AND LENGTH 01493 M00S01294.qget +++| SA2 A1+B1 01494 M00S01295.qget +++| SB3 X1 ARGUMENT TABLE ADDRESS 01495 M00S01296.qget +++| SB2 X2+ 01496 M00S01297.qget +++| SB4 ABUF CONVERT POSITIONAL ARGUMENTS 01497 M00S01298.qget +++| RJ CPA 01498 M00S01299.qget +++| NG B5,PKP2 IF ARGUMENT ERROR 01499 M00S01300.qget +++| SX6 B5+ SET LWA OF ARGUMENTS 01500 M00S01301.qget +++| SB6 ABUF SET FWA OF ARGUMENTS 01501 M00S01302.qget +++| SA6 USBC 01502 M00S01303.qget +++| RJ ARM PROCESS ARGUMENTS 01503 M00S01304.qget +++| NZ X1,PKP2 IF ARGUMENT ERROR 01504 M00S01305.qget +++| SX6 B0 NO ERROR 01505 M00S01306.qget +++| SA5 PKPB 01506 M00S01307.qget +++| SA6 X5 01507 M00S01308.qget +++| EQ PKPX RETURN 01508 M00S01309.qget +++| 01509 M00S01310.qget +++| PKPA CON 0 ARGUMENT TABLE ADDRESS 01510 M00S01311.qget +++| CON 0 ARGUMENT TABLE LENGTH 01511 M00S01312.qget +++| PKPB BSS 1 FLAG 01512 M00S01313.qget +++| ABUF BSS 200 UNPACK STRING BUFFER 01513 M00S01314.qget +++| END 01514 M00S01315.qget +++| IDENT SDA 01515 M00S01316.qget +++| ENTRY SDA 01516 M00S01317.qget +++| SYSCOM B1 01517 M00S01318.qget +++|*COMMENT SET UP *DROP* ARGUMENT LIST.
| Line S01319 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01518 M01S01319.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01519 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01520 M00S01320.qget +++| SPACE 4,15 01521 M00S01321.qget +++|** SDA - SET UP *DROP* ARGUMENT LIST. 01522 M00S01322.qget +++|* 01523 M00S01323.qget +++|* SDA(DARG); (SYMPL CALL) 01524 M00S01324.qget +++|* 01525 M00S01325.qget +++|* EXIT (DARG) = ADDRESS OF ARGUMENT LIST. 01526 M00S01326.qget +++|* 01527 M00S01327.qget +++|* USES X - 6. 01528 M00S01328.qget +++|* A - 6. 01529 M00S01329.qget +++|* B - 1. 01530 M00S01330.qget +++|* 01531 M00S01331.qget +++|* MACROS ARG. 01532 M00S01332.qget +++| SPACE 4,10 01533 M00S01333.qget +++|* COMMON DECKS. 01534 M00S01334.qget +++| 01535 M00S01335.qget +++|*CALL COMCMAC 01536 M00S01336.qget +++| 01537 M00S01337.qget +++| 01538 M00S01338.qget +++| SDA SUBR ENTRY/EXIT 01539 M00S01339.qget +++| SB1 1 01540 M00S01340.qget +++| SX6 DARG ADDRESS OF ARGUMENT LIST 01541 M00S01341.qget +++| SA6 X1
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01542 M01S00138.ns2687 +++| SA1 A1+B1 01543 M01S00139.ns2687 +++| SX6 DARGL LENGTH OF ARGUMENT LIST 01544 M01S00140.ns2687 +++| SA6 X1+ 01545 M00S01342.qget +++| EQ SDAX EXIT 01546 M00S01343.qget +++| 01547 M00S01344.qget +++| 01548 M00S01345.qget +++| DARG BSS 0 *DROP* ARGUMENT LIST 01549 M00S01346.qget +++| JSN ARG JS,JS,400B JOB SEQUENCE NAME 01550 M00S01347.qget +++| DC ARG DC,DC DISPOSITION CODE 01551 M00S01348.qget +++| UJN ARG UJ,UJ,400B USER JOB NAME 01552 M00S01349.qget +++| OP ARG OP,OP SINGLE REPRIEVE OPTION
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01553 M01S00141.ns2687 +++| DARGL EQU *-DARG LENGTH OF ARGUMENT LIST 01554 M00S01350.qget +++| ARG END OF ARGUMENT LIST 01555 M00S01351.qget +++| 01556 M00S01352.qget +++|*CALL COMUQPR 01557 M00S01353.qget +++| 01558 M00S01354.qget +++| END 01559 M00S01355.qget +++| IDENT SQA 01560 M00S01356.qget +++| ENTRY SQA 01561 M00S01357.qget +++| SYSCOM B1 01562 M00S01358.qget +++|*COMMENT SET UP *QGET* ARGUMENT LIST.
| Line S01359 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01563 M01S01359.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01564 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01565 M00S01360.qget +++| SPACE 4,15 01566 M00S01361.qget +++|** SQA - SET UP *QGET* ARGUMENT LIST. 01567 M00S01362.qget +++|* 01568 M00S01363.qget +++|* SQA(QARG); (SYMPL CALL) 01569 M00S01364.qget +++|* 01570 M00S01365.qget +++|* EXIT (QARG) = ADDRESS OF ARGUMENT LIST. 01571 M00S01366.qget +++|* 01572 M00S01367.qget +++|* USES X - 6. 01573 M00S01368.qget +++|* A - 6. 01574 M00S01369.qget +++|* B - 1. 01575 M00S01370.qget +++|* 01576 M00S01371.qget +++|* MACROS ARG. 01577 M00S01372.qget +++| SPACE 4,10 01578 M00S01373.qget +++|* COMMON DECKS. 01579 M00S01374.qget +++| 01580 M00S01375.qget +++|*CALL COMCMAC 01581 M00S01376.qget +++| 01582 M00S01377.qget +++| 01583 M00S01378.qget +++| SQA SUBR ENTRY/EXIT 01584 M00S01379.qget +++| SB1 1 01585 M00S01380.qget +++| SX6 QARG ADDRESS OF ARGUMENT LIST 01586 M00S01381.qget +++| SA6 X1
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01587 M01S00142.ns2687 +++| SA1 A1+B1 01588 M01S00143.ns2687 +++| SX6 QARGL LENGTH OF ARGUMENT LIST 01589 M01S00144.ns2687 +++| SA6 X1+ 01590 M00S01382.qget +++| EQ SQAX EXIT 01591 M00S01383.qget +++| 01592 M00S01384.qget +++| 01593 M00S01385.qget +++| QARG BSS 0 *QGET* ARGUMENT LIST 01594 M00S01386.qget +++| JSN ARG JS,JS,400B JOB SEQUENCE NAME 01595 M00S01387.qget +++| DC ARG DC,DC DISPOSITION CODE 01596 M00S01388.qget +++| UJN ARG UJ,UJ,400B USER JOB NAME 01597 M00S01389.qget +++| FN ARG FN,FN,400B LOCAL FILE NAME
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01598 M01S00145.ns2687 +++| OP ARG OP,OP NO ABORT OPTION
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2710 |
Seq # *Modification Id* Act ----------------------------+ 01599 M01S00030.ns2710 +++| DQ ARG DQ,DQ,400B DEQUEUE OPTION
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | ns2687 |
Seq # *Modification Id* Act ----------------------------+ 01600 M01S00146.ns2687 +++| QARGL EQU *-QARG LENGTH OF ARGUMENT LIST 01601 M00S01390.qget +++| ARG END OF ARGUMENT LIST 01602 M00S01391.qget +++| 01603 M00S01392.qget +++|*CALL COMUQPR 01604 M00S01393.qget +++| 01605 M00S01394.qget +++| END 01606 M00S01395.qget +++| IDENT RFL= 01607 M00S01396.qget +++| ENTRY RFL= 01608 M00S01397.qget +++|*COMMENT QGET - DEFINE *QGET* *RFL=* VALUE.
| Line S01398 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01609 M01S01398.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01610 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01611 M00S01399.qget +++| SPACE 4,10 01612 M00S01400.qget +++|** RFL= - DEFINE *QGET* *RFL=* VALUE. 01613 M00S01401.qget +++|* 01614 M00S01402.qget +++|* THIS ROUTINE GENERATES AN *RFL=* VALUE TO PREVENT MODE 01615 M00S01403.qget +++|* ERRORS DURING INSTRUCTION LOOK AHEAD. 01616 M00S01404.qget +++|* 01617 M00S01405.qget +++| 01618 M00S01406.qget +++| 01619 M00S01407.qget +++|* REQUIRED FOR LOADER TO GENERATE ACCURATE LOAD MAPS. 01620 M00S01408.qget +++| 01621 M00S01409.qget +++| BSS 1 01622 M00S01410.qget +++| 01623 M00S01411.qget +++|* REQUIRED TO PREVENT *RFL=* FROM EQUALING XXXX00B OCTAL IF 01624 M00S01412.qget +++|* LAST WORD LOADED IS IN ADDRESS XXXX77B. 01625 M00S01413.qget +++| 01626 M00S01414.qget +++| USE // 01627 M00S01415.qget +++| BSS 8D FILL 01628 M00S01416.qget +++| 01629 M00S01417.qget +++| RFL= BSS 0 DEFINE ENTRY POINT 01630 M00S01418.qget +++| SPACE 4,10 01631 M00S01419.qget +++| END
cdc/nos2.source/opl.opl871/deck/qget.txt · Last modified: by 127.0.0.1