cdc:nos2.source:opl.opl871:deck:control
Deck CONTROL
5 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.control +++| IDENT CONTROL,CONTROL 00002 M01S00002.control +++| ABS 00003 M01S00003.control +++| SYSCOM B1 00004 M01S00004.control +++| SST T1,MCMX 00005 M01S00005.control +++| ENTRY CFO 00006 M01S00006.control +++| ENTRY COMMENT 00007 M01S00007.control +++| ENTRY ERRMSG 00008 M01S00008.control +++| ENTRY EXIT 00009 M01S00009.control +++| ENTRY FAMILY 00010 M01S00010.control +++| ENTRY GO 00011 M01S00011.control +++| ENTRY MACHINE 00012 M01S00012.control +++| ENTRY MFL 00013 M01S00013.control +++| ENTRY MODE 00014 M01S00014.control +++| ENTRY NOEXIT 00015 M01S00015.control +++| ENTRY NORERUN 00016 M01S00016.control +++| ENTRY ONEXIT 00017 M01S00017.control +++| ENTRY ONSW 00018 M01S00018.control +++| ENTRY OFFSW 00019 M01S00019.control +++| ENTRY OPMSG 00020 M01S00020.control +++| ENTRY PAUSE 00021 M01S00021.control +++| ENTRY PROTECT 00022 M01S00022.control +++| ENTRY RERUN 00023 M01S00023.control +++| ENTRY RFL 00024 M01S00024.control +++| ENTRY ROLLOUT 00025 M01S00025.control +++| ENTRY SETASL 00026 M01S00026.control +++| ENTRY SETJOB 00027 M01S00027.control +++| ENTRY SETJSL 00028 M01S00028.control +++| ENTRY SETPR 00029 M01S00029.control +++| ENTRY SETTL 00030 M01S00030.control +++| ENTRY SHELL 00031 M01S00031.control +++| ENTRY SUI 00032 M01S00032.control +++| ENTRY SWITCH 00033 M01S00033.control +++| ENTRY USECPU 00034 M01S00034.control +++| ENTRY RFL= 00035 M01S00035.control +++|*COMMENT CONTROL - JOB CONTROL PROCESSOR.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00036 M02S00036.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00037 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00038 M01S00037.control +++| SPACE 4,10 00039 M01S00038.control +++| TITLE CONTROL - JOB CONTROL PROCESSOR. 00040 M01S00039.control +++|*** CONTROL - JOB CONTROL PROCESSOR. 00041 M01S00040.control +++|* G. R. MANSFIELD. 70/12/06. 00042 M01S00041.control +++| SPACE 4,10 00043 M01S00042.control +++|*** CONTROL PROVIDES FUNCTIONS FOR JOB CONTROL AS 00044 M01S00043.control +++|* LISTED BELOW. 00045 M01S00044.control +++| SPACE 4,10 00046 M01S00045.control +++|*** NUMERIC ARGUMENTS ARE ASSUMED OCTAL BASE, 00047 M01S00046.control +++|* EXCEPT ON SETASL, SETJSL, AND SETTL, WHERE ASSUMED 00048 M01S00047.control +++|* BASE IS DECIMAL. NUMBERS MAY BE SUFFIXED BY A 00049 M01S00048.control +++|* POST-RADIX OF *B* OR *D*. 00050 M01S00049.control +++| SPACE 4,10 00051 M01S00050.control +++|*** DAYFILE MESSAGES. 00052 M01S00051.control +++|* 00053 M01S00052.control +++|* 00054 M01S00001.ns2516a +++|* * ASL = XXXXXX, JSL = YYYYYY.* = INFORMATIVE MESSAGE 00055 M01S00002.ns2516a +++|* INDICATING THE CURRENT VALUES OF THE USER-S ACCOUNT 00056 M01S00003.ns2516a +++|* BLOCK SRU LIMIT (ASL) AND JOB STEP SRU LIMIT (JSL). 00057 M01S00004.ns2516a +++|* 00058 M01S00005.ns2516a +++|* * TL = XXXXXX.* = INFORMATIVE MESSAGE INDICATING THE CURRENT 00059 M01S00006.ns2516a +++|* TIME LIMIT VALUE. 00060 M01S00007.ns2516a +++|* 00061 M01S00053.control +++|* * ERROR IN CONTROL ARGUMENTS.* = AN ARGUMENT TO A CONTROL 00062 M01S00054.control +++|* FUNCTION WAS INCORRECT. 00063 M01S00055.control +++|* NO MESSAGE WAS SPECIFIED ON A *COMMENT* COMMAND. 00064 M01S00056.control +++|* A PARAMETER WAS SPECIFIED ON THE *OPMSG* COMMAND. 00065 M01S00057.control +++|* 00066 M01S00058.control +++|* * CM OR EC REQUEST EXCEEDS MAXIMUM.* = A RFL/MFL REQUEST 00067 M01S00059.control +++|* EXCEEDS THE MAXIMUM ALLOWABLE FIELD LENGTH. 00068 M01S00060.control +++|* 00069 M01S00061.control +++|* * USER ACCESS NOT VALID.* = THE SRU OR TIME LIMIT 00070 M01S00062.control +++|* REQUEST IS OUT OF RANGE. 00071 M01S00063.control +++|* 00072 M01S00064.control +++|* * MFL REQUEST TOO SMALL, MINIMUM USED.* = REQUESTED 00073 M01S00065.control +++|* FIELD LENGTH IS LESS THAN THAT REQUIRED BY *CONTROL*. 00074 M01S00066.control +++|* 00075 M01S00067.control +++|* * NORERUN/RERUN INCORRECT FROM INTERACTIVE JOBS. * = AN 00076 M01S00068.control +++|* INTERACTIVE ORIGIN JOB CANNOT SET OR CLEAR JOB RERUN 00077 M01S00069.control +++|* STATUS. 00078 M01S00070.control +++|* 00079 M01S00071.control +++|* * CONTROL *QAC* ERROR NNN.* 00080 M01S00072.control +++|* AN UNEXPECTED *QAC* ERROR STATUS OCCURRED. 00081 M01S00073.control +++|* 00082 M01S00074.control +++|* * FILE/JOB NOT FOUND.* 00083 M01S00075.control +++|* THE SPECIFIED FILE OR JOB WAS NOT IN THE SYSTEM. 00084 M01S00076.control +++|* 00085 M01S00077.control +++|* * NO JOB CHARACTERISTICS SPECIFIED.* = A *SETJOB* REQUEST 00086 M01S00078.control +++|* CONTAINED NO JOB CHARACTERISTICS. 00087 M01S00079.control +++|* 00088 M01S00080.control +++|* * INCORRECT CPU PRIORITY VALUE.* 00089 M01S00081.control +++|* THE CPU PRIORITY VALUE SPECIFIED EXCEEDS THE 00090 M01S00082.control +++|* MAXIMUM VALUE ALLOWED. 00091 M01S00083.control +++|* 00092 M01S00084.control +++|* *INCORRECT PARAMETER.* = A PARAMETER OTHER THAN A, L, G, 00093 M01S00085.control +++|* S, T, B, OR C WAS SPECIFIED ON A *SHELL* COMMAND. 00094 M01S00086.control +++|* 00095 M01S00087.control +++|* *INCORRECT PARAMETER LENGTH OR SEPARATOR.* = A PARAMETER 00096 M01S00088.control +++|* WAS LONGER THAN SEVEN CHARACTERS, OR USED AN INCORRECT 00097 M01S00089.control +++|* SEPARATOR. 00098 M01S00090.control +++|* 00099 M01S00091.control +++|* * FAMILY NOT FOUND.* 00100 M01S00092.control +++|* THE SPECIFIED FAMILY DOES NOT EXIST. 00101 M01S00093.control +++|* 00102 M01S00094.control +++|* * DEFAULT FAMILY USED.* 00103 M01S00095.control +++|* THE FAMILY SPECIFIED WAS THE SYSTEM DEFAULT FAMILY. 00104 M01S00096.control +++|* 00105 M01S00097.control +++|* * ONLY CORRECT PARAMETERS ARE *ON* OR *OFF*.* = AN 00106 M01S00098.control +++|* UNRECOGNIZABLE PARAMETER WAS SPECIFIED. 00107 M01S00099.control +++|* 00108 M01S00100.control +++|* * PARAMETER *ON* OR *OFF* REQUIRED.* = NO PARAMETER WAS 00109 M01S00101.control +++|* SPECIFIED ON THE COMMAND. 00110 M01S00102.control +++|* 00111 M01S00103.control +++|* * PARAMETERS *ON* AND *OFF* ARE MUTUALLY EXCLUSIVE.* = BOTH 00112 M01S00104.control +++|* *ON* AND *OFF* WERE SPECIFIED. ONLY ONE PARAMETER IS 00113 M01S00105.control +++|* ALLOWED ON THE COMMAND. 00114 M01S00106.control +++| SPACE 4,10 00115 M01S00107.control +++|*** OPERATOR MESSAGES. 00116 M01S00108.control +++|* 00117 M01S00109.control +++|* 00118 M01S00110.control +++|* NONE. 00119 M01S00111.control +++| SPACE 4,10 00120 M01S00112.control +++|*CALL COMCMAC 00121 M01S00113.control +++|*CALL COMCCMD 00122 M01S00114.control +++| QUAL EVENT 00123 M01S00115.control +++|*CALL COMSEVT 00124 M01S00116.control +++| QUAL * 00125 M01S00001.ns2731 +++|*CALL COMSPRD 00126 M01S00117.control +++|*CALL COMSQAC 00127 M01S00118.control +++|*CALL COMSZOL 00128 M01S00119.control +++| TITLE FUNCTION PROCESSORS. 00129 M01S00120.control +++| TITLE DATA LOCATIONS. 00130 M01S00121.control +++| ORG 150B 00131 M01S00122.control +++| CONTROL BSS 0 00132 M01S00123.control +++| QACP SPACE 4,10 00133 M01S00124.control +++|** *QAC* PARAMETER BLOCK. 00134 M01S00125.control +++|* 00135 M01S00126.control +++|* PREFIX PORTION. 00136 M01S00127.control +++| 00137 M01S00128.control +++| 00138 M01S00129.control +++| LOC 0 00139 M01S00130.control +++| QFCN VFD 42/0,8/0,9/0,1/0 FUNCTION, STATUS 00140 M01S00131.control +++| QFIR VFD 36/0,6/0,18/0 LENGTH, FIRST 00141 M01S00132.control +++| QINP VFD 42/0,18/0 IN 00142 M01S00133.control +++| QOTP VFD 42/0,18/0 OUT 00143 M01S00134.control +++| QLIM VFD 12/0,12/0,12/0,6/0,18/0 LIMIT 00144 M01S00135.control +++| SPACE 4,10 00145 M01S00136.control +++|** SELECTION CRITERIA PORTION. 00146 M01S00137.control +++| 00147 M01S00138.control +++| 00148 M01S00139.control +++| VFD 60/0 00149 M01S00140.control +++| VFD 60/0 00150 M01S00141.control +++| QJSN VFD 24/0,36/0 00151 M01S00142.control +++| QSEL EQU *-1 00152 M01S00143.control +++| QQUE VFD 12/0,48/0 00153 M01S00144.control +++| VFD 60/0 00154 M01S00145.control +++| VFD 60/0 00155 M01S00146.control +++| VFD 60/0 00156 M01S00147.control +++| QSPEC EQU * BEGINNING OF FUNCTION SPECIFIC WORDS 00157 M01S00148.control +++| SPACE 4,10 00158 M01S00149.control +++|** ALTER FUNCTION. 00159 M01S00150.control +++| 00160 M01S00151.control +++| 00161 M01S00152.control +++| QARF EQU 1 ALTER FUNCTION CODE 00162 M01S00153.control +++| 00163 M01S00154.control +++| LOC QSPEC 00164 M01S00155.control +++| QSSW VFD 6/0,24/0,30/0 00165 M01S00156.control +++| QALF EQU *-1 00166 M01S00157.control +++| VFD 60/0 00167 M01S00158.control +++| VFD 60/0 00168 M01S00159.control +++| VFD 60/0 00169 M01S00160.control +++| VFD 60/0 00170 M01S00161.control +++| QALTL EQU *-QFCN LENGTH OF ALTER REQUEST 00171 M01S00162.control +++| SPACE 4,10 00172 M01S00163.control +++|** PEEK FUNCTION. 00173 M01S00164.control +++| 00174 M01S00165.control +++| 00175 M01S00166.control +++| QPKF EQU 3 PEEK FUNCTION CODE 00176 M01S00167.control +++| 00177 M01S00168.control +++| LOC QSPEC 00178 M01S00169.control +++| QCNT VFD 12/0,12/0,12/0,12/0,12/0 00179 M01S00170.control +++| QENT VFD 36/0,12/0,12/0 00180 M01S00171.control +++| QPIB VFD 60/0 00181 M01S00172.control +++| VFD 60/0 00182 M01S00173.control +++| QPEKL EQU *-QFCN LENGTH OF PEEK REQUEST 00183 M01S00174.control +++| 00184 M01S00175.control +++| LOC *O 00185 M01S00176.control +++| ORG CONTROL 00186 M01S00177.control +++| TQPW SPACE 4,10 00187 M01S00178.control +++|** TQPW - TABLE OF *QAC* PRESET WORDS. 00188 M01S00179.control +++| 00189 M01S00180.control +++| 00190 M01S00181.control +++| TQPW BSS 0 00191 M01S00182.control +++| VFD 36/0,6/QALTL-5,18/MSGA 00192 M01S00183.control +++| VFD 42/0,18/MSGA 00193 M01S00184.control +++| VFD 42/0,18/MSGAE 00194 M01S00185.control +++| VFD 36/0,6/QPEKL-5,18/PBUF 00195 M01S00186.control +++| VFD 42/0,18/PBUF 00196 M01S00187.control +++| VFD 42/0,18/PBUFE 00197 M01S00188.control +++| FETS SPACE 4,10 00198 M01S00189.control +++|*** FETS. 00199 M01S00190.control +++| 00200 M01S00191.control +++| 00201 M01S00192.control +++| SCR FILEB SBUF,1,(FET=8) 00202 M01S00193.control +++| SPACE 4,10 00203 M01S00194.control +++|** DATA LOCATIONS. 00204 M01S00195.control +++| 00205 M01S00196.control +++| 00206 M01S00197.control +++| ZR CON 0 ZERO WORD FOR ARGUMENT PROCESSING 00207 M01S00198.control +++| TITLE COMMAND PROCESSORS. 00208 M01S00199.control +++| CFO SPACE 4,10 00209 M01S00200.control +++|*** CFO - CFO,JSN.COMMENT 00210 M01S00201.control +++|* ENTER COMMENT FROM OPERATOR IN JOB *JSN*. 00211 M01S00202.control +++| 00212 M01S00203.control +++| 00213 M01S00204.control +++| CFO BSS 0 ENTRY 00214 M01S00205.control +++| SX6 CFAF*10000B SET CFO ALTER FUNCTION 00215 M01S00206.control +++| EQ COM1 PROCESS COMMAND 00216 M01S00207.control +++| COMMENT SPACE 4,10 00217 M01S00208.control +++|*** COMMENT.CCC-CCC 00218 M01S00209.control +++|* ENTER COMMENT IN DAYFILE. 00219 M01S00210.control +++|* 00220 M01S00211.control +++|* COMMENT,JSN.COMMENT 00221 M01S00212.control +++|* ENTER COMMENT IN DAYFILE OF JOB *JSN*. 00222 M01S00213.control +++| 00223 M01S00214.control +++| 00224 M01S00215.control +++| COMMENT BSS 0 ENTRY 00225 M01S00216.control +++| SX6 DYAF*10000B SET COMMENT ALTER FUNCTION 00226 M01S00217.control +++| COM1 SB1 1 00227 M01S00218.control +++| SA6 COMA 00228 M01S00219.control +++| SA2 ACTR CHECK ARGUMENT COUNT 00229 M01S00220.control +++| SX2 X2 00230 M01S00221.control +++| AX3 X2,B1 00231 M01S00222.control +++| ZR X2,END IF LOCAL COMMENT 00232 M01S00223.control +++| NZ X3,ERR IF INCORRECT ARGUMENT COUNT 00233 M01S00224.control +++| RJ PQB PRESET QAC BLOCK 00234 M01S00225.control +++| SA1 ARGR 00235 M01S00226.control +++| RJ VJS VERIFY JSN 00236 M01S00227.control +++| NZ X2,ERR IF INCORRECT JSN 00237 M01S00228.control +++| SB2 0 FLAG EXECUTION QUEUE 00238 M01S00229.control +++| SB3 TALT 00239 M01S00230.control +++| RJ SSC SET SELECTION CRITERIA 00240 M01S00231.control +++| SB2 CCDR GET COMMENT 00241 M01S00232.control +++| RJ MCM MOVE COMMENT 00242 M01S00233.control +++| RJ SMG SET MESSAGE FOR *QAC* 00243 M01S00234.control +++| LT B7,B6,ERR IF NO MESSAGE 00244 M01S00235.control +++| SA1 COMA GET ALTER FUNCTION 00245 M01S00236.control +++| SA2 TALT+QALF 00246 M01S00237.control +++| BX6 X1+X2 00247 M01S00238.control +++| SA6 A2 00248 M01S00239.control +++| SX6 QARF CALL *QAC* 00249 M01S00240.control +++| SB3 TALT 00250 M01S00241.control +++| RJ QAC 00251 M01S00242.control +++| EQ ENL COMPLETE COMMAND 00252 M01S00243.control +++| 00253 M01S00244.control +++| COMA CON 0 ALTER FUNCTION SELECTION 00254 M01S00245.control +++| ERRMSG SPACE 4,20 00255 M01S00246.control +++|*** ERRMSG(PARAM) 00256 M01S00247.control +++|* 00257 M01S00248.control +++|* ENABLE OR DISABLE THE ECHOING OF *MS1W*/*MS2W* 00258 M01S00249.control +++|* ERROR MESSAGES TO THE TERMINAL BY *1RO*. ERROR MESSAGE 00259 M01S00250.control +++|* ECHOING CAN ONLY BE DISABLED FOR THE DURATION OF A 00260 M01S00251.control +++|* *CCL* PROCEDURE. ERROR MESSAGE PROCESSING REVERTS TO 00261 M01S00252.control +++|* NORMAL AFTER THE *CCL* PROCEDURE IS COMPLETED AND THE 00262 M01S00253.control +++|* USER RETURNS TO INTERACTIVE COMMAND MODE. 00263 M01S00254.control +++|* 00264 M01S00255.control +++|* ERRMSG(PARAM) 00265 M01S00256.control +++|* 00266 M01S00257.control +++|* PARAM ACTION 00267 M01S00258.control +++|* 00268 M01S00259.control +++|* OFF DISABLE THE ECHOING OF *MS1W*/*MS2W* 00269 M01S00260.control +++|* ERROR MESSAGES TO THE TERMINAL BY *1RO* 00270 M01S00261.control +++|* FOR THE DURATION OF A *CCL* PROCEDURE. 00271 M01S00262.control +++|* 00272 M01S00263.control +++|* ON ENABLE THE ECHOING OF *MS1W*/*MS2W* 00273 M01S00264.control +++|* ERROR MESSAGES TO THE TERMINAL BY *1RO*. 00274 M01S00265.control +++| 00275 M01S00266.control +++| 00276 M01S00267.control +++| ERRMSG BSS 0 ENTRY 00277 M01S00268.control +++| SB1 1 00278 M01S00269.control +++| SA1 ACTR 00279 M01S00270.control +++| SB4 X1 ARGUMENT COUNT 00280 M01S00271.control +++| SA4 ARGR ADDRESS OF FIRST ARGUMENT 00281 M01S00272.control +++| SB5 ERMB ADDRESS OF ARGUMENT TABLE 00282 M01S00273.control +++| RJ ARG PROCESS ARGUMENTS 00283 M01S00274.control +++| ZR X1,ERM1 IF NO ERROR 00284 M01S00275.control +++| MESSAGE ERME,,R ONLY CORRECT PARAMETERS ARE *ON* OR *OFF* 00285 M01S00276.control +++| ABORT 00286 M01S00277.control +++| 00287 M01S00278.control +++| ERM1 SA1 ERMC 00288 M01S00279.control +++| SA2 ERMD 00289 M01S00280.control +++| ZR X1,ERM2 IF COMMAND IS *ERRMSG,ON* 00290 M01S00281.control +++| ZR X2,ERM4 IF COMMAND IS *ERRMSG,OFF.* 00291 M01S00282.control +++| MESSAGE ERMF,,R PARAMETER *ON* OR *OFF* REQUIRED 00292 M01S00283.control +++| ABORT 00293 M01S00284.control +++| 00294 M01S00285.control +++| ERM2 ZR X2,ERM3 IF BOTH *ON* AND *OFF* SPECIFIED 00295 M01S00286.control +++| SX6 B0+ ENABLE TERMINAL ERROR MESSAGES 00296 M01S00287.control +++| SA6 ERMA 00297 M01S00288.control +++| EQ ERM5 CALL *CPM* 00298 M01S00289.control +++| 00299 M01S00290.control +++| ERM3 MESSAGE ERMG,,R ONLY ONE PARAMETER ALLOWED 00300 M01S00291.control +++| ABORT 00301 M01S00292.control +++| 00302 M01S00293.control +++| ERM4 SX6 B1+ DISABLE TERMINAL ERROR MESSAGES 00303 M01S00294.control +++| SA6 ERMA 00304 M01S00295.control +++| ERM5 SX1 ERMA 00305 M01S00296.control +++| SX2 135B DISABLE/ENABLE TERMINAL ERROR MESSAGES 00306 M01S00297.control +++| RJ CPM= 00307 M01S00298.control +++| ENDRUN END 00308 M01S00299.control +++| 00309 M01S00300.control +++| 00310 M01S00301.control +++| ERMA CON 0 *CPM* ARGUMENT WORD 00311 M01S00302.control +++| 00312 M01S00303.control +++| ERMB BSS 0 *ERRMSG* CARD ARGUMENT TABLE 00313 M01S00304.control +++| ON ARG -ZR,ERMC 00314 M01S00305.control +++| OFF ARG -ZR,ERMD 00315 M01S00306.control +++| ARG 00316 M01S00307.control +++| 00317 M01S00308.control +++| ERMC DATA -1 *ON* PARAMETER 00318 M01S00309.control +++| ERMD DATA -1 *OFF* PARAMETER 00319 M01S00310.control +++| 00320 M01S00311.control +++| ERME DATA C$ ONLY CORRECT PARAMETERS ARE *ON* OR *OFF*.$ 00321 M01S00312.control +++| ERMF DATA C$ PARAMETER *ON* OR *OFF* REQUIRED.$ 00322 M01S00313.control +++| ERMG DATA C$ PARAMETERS *ON* AND *OFF* ARE MUTUALLY EXCLUSIVE.$ 00323 M01S00314.control +++| EXIT SPACE 4,10 00324 M01S00315.control +++|*** EXIT. 00325 M01S00316.control +++|* TERMINATE JOB. 00326 M01S00317.control +++| 00327 M01S00318.control +++| 00328 M01S00319.control +++| EXIT BSS 0 ENTRY 00329 M01S00320.control +++| SB1 1 00330 M01S00321.control +++| RETURN SCR,R 00331 M01S00322.control +++| ENCSF SCR 00332 M01S00323.control +++| EQ END COMPLETE COMMAND 00333 M01S00324.control +++| FAMILY SPACE 4,10 00334 M01S00325.control +++|*** FAMILY(FAMNAME). 00335 M01S00326.control +++|* 00336 M01S00327.control +++|* ALTER THE FAMILY NAME FOR THE JOB. 00337 M01S00328.control +++|* ONLY VALID FOR *SYOT* JOBS. 00338 M01S00329.control +++|* NOT VALID ON SECURED SYSTEM. 00339 M01S00330.control +++| 00340 M01S00331.control +++| 00341 M01S00332.control +++| FAMILY BSS 0 ENTRY 00342 M01S00333.control +++| SB1 1 00343 M01S00334.control +++| SA2 ACTR CHECK PARAMETER COUNT 00344 M01S00335.control +++| SB2 X2 00345 M01S00336.control +++| ZR B2,FAM1 IF NO PARAMETERS SPECIFIED 00346 M01S00337.control +++| GT B2,B1,ERR IF TOO MANY PARAMETERS SPECIFIED 00347 M01S00338.control +++| SA1 ARGR GET FAMILY NAME 00348 M01S00339.control +++| BX6 X1 00349 M01S00340.control +++| SA6 FAMA 00350 M01S00341.control +++| FAM1 ENFAM FAMA ENTER FAMILY NAME 00351 M01S00342.control +++| SA1 FAMA 00352 M01S00343.control +++| MX0 -6 00353 M01S00344.control +++| BX5 -X0*X1 00354 M01S00345.control +++| LX1 48 00355 M01S00346.control +++| NG X1,ERR4 IF INCORRECT FAMILY NAME 00356 M01S00347.control +++| ZR X5,FAM2 IF DEFAULT NOT USED 00357 M01S00348.control +++| MESSAGE (=C* DEFAULT FAMILY USED.*),3 00358 M01S00349.control +++| FAM2 ENDRUN 00359 M01S00350.control +++| 00360 M01S00351.control +++| FAMA CON 0 FAMILY NAME 00361 M01S00352.control +++| GO SPACE 4,10 00362 M01S00353.control +++|** GO,JSN. 00363 M01S00354.control +++|* SEND *GO* TO JOB JSN. 00364 M01S00355.control +++| 00365 M01S00356.control +++| 00366 M01S00357.control +++| GO BSS 0 ENTRY 00367 M01S00358.control +++| SA0 GOAF*10000B *GO* FLAG 00368 M01S00359.control +++| GO1 SB1 1 00369 M01S00360.control +++| RJ PQB PRESET REQUEST BLOCK 00370 M01S00361.control +++| SA2 ACTR 00371 M01S00362.control +++| SA1 ARGR 00372 M01S00363.control +++| SB2 X2+ 00373 M01S00364.control +++| NE B2,B1,ERR IF NOT ONE ARGUMENT 00374 M01S00365.control +++| RJ VJS VALIDATE JSN 00375 M01S00366.control +++| SB2 0 FLAG EXECUTION QUEUE 00376 M01S00367.control +++| NZ X2,ERR IF INCORRECT JSN 00377 M01S00368.control +++| SB3 TALT 00378 M01S00369.control +++| RJ SSC SET SELECTION CRITERIA 00379 M01S00370.control +++| SA2 TALT+QALF SET ALTER FLAG 00380 M01S00371.control +++| SX1 A0+ 00381 M01S00372.control +++| BX7 X2+X1 00382 M01S00373.control +++| SA7 A2 00383 M01S00374.control +++| SX6 QARF SET ALTER FUNCTION 00384 M01S00375.control +++| SB3 TALT 00385 M01S00376.control +++| RJ QAC CALL *QAC* 00386 M01S00377.control +++| EQ ENL COMPLETE COMMAND 00387 M01S00378.control +++| MACHINE SPACE 4,10 00388 M01S00379.control +++|*** MACHINE(EP=XX) 00389 M01S00380.control +++|* XX=ON/OFF. 00390 M01S00381.control +++|* 00391 M01S00382.control +++|* SETS OR CLEARS THE STACK PURGING BIT ON THE CYBER 170-8X5 00392 M01S00383.control +++|* MAINFRAME. IF THE STACK PURGING BIT IS SET, ALL STORES AND 00393 M01S00384.control +++|* CONDITIONAL BRANCHES WILL CAUSE THE STACK TO BE PURGED. 00394 M01S00385.control +++| 00395 M01S00386.control +++| 00396 M01S00387.control +++| MACHINE BSS 0 ENTRY 00397 M01S00388.control +++| SX6 TMAA ARGUMENT TABLE ADDRESS 00398 M01S00389.control +++| SX7 TMAAL 00399 M01S00390.control +++| RJ PKP PROCESS KEYBOARD OR POSITIONAL ARGUMENTS 00400 M01S00391.control +++| NZ X1,ERR IF NO ARGUMENTS SPECIFIED 00401 M01S00392.control +++| SA1 PROA ARGUMENT VALUE 00402 M01S00393.control +++| SA2 =2LON 00403 M01S00394.control +++| SA3 =3LOFF 00404 M01S00395.control +++| BX2 X1-X2 00405 M01S00396.control +++| SX4 B1 PRESET FOR PURGE BIT TO BE SET 00406 M01S00397.control +++| ZR X2,MAC1 IF PURGE BIT TO BE SET 00407 M01S00398.control +++| BX6 X1-X3 00408 M01S00399.control +++| NZ X6,ERR IF NEITHER YES OR NO SPECIFIED 00409 M01S00400.control +++| MX4 0 00410 M01S00401.control +++| MAC1 MODE ,,X4 00411 M01S00402.control +++| EQ END COMPLETE COMMAND 00412 M01S00403.control +++| 00413 M01S00404.control +++| 00414 M01S00405.control +++|** TMAA - TABLE OF VALID ARGUMENTS FOR *MACHINE*. 00415 M01S00406.control +++|* 00416 M01S00407.control +++| 00417 M01S00408.control +++| 00418 M01S00409.control +++| TMAA BSS 0 00419 M01S00410.control +++| EP ARG ZR,PROA 00420 M01S00411.control +++| ARG 00421 M01S00412.control +++| TMAAL EQU *-TMAA-1 00422 M01S00413.control +++| MFL SPACE 4,10 00423 M01S00414.control +++|*** MFL(NNNNNN,MMMMM) 00424 M01S00415.control +++|* MFL(CM=NNNNNN,EC=MMMMM) 00425 M01S00416.control +++|* SET MAXIMUM CM FIELD LENGTH (MAXFL(CM)) = NNNNNN. 00426 M01S00417.control +++|* SET MAXIMUM EM FIELD LENGTH (MAXFL(ECS)) = MMMMM*1000B. 00427 M01S00418.control +++|* 00428 M01S00419.control +++|* ARGUMENTS MAY BE ENTERED WITH KEYWORDS OR POSITIONALLY OR 00429 M01S00420.control +++|* MIXED. IF MIXED, THOSE WITHOUT KEYWORDS WILL BE EVALUATED 00430 M01S00421.control +++|* ACCORDING TO THEIR POSITION AMONG ALL THE ARGUMENTS. 00431 M01S00422.control +++| 00432 M01S00423.control +++| 00433 M01S00424.control +++| MFL BSS 0 ENTRY 00434 M01S00425.control +++| RJ CMP CONVERT PARAMETERS 00435 M01S00426.control +++| ZR X1,MFL2 IF NO CM CHANGE 00436 M01S00427.control +++| SX1 X1+ 00437 M01S00428.control +++| ZR X1,MFL1 IF SET MFL TO MAXFL REQUEST 00438 M01S00429.control +++| SX5 RFL=+100B CHECK MFL REQUEST 00439 M01S00430.control +++| BX6 X1 00440 M01S00431.control +++| AX5 6 00441 M01S00432.control +++| AX6 6 00442 M01S00433.control +++| IX2 X6-X5 00443 M01S00434.control +++| PL X2,MFL1 IF REQUESTED MFL .GE. *CONTROL*S RFL= 00444 M01S00435.control +++| MESSAGE (=C* MFL REQUEST TOO SMALL, MINIMUM USED.*) 00445 M01S00436.control +++| SX1 RFL= SET MINIMUM MFL VALUE 00446 M01S00437.control +++| MFL1 SETMFL X1 00447 M01S00438.control +++| MFL2 ZR X3,END IF NO EXTENDED MEMORY CHANGE 00448 M01S00439.control +++| SX3 X3 00449 M01S00440.control +++| SETMFL ,X3 00450 M01S00441.control +++| EQ END COMPLETE COMMAND 00451 M01S00442.control +++| TMRA SPACE 4,10 00452 M01S00443.control +++|** TMRA - TABLE OF *MFL* AND *RFL* ARGUMENTS. 00453 M01S00444.control +++|* SEE *COMCMAC* MACRO *ARG* FOR FORMAT. 00454 M01S00445.control +++| 00455 M01S00446.control +++| 00456 M01S00447.control +++| TMRA BSS 0 00457 M01S00448.control +++| CM ARG ZR,TCKA,400B CM FIELD LENGTH 00458 M01S00449.control +++| EC ARG ZR,TCKA+1,400B EXTENDED MEMORY FIELD LENGTH 00459 M01S00450.control +++| ARG 00460 M01S00451.control +++| TMRAL EQU *-TMRA-1 ARGUMENT TABLE LENGTH 00461 M01S00452.control +++| MODE SPACE 4,10 00462 M01S00453.control +++|*** MODE M,N 00463 M01S00454.control +++|* M = PROGRAM ERROR EXIT MODES. 00464 M01S00455.control +++|* N = HARDWARE ERROR EXIT MODES. 00465 M01S00456.control +++|* SET ERROR EXIT MODE = N00M. 00466 M01S00457.control +++| 00467 M01S00458.control +++| 00468 M01S00459.control +++| MODE BSS 0 ENTRY 00469 M01S00460.control +++| SA2 ACTR CHECK ARGUMENT COUNT 00470 M01S00461.control +++| SB1 1 00471 M01S00462.control +++| SX7 X2 00472 M01S00463.control +++| SB7 B0 OCTAL BASE 00473 M01S00464.control +++| SA5 ARGR ARGUMENT 00474 M01S00465.control +++| ZR X7,ERR ERROR IF NO ARGUMENT 00475 M01S00466.control +++| SB6 X7 SAVE NUMBER OF PARAMETERS 00476 M01S00467.control +++| RJ DXB CONVERT DIGITS 00477 M01S00468.control +++| NZ X4,ERR IF ERROR ENCOUNTERED 00478 M01S00469.control +++| SX7 X6-20B 00479 M01S00470.control +++| PL X7,ERR IF .GT. 20B 00480 M01S00471.control +++| BX7 X6 00481 M01S00472.control +++| SA5 A5+B1 GET NEXT PARAMETER 00482 M01S00473.control +++| SX6 EEMC/1000B DEFAULT HARDWARE MODE BITS (7XXX) 00483 M01S00474.control +++| EQ B6,B1,MOD1 IF ONLY 1 PARAMETER 00484 M01S00475.control +++| SA7 MODA SAVE FIRST PARAMETER 00485 M01S00476.control +++| RJ DXB CONVERT DIGITS 00486 M01S00477.control +++| NZ X4,ERR IF ERROR 00487 M01S00478.control +++| SX0 X6-10B 00488 M01S00479.control +++| PL X0,ERR IF .GT. 7 00489 M01S00480.control +++| SA2 MODA RESTORE FIRST PARAMETER 00490 M01S00481.control +++| BX7 X2 00491 M01S00482.control +++| MOD1 MODE X7,X6 00492 M01S00483.control +++| EQ END COMPLETE COMMAND 00493 M01S00484.control +++| 00494 M01S00485.control +++| MODA BSS 1 TEMPORARY SAVE 00495 M01S00486.control +++| NOEXIT SPACE 4,10 00496 M01S00487.control +++|*** NOEXIT. 00497 M01S00488.control +++|* SUPPRESS PROCESSING OF *EXIT* COMMAND IF JOB ABORTS. 00498 M01S00489.control +++| 00499 M01S00490.control +++| 00500 M01S00491.control +++| NOEXIT BSS 0 ENTRY 00501 M01S00492.control +++| SX1 1 SET NO EXIT 00502 M01S00493.control +++| NOX1 SA3 ACTR CHECK ARGUMENT COUNT 00503 M01S00494.control +++| SB1 1 00504 M01S00495.control +++| SX7 X3+ 00505 M01S00496.control +++| NZ X7,ERR IF ARGUMENTS PRESENT 00506 M01S00497.control +++| SX2 7 00507 M01S00498.control +++| RJ =XCPM= 00508 M01S00499.control +++| EQ END COMPLETE COMMAND 00509 M01S00500.control +++| NORERUN SPACE 4,10 00510 M01S00501.control +++|*** NORERUN. 00511 M01S00502.control +++|* SET INPUT FILE INTO NORERUN STATUS. 00512 M01S00503.control +++| 00513 M01S00504.control +++| 00514 M01S00505.control +++| NORERUN BSS 0 ENTRY 00515 M01S00506.control +++| RJ VRN VERIFY CALLER 00516 M01S00507.control +++| NORERUN SET NO RERUN 00517 M01S00508.control +++| EQ END COMPLETE COMMAND 00518 M01S00509.control +++| ONEXIT SPACE 4,10 00519 M01S00510.control +++|*** ONEXIT. 00520 M01S00511.control +++|* RESET PROCESSING OF *EXIT* COMMAND. 00521 M01S00512.control +++| 00522 M01S00513.control +++| 00523 M01S00514.control +++| ONEXIT BSS 0 ENTRY 00524 M01S00515.control +++| SX1 B0 SET ONEXIT 00525 M01S00516.control +++| EQ NOX1 PROCESS COMMAND 00526 M01S00517.control +++| ONSW SPACE 4,20 00527 M01S00518.control +++|*** ONSW (X1,X2,...XN) 00528 M01S00519.control +++|* SET SENSE SWITCHES XN. 00529 M01S00520.control +++|* IF XN = 0, ALL SWITCHES WILL BE SET. 00530 M01S00521.control +++|* 00531 M01S00522.control +++|* ONSW (X1,X2,...XN,JSN) 00532 M01S00523.control +++|* SET SENSE SWITCHES XN ON JOB JSN. 00533 M01S00524.control +++|* IF XN = 0, ALL SWITCHES WILL BE SET. 00534 M01S00525.control +++|* JSN MAY APPEAR ONCE ANYWHERE IN THE LIST. 00535 M01S00526.control +++|* 00536 M01S00527.control +++|* SWITCH (X1,X2,...XN) 00537 M01S00528.control +++|* SET SENSE SWITCHES XN. 00538 M01S00529.control +++|* IF XN = 0, ALL SWITCHES WILL BE SET. 00539 M01S00530.control +++|* 00540 M01S00531.control +++|* SWITCH (X1,X2,...XN,JSN) 00541 M01S00532.control +++|* SET SENSE SWITCH XN ON JOB JSN. 00542 M01S00533.control +++|* IF XN = 0, ALL SWITCHES WILL BE SET. 00543 M01S00534.control +++|* JSN MAY APPEAR ONCE ANYWHERE IN THE LIST. 00544 M01S00535.control +++| 00545 M01S00536.control +++| 00546 M01S00537.control +++| ONSW BSS 0 ENTRY 00547 M01S00538.control +++| SWITCH BSS 0 ENTRY 00548 M01S00539.control +++| SA0 SSAF+DYAF*10000B SET *ONSW* AND DAYFILE MESSAGE FLAGS 00549 M01S00540.control +++| ONS1 SA2 ACTR CHECK ARGUMENT COUNT 00550 M01S00541.control +++| SB1 1 00551 M01S00542.control +++| SB6 X2 00552 M01S00543.control +++| SB5 B0 00553 M01S00544.control +++| ZR B6,ERR ERROR IF NO ARGUMENTS 00554 M01S00545.control +++| SB7 B0 SET OCTAL BASE 00555 M01S00546.control +++| SA5 ARGR FIRST ARGUMENT 00556 M01S00547.control +++| ONS2 RJ DXB UNPACK OCTAL DIGIT 00557 M01S00548.control +++| NZ X4,ONS5 IF INCORRECT NUMBER 00558 M01S00549.control +++| SX3 X6-7 00559 M01S00550.control +++| PL X3,ONS5 IF INCORRECT SWITCH VALUE 00560 M01S00551.control +++| SA2 ONSA 00561 M01S00552.control +++| SX1 77B PRESET ALL SWITCHES 00562 M01S00553.control +++| ZR X6,ONS3 IF N = 0 00563 M01S00554.control +++| SB2 X6 SET SWITCH BIT 00564 M01S00555.control +++| MX0 1 00565 M01S00556.control +++| LX1 X0,B2 00566 M01S00557.control +++| ONS3 BX6 X2+X1 ACCUMULATE SWITCHES 00567 M01S00558.control +++| SA6 A2 00568 M01S00559.control +++| ONS4 SB6 B6-B1 NEXT ARGUMENT 00569 M01S00560.control +++| SA5 A5+B1 00570 M01S00561.control +++| NZ B6,ONS2 LOOP FOR ALL ARGUMENTS 00571 M01S00562.control +++| SA1 ONSB CHECK FOR LOCAL REQUEST 00572 M01S00563.control +++| SX2 A0 00573 M01S00564.control +++| LX2 59-11 00574 M01S00565.control +++| NZ X1,ONS7 IF NOT LOCAL 00575 M01S00566.control +++| NG X2,ONS6 IF LOCAL *OFFSW* COMMAND 00576 M01S00567.control +++| ONSW X6 00577 M01S00568.control +++| EQ END COMPLETE COMMAND 00578 M01S00569.control +++| 00579 M01S00570.control +++| ONS5 BX1 X5 VALIDATE JSN 00580 M01S00571.control +++| RJ VJS 00581 M01S00572.control +++| NZ X2,ERR IF NOT VALID JSN 00582 M01S00573.control +++| SA3 ONSB 00583 M01S00574.control +++| BX6 X1 00584 M01S00575.control +++| NZ X3,ERR IF JSN ENCOUNTERED BEFORE 00585 M01S00576.control +++| SA6 A3 00586 M01S00577.control +++| EQ ONS4 PROCESS NEXT PARAMETER 00587 M01S00578.control +++| 00588 M01S00579.control +++| ONS6 OFFSW X6 00589 M01S00580.control +++| EQ END COMPLETE COMMAND 00590 M01S00581.control +++| 00591 M01S00582.control +++| ONS7 RJ PQB PRESET PARAMETER BLOCK 00592 M01S00583.control +++| SB2 B0 FLAG EXECUTION QUEUE 00593 M01S00584.control +++| SB7 A0 00594 M01S00585.control +++| SB3 TALT 00595 M01S00586.control +++| SA1 ONSB 00596 M01S00587.control +++| RJ SSC SET SELECTION CRITERIA 00597 M01S00588.control +++| GETPFP ONSC CHECK IF CALLER IS OPERATOR 00598 M01S00589.control +++| SA1 ONSC+2 00599 M01S00590.control +++| MX0 -18 00600 M01S00591.control +++| BX1 -X0*X1 ISOLATE USER INDEX 00601 M01S00592.control +++| SX1 X1-377777B 00602 M01S00593.control +++| NZ X1,ONS8 IF CALLER IS NOT OPERATOR 00603 M01S00594.control +++| SB2 ONSD SET *FROM OPERATOR* SUFFIX 00604 M01S00595.control +++| EQ ONS9 SET UP MESSAGE 00605 M01S00596.control +++| 00606 M01S00597.control +++| ONS8 GETJN ONSE+1 GET SENDING JOB-S JSN 00607 M01S00598.control +++| SB2 ONSE SET *FROM JOB* SUFFIX 00608 M01S00599.control +++| ONS9 RJ MDM MOVE *ONSW*/*OFFSW* MESSAGE 00609 M01S00600.control +++| RJ SMG SET MESSAGE FOR *QAC* 00610 M01S00601.control +++| SA1 ONSA GET SENSE SWITCHES 00611 M01S00602.control +++| SA2 TALT+QSSW STORE SENSE SWITCHES 00612 M01S00603.control +++| LX1 59-5 00613 M01S00604.control +++| BX6 X1+X2 00614 M01S00605.control +++| ERRNZ QSSW-QALF ENSURE ORDER OF BLOCK IS CORRECT 00615 M01S00606.control +++| SX7 A0 SENSE SWITCH FUNCTION 00616 M01S00607.control +++| BX6 X6+X7 SET ALTER FUNCTION 00617 M01S00608.control +++| SA6 A2+ 00618 M01S00609.control +++| SX6 QARF SET ALTER FUNCTION 00619 M01S00610.control +++| SB3 TALT 00620 M01S00611.control +++| RJ QAC CALL *QAC* 00621 M01S00612.control +++| EQ ENL COMPLETE COMMAND 00622 M01S00613.control +++| 00623 M01S00614.control +++| ONSA CON 0 SENSE SWITCH VALUES 00624 M01S00615.control +++| ONSB CON 0 SPECIFIED JSN 00625 M01S00616.control +++| ONSC BSS 3 *GETPFP* INFORMATION 00626 M01S00617.control +++| 00627 M01S00618.control +++| ONSD DATA C* FROM OPERATOR* MESSAGE SUFFIX FOR OPERATOR CALL 00628 M01S00619.control +++| 00629 M01S00620.control +++| ONSE DATA H* FROM JOB * MESSAGE SUFFIX FOR USER JOB CALL 00630 M01S00621.control +++| CON 0 00631 M01S00622.control +++| OFFSW SPACE 4,10 00632 M01S00623.control +++|*** OFFSW (X1,X2,...,XN) 00633 M01S00624.control +++|* CLEAR SENSE SWITCHES XN. 00634 M01S00625.control +++|* IF XN = 0, ALL SWITCHES WILL BE CLEARED. 00635 M01S00626.control +++|* 00636 M01S00627.control +++|* OFFSW (X1,X2,...XN,JSN) 00637 M01S00628.control +++|* CLEAR SENSE SWITCHES XN ON JOB JSN. 00638 M01S00629.control +++|* JSN MAY APPEAR ONCE ANYWHERE IN THE LIST. 00639 M01S00630.control +++|* IF XN = 0, ALL SWITCHES WILL BE CLEARED. 00640 M01S00631.control +++| 00641 M01S00632.control +++| 00642 M01S00633.control +++| OFFSW BSS 0 ENTRY 00643 M01S00634.control +++| SA0 CSAF+DYAF*10000B SET *OFFSW* AND DAYFILE MSG FLAGS 00644 M01S00635.control +++| EQ ONS1 PROCESS COMMAND 00645 M01S00636.control +++| OPMSG SPACE 4,10 00646 M01S00637.control +++|*** OPMSG.CCC-CCC 00647 M01S00638.control +++|* SEND MESSAGE TO OPERATOR DISPLAY. 00648 M01S00639.control +++|* IF NO COMMENT THEN TREAT AS A *NOP* 00649 M01S00640.control +++|* ELSE, WAIT FOR OPERATOR REPLY. 00650 M01S00641.control +++| 00651 M01S00642.control +++| 00652 M01S00643.control +++| OPMSG BSS 0 ENTRY 00653 M01S00644.control +++| SB2 CCDR 00654 M01S00645.control +++| SB1 1 00655 M01S00646.control +++| SA1 ACTR CHECK IF PARAMETERS SPECIFIED ON COMMAND 00656 M01S00647.control +++| SX6 X1 00657 M01S00648.control +++| NZ X6,ERR IF INVALID COMMAND 00658 M01S00649.control +++| SA6 MSGA 00659 M01S00650.control +++| RJ MCM UNPACK MESSAGE 00660 M01S00651.control +++| SA1 MSGA 00661 M01S00652.control +++| ZR X1,END IF NO MESSAGE 00662 M01S00653.control +++| OPMSG MSGA SEND MESSAGE TO OPERATOR DISPLAY 00663 M01S00654.control +++| OPM1 SA1 B0 00664 M01S00655.control +++| LX1 59-14 POSITION CFO BIT 00665 M01S00656.control +++| PL X1,END IF REPLY 00666 M01S00657.control +++| RECALL 00667 M01S00658.control +++| EQ OPM1 CHECK FOR REPLY 00668 M01S00659.control +++| PAUSE SPACE 4,10 00669 M01S00660.control +++|*** PAUSE,JSN. 00670 M01S00661.control +++|* SET *PAUSE* FLAG ON JOB JSN. 00671 M01S00662.control +++| 00672 M01S00663.control +++| 00673 M01S00664.control +++| PAUSE BSS 0 ENTRY 00674 M01S00665.control +++| SA0 PAAF*10000B SET *PAUSE* FLAG FOR *QAC* CALL 00675 M01S00666.control +++| EQ GO1 PROCESS COMMAND 00676 M01S00667.control +++| PROTECT SPACE 4,10 00677 M01S00668.control +++|*** PROTECT,O1. 00678 M01S00669.control +++|* PROTECT,EC=O1. 00679 M01S00670.control +++|* IF O1 = ON, TURN ON JOB CONTROL FOR SPECIFIED ARGUMENT. 00680 M01S00671.control +++|* IF O1 = OFF, TURN OFF JOB CONTROL. 00681 M01S00672.control +++|* 00682 M01S00673.control +++|* ARGUMENTS MAY BE ENTERED WITH KEYWORDS OR POSITIONALLY OR 00683 M01S00674.control +++|* MIXED. IF MIXED, THOSE WITHOUT KEYWORDS WILL BE EVALUATED 00684 M01S00675.control +++|* ACCORDING TO THEIR POSITION AMONG ALL THE ARGUMENTS. 00685 M01S00676.control +++| 00686 M01S00677.control +++| 00687 M01S00678.control +++| PROTECT BSS 0 ENTRY 00688 M01S00679.control +++| SX6 TPRA ARGUMENT TABLE ADDRESS 00689 M01S00680.control +++| SX7 TPRAL 00690 M01S00681.control +++| RJ PKP PROCESS KEYWORD OR POSITIONAL ARGUMENTS 00691 M01S00682.control +++| NZ X1,ERR IF NO ARGUMENTS SPECIFIED 00692 M01S00683.control +++| 00693 M01S00684.control +++|* FORM BIT FLAGS TO SET/CLEAR. 00694 M01S00685.control +++| 00695 M01S00686.control +++| SB7 B0+ SET POSITION IN CRACKED PARAMETER TABLE 00696 M01S00687.control +++| PRO1 SA1 TCKA+B7 GET PARAMETER VALUE 00697 M01S00688.control +++| ZR X1,PRO4 IF NO VALUE SPECIFIED 00698 M01S00689.control +++| SA5 =3LOFF CHECK IF VALUE = *OFF* 00699 M01S00690.control +++| SA4 =2LON CHECK IF VALUE = *ON* 00700 M01S00691.control +++| BX6 X1-X5 00701 M01S00692.control +++| BX7 X1-X4 00702 M01S00693.control +++| ZR X6,PRO2 IF *OFF* 00703 M01S00694.control +++| NZ X7,ERR IF NOT *ON* 00704 M01S00695.control +++| SB6 B7+1 SET SHIFT COUNT 00705 M01S00696.control +++| EQ PRO3 POSITION *ON* FLAG 00706 M01S00697.control +++| 00707 M01S00698.control +++| PRO2 SB6 B7+13 SET SHIFT COUNT 00708 M01S00699.control +++| PRO3 MX6 1 POSITION BIT FLAG 00709 M01S00700.control +++| LX6 X6,B6 00710 M01S00701.control +++| SA1 PROA 00711 M01S00702.control +++| BX7 X1+X6 00712 M01S00703.control +++| SA7 A1 00713 M01S00704.control +++| PRO4 SB7 B7+1 INCREMENT TABLE POSITION 00714 M01S00705.control +++| SB6 B7-TPRAL 00715 M01S00706.control +++| NZ B6,PRO1 IF MORE ARGUMENTS TO PROCESS 00716 M01S00707.control +++| SA1 PROA 00717 M01S00708.control +++| ZR X1,ERR IF NO ARGUMENTS SPECIFIED 00718 M01S00709.control +++| PROTECT 00719 M01S00710.control +++| EQ END COMPLETE COMMAND 00720 M01S00711.control +++| 00721 M01S00712.control +++| PROA CON 0 36/0,12/*OFF* FLAGS,12/*ON* FLAGS 00722 M01S00713.control +++| TPRA SPACE 4,10 00723 M01S00714.control +++|** TPRA - TABLE OF *PROTECT* ARGUMENTS. 00724 M01S00715.control +++|* SEE *COMCMAC* MACRO *ARG* FOR FORMAT. 00725 M01S00716.control +++| 00726 M01S00717.control +++| 00727 M01S00718.control +++| TPRA BSS 0 00728 M01S00719.control +++| EC ARG ZR,TCKA PRESERVE EXTENDED MEMORY OVER JOB STEP 00729 M01S00720.control +++| ARG 00730 M01S00721.control +++| TPRAL EQU *-TPRA-1 ARGUMENT TABLE LENGTH 00731 M01S00722.control +++| RERUN SPACE 4,10 00732 M01S00723.control +++|*** RERUN. 00733 M01S00724.control +++|* SET INPUT FILE FOR POSSIBLE RERUN. 00734 M01S00725.control +++| 00735 M01S00726.control +++| 00736 M01S00727.control +++| RERUN BSS 0 ENTRY 00737 M01S00728.control +++| RJ VRN VERIFY CALLER 00738 M01S00729.control +++| RERUN SET RERUN CAPABLITY ON INPUT FILE 00739 M01S00730.control +++| EQ END COMPLETE COMMAND 00740 M01S00731.control +++| RFL SPACE 4,10 00741 M01S00732.control +++|*** RFL(NNNNNN,MMMMM) 00742 M01S00733.control +++|* RFL(CM=NNNNNN,EC=MMMMM) 00743 M01S00734.control +++|* SET NOMINAL CM FIELD LENGTH (NFL(CM)) = NNNNNN. 00744 M01S00735.control +++|* SET NOMINAL EM FIELD LENGTH (NFL(ECS)) = MMMMM*1000B. 00745 M01S00736.control +++|* 00746 M01S00737.control +++|* ARGUMENTS MAY BE ENTERED WITH KEYWORDS OR POSITIONALLY OR 00747 M01S00738.control +++|* MIXED. IF MIXED, THOSE WITHOUT KEYWORDS WILL BE EVALUATED 00748 M01S00739.control +++|* ACCORDING TO THEIR POSITION AMONG ALL THE ARGUMENTS. 00749 M01S00740.control +++| 00750 M01S00741.control +++| 00751 M01S00742.control +++| RFL BSS 0 ENTRY 00752 M01S00743.control +++| RJ CMP CONVERT PARAMETERS 00753 M01S00744.control +++| ZR X1,RFL1 IF NO CM CHANGE 00754 M01S00745.control +++| SX1 X1+ 00755 M01S00746.control +++| SETRFL X1 00756 M01S00747.control +++| RFL1 ZR X3,END IF NO EXTENDED MEMORY CHANGE 00757 M01S00748.control +++| SX3 X3 00758 M01S00749.control +++| SETRFL ,X3 00759 M01S00750.control +++| EQ END COMPLETE COMMAND 00760 M01S00751.control +++| ROLLOUT SPACE 4,10 00761 M01S00752.control +++|*** ROLLOUT. 00762 M01S00753.control +++|* ROLLOUT JOB. 00763 M01S00754.control +++|* 00764 M01S00755.control +++|* ROLLOUT(TTTTTTB) 00765 M01S00756.control +++|* 00766 M01S00757.control +++|* ROLLOUT THE JOB FOR THE SPECIFIED *TTTTTTB* SCHEDULER 00767 M01S00758.control +++|* PERIODS. THE DEFAULT IS DECIMAL TIME ( ASSUME 1 SECOND 00768 M01S00759.control +++|* AS THE DEFAULT SCHEDULER INTERVAL ). 00769 M01S00760.control +++|* THE MAXIMUM TIME ALLOWED IS 777700B. 00770 M01S00761.control +++| 00771 M01S00762.control +++| 00772 M01S00763.control +++| ROLLOUT BSS 0 ENTRY 00773 M01S00764.control +++| SA2 ACTR CHECK ARGUMENT COUNT 00774 M01S00765.control +++| SB1 1 00775 M01S00766.control +++| SB7 X2 ISOLATE COUNT AND SET DEFAULT FOR DXB 00776 M01S00767.control +++| NZ B7,ROL1 IF TIME PARAMETER SPECIFIED 00777 M01S00768.control +++| ROLLOUT 00778 M01S00769.control +++| EQ END COMPLETE COMMAND 00779 M01S00770.control +++| 00780 M01S00771.control +++|* PROCESS EXTENDED ROLLOUT. 00781 M01S00772.control +++| 00782 M01S00773.control +++| ROL1 NE B1,B7,ERR IF MORE THAN 1 ARGUMENT 00783 M01S00774.control +++| SA5 ARGR CONVERT TIME ARGUMENT 00784 M01S00775.control +++| RJ DXB DEFAULT DECIMAL CONVERSION 00785 M01S00776.control +++| NZ X4,ERR IF ARGUMENT ERROR 00786 M01S00777.control +++| SA1 ROLA 00787 M01S00778.control +++|* 00788 M01S00779.control +++|* COMPENSATE FOR 7777B MULTIPLICATION. 00789 M01S00780.control +++|* TIME PARAMETER = XXYYYYB. 00790 M01S00781.control +++|* XXYYYYB = XX*10000B + YYYY. 00791 M01S00782.control +++|* XXYYYYB = XX*7777B + XX + YYYY. 00792 M01S00783.control +++|* 00793 M01S00784.control +++| BX2 X6 COMPENSATE FOR 7777B MULTIPLY 00794 M01S00785.control +++| AX2 12 00795 M01S00786.control +++| IX6 X6+X2 00796 M01S00787.control +++| MX0 42 VERIFY TIME ARGUMENT 00797 M01S00788.control +++| BX2 X0*X6 00798 M01S00789.control +++| NZ X2,ERR IF ARGUMENT .GT. 777700B 00799 M01S00790.control +++| BX6 X6+X1 SET EXTENDED TIME EVENT 00800 M01S00791.control +++| SA6 A1 00801 M01S00792.control +++| ROLLOUT ROLA 00802 M01S00793.control +++| EQ END COMPLETE COMMAND 00803 M01S00794.control +++| 00804 M01S00795.control +++| ROLA VFD 30/0,18//EVENT/EXTM,12/0 00805 M01S00796.control +++| SETPR SPACE 4,10 00806 M01S00797.control +++|*** SETPR (NN) 00807 M01S00798.control +++|* SET CPU PRIORITY = NN. 00808 M01S00002.ns2731 +++|* IF NN = *, SET CPU PRIORITY TO SERVICE CLASS VALUE. 00809 M01S00799.control +++| 00810 M01S00800.control +++| 00811 M01S00801.control +++| SETPR BSS 0 ENTRY 00812 M01S00802.control +++| SA2 ACTR CHECK ARGUMENT COUNT 00813 M01S00803.control +++| SB1 1 00814 M01S00804.control +++| SX7 X2 00815 M01S00805.control +++| SB7 B0 SET OCTAL BASE 00816 M01S00806.control +++| SA5 ARGR ARGUMENT 00817 M01S00807.control +++| ZR X7,ERR ERROR IF NO ARGUMENT
| Line S00808 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00818 M02S00808.ns2731 ---| RJ DXB CONVERT
| Line S00809 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00819 M02S00809.ns2731 ---| NZ X4,ERR
| Line S00810 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00820 M02S00810.ns2731 ---| SX7 100B
| Line S00811 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00821 M02S00811.ns2731 ---| IX7 X6-X7
| Line S00812 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00822 M02S00812.ns2731 ---| PL X7,ERR5 IF INCORRECT CPU PRIORITY VALUE
| Line S00813 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00823 M02S00813.ns2731 ---| SETPR X6 00824 M01S00003.ns2731 +++| BX6 X5 00825 M01S00004.ns2731 +++| LX6 18 00826 M01S00005.ns2731 +++| SX6 X6-1L* 00827 M01S00006.ns2731 +++| ZR X6,STP1 IF SET SERVICE CLASS PRIORITY 00828 M01S00007.ns2731 +++| RJ DXB CONVERT PRIORITY 00829 M01S00008.ns2731 +++| NZ X4,ERR IF ERROR IN CONVERSION 00830 M01S00009.ns2731 +++| SX7 X6-MPRS 00831 M01S00010.ns2731 +++| SX1 X6-LJCS 00832 M01S00011.ns2731 +++| PL X7,ERR5 IF SPECIFIED PRIORITY TOO HIGH 00833 M01S00012.ns2731 +++| NG X1,ERR5 IF SPECIFIED PRIORITY TOO LOW 00834 M01S00013.ns2731 +++| STP1 SETPR X6 00835 M01S00814.control +++| EQ END COMPLETE COMMAND 00836 M01S00815.control +++| SETTL SPACE 4,10 00837 M01S00816.control +++|*** SETTL(NNNNN) 00838 M01S00817.control +++|* SET TIME LIMIT TO NNNNN SECONDS.
| Line S00818 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00839 M02S00818.ns2516a ---|* IF NNNNN = *, THEN THE TIME LIMIT IS SET TO THE MAXIMUM
| Line S00819 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00840 M02S00819.ns2516a ---|* FOR WHICH THE USER IS VALIDATED. 00841 M01S00008.ns2516a +++|* IF NNNNN = *, OR NNNNN IS GREATER THAN THE MAXIMUM FOR WHICH 00842 M01S00009.ns2516a +++|* THE USER IS VALIDATED, THEN THE TIME LIMIT IS SET TO THE 00843 M01S00010.ns2516a +++|* USER-S VALIDATED MAXIMUM. 00844 M01S00820.control +++| 00845 M01S00821.control +++| 00846 M01S00822.control +++| SETTL BSS 0 ENTRY 00847 M01S00823.control +++| SB6 B0 FLAG TIME LIMIT 00848 M01S00824.control +++| SETL SA2 ACTR CHECK ARGUMENT COUNT 00849 M01S00825.control +++| SB1 1 00850 M01S00826.control +++| SX7 X2 00851 M01S00827.control +++| SB7 1 SET DECIMAL BASE 00852 M01S00828.control +++| SA5 ARGR ARGUMENT 00853 M01S00829.control +++| ZR X7,ERR ERROR IF NO ARGUMENT 00854 M01S00830.control +++| LX5 6 00855 M01S00831.control +++| SX4 X5-1R* CHECK FOR (*) 00856 M01S00832.control +++| ZR X4,SETL1 IF (*) 00857 M01S00833.control +++| LX5 54 00858 M01S00834.control +++| RJ DXB CONVERT 00859 M01S00835.control +++| NZ X4,ERR IF INCORRECT VALUE 00860 M01S00836.control +++| ZR X6,ERR IF ZERO REQUESTED 00861 M01S00837.control +++| SX7 100000B
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00862 M02S00001.ns2516a ---| EQ B1,B6,SETL4 IF JOB STEP SRU LIMIT 00863 M01S00011.ns2516a +++| NZ B6,SETL3 IF SRU LIMIT 00864 M01S00838.control +++| IX7 X6-X7 00865 M01S00839.control +++| NG X7,SETL2 IF ARGUMENT .LT. 77777B
| Line S00840 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 00866 M02S00840.ns2516 ---| SETL1 SX6 77777B SET USER TO MAXIMUM
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00867 M02S00002.ns2516a ---| SETL1 EQ B1,B6,SETL4.1 IF JOB STEP SRU LIMIT 00868 M01S00012.ns2516a +++| SETL1 NZ B6,SETL4 IF SRU LIMIT 00869 M01S00003.ns2516 +++| SX6 77777B SET USER TO MAXIMUM
| Line S00841 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00870 M02S00841.ns2516a ---| SETL2 EQ B0,B6,SETL3 IF TIME LIMIT
| Line S00842 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516 |
M03 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00871 M03S00842.ns2516a ---| EQ B1,B6,SETL4 IF JOB STEP SRU LIMIT
| Line S00843 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00872 M02S00843.ns2516a ---| SETASL X6 SET ACCOUNT BLOCK LIMIT 00873 M01S00013.ns2516a +++| SETL2 SETTL X6 SET TIME LIMIT 00874 M01S00014.ns2516a +++| GETTL SRMA GET CURRENT TIME LIMIT 00875 M01S00015.ns2516a +++| SB5 SETB SET IN MESSAGE 00876 M01S00016.ns2516a +++| SB7 1R$ 00877 M01S00017.ns2516a +++| RJ SRM 00878 M01S00018.ns2516a +++| MESSAGE SETB 00879 M01S00019.ns2516a +++| EQ END COMPLETE COMMAND 00880 M01S00020.ns2516a +++| 00881 M01S00021.ns2516a +++| SETL3 LX7 3 00882 M01S00022.ns2516a +++| IX7 X6-X7 00883 M01S00023.ns2516a +++| NG X7,SETL5 IF ARGUMENT .LT. 777777B 00884 M01S00024.ns2516a +++| SETL4 MX6 18 SET USER TO MAXIMUM 00885 M01S00025.ns2516a +++| LX6 18 00886 M01S00026.ns2516a +++| SETL5 BX1 X6 00887 M01S00027.ns2516a +++| EQ B1,B6,SETL6 IF JOB STEP SRU LIMIT 00888 M01S00028.ns2516a +++| SETASL X1 SET ACCOUNT BLOCK SRU LIMIT
| Line S00844 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00889 M02S00844.ns2516a ---| EQ END COMPLETE COMMAND 00890 M01S00029.ns2516a +++| EQ SETL7 OUTPUT LIMITS 00891 M01S00845.control +++|
| Line S00846 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00892 M02S00846.ns2516a ---| SETL3 SETTL X6 SET TIME LIMIT
| Line S00847 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00893 M02S00847.ns2516a ---| EQ END COMPLETE COMMAND
| Line S00848 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00894 M02S00848.ns2516a ---|
| Line S00849 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516 |
M03 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00895 M03S00849.ns2516a ---| SETL4 SETJSL X6 SET JOB STEP LIMIT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00896 M02S00004.ns2516a ---| SETL4 LX7 3
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00897 M02S00005.ns2516a ---| IX7 X6-X7
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00898 M02S00006.ns2516a ---| NG X7,SETL4.2 IF ARGUMENT .LT. 777777B
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00899 M02S00007.ns2516a ---| SETL4.1 MX6 18 SET USER TO MAXIMUM
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00900 M02S00008.ns2516a ---| LX6 18
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00901 M02S00009.ns2516a ---| SETL4.2 BX1 X6
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00902 M02S00010.ns2516a ---| SETJSL X1 SET JOB STEP LIMIT
| Line S00850 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00903 M02S00850.ns2516a ---| EQ END COMPLETE COMMAND 00904 M01S00030.ns2516a +++| SETL6 SETJSL X1 SET JOB STEP SRU LIMIT 00905 M01S00031.ns2516a +++| SETL7 GETASL SRMA GET CURRENT ACCOUNT BLOCK SRU LIMIT 00906 M01S00032.ns2516a +++| SB5 SETA 00907 M01S00033.ns2516a +++| SB7 1R$ 00908 M01S00034.ns2516a +++| RJ SRM SET IN MESSAGE 00909 M01S00035.ns2516a +++| GETJSL SRMA GET CURRENT JOB STEP SRU LIMIT 00910 M01S00036.ns2516a +++| SB7 1R+ 00911 M01S00037.ns2516a +++| RJ SRM SET IN MESSAGE 00912 M01S00038.ns2516a +++| MESSAGE SETA 00913 M01S00039.ns2516a +++| EQ END ENDRUN 00914 M01S00040.ns2516a +++| 00915 M01S00041.ns2516a +++| 00916 M01S00042.ns2516a +++| SETA DATA C* ASL = $$$$$$$$$, JSL = +++++++++.* 00917 M01S00043.ns2516a +++| SETB DATA C* TL = $$$$$$$$$.* 00918 M01S00851.control +++| SETASL SPACE 4,10
| Line S00852 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00919 M02S00852.ns2516a ---|*** SETASL(NNNNN)
| Line S00853 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00920 M02S00853.ns2516a ---|* SET ACCOUNT BLOCK SRU LIMIT TO NNNNN UNITS.
| Line S00854 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00921 M02S00854.ns2516a ---|* IF NNNNN = *, THEN THE ACCOUNT BLOCK LIMIT IS SET TO THE
| Line S00855 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00922 M02S00855.ns2516a ---|* MAXIMUM FOR WHICH THE USER IS VALIDATED. 00923 M01S00044.ns2516a +++|*** SETASL(NNNNNN) 00924 M01S00045.ns2516a +++|* SET ACCOUNT BLOCK SRU LIMIT TO NNNNNN UNITS. 00925 M01S00046.ns2516a +++|* IF NNNNNN = *, OR NNNNNN IS GREATER THAN THE MAXIMUM FOR 00926 M01S00047.ns2516a +++|* WHICH THE USER IS VALIDATED, THEN THE ACCOUNT BLOCK LIMIT 00927 M01S00048.ns2516a +++|* IS SET TO THE USER-S VALIDATED MAXIMUM. IF NNNNNN IS LOWER 00928 M01S00049.ns2516a +++|* THAN THE CURRENT JOB STEP SRU LIMIT, BOTH THE ACCOUNT BLOCK 00929 M01S00050.ns2516a +++|* AND JOB STEP SRU LIMITS ARE SET TO NNNNNN. 00930 M01S00856.control +++| 00931 M01S00857.control +++| 00932 M01S00858.control +++| SETASL BSS 0 ENTRY 00933 M01S00859.control +++| SB6 2 SET ACCOUNT BLOCK SRU LIMIT 00934 M01S00860.control +++| EQ SETL SET LIMIT 00935 M01S00861.control +++| 00936 M01S00862.control +++| SETJOB SPACE 4,15 00937 M01S00863.control +++|*** SETJOB(UJN,DC,OP) 00938 M01S00864.control +++|* SETJOB(UJN=UJN,DC=DC,OP=OP) 00939 M01S00865.control +++|* SET JOB CHARACTERISTICS. 00940 M01S00866.control +++|* 00941 M01S00867.control +++|* UJN = USER JOB NAME. 00942 M01S00868.control +++|* DC = DISPOSITION OF IMPLICIT OUTPUT AT END OF JOB. 00943 M01S00869.control +++|* TO = QUEUE TO *TXOT* QUEUE. 00944 M01S00870.control +++|* NO = DO NOT QUEUE OUTPUT. 00945 M01S00871.control +++|* DF = USE DEFAULT VALUE (DEPENDS ON JOB ORIGIN TYPE). 00946 M01S00872.control +++|* OP = END OF JOB OPTIONS. 00947 M01S00873.control +++|* SU = SUSPEND JOB (*TXOT* ONLY). 00948 M01S00874.control +++|* TJ = TERMINATE JOB. 00949 M01S00875.control +++| 00950 M01S00876.control +++| 00951 M01S00877.control +++| SETJOB BSS 0 ENTRY 00952 M01S00878.control +++| SX6 TSTJ ARGUMENT TABLE ADDRESS 00953 M01S00879.control +++| SX7 TSTJL 00954 M01S00880.control +++| RJ PKP PROCESS PARAMETERS 00955 M01S00881.control +++| NZ X1,ERR1 IF NO ARGUMENTS 00956 M01S00882.control +++| SA1 TCKA PROCESS *DC* 00957 M01S00883.control +++| ZR X1,STJ2 IF *DC* NOT SPECIFIED 00958 M01S00884.control +++| SA2 TSDC 00959 M01S00885.control +++| STJ1 BX3 X1-X2 CHECK NEXT VALID OPTION 00960 M01S00886.control +++| ZR X3,STJ2 IF MATCH 00961 M01S00887.control +++| SA2 A2+B1 00962 M01S00888.control +++| NZ X2,STJ1 IF MORE VALID OPTIONS 00963 M01S00889.control +++| EQ ERR PROCESS INCORRECT *DC* 00964 M01S00890.control +++| 00965 M01S00891.control +++| STJ2 LX1 -48 PROCESS *OP* 00966 M01S00892.control +++| BX6 X1 00967 M01S00893.control +++| SA1 A1+B1 00968 M01S00894.control +++| ZR X1,STJ4 IF *OP* NOT SPECIFIED 00969 M01S00895.control +++| SA2 TSOP 00970 M01S00896.control +++| STJ3 BX3 X1-X2 CHECK NEXT VALID OPTION 00971 M01S00897.control +++| ZR X3,STJ4 IF MATCH 00972 M01S00898.control +++| SA2 A2+B1 00973 M01S00899.control +++| NZ X2,STJ3 IF MORE VALID OPTIONS 00974 M01S00900.control +++| EQ ERR PROCESS INCORRECT *OP* 00975 M01S00901.control +++| 00976 M01S00902.control +++| STJ4 LX1 -36 COMBINE *DC* AND *OP* 00977 M01S00903.control +++| BX6 X1+X6 00978 M01S00904.control +++| SA1 STJA 00979 M01S00905.control +++| BX3 X6+X1 00980 M01S00906.control +++| ZR X3,ERR1 IF NO PARAMETER VALUES SPECIFIED 00981 M01S00907.control +++| SA6 A1+B1 00982 M01S00908.control +++| SETJOB STJA 00983 M01S00909.control +++| EQ END COMPLETE COMMAND 00984 M01S00910.control +++| 00985 M01S00911.control +++| STJA BSS 0 SETJOB PARAMETER BLOCK 00986 M01S00912.control +++| CON 0 *UJN* 00987 M01S00913.control +++| CON 0 *OP* /*DC* 00988 M01S00914.control +++| TSTJ SPACE 4,10 00989 M01S00915.control +++|** TSTJ - TABLE OF SETJOB ARGUMENTS. 00990 M01S00916.control +++| 00991 M01S00917.control +++| 00992 M01S00918.control +++| TSTJ BSS 0 00993 M01S00919.control +++| UJN ARG ZR,STJA,400B 00994 M01S00920.control +++| DC ARG ZR,TCKA,400B 00995 M01S00921.control +++| OP ARG ZR,TCKA+1,400B 00996 M01S00922.control +++| ARG 00997 M01S00923.control +++| TSTJL EQU *-TSTJ-1 00998 M01S00924.control +++| TSDC SPACE 4,10 00999 M01S00925.control +++|** TSCD - TABLE OF SETJOB *DC* OPTIONS. 01000 M01S00926.control +++| 01001 M01S00927.control +++| 01002 M01S00928.control +++| TSDC BSS 0 01003 M01S00929.control +++| CON 2LTO 01004 M01S00930.control +++| CON 2LNO 01005 M01S00931.control +++| CON 2LDF 01006 M01S00932.control +++| CON 0 01007 M01S00933.control +++| TSOP SPACE 4,10 01008 M01S00934.control +++|** TSOP - TABLE OF SETJOB *OP* OPTIONS. 01009 M01S00935.control +++| 01010 M01S00936.control +++| 01011 M01S00937.control +++| TSOP BSS 0 01012 M01S00938.control +++| CON 2LSU 01013 M01S00939.control +++| CON 2LTJ 01014 M01S00940.control +++| CON 0 01015 M01S00941.control +++| SETJSL SPACE 4,10
| Line S00942 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 01016 M02S00942.ns2516a ---|*** SETJSL(NNNNN)
| Line S00943 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 01017 M02S00943.ns2516a ---|* SET JOB STEP SRU LIMIT TO NNNNN UNITS.
| Line S00944 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 01018 M02S00944.ns2516a ---|* IF NNNNN = *, THEN THE JOB STEP LIMIT IS SET TO THE
| Line S00945 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 01019 M02S00945.ns2516a ---|* MAXIMUM FOR WHICH THE USER IS VALIDATED. 01020 M01S00051.ns2516a +++|*** SETJSL(NNNNNN) 01021 M01S00052.ns2516a +++|* SET JOB STEP SRU LIMIT TO NNNNNN UNITS. 01022 M01S00053.ns2516a +++|* IF NNNNNN = *, OR NNNNNN IS GREATER THAN THE MAXIMUM FOR 01023 M01S00054.ns2516a +++|* WHICH THE USER IS VALIDATED, THEN THE TIME LIMIT IS SET TO 01024 M01S00055.ns2516a +++|* THE MAXIMUM. IF NNNNNN IS GREATER THAN THE CURRENT ACCOUNT 01025 M01S00056.ns2516a +++|* BLOCK SRU LIMIT, BOTH THE JOB STEP AND ACCOUNT BLOCK SRU 01026 M01S00057.ns2516a +++|* LIMITS ARE SET TO NNNNNN. 01027 M01S00946.control +++| 01028 M01S00947.control +++| 01029 M01S00948.control +++| SETJSL BSS 0 ENTRY 01030 M01S00949.control +++| SB6 1 SET JOB STEP SRU LIMIT 01031 M01S00950.control +++| EQ SETL SET LIMIT 01032 M01S00951.control +++| SHELL SPACE 4,20 01033 M01S00952.control +++|*** SHELL(NAME,E,A,L,G,S,T,B,C) 01034 M01S00953.control +++|* SET THE USER-S SHELL PROGRAM CONTROL WORD ACCORDING TO THE 01035 M01S00954.control +++|* PARAMETERS INPUT BY THE USER. 01036 M01S00955.control +++|* CONTROL WORD FORMAT = 01037 M01S00956.control +++|* 42/NAME,10/0,1/E,1/A,1/L,1/G,1/S,1/T,1/B,1/C. 01038 M01S00957.control +++|* ALL PARAMETERS ARE ORDER INDEPENDENT EXCEPT FOR *NAME* 01039 M01S00958.control +++|* WHICH MUST BE THE FIRST PARAMETER. 01040 M01S00959.control +++|* 01041 M01S00960.control +++|* PARAMETERS: 01042 M01S00961.control +++|* NAME SHELL PROGRAM NAME. 01043 M01S00962.control +++|* E CLEARS CONTROLS IF SHELL PROGRAM LOAD ERRORS. 01044 M01S00963.control +++|* A CLEARS CONTROLS IF SHELL PROGRAM ABORTS. 01045 M01S00964.control +++|* L LOCAL FILE LOAD OF SHELL ALLOWED. 01046 M01S00965.control +++|* G GLOBAL LIBRARY LOAD OF SHELL ALLOWED. 01047 M01S00966.control +++|* S SYSTEM LIBRARY LOAD OF SHELL ALLOWED. 01048 M01S00967.control +++|* T MONITOR COMMANDS DIRECTLY FROM THE TERMINAL. 01049 M01S00968.control +++|* B MONITOR COMMANDS OUTSIDE PROCEDURE. 01050 M01S00969.control +++|* C MONITOR COMMANDS INSIDE PROCEDURE. 01051 M01S00970.control +++|* 01052 M01S00971.control +++|* A, S AND B ARE SET BY DEFAULT IF NO PARAMETERS ARE SPECIFIED. 01053 M01S00972.control +++|* 01054 M01S00973.control +++|* NOTE TO AVOID PROBLEMS, MAKE SURE TO SPECIFY WHERE TO LOAD 01055 M01S00974.control +++|* THE PROGRAM FROM, AND HOW COMMANDS SHOULD BE MONITORED. 01056 M01S00975.control +++| 01057 M01S00976.control +++| 01058 M01S00977.control +++| SHELL BSS 0 ENTRY 01059 M01S00978.control +++| SB1 1 01060 M01S00979.control +++| SA5 CCDR FWA OF COMMAND 01061 M01S00980.control +++| SB7 SHLB FWA OF PARAMETER BLOCK 01062 M01S00981.control +++| RJ UPC UNPACK COMMAND PARAMETERS 01063 M01S00982.control +++| NZ X6,ERR3 IF ERROR DURING UNPACKING 01064 M01S00983.control +++| SB6 B6-B1 DO NOT COUNT *SHELL* AS A PARAMETER 01065 M01S00984.control +++| ZR B6,SHL6 IF NO PARAMETERS, CLEAR CONTROL WORD 01066 M01S00985.control +++| 01067 M01S00986.control +++|* BUILD SHELL PROGRAM CONTROL WORD FROM PARAMETERS. 01068 M01S00987.control +++| 01069 M01S00988.control +++| SA2 SHLB+B1 SET PROGRAM NAME 01070 M01S00989.control +++| BX6 X2 01071 M01S00990.control +++| SB6 B6-B1 DECREMENT PARAMETER COUNT 01072 M01S00991.control +++| ZR B6,SHL4 IF PROGRAM NAME IS ONLY PARAMETER 01073 M01S00992.control +++| SA2 A2+B1 CHECK NEXT PARAMETER 01074 M01S00993.control +++| SB4 -B1 01075 M01S00994.control +++| SB5 SHLTL NUMBER OF ACCEPTABLE PARAMETERS 01076 M01S00995.control +++| SX7 -B1 01077 M01S00996.control +++| MX0 42 01078 M01S00997.control +++| SB2 SHLT 01079 M01S00998.control +++| SHL1 SB4 B4+B1 CHECK NEXT VALID PARAMETER 01080 M01S00999.control +++| EQ B4,B5,SHL3 IF NO MATCH ON PARAMETER 01081 M01S01000.control +++| SA3 B2+B4 NEXT VALID PARAMETER IN LIST 01082 M01S01001.control +++| BX4 X0*X3 01083 M01S01002.control +++| BX4 X2-X4 COMPARE PARAMETERS 01084 M01S01003.control +++| NZ X4,SHL1 IF NO MATCH 01085 M01S01004.control +++| BX4 -X0*X3 SET PARAMETER BIT IN CONTROL WORD 01086 M01S01005.control +++| BX6 X6+X4 01087 M01S01006.control +++| SA7 A3 PREVENT DUPLICATE ENTRIES 01088 M01S01007.control +++| SHL2 SB4 -B1 RESET LIST POSITION 01089 M01S01008.control +++| SB6 B6-B1 DECREMENT PARAMETER COUNTER 01090 M01S01009.control +++| ZR B6,SHL5 IF ALL PARAMETERS PROCESSED 01091 M01S01010.control +++| SA2 A2+B1 01092 M01S01011.control +++| EQ SHL1 CHECK NEXT PARAMETER 01093 M01S01012.control +++| 01094 M01S01013.control +++| SHL3 ZR X2,SHL2 IF ZERO OR NULL PARAMETER 01095 M01S01014.control +++| EQ ERR2 * INCORRECT PARAMETER.* 01096 M01S01015.control +++| 01097 M01S01016.control +++|* SET SHELL CONTROL WORD. 01098 M01S01017.control +++| 01099 M01S01018.control +++| SHL4 SX3 112B SET DEFAULT PARAMETERS (A,S,B) 01100 M01S01019.control +++| BX6 X3+X6 01101 M01S01020.control +++| SHL5 SA6 SHLA 01102 M01S01021.control +++| SHL6 SHELL SHLA 01103 M01S01022.control +++| EQ END COMPLETE COMMAND 01104 M01S01023.control +++| 01105 M01S01024.control +++| SHLA DATA 0 SHELL PROGRAM CONTROL WORD 01106 M01S01025.control +++| SHLB BSSZ 10 PARAMETER BLOCK 01107 M01S01026.control +++| SHLT BSS 0 TABLE OF VALID *SHELL* PARAMETERS 01108 M01S01027.control +++| VFD 42/1LE,18/200B 01109 M01S01028.control +++| VFD 42/1LA,18/100B 01110 M01S01029.control +++| VFD 42/1LL,18/40B 01111 M01S01030.control +++| VFD 42/1LG,18/20B 01112 M01S01031.control +++| VFD 42/1LS,18/10B 01113 M01S01032.control +++| VFD 42/1LT,18/4 01114 M01S01033.control +++| VFD 42/1LB,18/2 01115 M01S01034.control +++| VFD 42/1LC,18/1 01116 M01S01035.control +++| SHLTL EQU *-SHLT TABLE LENGTH 01117 M01S01036.control +++| CON 0 END OF TABLE 01118 M01S01037.control +++| SUI SPACE 4,10 01119 M01S01038.control +++|*** SUI (NNNNNN) 01120 M01S01039.control +++|* SET USER INDEX = NNNNNNN. 01121 M01S01040.control +++|* NOTE - THIS FUNCTION IS LEGAL ONLY FOR SYSTEM JOBS. 01122 M01S01041.control +++| 01123 M01S01042.control +++| 01124 M01S01043.control +++| SUI BSS 0 ENTRY 01125 M01S01044.control +++| SA2 ACTR CHECK ARGUMENT COUNT 01126 M01S01045.control +++| SB1 1 01127 M01S01046.control +++| SX7 X2 01128 M01S01047.control +++| SB7 B0 SET OCTAL BASE 01129 M01S01048.control +++| SA5 ARGR ARGUMENT 01130 M01S01049.control +++| ZR X7,ERR ERROR IF NO ARGUMENT 01131 M01S01050.control +++| RJ DXB CONVERT 01132 M01S01051.control +++| NZ X4,ERR 01133 M01S01052.control +++| MX2 43 CHECK ARGUMENT 01134 M01S01053.control +++| BX7 X2*X6 01135 M01S01054.control +++| NZ X7,ERR ERROR IF TOO LARGE 01136 M01S01055.control +++| SETUI X6 REQUEST SET USER INDEX 01137 M01S01056.control +++| EQ END COMPLETE COMMAND 01138 M01S01057.control +++| USECPU SPACE 4,10 01139 M01S01058.control +++|*** USECPU(N) 01140 M01S01059.control +++|* SELECT CPU FOR JOB TO RUN IN. 01141 M01S01060.control +++|* N = 0, USE ANY CPU. 01142 M01S01061.control +++|* N = 1, USE ONLY CPU - 0. (6600 CPU ON 6700) 01143 M01S01062.control +++|* N = 2, USE ONLY CPU - 1, (6400 CPU ON 6700) 01144 M01S01063.control +++| 01145 M01S01064.control +++| 01146 M01S01065.control +++| USECPU BSS 0 ENTRY 01147 M01S01066.control +++| SA2 ACTR CHECK ARGUMENT COUNT 01148 M01S01067.control +++| SB1 1 01149 M01S01068.control +++| SB2 X2 01150 M01S01069.control +++| NE B2,B1,ERR IF NOT ONE ARGUMENT 01151 M01S01070.control +++| SA5 ARGR GET ARGUMENT 01152 M01S01071.control +++| RJ DXB CONVERT DIGITS 01153 M01S01072.control +++| NZ X4,ERR 01154 M01S01073.control +++| SX7 X6-3 01155 M01S01074.control +++| PL X7,ERR ERROR IF > 2 01156 M01S01075.control +++| USECPU X6 01157 M01S01076.control +++| EQ END COMPLETE COMMAND 01158 M01S01077.control +++| TITLE SUBROUTINES. 01159 M01S01078.control +++| CMP SPACE 4,20 01160 M01S01079.control +++|** CMP - CONVERT MEMORY PARAMETERS. 01161 M01S01080.control +++|* 01162 M01S01081.control +++|* EXIT (X1) = 0 IF NO CM PARAMETER. 01163 M01S01082.control +++|* .LT. 0 IF CM PARAMETER IS ZERO. 01164 M01S01083.control +++|* = CM PARAMETER, OTHERWISE. 01165 M01S01084.control +++|* (X3) = 0 IF NO EXTENDED MEMORY PARAMETER. 01166 M01S01085.control +++|* .LT. 0 IF EXTENDED MEMORY PARAMETER IS ZERO. 01167 M01S01086.control +++|* = EXTENDED MEMORY PARAMETER, OTHERWISE. 01168 M01S01087.control +++|* 01169 M01S01088.control +++|* USES A - 1, 3, 5, 6. 01170 M01S01089.control +++|* X - 0, 1, 3, 4, 5, 6, 7. 01171 M01S01090.control +++|* B - 7. 01172 M01S01091.control +++|* 01173 M01S01092.control +++|* CALLS DXB, PKP. 01174 M01S01093.control +++| 01175 M01S01094.control +++| 01176 M01S01095.control +++| CMP SUBR ENTRY/EXIT 01177 M01S01096.control +++| SX6 TMRA ARGUMENT TABLE ADDRESS 01178 M01S01097.control +++| SX7 TMRAL 01179 M01S01098.control +++| RJ PKP PROCESS KEYWORD OR POSITIONAL ARGUMENTS 01180 M01S01099.control +++| NZ X1,ERR IF NO ARGUMENTS SPECIFIED 01181 M01S01100.control +++| SB7 B0+ CONVERT ARGUMENTS TO BINARY 01182 M01S01101.control +++| SA5 TCKA 01183 M01S01102.control +++| ZR X5,CMP1 IF NO CM VALUE SPECIFIED 01184 M01S01103.control +++| RJ DXB 01185 M01S01104.control +++| NZ X4,ERR IF CONVERSION ERROR 01186 M01S01105.control +++| MX7 1 SAVE VALUE 01187 M01S01106.control +++| BX6 X6+X7 01188 M01S01107.control +++| SA6 A5+ 01189 M01S01108.control +++| CMP1 SA5 TCKA+1 01190 M01S01109.control +++| ZR X5,CMP2 IF NO EXTENDED MEMORY VALUE SPECIFIED 01191 M01S01110.control +++| RJ DXB 01192 M01S01111.control +++| NZ X4,ERR IF CONVERSION ERROR 01193 M01S01112.control +++| MX7 1 SAVE VALUE 01194 M01S01113.control +++| BX6 X6+X7 01195 M01S01114.control +++| SA6 A5+ 01196 M01S01115.control +++| CMP2 SA1 TCKA CHECK FOR LEGAL VALUES 01197 M01S01116.control +++| SA3 A1+B1 01198 M01S01117.control +++| MX0 -59 01199 M01S01118.control +++| BX6 -X0*X1 01200 M01S01119.control +++| BX7 -X0*X3 01201 M01S01120.control +++| SX4 77B CHECK CM FL ROUNDED TO NEAREST 100B 01202 M01S01121.control +++| IX6 X6+X4 01203 M01S01122.control +++| AX7 15 01204 M01S01123.control +++| AX6 17 01205 M01S01124.control +++| IX6 X6+X7 01206 M01S01125.control +++| ZR X6,CMP IF CM .LE. 377700B AND EC .LE. 77777B 01207 M01S01126.control +++| MESSAGE (=C* CM OR EC REQUEST EXCEEDS MAXIMUM.*) 01208 M01S01127.control +++| ABORT 01209 M01S01128.control +++| EQ CMPX RETURN 01210 M01S01129.control +++| END SPACE 4,10 01211 M01S01130.control +++|** END - END RUN. 01212 M01S01131.control +++| 01213 M01S01132.control +++| 01214 M01S01133.control +++| END BSS 0 ENTRY 01215 M01S01134.control +++| ENDRUN 01216 M01S01135.control +++| ENL SPACE 4,10 01217 M01S01136.control +++|* ENL - END NON-LOCAL REQUEST. 01218 M01S01137.control +++|* 01219 M01S01138.control +++|* ENTER (X1) = *QAC* REQUEST STATUS. 01220 M01S01139.control +++| 01221 M01S01140.control +++| 01222 M01S01141.control +++| ENL BSS 0 ENTRY 01223 M01S01142.control +++| ZR X1,END IF NORMAL STATUS 01224 M01S01143.control +++| SX3 X1-7 01225 M01S01144.control +++| NZ X3,ENL1 IF NOT JOB NOT FOUND 01226 M01S01145.control +++| MESSAGE (=C* FILE/JOB NOT FOUND.*) 01227 M01S01146.control +++| EQ END COMPLETE COMMAND 01228 M01S01147.control +++| 01229 M01S01148.control +++| ENL1 SX2 070007B 01230 M01S01149.control +++| BX6 X2*X1 LOW ORDER DIGIT 01231 M01S01150.control +++| LX1 6 01232 M01S01151.control +++| BX3 X2*X1 HIGH ORDER DIGIT 01233 M01S01152.control +++| AX2 6 01234 M01S01153.control +++| AX1 3 01235 M01S01154.control +++| BX6 X6+X3 01236 M01S01155.control +++| SA4 ENLB 01237 M01S01156.control +++| BX3 X2*X1 MIDDLE DIGIT 01238 M01S01157.control +++| BX6 X6+X3 01239 M01S01158.control +++| LX6 53-17 01240 M01S01159.control +++| IX6 X6+X4 01241 M01S01160.control +++| SA6 A4+ 01242 M01S01161.control +++| MESSAGE ENLA 01243 M01S01162.control +++| ABORT 01244 M01S01163.control +++| 01245 M01S01164.control +++| ENLA DATA 20H CONTROL *QAC* ERROR 01246 M01S01165.control +++| ENLB DATA 5C 000. 01247 M01S01166.control +++| ERR SPACE 4,10 01248 M01S01167.control +++|** ERR - PROCESS ARGUMENT ERROR. 01249 M01S01168.control +++| 01250 M01S01169.control +++| 01251 M01S01170.control +++| ERR MESSAGE (=C* ERROR IN CONTROL ARGUMENTS.*) 01252 M01S01171.control +++| ABORT 01253 M01S01172.control +++| 01254 M01S01173.control +++| ERR1 MESSAGE (=C* NO JOB CHARACTERISTICS SPECIFIED.*) 01255 M01S01174.control +++| ABORT 01256 M01S01175.control +++| 01257 M01S01176.control +++| ERR2 MESSAGE (=C* INCORRECT PARAMETER.*) 01258 M01S01177.control +++| ABORT 01259 M01S01178.control +++| 01260 M01S01179.control +++| ERR3 MESSAGE (=C* INCORRECT PARAMETER LENGTH OR SEPARATOR.*) 01261 M01S01180.control +++| ABORT 01262 M01S01181.control +++| 01263 M01S01182.control +++| ERR4 MESSAGE (=C* FAMILY NOT FOUND.*) 01264 M01S01183.control +++| ABORT 01265 M01S01184.control +++| 01266 M01S01185.control +++| ERR5 MESSAGE (=C* INCORRECT CPU PRIORITY VALUE.*) 01267 M01S01186.control +++| ABORT 01268 M01S01187.control +++| MCM SPACE 4,15 01269 M01S01188.control +++|** MCM - MOVE COMMENT MESSAGE. 01270 M01S01189.control +++|* 01271 M01S01190.control +++|* ENTER (B2) = FWA OF THE COMMAND. 01272 M01S01191.control +++|* 01273 M01S01192.control +++|* EXIT COMMENT FIELD MOVED TO *MSGA*. 01274 M01S01193.control +++|* 01275 M01S01194.control +++|* USES A - 1,6. 01276 M01S01195.control +++|* X - 1, 2, 3, 6. 01277 M01S01196.control +++|* B - 2, 6. 01278 M01S01197.control +++|* 01279 M01S01198.control +++|* CALLS USB. 01280 M01S01199.control +++| 01281 M01S01200.control +++| 01282 M01S01201.control +++| MCM5 SA6 B2+ STORE LAST WORD 01283 M01S01202.control +++| 01284 M01S01203.control +++| MCM SUBR ENTRY/EXIT 01285 M01S01204.control +++| RJ USB UNPACK COMMAND 01286 M01S01205.control +++| SX2 41B FIND COMMAND TERMINATOR 01287 M01S01206.control +++| LX2 12 01288 M01S01207.control +++| MCM1 SA1 B6 GET NEXT CHARACTER 01289 M01S01208.control +++| SB2 X1 01290 M01S01209.control +++| LX3 X2,B2 01291 M01S01210.control +++| SB6 B6+B1 01292 M01S01211.control +++| GT B6,B7,MCMX IF END OF COMMAND 01293 M01S01212.control +++| PL X3,MCM1 IF NOT TERMINATOR 01294 M01S01213.control +++| 01295 M01S01214.control +++|* PACK COMMENT IN *MSGA*. 01296 M01S01215.control +++| 01297 M01S01216.control +++| SB2 MSGA 01298 M01S01217.control +++| MCM2 BX6 X6-X6 CLEAR ASSEMBLY REGISTER 01299 M01S01218.control +++| MX2 10 SET CHARACTER COUNT 01300 M01S01219.control +++| MCM3 SA1 B6 GET NEXT CHARACTER 01301 M01S01220.control +++| LX6 6 01302 M01S01221.control +++| LX2 1 01303 M01S01222.control +++| BX6 X6+X1 MERGE CHARACTER 01304 M01S01223.control +++| SB6 B6+1 01305 M01S01224.control +++| ZR X1,MCM4 IF TERMINATOR 01306 M01S01225.control +++| NG X2,MCM3 IF WORD NOT FILLED 01307 M01S01226.control +++| SA6 B2 STORE WORD 01308 M01S01227.control +++| SB2 B2+B1 01309 M01S01228.control +++| EQ MCM2 START NEXT WORD 01310 M01S01229.control +++| 01311 M01S01230.control +++| MCM4 PL X2,MCM5 IF WORD FULL 01312 M01S01231.control +++| LX6 6 01313 M01S01232.control +++| LX2 1 01314 M01S01233.control +++| EQ MCM4 CHECK IF WORD LEFT JUSTIFIED 01315 M01S01234.control +++| SPACE 4,15 01316 M01S01235.control +++|** MDM - MOVE DAYFILE MESSAGE. 01317 M01S01236.control +++|* 01318 M01S01237.control +++|* MOVE *CCDR* MESSAGE TO BUFFER AND APPEND SPECIFIED SUFFIX. 01319 M01S01238.control +++|* 01320 M01S01239.control +++|* ENTRY (B2) = FWA OF SUFFIX. 01321 M01S01240.control +++|* 01322 M01S01241.control +++|* EXIT MESSAGE AND SUFFIX MOVED TO *MSGA*. 01323 M01S01242.control +++|* 01324 M01S01243.control +++|* USES X - 1, 2, 6, 7. 01325 M01S01244.control +++|* A - 1, 6, 7. 01326 M01S01245.control +++|* B - 2, 3, 6. 01327 M01S01246.control +++|* 01328 M01S01247.control +++|* MACROS MOVE. 01329 M01S01248.control +++|* 01330 M01S01249.control +++|* CALLS USB. 01331 M01S01250.control +++| 01332 M01S01251.control +++| 01333 M01S01252.control +++| MDM6 SA6 B2 01334 M01S01253.control +++| 01335 M01S01254.control +++| MDM SUBR ENTRY/EXIT 01336 M01S01255.control +++| RJ USB UNPACK SUFFIX 01337 M01S01256.control +++| SX7 1R. APPEND TERMINATOR 01338 M01S01257.control +++| SA7 B7+1
| Line S01258 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01339 M02S01258.contr10 ---| MOVE 15,B6,SBUF MOVE UNPACKED CONSTANT TO SCRATCH BUFFER 01340 M01S00001.contr10 +++| MOVE SBUFL,B6,SBUF MOVE UNPACKED CONSTANT TO BUFFER 01341 M01S01259.control +++| MOVE 8,CCDR,MDMA+1 01342 M01S01260.control +++| SB2 MDMA 01343 M01S01261.control +++| RJ USB UNPACK COMMAND 01344 M01S01262.control +++| MDM1 SA1 B6 01345 M01S01263.control +++| SB3 X1-1R. 01346 M01S01264.control +++| ZR B3,MDM2 IF COMMAND TERMINATOR 01347 M01S01265.control +++| SB3 X1-1R) 01348 M01S01266.control +++| ZR B3,MDM2 IF COMMAND TERMINATOR 01349 M01S01267.control +++| SB6 B6+1 01350 M01S01268.control +++| EQ MDM1 CHECK NEXT CHARACTER 01351 M01S01269.control +++| 01352 M01S01270.control +++| MDM2 SX7 1R ADD ONE BLANK SPACE 01353 M01S01271.control +++| SA7 B7+1
| Line S01272 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01354 M02S01272.contr10 ---| MOVE 15,SBUF,B7+2 01355 M01S00002.contr10 +++| MOVE SBUFL,SBUF,B7+2 01356 M01S01273.control +++| 01357 M01S01274.control +++|* PACK COMMENT IN *MSGA*. 01358 M01S01275.control +++| 01359 M01S01276.control +++| SB2 MSGA 01360 M01S01277.control +++| SB6 USBB+7 RETRIEVE FWA OF COMMAND 01361 M01S01278.control +++| MDM3 BX6 X6-X6 CLEAR ASSEMBLY REGISTER 01362 M01S01279.control +++| MX2 10 SET CHARACTER COUNT 01363 M01S01280.control +++| MDM4 SA1 B6 GET NEXT CHARACTER 01364 M01S01281.control +++| LX6 6 01365 M01S01282.control +++| LX2 1 01366 M01S01283.control +++| BX6 X6+X1 MERGE CHARACTER 01367 M01S01284.control +++| SB6 B6+B1 01368 M01S01285.control +++| ZR X1,MDM5 IF END OF MESSAGE 01369 M01S01286.control +++| NG X2,MDM4 IF WORD NOT FILLED 01370 M01S01287.control +++| SA6 B2 01371 M01S01288.control +++| SB2 B2+B1 01372 M01S01289.control +++| EQ MDM3 START NEXT WORD 01373 M01S01290.control +++| 01374 M01S01291.control +++| MDM5 PL X2,MDM6 IF WORD FULL 01375 M01S01292.control +++| LX6 6 01376 M01S01293.control +++| LX2 1 01377 M01S01294.control +++| EQ MDM5 CHECK IF WORD LEFT JUSTIFIED 01378 M01S01295.control +++| 01379 M01S01296.control +++| 01380 M01S01297.control +++| MDMA DATA A/* / ASSEMBLY BUFFER FOR MESSAGE 01381 M01S01298.control +++| BSSZ 8 01382 M01S01299.control +++| PKP SPACE 4,15 01383 M01S01300.control +++|** PKP - PROCESS KEYWORD OR POSITIONAL ARGUMENTS. 01384 M01S01301.control +++|* 01385 M01S01302.control +++|* ENTRY (X6) = ARGUMENT TABLE ADDRESS. 01386 M01S01303.control +++|* (X7) = ARGUMENT TABLE LENGTH. 01387 M01S01304.control +++|* 01388 M01S01305.control +++|* EXIT (B1) = 1. 01389 M01S01306.control +++|* (X1) .NE. 0 IF NO ARGUMENTS SPECIFIED. 01390 M01S01307.control +++|* TO *ERR* IF ARGUMENT ERROR. 01391 M01S01308.control +++|* 01392 M01S01309.control +++|* USES A - 1, 2, 6, 7. 01393 M01S01310.control +++|* B - 1, 2, 3, 4, 6. 01394 M01S01311.control +++|* X - 1, 2, 6, 7. 01395 M01S01312.control +++|* 01396 M01S01313.control +++|* CALLS ARM, CPA, USB. 01397 M01S01314.control +++| 01398 M01S01315.control +++| 01399 M01S01316.control +++| PKP SUBR ENTRY/EXIT 01400 M01S01317.control +++| SB1 1 01401 M01S01318.control +++| SA6 PKPA SAVE ADDRESS AND LENGTH 01402 M01S01319.control +++| SA7 A6+1 01403 M01S01320.control +++| SB2 CCDR UNPACK COMMAND 01404 M01S01321.control +++| RJ USB 01405 M01S01322.control +++| SA1 A6 ASSURE TERMINATION 01406 M01S01323.control +++| SX6 1R. 01407 M01S01324.control +++| SA6 X1+B1 01408 M01S01325.control +++| 01409 M01S01326.control +++|* SKIP TO FIRST ARGUMENT. 01410 M01S01327.control +++| 01411 M01S01328.control +++| PKP1 SA1 B6 SKIP OVER COMMAND NAME 01412 M01S01329.control +++| SB6 B6+B1 ADVANCE CHARACTER ADDRESS 01413 M01S01330.control +++| SB2 X1-1R9-1 01414 M01S01331.control +++| NG B2,PKP1 IF NOT END OF NAME 01415 M01S01332.control +++| SB2 X1-1R 01416 M01S01333.control +++| ZR B2,PKP1 IF A BLANK 01417 M01S01334.control +++| SB3 X1-1R. 01418 M01S01335.control +++| SB4 X1-1R) 01419 M01S01336.control +++| ZR B3,PKPX IF NO ARGUMENTS 01420 M01S01337.control +++| ZR B4,PKPX IF NO ARGUMENTS 01421 M01S01338.control +++| 01422 M01S01339.control +++|* PROCESS ARGUMENTS. 01423 M01S01340.control +++| 01424 M01S01341.control +++| SA1 PKPA RETRIEVE ADDRESS AND LENGTH 01425 M01S01342.control +++| SA2 A1+B1 01426 M01S01343.control +++| SB3 X1 ARGUMENT TABLE ADDRESS 01427 M01S01344.control +++| SB2 X2+ 01428 M01S01345.control +++| SB4 ABUF CONVERT POSITIONAL ARGUMENTS 01429 M01S01346.control +++| RJ CPA 01430 M01S01347.control +++| NG B5,ERR IF ARGUMENT ERROR 01431 M01S01348.control +++| SX6 B5+ SET LWA OF ARGUMENTS 01432 M01S01349.control +++| SB6 ABUF SET FWA OF ARGUMENTS 01433 M01S01350.control +++| SA6 USBC 01434 M01S01351.control +++| RJ ARM PROCESS ARGUMENTS 01435 M01S01352.control +++| NZ X1,ERR IF ARGUMENT ERROR 01436 M01S01353.control +++| EQ PKPX RETURN 01437 M01S01354.control +++| 01438 M01S01355.control +++| PKPA CON 0 ARGUMENT TABLE ADDRESS 01439 M01S01356.control +++| CON 0 ARGUMENT TABLE LENGTH 01440 M01S01357.control +++| ERL SPACE 4,10 01441 M01S01358.control +++|** ERL - PROCESS RESOURCE LIMIT ERROR. 01442 M01S01359.control +++| 01443 M01S01360.control +++| 01444 M01S01361.control +++| ERL BSS 0 ENTRY 01445 M01S01362.control +++| MESSAGE (=C* USER ACCESS NOT VALID.*) 01446 M01S01363.control +++| ABORT 01447 M01S01364.control +++| PQB SPACE 4,10 01448 M01S01365.control +++|** PQB - PRESET *QAC* REQUEST BLOCK. 01449 M01S01366.control +++|* 01450 M01S01367.control +++|* EXIT PARAMETER BLOCKS *TALT* AND *TPEK* 01451 M01S01368.control +++|* ARE PRESET. 01452 M01S01369.control +++|* 01453 M01S01370.control +++|* USES A - 1, 2, 3, 6, 7. 01454 M01S01371.control +++|* X - 1, 2, 3, 6, 7. 01455 M01S01372.control +++|* B - 2. 01456 M01S01373.control +++| 01457 M01S01374.control +++| 01458 M01S01375.control +++| PQB SUBR ENTRY/EXIT 01459 M01S01376.control +++| SB2 MSGAE-TALT CLEAR REQUEST SPACE 01460 M01S01377.control +++| SX7 0 01461 M01S01378.control +++| PQB1 SA7 TALT+B2 01462 M01S01379.control +++| SB2 B2-1 01463 M01S01380.control +++| PL B2,PQB1 IF NOT ALL CLEARED 01464 M01S01381.control +++| SA1 TQPW FILL PRESET WORDS 01465 M01S01382.control +++| SA2 A1+B1 01466 M01S01383.control +++| BX7 X1 01467 M01S01384.control +++| SA3 A2+B1 01468 M01S01385.control +++| BX6 X2 01469 M01S01386.control +++| SA7 TALT+QFIR *FIRST* 01470 M01S01387.control +++| SA6 A7+B1 *IN* 01471 M01S01388.control +++| BX7 X3 01472 M01S01389.control +++| SA6 A6+B1 *OUT* 01473 M01S01390.control +++| SA7 A6+B1 *LIMIT* 01474 M01S01391.control +++| SA1 A3+B1 01475 M01S01392.control +++| SA2 A1+B1 01476 M01S01393.control +++| BX7 X1 01477 M01S01394.control +++| SA3 A2+B1 01478 M01S01395.control +++| SA7 TPEK+QFIR *FIRST* 01479 M01S01396.control +++| BX6 X2 01480 M01S01397.control +++| SA6 A7+B1 *IN* 01481 M01S01398.control +++| BX7 X3 01482 M01S01399.control +++| SA6 A6+B1 *OUT* 01483 M01S01400.control +++| SA7 A6+B1 *LIMIT* 01484 M01S01401.control +++| EQ PQBX RETURN 01485 M01S01402.control +++| QAC SPACE 4,15 01486 M01S01403.control +++|** QAC - CALL *QAC*. 01487 M01S01404.control +++|* SETS THE REQUESTED FUNCTION CODE IN (B3) AND 01488 M01S01405.control +++|* CALLS *QAC*. 01489 M01S01406.control +++|* 01490 M01S01407.control +++|* ENTER (X6) = FUNCTION CODE. 01491 M01S01408.control +++|* (B3) = REQUEST BLOCK ADDRESS. 01492 M01S01409.control +++|* 01493 M01S01410.control +++|* EXIT (X1) = ERROR STATUS. 01494 M01S01411.control +++|* 01495 M01S01412.control +++|* USES A - 1, 7. 01496 M01S01413.control +++|* X - 1, 7. 01497 M01S01414.control +++|* 01498 M01S01415.control +++|* MACROS SYSTEM. 01499 M01S01416.control +++| 01500 M01S01417.control +++| 01501 M01S01418.control +++| QAC SUBR ENTRY/EXIT 01502 M01S01419.control +++| SA1 QFCN+B3 01503 M01S01420.control +++| MX7 42 ENTER FUNCTION CODE 01504 M01S01421.control +++| LX6 1 01505 M01S01422.control +++| BX7 X7*X1 01506 M01S01423.control +++| BX7 X7+X6 01507 M01S01424.control +++| SA7 A1+ 01508 M01S01425.control +++| SYSTEM QAC,R,A7 01509 M01S01426.control +++| MX7 -8 01510 M01S01427.control +++| SA1 QFCN+B3 GET RESPONSE STATUS 01511 M01S01428.control +++| AX1 10 01512 M01S01429.control +++| BX1 -X7*X1 01513 M01S01430.control +++| EQ QACX RETURN 01514 M01S01431.control +++| SMG SPACE 4,10 01515 M01S01432.control +++|** SMG - SET MESSAGE IN *TALT*. 01516 M01S01433.control +++|* 01517 M01S01434.control +++|* ENTER MESSAGE STORED IN *MSGA*. 01518 M01S01435.control +++|* 01519 M01S01436.control +++|* EXIT MESSAGE POINTERS SET IN *TALT*. 01520 M01S01437.control +++|* (B7) .LT. (B6), IF NO MESSAGE. 01521 M01S01438.control +++|* 01522 M01S01439.control +++|* USES A - 1, 7. 01523 M01S01440.control +++|* X - 1, 7. 01524 M01S01441.control +++|* B - 6, 7. 01525 M01S01442.control +++| 01526 M01S01443.control +++| 01527 M01S01444.control +++| SMG SUBR ENTRY/EXIT 01528 M01S01445.control +++| SB7 MSGAE FIND END OF MESSAGE 01529 M01S01446.control +++| SB6 MSGA 01530 M01S01447.control +++| SMG1 SB7 B7-B1 01531 M01S01448.control +++| LT B7,B6,SMGX IF NO MESSAGE 01532 M01S01449.control +++| SA1 B7 01533 M01S01450.control +++| ZR X1,SMG1 IF EMPTY WORD 01534 M01S01451.control +++| MX7 -12 01535 M01S01452.control +++| BX7 -X7*X1 01536 M01S01453.control +++| ZR X7,SMG2 IF MESSAGE TERMINATOR 01537 M01S01454.control +++| SB7 B7+1 FORCE TERMINATOR 01538 M01S01455.control +++| SMG2 SX7 B7+1 ADJUST *IN* POINTER 01539 M01S01456.control +++| SA7 TALT+QINP 01540 M01S01457.control +++| EQ SMGX RETURN 01541 M01S00058.ns2516a +++| SRM SPACE 4,15 01542 M01S00059.ns2516a +++|** SRM - SET RESOURCE LIMIT MESSAGE. 01543 M01S00060.ns2516a +++|* 01544 M01S00061.ns2516a +++|* ENTRY (B5) = MESSAGE FWA. 01545 M01S00062.ns2516a +++|* (B7) = REPLACEMENT CHARACTER. 01546 M01S00063.ns2516a +++|* (SRMA) = ACCOUNT BLOCK, JOB STEP SRU, OR TIME LIMIT. 01547 M01S00064.ns2516a +++|* 01548 M01S00065.ns2516a +++|* EXIT RESOURCE LIMIT OR *UNLIMITED* PLACED IN MESSAGE. 01549 M01S00066.ns2516a +++|* 01550 M01S00067.ns2516a +++|* USES X - 0, 1. 01551 M01S00068.ns2516a +++|* A - 1. 01552 M01S00069.ns2516a +++|* B - 2. 01553 M01S00070.ns2516a +++|* 01554 M01S00071.ns2516a +++|* CALLS CDD, SNM. 01555 M01S00072.ns2516a +++| 01556 M01S00073.ns2516a +++| 01557 M01S00074.ns2516a +++| SRM1 RJ CDD CONVERT TO DECIMAL 01558 M01S00075.ns2516a +++| SB2 B2-B1 MASK OFF DIGITS 01559 M01S00076.ns2516a +++| MX6 1 01560 M01S00077.ns2516a +++| AX6 B2 01561 M01S00078.ns2516a +++| BX1 X6*X4 01562 M01S00079.ns2516a +++| SRM2 SB2 B7 01563 M01S00080.ns2516a +++| RJ SNM SET IN MESSAGE 01564 M01S00081.ns2516a +++| 01565 M01S00082.ns2516a +++| SRM SUBR ENTRY/EXIT 01566 M01S00083.ns2516a +++| SA1 SRMA GET LIMIT 01567 M01S00084.ns2516a +++| MX0 -18 01568 M01S00085.ns2516a +++| BX0 -X0-X1 01569 M01S00086.ns2516a +++| NZ X0,SRM1 IF NOT UNLIMITED 01570 M01S00087.ns2516a +++| SA1 SRMB *UNLIMITED* 01571 M01S00088.ns2516a +++| EQ SRM2 SET IN MESSAGE 01572 M01S00089.ns2516a +++| 01573 M01S00090.ns2516a +++| 01574 M01S00091.ns2516a +++| SRMA CON 0 RESOURCE LIMIT 01575 M01S00092.ns2516a +++| SRMB DATA 0LUNLIMITED 01576 M01S01458.control +++| SSC SPACE 4,15 01577 M01S01459.control +++|** SSC - SET SELECTION CRITERIA. 01578 M01S01460.control +++|* 01579 M01S01461.control +++|* ENTER (X1) = JSN IN BITS 59 - 36. 01580 M01S01462.control +++|* (X1) = 0 IF NO JSN PROVIDED. 01581 M01S01463.control +++|* (B2) .LT. 0 IF ALL QUEUES SELECTED. 01582 M01S01464.control +++|* (B2) .EQ. 0 IF FOR EXECUTION QUEUE ONLY. 01583 M01S01465.control +++|* (B2) .GT. 0 IF SPECIFIC QUEUE SELECTION. 01584 M01S01466.control +++|* (B3) = REQUEST BLOCK ADDRESS. 01585 M01S01467.control +++|* 01586 M01S01468.control +++|* EXIT SELECTION CRITERIA SET IN BLOCK. 01587 M01S01469.control +++|* 01588 M01S01470.control +++|* USES A - 2, 7. 01589 M01S01471.control +++|* X - 2, 6, 7. 01590 M01S01472.control +++| 01591 M01S01473.control +++| 01592 M01S01474.control +++| SSC SUBR ENTRY/EXIT 01593 M01S01475.control +++| SA2 QQUE+B3 SET QUEUE SELECTION 01594 M01S01476.control +++| SX7 0037B SELECT ALL QUEUES 01595 M01S01477.control +++| MX6 12 01596 M01S01478.control +++| BX2 -X6*X2 01597 M01S01479.control +++| NG B2,SSC1 IF ALL QUEUES 01598 M01S01480.control +++| SX7 0002B SET EXECTUION QUEUE 01599 M01S01481.control +++| ZR B2,SSC1 IF EXECUTION QUEUE 01600 M01S01482.control +++| SX7 B2+ SPECIAL QUEUE 01601 M01S01483.control +++| SSC1 LX7 59-11 01602 M01S01484.control +++| BX7 X2+X7 01603 M01S01485.control +++| SA7 A2+ 01604 M01S01486.control +++| ERRNZ QJSN-QSEL ENSURE ORDER OF BLOCK IS CORRECT 01605 M01S01487.control +++| SX7 1S6+1S2 SET SELECTION FLAGS 01606 M01S01488.control +++| NZ X1,SSC2 IF JSN SUPPLIED 01607 M01S01489.control +++| SX7 1S2 NO JSN SELECTION 01608 M01S01490.control +++| SSC2 BX7 X7+X1 01609 M01S01491.control +++| SA7 QJSN+B3 01610 M01S01492.control +++| EQ SSCX RETURN 01611 M01S01493.control +++| VJS SPACE 4,10 01612 M01S01494.control +++|** VJS - VALIDATE JSN. 01613 M01S01495.control +++|* 01614 M01S01496.control +++|* ENTRY (X1) = JSN PARAMETER WORD. 01615 M01S01497.control +++|* 01616 M01S01498.control +++|* EXIT (X2) = 0 IF PARAMETER IS VALID. 01617 M01S01499.control +++|* (X1) = JSN IN BITS 59 - 36 IF (X2) = 0. 01618 M01S01500.control +++|* 01619 M01S01501.control +++|* USES X - 1, 2, 3. 01620 M01S01502.control +++| 01621 M01S01503.control +++| 01622 M01S01504.control +++| VJS1 SX2 B1 SET INCORRECT PARAMETER 01623 M01S01505.control +++| 01624 M01S01506.control +++| VJS SUBR ENTRY/EXIT 01625 M01S01507.control +++| MX2 42 01626 M01S01508.control +++| MX3 24 01627 M01S01509.control +++| BX1 X2*X1 01628 M01S01510.control +++| BX2 -X3*X1 01629 M01S01511.control +++| NZ X2,VJSX IF JSN .GT. 4 CHARACTERS 01630 M01S01512.control +++| LX3 -18 01631 M01S01513.control +++| BX3 X3*X1 01632 M01S01514.control +++| NZ X3,VJSX IF FOUR CHARACTER JSN 01633 M01S01515.control +++| MX3 -48 01634 M01S01516.control +++| BX3 -X3*X1 01635 M01S01517.control +++| ZR X3,VJS1 IF JSN .LT. 3 CHARACTERS 01636 M01S01518.control +++| SX3 1R SET FOURTH CHARACTER TO BLANK 01637 M01S01519.control +++| LX3 36 01638 M01S01520.control +++| BX1 X1+X3 01639 M01S01521.control +++| EQ VJSX RETURN 01640 M01S01522.control +++| VRN SPACE 4,15 01641 M01S01523.control +++|** VRN VERIFY RERUN/NORERUN CALL. 01642 M01S01524.control +++|* 01643 M01S01525.control +++|* ENTRY DIRECT FROM RERUN/NORERUN COMMAND. 01644 M01S01526.control +++|* 01645 M01S01527.control +++|* EXIT NORMAL IF VALID CALLER-ELSE ENDRUN. 01646 M01S01528.control +++|* (B1) = 1 01647 M01S01529.control +++|* 01648 M01S01530.control +++|* CALLS NONE. 01649 M01S01531.control +++|* 01650 M01S01532.control +++|* USES A - 2. 01651 M01S01533.control +++|* X - 2, 3, 4, 6. 01652 M01S01534.control +++|* B - 1, 2. 01653 M01S01535.control +++| 01654 M01S01536.control +++| 01655 M01S01537.control +++| VRN SUBR 01656 M01S01538.control +++| SA2 ACTR 01657 M01S01539.control +++| SB1 1 01658 M01S01540.control +++| SB2 X2 NUMBER OF ARGUMENTS 01659 M01S01541.control +++| NE B2,ERR IF ANY ARGUMENTS 01660 M01S01542.control +++| SA2 FWPR VERIFY ORIGIN 01661 M01S01543.control +++| MX3 -6 01662 M01S01544.control +++| AX2 24D 01663 M01S01545.control +++| BX4 -X3*X2 ONLY ORIGIN 01664 M01S01546.control +++| SX6 X4-TXOT 01665 M01S01547.control +++| NZ X6,VRNX IF VALID ORIGIN 01666 M01S01548.control +++| MESSAGE (=C* NORERUN/RERUN INCORRECT FROM INTERACTIVE JOBS.*) 01667 M01S01549.control +++| EQ END COMPLETE COMMAND 01668 M01S01550.control +++| TCKA TITLE TABLE OF CRACKED ARGUMENT VALUES. 01669 M01S01551.control +++|** TCKA - TABLE OF CRACKED ARGUMENT VALUES. 01670 M01S01552.control +++|* 01671 M01S01553.control +++|* THE ORDER OF THE ARGUMENT VALUES IN THIS TABLE IS DETERMINED 01672 M01S01554.control +++|* BY THE ORDER OF THE ARGUMENTS IN THE INDIVIDUAL ARGUMENT 01673 M01S01555.control +++|* TABLES. THE NUMBER OF VALUES USED IS DETERMINED BY THE 01674 M01S01556.control +++|* LENGTH OF THE ARGUMENT TABLE. 01675 M01S01557.control +++|* 01676 M01S01558.control +++|* THE FOLLOWING ARGUMENT TABLES APPLY - 01677 M01S01559.control +++|* *TMRA*, LENGTH *TMRAL* *MFL* AND *RFL* ARGUMENTS 01678 M01S01560.control +++|* *TPRA*, LENGTH *TPRAL* *PROTECT* ARGUMENTS 01679 M01S01561.control +++|* *TSTJ*, LENGTH *TSTJL* *SETJOB* ARGUMENTS 01680 M01S01562.control +++| 01681 M01S01563.control +++| 01682 M01S01564.control +++| TCKAL MAX TMRAL,TPRAL,TSTJL 01683 M01S01565.control +++| TCKA BSSZ TCKAL CRACKED ARGUMENT VALUES 01684 M01S01566.control +++| TITLE COMMON DECKS. 01685 M01S01567.control +++|* COMMON DECKS. 01686 M01S01568.control +++| 01687 M01S01569.control +++| 01688 M01S01570.control +++|*CALL COMCARG 01689 M01S01571.control +++|*CALL COMCARM 01690 M01S01572.control +++|*CALL COMCCPA 01691 M01S00093.ns2516a +++|*CALL COMCCDD 01692 M01S01573.control +++|*CALL COMCCIO 01693 M01S01574.control +++|*CALL COMCCPM 01694 M01S01575.control +++|*CALL COMCDXB 01695 M01S01576.control +++|*CALL COMCLFM 01696 M01S01577.control +++|*CALL COMCMVE 01697 M01S01578.control +++|*CALL COMCPOP 01698 M01S01579.control +++|*CALL COMCSNM 01699 M01S01580.control +++|*CALL COMCSYS 01700 M01S01581.control +++|*CALL COMCUPC 01701 M01S01582.control +++|*CALL COMCUSB 01702 M01S01583.control +++| SPACE 4,10 01703 M01S01584.control +++| USE // 01704 M01S01585.control +++| SPACE 4,10 01705 M01S01586.control +++|** BUFFERS. 01706 M01S01587.control +++| 01707 M01S01588.control +++| 01708 M01S00003.contr10 +++| SBUFL EQU 15 SCRATCH BUFFER LENGTH 01709 M01S00004.contr10 +++| 01710 M01S01589.control +++| ABUF EQU * ARGUMENT STRING BUFFER 01711 M01S01590.control +++| SBUF EQU ABUF+200 SCRATCH BUFFER
| Line S01591 Modification History | |
|---|---|
M01 (Added by) | control |
M02 (Updated by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01712 M02S01591.contr10 ---| RFL= EQU SBUF+1 01713 M01S00005.contr10 +++| RFL= EQU SBUF+SBUFL+8 ALLOW FOR READ AHEAD IN COMMON DECKS 01714 M01S01592.control +++| SPACE 4,10 01715 M01S01593.control +++|** QAC PARAMETER BLOCK STORAGE. 01716 M01S01594.control +++| 01717 M01S01595.control +++| 01718 M01S01596.control +++| TALT EQU * *QAC* ALTER REQUEST BLOCK 01719 M01S01597.control +++| TPEK EQU TALT+QALTL *QAC* PEEK REQUEST BLOCK 01720 M01S01598.control +++| MSGA EQU TPEK+QPEKL MESSAGE BUFER 01721 M01S01599.control +++| MSGAE EQU MSGA+9 01722 M01S01600.control +++| PBUF EQU MSGAE PEEK BUFFER 01723 M01S01601.control +++| PBUFE EQU SBUF 01724 M01S01602.control +++| 01725 M01S01603.control +++| ERRNG CTFL*100B-RFL= CHANGE *CTFL* DEFINITION IN *COMSZOL* 01726 M01S01604.control +++| SPACE 4 01727 M01S01605.control +++| END
cdc/nos2.source/opl.opl871/deck/control.txt · Last modified: by 127.0.0.1