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