cdc:nos2.source:opl.opl871:deck:control
Deck CONTROL
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.control +++| IDENT CONTROL,CONTROL 00002 M00S00002.control +++| ABS 00003 M00S00003.control +++| SYSCOM B1 00004 M00S00004.control +++| SST T1,MCMX 00005 M00S00005.control +++| ENTRY CFO 00006 M00S00006.control +++| ENTRY COMMENT 00007 M00S00007.control +++| ENTRY ERRMSG 00008 M00S00008.control +++| ENTRY EXIT 00009 M00S00009.control +++| ENTRY FAMILY 00010 M00S00010.control +++| ENTRY GO 00011 M00S00011.control +++| ENTRY MACHINE 00012 M00S00012.control +++| ENTRY MFL 00013 M00S00013.control +++| ENTRY MODE 00014 M00S00014.control +++| ENTRY NOEXIT 00015 M00S00015.control +++| ENTRY NORERUN 00016 M00S00016.control +++| ENTRY ONEXIT 00017 M00S00017.control +++| ENTRY ONSW 00018 M00S00018.control +++| ENTRY OFFSW 00019 M00S00019.control +++| ENTRY OPMSG 00020 M00S00020.control +++| ENTRY PAUSE 00021 M00S00021.control +++| ENTRY PROTECT 00022 M00S00022.control +++| ENTRY RERUN 00023 M00S00023.control +++| ENTRY RFL 00024 M00S00024.control +++| ENTRY ROLLOUT 00025 M00S00025.control +++| ENTRY SETASL 00026 M00S00026.control +++| ENTRY SETJOB 00027 M00S00027.control +++| ENTRY SETJSL 00028 M00S00028.control +++| ENTRY SETPR 00029 M00S00029.control +++| ENTRY SETTL 00030 M00S00030.control +++| ENTRY SHELL 00031 M00S00031.control +++| ENTRY SUI 00032 M00S00032.control +++| ENTRY SWITCH 00033 M00S00033.control +++| ENTRY USECPU 00034 M00S00034.control +++| ENTRY RFL= 00035 M00S00035.control +++|*COMMENT CONTROL - JOB CONTROL PROCESSOR.
| Line S00036 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00036 M01S00036.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00037 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00038 M00S00037.control +++| SPACE 4,10 00039 M00S00038.control +++| TITLE CONTROL - JOB CONTROL PROCESSOR. 00040 M00S00039.control +++|*** CONTROL - JOB CONTROL PROCESSOR. 00041 M00S00040.control +++|* G. R. MANSFIELD. 70/12/06. 00042 M00S00041.control +++| SPACE 4,10 00043 M00S00042.control +++|*** CONTROL PROVIDES FUNCTIONS FOR JOB CONTROL AS 00044 M00S00043.control +++|* LISTED BELOW. 00045 M00S00044.control +++| SPACE 4,10 00046 M00S00045.control +++|*** NUMERIC ARGUMENTS ARE ASSUMED OCTAL BASE, 00047 M00S00046.control +++|* EXCEPT ON SETASL, SETJSL, AND SETTL, WHERE ASSUMED 00048 M00S00047.control +++|* BASE IS DECIMAL. NUMBERS MAY BE SUFFIXED BY A 00049 M00S00048.control +++|* POST-RADIX OF *B* OR *D*. 00050 M00S00049.control +++| SPACE 4,10 00051 M00S00050.control +++|*** DAYFILE MESSAGES. 00052 M00S00051.control +++|* 00053 M00S00052.control +++|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00053.control +++|* * ERROR IN CONTROL ARGUMENTS.* = AN ARGUMENT TO A CONTROL 00062 M00S00054.control +++|* FUNCTION WAS INCORRECT. 00063 M00S00055.control +++|* NO MESSAGE WAS SPECIFIED ON A *COMMENT* COMMAND. 00064 M00S00056.control +++|* A PARAMETER WAS SPECIFIED ON THE *OPMSG* COMMAND. 00065 M00S00057.control +++|* 00066 M00S00058.control +++|* * CM OR EC REQUEST EXCEEDS MAXIMUM.* = A RFL/MFL REQUEST 00067 M00S00059.control +++|* EXCEEDS THE MAXIMUM ALLOWABLE FIELD LENGTH. 00068 M00S00060.control +++|* 00069 M00S00061.control +++|* * USER ACCESS NOT VALID.* = THE SRU OR TIME LIMIT 00070 M00S00062.control +++|* REQUEST IS OUT OF RANGE. 00071 M00S00063.control +++|* 00072 M00S00064.control +++|* * MFL REQUEST TOO SMALL, MINIMUM USED.* = REQUESTED 00073 M00S00065.control +++|* FIELD LENGTH IS LESS THAN THAT REQUIRED BY *CONTROL*. 00074 M00S00066.control +++|* 00075 M00S00067.control +++|* * NORERUN/RERUN INCORRECT FROM INTERACTIVE JOBS. * = AN 00076 M00S00068.control +++|* INTERACTIVE ORIGIN JOB CANNOT SET OR CLEAR JOB RERUN 00077 M00S00069.control +++|* STATUS. 00078 M00S00070.control +++|* 00079 M00S00071.control +++|* * CONTROL *QAC* ERROR NNN.* 00080 M00S00072.control +++|* AN UNEXPECTED *QAC* ERROR STATUS OCCURRED. 00081 M00S00073.control +++|* 00082 M00S00074.control +++|* * FILE/JOB NOT FOUND.* 00083 M00S00075.control +++|* THE SPECIFIED FILE OR JOB WAS NOT IN THE SYSTEM. 00084 M00S00076.control +++|* 00085 M00S00077.control +++|* * NO JOB CHARACTERISTICS SPECIFIED.* = A *SETJOB* REQUEST 00086 M00S00078.control +++|* CONTAINED NO JOB CHARACTERISTICS. 00087 M00S00079.control +++|* 00088 M00S00080.control +++|* * INCORRECT CPU PRIORITY VALUE.* 00089 M00S00081.control +++|* THE CPU PRIORITY VALUE SPECIFIED EXCEEDS THE 00090 M00S00082.control +++|* MAXIMUM VALUE ALLOWED. 00091 M00S00083.control +++|* 00092 M00S00084.control +++|* *INCORRECT PARAMETER.* = A PARAMETER OTHER THAN A, L, G, 00093 M00S00085.control +++|* S, T, B, OR C WAS SPECIFIED ON A *SHELL* COMMAND. 00094 M00S00086.control +++|* 00095 M00S00087.control +++|* *INCORRECT PARAMETER LENGTH OR SEPARATOR.* = A PARAMETER 00096 M00S00088.control +++|* WAS LONGER THAN SEVEN CHARACTERS, OR USED AN INCORRECT 00097 M00S00089.control +++|* SEPARATOR. 00098 M00S00090.control +++|* 00099 M00S00091.control +++|* * FAMILY NOT FOUND.* 00100 M00S00092.control +++|* THE SPECIFIED FAMILY DOES NOT EXIST. 00101 M00S00093.control +++|* 00102 M00S00094.control +++|* * DEFAULT FAMILY USED.* 00103 M00S00095.control +++|* THE FAMILY SPECIFIED WAS THE SYSTEM DEFAULT FAMILY. 00104 M00S00096.control +++|* 00105 M00S00097.control +++|* * ONLY CORRECT PARAMETERS ARE *ON* OR *OFF*.* = AN 00106 M00S00098.control +++|* UNRECOGNIZABLE PARAMETER WAS SPECIFIED. 00107 M00S00099.control +++|* 00108 M00S00100.control +++|* * PARAMETER *ON* OR *OFF* REQUIRED.* = NO PARAMETER WAS 00109 M00S00101.control +++|* SPECIFIED ON THE COMMAND. 00110 M00S00102.control +++|* 00111 M00S00103.control +++|* * PARAMETERS *ON* AND *OFF* ARE MUTUALLY EXCLUSIVE.* = BOTH 00112 M00S00104.control +++|* *ON* AND *OFF* WERE SPECIFIED. ONLY ONE PARAMETER IS 00113 M00S00105.control +++|* ALLOWED ON THE COMMAND. 00114 M00S00106.control +++| SPACE 4,10 00115 M00S00107.control +++|*** OPERATOR MESSAGES. 00116 M00S00108.control +++|* 00117 M00S00109.control +++|* 00118 M00S00110.control +++|* NONE. 00119 M00S00111.control +++| SPACE 4,10 00120 M00S00112.control +++|*CALL COMCMAC 00121 M00S00113.control +++|*CALL COMCCMD 00122 M00S00114.control +++| QUAL EVENT 00123 M00S00115.control +++|*CALL COMSEVT 00124 M00S00116.control +++| QUAL *
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00125 M01S00001.ns2731 +++|*CALL COMSPRD 00126 M00S00117.control +++|*CALL COMSQAC 00127 M00S00118.control +++|*CALL COMSZOL 00128 M00S00119.control +++| TITLE FUNCTION PROCESSORS. 00129 M00S00120.control +++| TITLE DATA LOCATIONS. 00130 M00S00121.control +++| ORG 150B 00131 M00S00122.control +++| CONTROL BSS 0 00132 M00S00123.control +++| QACP SPACE 4,10 00133 M00S00124.control +++|** *QAC* PARAMETER BLOCK. 00134 M00S00125.control +++|* 00135 M00S00126.control +++|* PREFIX PORTION. 00136 M00S00127.control +++| 00137 M00S00128.control +++| 00138 M00S00129.control +++| LOC 0 00139 M00S00130.control +++| QFCN VFD 42/0,8/0,9/0,1/0 FUNCTION, STATUS 00140 M00S00131.control +++| QFIR VFD 36/0,6/0,18/0 LENGTH, FIRST 00141 M00S00132.control +++| QINP VFD 42/0,18/0 IN 00142 M00S00133.control +++| QOTP VFD 42/0,18/0 OUT 00143 M00S00134.control +++| QLIM VFD 12/0,12/0,12/0,6/0,18/0 LIMIT 00144 M00S00135.control +++| SPACE 4,10 00145 M00S00136.control +++|** SELECTION CRITERIA PORTION. 00146 M00S00137.control +++| 00147 M00S00138.control +++| 00148 M00S00139.control +++| VFD 60/0 00149 M00S00140.control +++| VFD 60/0 00150 M00S00141.control +++| QJSN VFD 24/0,36/0 00151 M00S00142.control +++| QSEL EQU *-1 00152 M00S00143.control +++| QQUE VFD 12/0,48/0 00153 M00S00144.control +++| VFD 60/0 00154 M00S00145.control +++| VFD 60/0 00155 M00S00146.control +++| VFD 60/0 00156 M00S00147.control +++| QSPEC EQU * BEGINNING OF FUNCTION SPECIFIC WORDS 00157 M00S00148.control +++| SPACE 4,10 00158 M00S00149.control +++|** ALTER FUNCTION. 00159 M00S00150.control +++| 00160 M00S00151.control +++| 00161 M00S00152.control +++| QARF EQU 1 ALTER FUNCTION CODE 00162 M00S00153.control +++| 00163 M00S00154.control +++| LOC QSPEC 00164 M00S00155.control +++| QSSW VFD 6/0,24/0,30/0 00165 M00S00156.control +++| QALF EQU *-1 00166 M00S00157.control +++| VFD 60/0 00167 M00S00158.control +++| VFD 60/0 00168 M00S00159.control +++| VFD 60/0 00169 M00S00160.control +++| VFD 60/0 00170 M00S00161.control +++| QALTL EQU *-QFCN LENGTH OF ALTER REQUEST 00171 M00S00162.control +++| SPACE 4,10 00172 M00S00163.control +++|** PEEK FUNCTION. 00173 M00S00164.control +++| 00174 M00S00165.control +++| 00175 M00S00166.control +++| QPKF EQU 3 PEEK FUNCTION CODE 00176 M00S00167.control +++| 00177 M00S00168.control +++| LOC QSPEC 00178 M00S00169.control +++| QCNT VFD 12/0,12/0,12/0,12/0,12/0 00179 M00S00170.control +++| QENT VFD 36/0,12/0,12/0 00180 M00S00171.control +++| QPIB VFD 60/0 00181 M00S00172.control +++| VFD 60/0 00182 M00S00173.control +++| QPEKL EQU *-QFCN LENGTH OF PEEK REQUEST 00183 M00S00174.control +++| 00184 M00S00175.control +++| LOC *O 00185 M00S00176.control +++| ORG CONTROL 00186 M00S00177.control +++| TQPW SPACE 4,10 00187 M00S00178.control +++|** TQPW - TABLE OF *QAC* PRESET WORDS. 00188 M00S00179.control +++| 00189 M00S00180.control +++| 00190 M00S00181.control +++| TQPW BSS 0 00191 M00S00182.control +++| VFD 36/0,6/QALTL-5,18/MSGA 00192 M00S00183.control +++| VFD 42/0,18/MSGA 00193 M00S00184.control +++| VFD 42/0,18/MSGAE 00194 M00S00185.control +++| VFD 36/0,6/QPEKL-5,18/PBUF 00195 M00S00186.control +++| VFD 42/0,18/PBUF 00196 M00S00187.control +++| VFD 42/0,18/PBUFE 00197 M00S00188.control +++| FETS SPACE 4,10 00198 M00S00189.control +++|*** FETS. 00199 M00S00190.control +++| 00200 M00S00191.control +++| 00201 M00S00192.control +++| SCR FILEB SBUF,1,(FET=8) 00202 M00S00193.control +++| SPACE 4,10 00203 M00S00194.control +++|** DATA LOCATIONS. 00204 M00S00195.control +++| 00205 M00S00196.control +++| 00206 M00S00197.control +++| ZR CON 0 ZERO WORD FOR ARGUMENT PROCESSING 00207 M00S00198.control +++| TITLE COMMAND PROCESSORS. 00208 M00S00199.control +++| CFO SPACE 4,10 00209 M00S00200.control +++|*** CFO - CFO,JSN.COMMENT 00210 M00S00201.control +++|* ENTER COMMENT FROM OPERATOR IN JOB *JSN*. 00211 M00S00202.control +++| 00212 M00S00203.control +++| 00213 M00S00204.control +++| CFO BSS 0 ENTRY 00214 M00S00205.control +++| SX6 CFAF*10000B SET CFO ALTER FUNCTION 00215 M00S00206.control +++| EQ COM1 PROCESS COMMAND 00216 M00S00207.control +++| COMMENT SPACE 4,10 00217 M00S00208.control +++|*** COMMENT.CCC-CCC 00218 M00S00209.control +++|* ENTER COMMENT IN DAYFILE. 00219 M00S00210.control +++|* 00220 M00S00211.control +++|* COMMENT,JSN.COMMENT 00221 M00S00212.control +++|* ENTER COMMENT IN DAYFILE OF JOB *JSN*. 00222 M00S00213.control +++| 00223 M00S00214.control +++| 00224 M00S00215.control +++| COMMENT BSS 0 ENTRY 00225 M00S00216.control +++| SX6 DYAF*10000B SET COMMENT ALTER FUNCTION 00226 M00S00217.control +++| COM1 SB1 1 00227 M00S00218.control +++| SA6 COMA 00228 M00S00219.control +++| SA2 ACTR CHECK ARGUMENT COUNT 00229 M00S00220.control +++| SX2 X2 00230 M00S00221.control +++| AX3 X2,B1 00231 M00S00222.control +++| ZR X2,END IF LOCAL COMMENT 00232 M00S00223.control +++| NZ X3,ERR IF INCORRECT ARGUMENT COUNT 00233 M00S00224.control +++| RJ PQB PRESET QAC BLOCK 00234 M00S00225.control +++| SA1 ARGR 00235 M00S00226.control +++| RJ VJS VERIFY JSN 00236 M00S00227.control +++| NZ X2,ERR IF INCORRECT JSN 00237 M00S00228.control +++| SB2 0 FLAG EXECUTION QUEUE 00238 M00S00229.control +++| SB3 TALT 00239 M00S00230.control +++| RJ SSC SET SELECTION CRITERIA 00240 M00S00231.control +++| SB2 CCDR GET COMMENT 00241 M00S00232.control +++| RJ MCM MOVE COMMENT 00242 M00S00233.control +++| RJ SMG SET MESSAGE FOR *QAC* 00243 M00S00234.control +++| LT B7,B6,ERR IF NO MESSAGE 00244 M00S00235.control +++| SA1 COMA GET ALTER FUNCTION 00245 M00S00236.control +++| SA2 TALT+QALF 00246 M00S00237.control +++| BX6 X1+X2 00247 M00S00238.control +++| SA6 A2 00248 M00S00239.control +++| SX6 QARF CALL *QAC* 00249 M00S00240.control +++| SB3 TALT 00250 M00S00241.control +++| RJ QAC 00251 M00S00242.control +++| EQ ENL COMPLETE COMMAND 00252 M00S00243.control +++| 00253 M00S00244.control +++| COMA CON 0 ALTER FUNCTION SELECTION 00254 M00S00245.control +++| ERRMSG SPACE 4,20 00255 M00S00246.control +++|*** ERRMSG(PARAM) 00256 M00S00247.control +++|* 00257 M00S00248.control +++|* ENABLE OR DISABLE THE ECHOING OF *MS1W*/*MS2W* 00258 M00S00249.control +++|* ERROR MESSAGES TO THE TERMINAL BY *1RO*. ERROR MESSAGE 00259 M00S00250.control +++|* ECHOING CAN ONLY BE DISABLED FOR THE DURATION OF A 00260 M00S00251.control +++|* *CCL* PROCEDURE. ERROR MESSAGE PROCESSING REVERTS TO 00261 M00S00252.control +++|* NORMAL AFTER THE *CCL* PROCEDURE IS COMPLETED AND THE 00262 M00S00253.control +++|* USER RETURNS TO INTERACTIVE COMMAND MODE. 00263 M00S00254.control +++|* 00264 M00S00255.control +++|* ERRMSG(PARAM) 00265 M00S00256.control +++|* 00266 M00S00257.control +++|* PARAM ACTION 00267 M00S00258.control +++|* 00268 M00S00259.control +++|* OFF DISABLE THE ECHOING OF *MS1W*/*MS2W* 00269 M00S00260.control +++|* ERROR MESSAGES TO THE TERMINAL BY *1RO* 00270 M00S00261.control +++|* FOR THE DURATION OF A *CCL* PROCEDURE. 00271 M00S00262.control +++|* 00272 M00S00263.control +++|* ON ENABLE THE ECHOING OF *MS1W*/*MS2W* 00273 M00S00264.control +++|* ERROR MESSAGES TO THE TERMINAL BY *1RO*. 00274 M00S00265.control +++| 00275 M00S00266.control +++| 00276 M00S00267.control +++| ERRMSG BSS 0 ENTRY 00277 M00S00268.control +++| SB1 1 00278 M00S00269.control +++| SA1 ACTR 00279 M00S00270.control +++| SB4 X1 ARGUMENT COUNT 00280 M00S00271.control +++| SA4 ARGR ADDRESS OF FIRST ARGUMENT 00281 M00S00272.control +++| SB5 ERMB ADDRESS OF ARGUMENT TABLE 00282 M00S00273.control +++| RJ ARG PROCESS ARGUMENTS 00283 M00S00274.control +++| ZR X1,ERM1 IF NO ERROR 00284 M00S00275.control +++| MESSAGE ERME,,R ONLY CORRECT PARAMETERS ARE *ON* OR *OFF* 00285 M00S00276.control +++| ABORT 00286 M00S00277.control +++| 00287 M00S00278.control +++| ERM1 SA1 ERMC 00288 M00S00279.control +++| SA2 ERMD 00289 M00S00280.control +++| ZR X1,ERM2 IF COMMAND IS *ERRMSG,ON* 00290 M00S00281.control +++| ZR X2,ERM4 IF COMMAND IS *ERRMSG,OFF.* 00291 M00S00282.control +++| MESSAGE ERMF,,R PARAMETER *ON* OR *OFF* REQUIRED 00292 M00S00283.control +++| ABORT 00293 M00S00284.control +++| 00294 M00S00285.control +++| ERM2 ZR X2,ERM3 IF BOTH *ON* AND *OFF* SPECIFIED 00295 M00S00286.control +++| SX6 B0+ ENABLE TERMINAL ERROR MESSAGES 00296 M00S00287.control +++| SA6 ERMA 00297 M00S00288.control +++| EQ ERM5 CALL *CPM* 00298 M00S00289.control +++| 00299 M00S00290.control +++| ERM3 MESSAGE ERMG,,R ONLY ONE PARAMETER ALLOWED 00300 M00S00291.control +++| ABORT 00301 M00S00292.control +++| 00302 M00S00293.control +++| ERM4 SX6 B1+ DISABLE TERMINAL ERROR MESSAGES 00303 M00S00294.control +++| SA6 ERMA 00304 M00S00295.control +++| ERM5 SX1 ERMA 00305 M00S00296.control +++| SX2 135B DISABLE/ENABLE TERMINAL ERROR MESSAGES 00306 M00S00297.control +++| RJ CPM= 00307 M00S00298.control +++| ENDRUN END 00308 M00S00299.control +++| 00309 M00S00300.control +++| 00310 M00S00301.control +++| ERMA CON 0 *CPM* ARGUMENT WORD 00311 M00S00302.control +++| 00312 M00S00303.control +++| ERMB BSS 0 *ERRMSG* CARD ARGUMENT TABLE 00313 M00S00304.control +++| ON ARG -ZR,ERMC 00314 M00S00305.control +++| OFF ARG -ZR,ERMD 00315 M00S00306.control +++| ARG 00316 M00S00307.control +++| 00317 M00S00308.control +++| ERMC DATA -1 *ON* PARAMETER 00318 M00S00309.control +++| ERMD DATA -1 *OFF* PARAMETER 00319 M00S00310.control +++| 00320 M00S00311.control +++| ERME DATA C$ ONLY CORRECT PARAMETERS ARE *ON* OR *OFF*.$ 00321 M00S00312.control +++| ERMF DATA C$ PARAMETER *ON* OR *OFF* REQUIRED.$ 00322 M00S00313.control +++| ERMG DATA C$ PARAMETERS *ON* AND *OFF* ARE MUTUALLY EXCLUSIVE.$ 00323 M00S00314.control +++| EXIT SPACE 4,10 00324 M00S00315.control +++|*** EXIT. 00325 M00S00316.control +++|* TERMINATE JOB. 00326 M00S00317.control +++| 00327 M00S00318.control +++| 00328 M00S00319.control +++| EXIT BSS 0 ENTRY 00329 M00S00320.control +++| SB1 1 00330 M00S00321.control +++| RETURN SCR,R 00331 M00S00322.control +++| ENCSF SCR 00332 M00S00323.control +++| EQ END COMPLETE COMMAND 00333 M00S00324.control +++| FAMILY SPACE 4,10 00334 M00S00325.control +++|*** FAMILY(FAMNAME). 00335 M00S00326.control +++|* 00336 M00S00327.control +++|* ALTER THE FAMILY NAME FOR THE JOB. 00337 M00S00328.control +++|* ONLY VALID FOR *SYOT* JOBS. 00338 M00S00329.control +++|* NOT VALID ON SECURED SYSTEM. 00339 M00S00330.control +++| 00340 M00S00331.control +++| 00341 M00S00332.control +++| FAMILY BSS 0 ENTRY 00342 M00S00333.control +++| SB1 1 00343 M00S00334.control +++| SA2 ACTR CHECK PARAMETER COUNT 00344 M00S00335.control +++| SB2 X2 00345 M00S00336.control +++| ZR B2,FAM1 IF NO PARAMETERS SPECIFIED 00346 M00S00337.control +++| GT B2,B1,ERR IF TOO MANY PARAMETERS SPECIFIED 00347 M00S00338.control +++| SA1 ARGR GET FAMILY NAME 00348 M00S00339.control +++| BX6 X1 00349 M00S00340.control +++| SA6 FAMA 00350 M00S00341.control +++| FAM1 ENFAM FAMA ENTER FAMILY NAME 00351 M00S00342.control +++| SA1 FAMA 00352 M00S00343.control +++| MX0 -6 00353 M00S00344.control +++| BX5 -X0*X1 00354 M00S00345.control +++| LX1 48 00355 M00S00346.control +++| NG X1,ERR4 IF INCORRECT FAMILY NAME 00356 M00S00347.control +++| ZR X5,FAM2 IF DEFAULT NOT USED 00357 M00S00348.control +++| MESSAGE (=C* DEFAULT FAMILY USED.*),3 00358 M00S00349.control +++| FAM2 ENDRUN 00359 M00S00350.control +++| 00360 M00S00351.control +++| FAMA CON 0 FAMILY NAME 00361 M00S00352.control +++| GO SPACE 4,10 00362 M00S00353.control +++|** GO,JSN. 00363 M00S00354.control +++|* SEND *GO* TO JOB JSN. 00364 M00S00355.control +++| 00365 M00S00356.control +++| 00366 M00S00357.control +++| GO BSS 0 ENTRY 00367 M00S00358.control +++| SA0 GOAF*10000B *GO* FLAG 00368 M00S00359.control +++| GO1 SB1 1 00369 M00S00360.control +++| RJ PQB PRESET REQUEST BLOCK 00370 M00S00361.control +++| SA2 ACTR 00371 M00S00362.control +++| SA1 ARGR 00372 M00S00363.control +++| SB2 X2+ 00373 M00S00364.control +++| NE B2,B1,ERR IF NOT ONE ARGUMENT 00374 M00S00365.control +++| RJ VJS VALIDATE JSN 00375 M00S00366.control +++| SB2 0 FLAG EXECUTION QUEUE 00376 M00S00367.control +++| NZ X2,ERR IF INCORRECT JSN 00377 M00S00368.control +++| SB3 TALT 00378 M00S00369.control +++| RJ SSC SET SELECTION CRITERIA 00379 M00S00370.control +++| SA2 TALT+QALF SET ALTER FLAG 00380 M00S00371.control +++| SX1 A0+ 00381 M00S00372.control +++| BX7 X2+X1 00382 M00S00373.control +++| SA7 A2 00383 M00S00374.control +++| SX6 QARF SET ALTER FUNCTION 00384 M00S00375.control +++| SB3 TALT 00385 M00S00376.control +++| RJ QAC CALL *QAC* 00386 M00S00377.control +++| EQ ENL COMPLETE COMMAND 00387 M00S00378.control +++| MACHINE SPACE 4,10 00388 M00S00379.control +++|*** MACHINE(EP=XX) 00389 M00S00380.control +++|* XX=ON/OFF. 00390 M00S00381.control +++|* 00391 M00S00382.control +++|* SETS OR CLEARS THE STACK PURGING BIT ON THE CYBER 170-8X5 00392 M00S00383.control +++|* MAINFRAME. IF THE STACK PURGING BIT IS SET, ALL STORES AND 00393 M00S00384.control +++|* CONDITIONAL BRANCHES WILL CAUSE THE STACK TO BE PURGED. 00394 M00S00385.control +++| 00395 M00S00386.control +++| 00396 M00S00387.control +++| MACHINE BSS 0 ENTRY 00397 M00S00388.control +++| SX6 TMAA ARGUMENT TABLE ADDRESS 00398 M00S00389.control +++| SX7 TMAAL 00399 M00S00390.control +++| RJ PKP PROCESS KEYBOARD OR POSITIONAL ARGUMENTS 00400 M00S00391.control +++| NZ X1,ERR IF NO ARGUMENTS SPECIFIED 00401 M00S00392.control +++| SA1 PROA ARGUMENT VALUE 00402 M00S00393.control +++| SA2 =2LON 00403 M00S00394.control +++| SA3 =3LOFF 00404 M00S00395.control +++| BX2 X1-X2 00405 M00S00396.control +++| SX4 B1 PRESET FOR PURGE BIT TO BE SET 00406 M00S00397.control +++| ZR X2,MAC1 IF PURGE BIT TO BE SET 00407 M00S00398.control +++| BX6 X1-X3 00408 M00S00399.control +++| NZ X6,ERR IF NEITHER YES OR NO SPECIFIED 00409 M00S00400.control +++| MX4 0 00410 M00S00401.control +++| MAC1 MODE ,,X4 00411 M00S00402.control +++| EQ END COMPLETE COMMAND 00412 M00S00403.control +++| 00413 M00S00404.control +++| 00414 M00S00405.control +++|** TMAA - TABLE OF VALID ARGUMENTS FOR *MACHINE*. 00415 M00S00406.control +++|* 00416 M00S00407.control +++| 00417 M00S00408.control +++| 00418 M00S00409.control +++| TMAA BSS 0 00419 M00S00410.control +++| EP ARG ZR,PROA 00420 M00S00411.control +++| ARG 00421 M00S00412.control +++| TMAAL EQU *-TMAA-1 00422 M00S00413.control +++| MFL SPACE 4,10 00423 M00S00414.control +++|*** MFL(NNNNNN,MMMMM) 00424 M00S00415.control +++|* MFL(CM=NNNNNN,EC=MMMMM) 00425 M00S00416.control +++|* SET MAXIMUM CM FIELD LENGTH (MAXFL(CM)) = NNNNNN. 00426 M00S00417.control +++|* SET MAXIMUM EM FIELD LENGTH (MAXFL(ECS)) = MMMMM*1000B. 00427 M00S00418.control +++|* 00428 M00S00419.control +++|* ARGUMENTS MAY BE ENTERED WITH KEYWORDS OR POSITIONALLY OR 00429 M00S00420.control +++|* MIXED. IF MIXED, THOSE WITHOUT KEYWORDS WILL BE EVALUATED 00430 M00S00421.control +++|* ACCORDING TO THEIR POSITION AMONG ALL THE ARGUMENTS. 00431 M00S00422.control +++| 00432 M00S00423.control +++| 00433 M00S00424.control +++| MFL BSS 0 ENTRY 00434 M00S00425.control +++| RJ CMP CONVERT PARAMETERS 00435 M00S00426.control +++| ZR X1,MFL2 IF NO CM CHANGE 00436 M00S00427.control +++| SX1 X1+ 00437 M00S00428.control +++| ZR X1,MFL1 IF SET MFL TO MAXFL REQUEST 00438 M00S00429.control +++| SX5 RFL=+100B CHECK MFL REQUEST 00439 M00S00430.control +++| BX6 X1 00440 M00S00431.control +++| AX5 6 00441 M00S00432.control +++| AX6 6 00442 M00S00433.control +++| IX2 X6-X5 00443 M00S00434.control +++| PL X2,MFL1 IF REQUESTED MFL .GE. *CONTROL*S RFL= 00444 M00S00435.control +++| MESSAGE (=C* MFL REQUEST TOO SMALL, MINIMUM USED.*) 00445 M00S00436.control +++| SX1 RFL= SET MINIMUM MFL VALUE 00446 M00S00437.control +++| MFL1 SETMFL X1 00447 M00S00438.control +++| MFL2 ZR X3,END IF NO EXTENDED MEMORY CHANGE 00448 M00S00439.control +++| SX3 X3 00449 M00S00440.control +++| SETMFL ,X3 00450 M00S00441.control +++| EQ END COMPLETE COMMAND 00451 M00S00442.control +++| TMRA SPACE 4,10 00452 M00S00443.control +++|** TMRA - TABLE OF *MFL* AND *RFL* ARGUMENTS. 00453 M00S00444.control +++|* SEE *COMCMAC* MACRO *ARG* FOR FORMAT. 00454 M00S00445.control +++| 00455 M00S00446.control +++| 00456 M00S00447.control +++| TMRA BSS 0 00457 M00S00448.control +++| CM ARG ZR,TCKA,400B CM FIELD LENGTH 00458 M00S00449.control +++| EC ARG ZR,TCKA+1,400B EXTENDED MEMORY FIELD LENGTH 00459 M00S00450.control +++| ARG 00460 M00S00451.control +++| TMRAL EQU *-TMRA-1 ARGUMENT TABLE LENGTH 00461 M00S00452.control +++| MODE SPACE 4,10 00462 M00S00453.control +++|*** MODE M,N 00463 M00S00454.control +++|* M = PROGRAM ERROR EXIT MODES. 00464 M00S00455.control +++|* N = HARDWARE ERROR EXIT MODES. 00465 M00S00456.control +++|* SET ERROR EXIT MODE = N00M. 00466 M00S00457.control +++| 00467 M00S00458.control +++| 00468 M00S00459.control +++| MODE BSS 0 ENTRY 00469 M00S00460.control +++| SA2 ACTR CHECK ARGUMENT COUNT 00470 M00S00461.control +++| SB1 1 00471 M00S00462.control +++| SX7 X2 00472 M00S00463.control +++| SB7 B0 OCTAL BASE 00473 M00S00464.control +++| SA5 ARGR ARGUMENT 00474 M00S00465.control +++| ZR X7,ERR ERROR IF NO ARGUMENT 00475 M00S00466.control +++| SB6 X7 SAVE NUMBER OF PARAMETERS 00476 M00S00467.control +++| RJ DXB CONVERT DIGITS 00477 M00S00468.control +++| NZ X4,ERR IF ERROR ENCOUNTERED 00478 M00S00469.control +++| SX7 X6-20B 00479 M00S00470.control +++| PL X7,ERR IF .GT. 20B 00480 M00S00471.control +++| BX7 X6 00481 M00S00472.control +++| SA5 A5+B1 GET NEXT PARAMETER 00482 M00S00473.control +++| SX6 EEMC/1000B DEFAULT HARDWARE MODE BITS (7XXX) 00483 M00S00474.control +++| EQ B6,B1,MOD1 IF ONLY 1 PARAMETER 00484 M00S00475.control +++| SA7 MODA SAVE FIRST PARAMETER 00485 M00S00476.control +++| RJ DXB CONVERT DIGITS 00486 M00S00477.control +++| NZ X4,ERR IF ERROR 00487 M00S00478.control +++| SX0 X6-10B 00488 M00S00479.control +++| PL X0,ERR IF .GT. 7 00489 M00S00480.control +++| SA2 MODA RESTORE FIRST PARAMETER 00490 M00S00481.control +++| BX7 X2 00491 M00S00482.control +++| MOD1 MODE X7,X6 00492 M00S00483.control +++| EQ END COMPLETE COMMAND 00493 M00S00484.control +++| 00494 M00S00485.control +++| MODA BSS 1 TEMPORARY SAVE 00495 M00S00486.control +++| NOEXIT SPACE 4,10 00496 M00S00487.control +++|*** NOEXIT. 00497 M00S00488.control +++|* SUPPRESS PROCESSING OF *EXIT* COMMAND IF JOB ABORTS. 00498 M00S00489.control +++| 00499 M00S00490.control +++| 00500 M00S00491.control +++| NOEXIT BSS 0 ENTRY 00501 M00S00492.control +++| SX1 1 SET NO EXIT 00502 M00S00493.control +++| NOX1 SA3 ACTR CHECK ARGUMENT COUNT 00503 M00S00494.control +++| SB1 1 00504 M00S00495.control +++| SX7 X3+ 00505 M00S00496.control +++| NZ X7,ERR IF ARGUMENTS PRESENT 00506 M00S00497.control +++| SX2 7 00507 M00S00498.control +++| RJ =XCPM= 00508 M00S00499.control +++| EQ END COMPLETE COMMAND 00509 M00S00500.control +++| NORERUN SPACE 4,10 00510 M00S00501.control +++|*** NORERUN. 00511 M00S00502.control +++|* SET INPUT FILE INTO NORERUN STATUS. 00512 M00S00503.control +++| 00513 M00S00504.control +++| 00514 M00S00505.control +++| NORERUN BSS 0 ENTRY 00515 M00S00506.control +++| RJ VRN VERIFY CALLER 00516 M00S00507.control +++| NORERUN SET NO RERUN 00517 M00S00508.control +++| EQ END COMPLETE COMMAND 00518 M00S00509.control +++| ONEXIT SPACE 4,10 00519 M00S00510.control +++|*** ONEXIT. 00520 M00S00511.control +++|* RESET PROCESSING OF *EXIT* COMMAND. 00521 M00S00512.control +++| 00522 M00S00513.control +++| 00523 M00S00514.control +++| ONEXIT BSS 0 ENTRY 00524 M00S00515.control +++| SX1 B0 SET ONEXIT 00525 M00S00516.control +++| EQ NOX1 PROCESS COMMAND 00526 M00S00517.control +++| ONSW SPACE 4,20 00527 M00S00518.control +++|*** ONSW (X1,X2,...XN) 00528 M00S00519.control +++|* SET SENSE SWITCHES XN. 00529 M00S00520.control +++|* IF XN = 0, ALL SWITCHES WILL BE SET. 00530 M00S00521.control +++|* 00531 M00S00522.control +++|* ONSW (X1,X2,...XN,JSN) 00532 M00S00523.control +++|* SET SENSE SWITCHES XN ON JOB JSN. 00533 M00S00524.control +++|* IF XN = 0, ALL SWITCHES WILL BE SET. 00534 M00S00525.control +++|* JSN MAY APPEAR ONCE ANYWHERE IN THE LIST. 00535 M00S00526.control +++|* 00536 M00S00527.control +++|* SWITCH (X1,X2,...XN) 00537 M00S00528.control +++|* SET SENSE SWITCHES XN. 00538 M00S00529.control +++|* IF XN = 0, ALL SWITCHES WILL BE SET. 00539 M00S00530.control +++|* 00540 M00S00531.control +++|* SWITCH (X1,X2,...XN,JSN) 00541 M00S00532.control +++|* SET SENSE SWITCH XN ON JOB JSN. 00542 M00S00533.control +++|* IF XN = 0, ALL SWITCHES WILL BE SET. 00543 M00S00534.control +++|* JSN MAY APPEAR ONCE ANYWHERE IN THE LIST. 00544 M00S00535.control +++| 00545 M00S00536.control +++| 00546 M00S00537.control +++| ONSW BSS 0 ENTRY 00547 M00S00538.control +++| SWITCH BSS 0 ENTRY 00548 M00S00539.control +++| SA0 SSAF+DYAF*10000B SET *ONSW* AND DAYFILE MESSAGE FLAGS 00549 M00S00540.control +++| ONS1 SA2 ACTR CHECK ARGUMENT COUNT 00550 M00S00541.control +++| SB1 1 00551 M00S00542.control +++| SB6 X2 00552 M00S00543.control +++| SB5 B0 00553 M00S00544.control +++| ZR B6,ERR ERROR IF NO ARGUMENTS 00554 M00S00545.control +++| SB7 B0 SET OCTAL BASE 00555 M00S00546.control +++| SA5 ARGR FIRST ARGUMENT 00556 M00S00547.control +++| ONS2 RJ DXB UNPACK OCTAL DIGIT 00557 M00S00548.control +++| NZ X4,ONS5 IF INCORRECT NUMBER 00558 M00S00549.control +++| SX3 X6-7 00559 M00S00550.control +++| PL X3,ONS5 IF INCORRECT SWITCH VALUE 00560 M00S00551.control +++| SA2 ONSA 00561 M00S00552.control +++| SX1 77B PRESET ALL SWITCHES 00562 M00S00553.control +++| ZR X6,ONS3 IF N = 0 00563 M00S00554.control +++| SB2 X6 SET SWITCH BIT 00564 M00S00555.control +++| MX0 1 00565 M00S00556.control +++| LX1 X0,B2 00566 M00S00557.control +++| ONS3 BX6 X2+X1 ACCUMULATE SWITCHES 00567 M00S00558.control +++| SA6 A2 00568 M00S00559.control +++| ONS4 SB6 B6-B1 NEXT ARGUMENT 00569 M00S00560.control +++| SA5 A5+B1 00570 M00S00561.control +++| NZ B6,ONS2 LOOP FOR ALL ARGUMENTS 00571 M00S00562.control +++| SA1 ONSB CHECK FOR LOCAL REQUEST 00572 M00S00563.control +++| SX2 A0 00573 M00S00564.control +++| LX2 59-11 00574 M00S00565.control +++| NZ X1,ONS7 IF NOT LOCAL 00575 M00S00566.control +++| NG X2,ONS6 IF LOCAL *OFFSW* COMMAND 00576 M00S00567.control +++| ONSW X6 00577 M00S00568.control +++| EQ END COMPLETE COMMAND 00578 M00S00569.control +++| 00579 M00S00570.control +++| ONS5 BX1 X5 VALIDATE JSN 00580 M00S00571.control +++| RJ VJS 00581 M00S00572.control +++| NZ X2,ERR IF NOT VALID JSN 00582 M00S00573.control +++| SA3 ONSB 00583 M00S00574.control +++| BX6 X1 00584 M00S00575.control +++| NZ X3,ERR IF JSN ENCOUNTERED BEFORE 00585 M00S00576.control +++| SA6 A3 00586 M00S00577.control +++| EQ ONS4 PROCESS NEXT PARAMETER 00587 M00S00578.control +++| 00588 M00S00579.control +++| ONS6 OFFSW X6 00589 M00S00580.control +++| EQ END COMPLETE COMMAND 00590 M00S00581.control +++| 00591 M00S00582.control +++| ONS7 RJ PQB PRESET PARAMETER BLOCK 00592 M00S00583.control +++| SB2 B0 FLAG EXECUTION QUEUE 00593 M00S00584.control +++| SB7 A0 00594 M00S00585.control +++| SB3 TALT 00595 M00S00586.control +++| SA1 ONSB 00596 M00S00587.control +++| RJ SSC SET SELECTION CRITERIA 00597 M00S00588.control +++| GETPFP ONSC CHECK IF CALLER IS OPERATOR 00598 M00S00589.control +++| SA1 ONSC+2 00599 M00S00590.control +++| MX0 -18 00600 M00S00591.control +++| BX1 -X0*X1 ISOLATE USER INDEX 00601 M00S00592.control +++| SX1 X1-377777B 00602 M00S00593.control +++| NZ X1,ONS8 IF CALLER IS NOT OPERATOR 00603 M00S00594.control +++| SB2 ONSD SET *FROM OPERATOR* SUFFIX 00604 M00S00595.control +++| EQ ONS9 SET UP MESSAGE 00605 M00S00596.control +++| 00606 M00S00597.control +++| ONS8 GETJN ONSE+1 GET SENDING JOB-S JSN 00607 M00S00598.control +++| SB2 ONSE SET *FROM JOB* SUFFIX 00608 M00S00599.control +++| ONS9 RJ MDM MOVE *ONSW*/*OFFSW* MESSAGE 00609 M00S00600.control +++| RJ SMG SET MESSAGE FOR *QAC* 00610 M00S00601.control +++| SA1 ONSA GET SENSE SWITCHES 00611 M00S00602.control +++| SA2 TALT+QSSW STORE SENSE SWITCHES 00612 M00S00603.control +++| LX1 59-5 00613 M00S00604.control +++| BX6 X1+X2 00614 M00S00605.control +++| ERRNZ QSSW-QALF ENSURE ORDER OF BLOCK IS CORRECT 00615 M00S00606.control +++| SX7 A0 SENSE SWITCH FUNCTION 00616 M00S00607.control +++| BX6 X6+X7 SET ALTER FUNCTION 00617 M00S00608.control +++| SA6 A2+ 00618 M00S00609.control +++| SX6 QARF SET ALTER FUNCTION 00619 M00S00610.control +++| SB3 TALT 00620 M00S00611.control +++| RJ QAC CALL *QAC* 00621 M00S00612.control +++| EQ ENL COMPLETE COMMAND 00622 M00S00613.control +++| 00623 M00S00614.control +++| ONSA CON 0 SENSE SWITCH VALUES 00624 M00S00615.control +++| ONSB CON 0 SPECIFIED JSN 00625 M00S00616.control +++| ONSC BSS 3 *GETPFP* INFORMATION 00626 M00S00617.control +++| 00627 M00S00618.control +++| ONSD DATA C* FROM OPERATOR* MESSAGE SUFFIX FOR OPERATOR CALL 00628 M00S00619.control +++| 00629 M00S00620.control +++| ONSE DATA H* FROM JOB * MESSAGE SUFFIX FOR USER JOB CALL 00630 M00S00621.control +++| CON 0 00631 M00S00622.control +++| OFFSW SPACE 4,10 00632 M00S00623.control +++|*** OFFSW (X1,X2,...,XN) 00633 M00S00624.control +++|* CLEAR SENSE SWITCHES XN. 00634 M00S00625.control +++|* IF XN = 0, ALL SWITCHES WILL BE CLEARED. 00635 M00S00626.control +++|* 00636 M00S00627.control +++|* OFFSW (X1,X2,...XN,JSN) 00637 M00S00628.control +++|* CLEAR SENSE SWITCHES XN ON JOB JSN. 00638 M00S00629.control +++|* JSN MAY APPEAR ONCE ANYWHERE IN THE LIST. 00639 M00S00630.control +++|* IF XN = 0, ALL SWITCHES WILL BE CLEARED. 00640 M00S00631.control +++| 00641 M00S00632.control +++| 00642 M00S00633.control +++| OFFSW BSS 0 ENTRY 00643 M00S00634.control +++| SA0 CSAF+DYAF*10000B SET *OFFSW* AND DAYFILE MSG FLAGS 00644 M00S00635.control +++| EQ ONS1 PROCESS COMMAND 00645 M00S00636.control +++| OPMSG SPACE 4,10 00646 M00S00637.control +++|*** OPMSG.CCC-CCC 00647 M00S00638.control +++|* SEND MESSAGE TO OPERATOR DISPLAY. 00648 M00S00639.control +++|* IF NO COMMENT THEN TREAT AS A *NOP* 00649 M00S00640.control +++|* ELSE, WAIT FOR OPERATOR REPLY. 00650 M00S00641.control +++| 00651 M00S00642.control +++| 00652 M00S00643.control +++| OPMSG BSS 0 ENTRY 00653 M00S00644.control +++| SB2 CCDR 00654 M00S00645.control +++| SB1 1 00655 M00S00646.control +++| SA1 ACTR CHECK IF PARAMETERS SPECIFIED ON COMMAND 00656 M00S00647.control +++| SX6 X1 00657 M00S00648.control +++| NZ X6,ERR IF INVALID COMMAND 00658 M00S00649.control +++| SA6 MSGA 00659 M00S00650.control +++| RJ MCM UNPACK MESSAGE 00660 M00S00651.control +++| SA1 MSGA 00661 M00S00652.control +++| ZR X1,END IF NO MESSAGE 00662 M00S00653.control +++| OPMSG MSGA SEND MESSAGE TO OPERATOR DISPLAY 00663 M00S00654.control +++| OPM1 SA1 B0 00664 M00S00655.control +++| LX1 59-14 POSITION CFO BIT 00665 M00S00656.control +++| PL X1,END IF REPLY 00666 M00S00657.control +++| RECALL 00667 M00S00658.control +++| EQ OPM1 CHECK FOR REPLY 00668 M00S00659.control +++| PAUSE SPACE 4,10 00669 M00S00660.control +++|*** PAUSE,JSN. 00670 M00S00661.control +++|* SET *PAUSE* FLAG ON JOB JSN. 00671 M00S00662.control +++| 00672 M00S00663.control +++| 00673 M00S00664.control +++| PAUSE BSS 0 ENTRY 00674 M00S00665.control +++| SA0 PAAF*10000B SET *PAUSE* FLAG FOR *QAC* CALL 00675 M00S00666.control +++| EQ GO1 PROCESS COMMAND 00676 M00S00667.control +++| PROTECT SPACE 4,10 00677 M00S00668.control +++|*** PROTECT,O1. 00678 M00S00669.control +++|* PROTECT,EC=O1. 00679 M00S00670.control +++|* IF O1 = ON, TURN ON JOB CONTROL FOR SPECIFIED ARGUMENT. 00680 M00S00671.control +++|* IF O1 = OFF, TURN OFF JOB CONTROL. 00681 M00S00672.control +++|* 00682 M00S00673.control +++|* ARGUMENTS MAY BE ENTERED WITH KEYWORDS OR POSITIONALLY OR 00683 M00S00674.control +++|* MIXED. IF MIXED, THOSE WITHOUT KEYWORDS WILL BE EVALUATED 00684 M00S00675.control +++|* ACCORDING TO THEIR POSITION AMONG ALL THE ARGUMENTS. 00685 M00S00676.control +++| 00686 M00S00677.control +++| 00687 M00S00678.control +++| PROTECT BSS 0 ENTRY 00688 M00S00679.control +++| SX6 TPRA ARGUMENT TABLE ADDRESS 00689 M00S00680.control +++| SX7 TPRAL 00690 M00S00681.control +++| RJ PKP PROCESS KEYWORD OR POSITIONAL ARGUMENTS 00691 M00S00682.control +++| NZ X1,ERR IF NO ARGUMENTS SPECIFIED 00692 M00S00683.control +++| 00693 M00S00684.control +++|* FORM BIT FLAGS TO SET/CLEAR. 00694 M00S00685.control +++| 00695 M00S00686.control +++| SB7 B0+ SET POSITION IN CRACKED PARAMETER TABLE 00696 M00S00687.control +++| PRO1 SA1 TCKA+B7 GET PARAMETER VALUE 00697 M00S00688.control +++| ZR X1,PRO4 IF NO VALUE SPECIFIED 00698 M00S00689.control +++| SA5 =3LOFF CHECK IF VALUE = *OFF* 00699 M00S00690.control +++| SA4 =2LON CHECK IF VALUE = *ON* 00700 M00S00691.control +++| BX6 X1-X5 00701 M00S00692.control +++| BX7 X1-X4 00702 M00S00693.control +++| ZR X6,PRO2 IF *OFF* 00703 M00S00694.control +++| NZ X7,ERR IF NOT *ON* 00704 M00S00695.control +++| SB6 B7+1 SET SHIFT COUNT 00705 M00S00696.control +++| EQ PRO3 POSITION *ON* FLAG 00706 M00S00697.control +++| 00707 M00S00698.control +++| PRO2 SB6 B7+13 SET SHIFT COUNT 00708 M00S00699.control +++| PRO3 MX6 1 POSITION BIT FLAG 00709 M00S00700.control +++| LX6 X6,B6 00710 M00S00701.control +++| SA1 PROA 00711 M00S00702.control +++| BX7 X1+X6 00712 M00S00703.control +++| SA7 A1 00713 M00S00704.control +++| PRO4 SB7 B7+1 INCREMENT TABLE POSITION 00714 M00S00705.control +++| SB6 B7-TPRAL 00715 M00S00706.control +++| NZ B6,PRO1 IF MORE ARGUMENTS TO PROCESS 00716 M00S00707.control +++| SA1 PROA 00717 M00S00708.control +++| ZR X1,ERR IF NO ARGUMENTS SPECIFIED 00718 M00S00709.control +++| PROTECT 00719 M00S00710.control +++| EQ END COMPLETE COMMAND 00720 M00S00711.control +++| 00721 M00S00712.control +++| PROA CON 0 36/0,12/*OFF* FLAGS,12/*ON* FLAGS 00722 M00S00713.control +++| TPRA SPACE 4,10 00723 M00S00714.control +++|** TPRA - TABLE OF *PROTECT* ARGUMENTS. 00724 M00S00715.control +++|* SEE *COMCMAC* MACRO *ARG* FOR FORMAT. 00725 M00S00716.control +++| 00726 M00S00717.control +++| 00727 M00S00718.control +++| TPRA BSS 0 00728 M00S00719.control +++| EC ARG ZR,TCKA PRESERVE EXTENDED MEMORY OVER JOB STEP 00729 M00S00720.control +++| ARG 00730 M00S00721.control +++| TPRAL EQU *-TPRA-1 ARGUMENT TABLE LENGTH 00731 M00S00722.control +++| RERUN SPACE 4,10 00732 M00S00723.control +++|*** RERUN. 00733 M00S00724.control +++|* SET INPUT FILE FOR POSSIBLE RERUN. 00734 M00S00725.control +++| 00735 M00S00726.control +++| 00736 M00S00727.control +++| RERUN BSS 0 ENTRY 00737 M00S00728.control +++| RJ VRN VERIFY CALLER 00738 M00S00729.control +++| RERUN SET RERUN CAPABLITY ON INPUT FILE 00739 M00S00730.control +++| EQ END COMPLETE COMMAND 00740 M00S00731.control +++| RFL SPACE 4,10 00741 M00S00732.control +++|*** RFL(NNNNNN,MMMMM) 00742 M00S00733.control +++|* RFL(CM=NNNNNN,EC=MMMMM) 00743 M00S00734.control +++|* SET NOMINAL CM FIELD LENGTH (NFL(CM)) = NNNNNN. 00744 M00S00735.control +++|* SET NOMINAL EM FIELD LENGTH (NFL(ECS)) = MMMMM*1000B. 00745 M00S00736.control +++|* 00746 M00S00737.control +++|* ARGUMENTS MAY BE ENTERED WITH KEYWORDS OR POSITIONALLY OR 00747 M00S00738.control +++|* MIXED. IF MIXED, THOSE WITHOUT KEYWORDS WILL BE EVALUATED 00748 M00S00739.control +++|* ACCORDING TO THEIR POSITION AMONG ALL THE ARGUMENTS. 00749 M00S00740.control +++| 00750 M00S00741.control +++| 00751 M00S00742.control +++| RFL BSS 0 ENTRY 00752 M00S00743.control +++| RJ CMP CONVERT PARAMETERS 00753 M00S00744.control +++| ZR X1,RFL1 IF NO CM CHANGE 00754 M00S00745.control +++| SX1 X1+ 00755 M00S00746.control +++| SETRFL X1 00756 M00S00747.control +++| RFL1 ZR X3,END IF NO EXTENDED MEMORY CHANGE 00757 M00S00748.control +++| SX3 X3 00758 M00S00749.control +++| SETRFL ,X3 00759 M00S00750.control +++| EQ END COMPLETE COMMAND 00760 M00S00751.control +++| ROLLOUT SPACE 4,10 00761 M00S00752.control +++|*** ROLLOUT. 00762 M00S00753.control +++|* ROLLOUT JOB. 00763 M00S00754.control +++|* 00764 M00S00755.control +++|* ROLLOUT(TTTTTTB) 00765 M00S00756.control +++|* 00766 M00S00757.control +++|* ROLLOUT THE JOB FOR THE SPECIFIED *TTTTTTB* SCHEDULER 00767 M00S00758.control +++|* PERIODS. THE DEFAULT IS DECIMAL TIME ( ASSUME 1 SECOND 00768 M00S00759.control +++|* AS THE DEFAULT SCHEDULER INTERVAL ). 00769 M00S00760.control +++|* THE MAXIMUM TIME ALLOWED IS 777700B. 00770 M00S00761.control +++| 00771 M00S00762.control +++| 00772 M00S00763.control +++| ROLLOUT BSS 0 ENTRY 00773 M00S00764.control +++| SA2 ACTR CHECK ARGUMENT COUNT 00774 M00S00765.control +++| SB1 1 00775 M00S00766.control +++| SB7 X2 ISOLATE COUNT AND SET DEFAULT FOR DXB 00776 M00S00767.control +++| NZ B7,ROL1 IF TIME PARAMETER SPECIFIED 00777 M00S00768.control +++| ROLLOUT 00778 M00S00769.control +++| EQ END COMPLETE COMMAND 00779 M00S00770.control +++| 00780 M00S00771.control +++|* PROCESS EXTENDED ROLLOUT. 00781 M00S00772.control +++| 00782 M00S00773.control +++| ROL1 NE B1,B7,ERR IF MORE THAN 1 ARGUMENT 00783 M00S00774.control +++| SA5 ARGR CONVERT TIME ARGUMENT 00784 M00S00775.control +++| RJ DXB DEFAULT DECIMAL CONVERSION 00785 M00S00776.control +++| NZ X4,ERR IF ARGUMENT ERROR 00786 M00S00777.control +++| SA1 ROLA 00787 M00S00778.control +++|* 00788 M00S00779.control +++|* COMPENSATE FOR 7777B MULTIPLICATION. 00789 M00S00780.control +++|* TIME PARAMETER = XXYYYYB. 00790 M00S00781.control +++|* XXYYYYB = XX*10000B + YYYY. 00791 M00S00782.control +++|* XXYYYYB = XX*7777B + XX + YYYY. 00792 M00S00783.control +++|* 00793 M00S00784.control +++| BX2 X6 COMPENSATE FOR 7777B MULTIPLY 00794 M00S00785.control +++| AX2 12 00795 M00S00786.control +++| IX6 X6+X2 00796 M00S00787.control +++| MX0 42 VERIFY TIME ARGUMENT 00797 M00S00788.control +++| BX2 X0*X6 00798 M00S00789.control +++| NZ X2,ERR IF ARGUMENT .GT. 777700B 00799 M00S00790.control +++| BX6 X6+X1 SET EXTENDED TIME EVENT 00800 M00S00791.control +++| SA6 A1 00801 M00S00792.control +++| ROLLOUT ROLA 00802 M00S00793.control +++| EQ END COMPLETE COMMAND 00803 M00S00794.control +++| 00804 M00S00795.control +++| ROLA VFD 30/0,18//EVENT/EXTM,12/0 00805 M00S00796.control +++| SETPR SPACE 4,10 00806 M00S00797.control +++|*** SETPR (NN) 00807 M00S00798.control +++|* SET CPU PRIORITY = NN. 00808 M01S00002.ns2731 +++|* IF NN = *, SET CPU PRIORITY TO SERVICE CLASS VALUE. 00809 M00S00799.control +++| 00810 M00S00800.control +++| 00811 M00S00801.control +++| SETPR BSS 0 ENTRY 00812 M00S00802.control +++| SA2 ACTR CHECK ARGUMENT COUNT 00813 M00S00803.control +++| SB1 1 00814 M00S00804.control +++| SX7 X2 00815 M00S00805.control +++| SB7 B0 SET OCTAL BASE 00816 M00S00806.control +++| SA5 ARGR ARGUMENT 00817 M00S00807.control +++| ZR X7,ERR ERROR IF NO ARGUMENT
| Line S00808 Modification History | |
|---|---|
M01 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 00818 M01S00808.ns2731 ---| RJ DXB CONVERT 00819 M01S00809.ns2731 ---| NZ X4,ERR 00820 M01S00810.ns2731 ---| SX7 100B 00821 M01S00811.ns2731 ---| IX7 X6-X7 00822 M01S00812.ns2731 ---| PL X7,ERR5 IF INCORRECT CPU PRIORITY VALUE 00823 M01S00813.ns2731 ---| SETPR X6
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00814.control +++| EQ END COMPLETE COMMAND 00836 M00S00815.control +++| SETTL SPACE 4,10 00837 M00S00816.control +++|*** SETTL(NNNNN) 00838 M00S00817.control +++|* SET TIME LIMIT TO NNNNN SECONDS.
| Line S00818 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00839 M01S00818.ns2516a ---|* IF NNNNN = *, THEN THE TIME LIMIT IS SET TO THE MAXIMUM 00840 M01S00819.ns2516a ---|* FOR WHICH THE USER IS VALIDATED.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00820.control +++| 00845 M00S00821.control +++| 00846 M00S00822.control +++| SETTL BSS 0 ENTRY 00847 M00S00823.control +++| SB6 B0 FLAG TIME LIMIT 00848 M00S00824.control +++| SETL SA2 ACTR CHECK ARGUMENT COUNT 00849 M00S00825.control +++| SB1 1 00850 M00S00826.control +++| SX7 X2 00851 M00S00827.control +++| SB7 1 SET DECIMAL BASE 00852 M00S00828.control +++| SA5 ARGR ARGUMENT 00853 M00S00829.control +++| ZR X7,ERR ERROR IF NO ARGUMENT 00854 M00S00830.control +++| LX5 6 00855 M00S00831.control +++| SX4 X5-1R* CHECK FOR (*) 00856 M00S00832.control +++| ZR X4,SETL1 IF (*) 00857 M00S00833.control +++| LX5 54 00858 M00S00834.control +++| RJ DXB CONVERT 00859 M00S00835.control +++| NZ X4,ERR IF INCORRECT VALUE 00860 M00S00836.control +++| ZR X6,ERR IF ZERO REQUESTED 00861 M00S00837.control +++| SX7 100000B
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00862 M02S00001.ns2516a ---| EQ B1,B6,SETL4 IF JOB STEP SRU LIMIT
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00863 M01S00011.ns2516a +++| NZ B6,SETL3 IF SRU LIMIT 00864 M00S00838.control +++| IX7 X6-X7 00865 M00S00839.control +++| NG X7,SETL2 IF ARGUMENT .LT. 77777B
| Line S00840 Modification History | |
|---|---|
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 00866 M01S00840.ns2516 ---| SETL1 SX6 77777B SET USER TO MAXIMUM
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00867 M02S00002.ns2516a ---| SETL1 EQ B1,B6,SETL4.1 IF JOB STEP SRU LIMIT
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00868 M01S00012.ns2516a +++| SETL1 NZ B6,SETL4 IF SRU LIMIT
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 00869 M01S00003.ns2516 +++| SX6 77777B SET USER TO MAXIMUM
| Line S00841 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00870 M01S00841.ns2516a ---| SETL2 EQ B0,B6,SETL3 IF TIME LIMIT
| Line S00842 Modification History | |
|---|---|
M01 (Removed by) | ns2516 |
M02 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00871 M02S00842.ns2516a ---| EQ B1,B6,SETL4 IF JOB STEP SRU LIMIT
| Line S00843 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00872 M01S00843.ns2516a ---| SETASL X6 SET ACCOUNT BLOCK LIMIT
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00889 M01S00844.ns2516a ---| EQ END COMPLETE COMMAND
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00890 M01S00029.ns2516a +++| EQ SETL7 OUTPUT LIMITS 00891 M00S00845.control +++|
| Line S00846 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00892 M01S00846.ns2516a ---| SETL3 SETTL X6 SET TIME LIMIT 00893 M01S00847.ns2516a ---| EQ END COMPLETE COMMAND 00894 M01S00848.ns2516a ---|
| Line S00849 Modification History | |
|---|---|
M01 (Removed by) | ns2516 |
M02 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00895 M02S00849.ns2516a ---| SETL4 SETJSL X6 SET JOB STEP LIMIT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
M02 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00896 M02S00004.ns2516a ---| SETL4 LX7 3 00897 M02S00005.ns2516a ---| IX7 X6-X7 00898 M02S00006.ns2516a ---| NG X7,SETL4.2 IF ARGUMENT .LT. 777777B 00899 M02S00007.ns2516a ---| SETL4.1 MX6 18 SET USER TO MAXIMUM 00900 M02S00008.ns2516a ---| LX6 18 00901 M02S00009.ns2516a ---| SETL4.2 BX1 X6 00902 M02S00010.ns2516a ---| SETJSL X1 SET JOB STEP LIMIT
| Line S00850 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00903 M01S00850.ns2516a ---| EQ END COMPLETE COMMAND
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00851.control +++| SETASL SPACE 4,10
| Line S00852 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 00919 M01S00852.ns2516a ---|*** SETASL(NNNNN) 00920 M01S00853.ns2516a ---|* SET ACCOUNT BLOCK SRU LIMIT TO NNNNN UNITS. 00921 M01S00854.ns2516a ---|* IF NNNNN = *, THEN THE ACCOUNT BLOCK LIMIT IS SET TO THE 00922 M01S00855.ns2516a ---|* MAXIMUM FOR WHICH THE USER IS VALIDATED.
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00856.control +++| 00931 M00S00857.control +++| 00932 M00S00858.control +++| SETASL BSS 0 ENTRY 00933 M00S00859.control +++| SB6 2 SET ACCOUNT BLOCK SRU LIMIT 00934 M00S00860.control +++| EQ SETL SET LIMIT 00935 M00S00861.control +++| 00936 M00S00862.control +++| SETJOB SPACE 4,15 00937 M00S00863.control +++|*** SETJOB(UJN,DC,OP) 00938 M00S00864.control +++|* SETJOB(UJN=UJN,DC=DC,OP=OP) 00939 M00S00865.control +++|* SET JOB CHARACTERISTICS. 00940 M00S00866.control +++|* 00941 M00S00867.control +++|* UJN = USER JOB NAME. 00942 M00S00868.control +++|* DC = DISPOSITION OF IMPLICIT OUTPUT AT END OF JOB. 00943 M00S00869.control +++|* TO = QUEUE TO *TXOT* QUEUE. 00944 M00S00870.control +++|* NO = DO NOT QUEUE OUTPUT. 00945 M00S00871.control +++|* DF = USE DEFAULT VALUE (DEPENDS ON JOB ORIGIN TYPE). 00946 M00S00872.control +++|* OP = END OF JOB OPTIONS. 00947 M00S00873.control +++|* SU = SUSPEND JOB (*TXOT* ONLY). 00948 M00S00874.control +++|* TJ = TERMINATE JOB. 00949 M00S00875.control +++| 00950 M00S00876.control +++| 00951 M00S00877.control +++| SETJOB BSS 0 ENTRY 00952 M00S00878.control +++| SX6 TSTJ ARGUMENT TABLE ADDRESS 00953 M00S00879.control +++| SX7 TSTJL 00954 M00S00880.control +++| RJ PKP PROCESS PARAMETERS 00955 M00S00881.control +++| NZ X1,ERR1 IF NO ARGUMENTS 00956 M00S00882.control +++| SA1 TCKA PROCESS *DC* 00957 M00S00883.control +++| ZR X1,STJ2 IF *DC* NOT SPECIFIED 00958 M00S00884.control +++| SA2 TSDC 00959 M00S00885.control +++| STJ1 BX3 X1-X2 CHECK NEXT VALID OPTION 00960 M00S00886.control +++| ZR X3,STJ2 IF MATCH 00961 M00S00887.control +++| SA2 A2+B1 00962 M00S00888.control +++| NZ X2,STJ1 IF MORE VALID OPTIONS 00963 M00S00889.control +++| EQ ERR PROCESS INCORRECT *DC* 00964 M00S00890.control +++| 00965 M00S00891.control +++| STJ2 LX1 -48 PROCESS *OP* 00966 M00S00892.control +++| BX6 X1 00967 M00S00893.control +++| SA1 A1+B1 00968 M00S00894.control +++| ZR X1,STJ4 IF *OP* NOT SPECIFIED 00969 M00S00895.control +++| SA2 TSOP 00970 M00S00896.control +++| STJ3 BX3 X1-X2 CHECK NEXT VALID OPTION 00971 M00S00897.control +++| ZR X3,STJ4 IF MATCH 00972 M00S00898.control +++| SA2 A2+B1 00973 M00S00899.control +++| NZ X2,STJ3 IF MORE VALID OPTIONS 00974 M00S00900.control +++| EQ ERR PROCESS INCORRECT *OP* 00975 M00S00901.control +++| 00976 M00S00902.control +++| STJ4 LX1 -36 COMBINE *DC* AND *OP* 00977 M00S00903.control +++| BX6 X1+X6 00978 M00S00904.control +++| SA1 STJA 00979 M00S00905.control +++| BX3 X6+X1 00980 M00S00906.control +++| ZR X3,ERR1 IF NO PARAMETER VALUES SPECIFIED 00981 M00S00907.control +++| SA6 A1+B1 00982 M00S00908.control +++| SETJOB STJA 00983 M00S00909.control +++| EQ END COMPLETE COMMAND 00984 M00S00910.control +++| 00985 M00S00911.control +++| STJA BSS 0 SETJOB PARAMETER BLOCK 00986 M00S00912.control +++| CON 0 *UJN* 00987 M00S00913.control +++| CON 0 *OP* /*DC* 00988 M00S00914.control +++| TSTJ SPACE 4,10 00989 M00S00915.control +++|** TSTJ - TABLE OF SETJOB ARGUMENTS. 00990 M00S00916.control +++| 00991 M00S00917.control +++| 00992 M00S00918.control +++| TSTJ BSS 0 00993 M00S00919.control +++| UJN ARG ZR,STJA,400B 00994 M00S00920.control +++| DC ARG ZR,TCKA,400B 00995 M00S00921.control +++| OP ARG ZR,TCKA+1,400B 00996 M00S00922.control +++| ARG 00997 M00S00923.control +++| TSTJL EQU *-TSTJ-1 00998 M00S00924.control +++| TSDC SPACE 4,10 00999 M00S00925.control +++|** TSCD - TABLE OF SETJOB *DC* OPTIONS. 01000 M00S00926.control +++| 01001 M00S00927.control +++| 01002 M00S00928.control +++| TSDC BSS 0 01003 M00S00929.control +++| CON 2LTO 01004 M00S00930.control +++| CON 2LNO 01005 M00S00931.control +++| CON 2LDF 01006 M00S00932.control +++| CON 0 01007 M00S00933.control +++| TSOP SPACE 4,10 01008 M00S00934.control +++|** TSOP - TABLE OF SETJOB *OP* OPTIONS. 01009 M00S00935.control +++| 01010 M00S00936.control +++| 01011 M00S00937.control +++| TSOP BSS 0 01012 M00S00938.control +++| CON 2LSU 01013 M00S00939.control +++| CON 2LTJ 01014 M00S00940.control +++| CON 0 01015 M00S00941.control +++| SETJSL SPACE 4,10
| Line S00942 Modification History | |
|---|---|
M01 (Removed by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 01016 M01S00942.ns2516a ---|*** SETJSL(NNNNN) 01017 M01S00943.ns2516a ---|* SET JOB STEP SRU LIMIT TO NNNNN UNITS. 01018 M01S00944.ns2516a ---|* IF NNNNN = *, THEN THE JOB STEP LIMIT IS SET TO THE 01019 M01S00945.ns2516a ---|* MAXIMUM FOR WHICH THE USER IS VALIDATED.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00946.control +++| 01028 M00S00947.control +++| 01029 M00S00948.control +++| SETJSL BSS 0 ENTRY 01030 M00S00949.control +++| SB6 1 SET JOB STEP SRU LIMIT 01031 M00S00950.control +++| EQ SETL SET LIMIT 01032 M00S00951.control +++| SHELL SPACE 4,20 01033 M00S00952.control +++|*** SHELL(NAME,E,A,L,G,S,T,B,C) 01034 M00S00953.control +++|* SET THE USER-S SHELL PROGRAM CONTROL WORD ACCORDING TO THE 01035 M00S00954.control +++|* PARAMETERS INPUT BY THE USER. 01036 M00S00955.control +++|* CONTROL WORD FORMAT = 01037 M00S00956.control +++|* 42/NAME,10/0,1/E,1/A,1/L,1/G,1/S,1/T,1/B,1/C. 01038 M00S00957.control +++|* ALL PARAMETERS ARE ORDER INDEPENDENT EXCEPT FOR *NAME* 01039 M00S00958.control +++|* WHICH MUST BE THE FIRST PARAMETER. 01040 M00S00959.control +++|* 01041 M00S00960.control +++|* PARAMETERS: 01042 M00S00961.control +++|* NAME SHELL PROGRAM NAME. 01043 M00S00962.control +++|* E CLEARS CONTROLS IF SHELL PROGRAM LOAD ERRORS. 01044 M00S00963.control +++|* A CLEARS CONTROLS IF SHELL PROGRAM ABORTS. 01045 M00S00964.control +++|* L LOCAL FILE LOAD OF SHELL ALLOWED. 01046 M00S00965.control +++|* G GLOBAL LIBRARY LOAD OF SHELL ALLOWED. 01047 M00S00966.control +++|* S SYSTEM LIBRARY LOAD OF SHELL ALLOWED. 01048 M00S00967.control +++|* T MONITOR COMMANDS DIRECTLY FROM THE TERMINAL. 01049 M00S00968.control +++|* B MONITOR COMMANDS OUTSIDE PROCEDURE. 01050 M00S00969.control +++|* C MONITOR COMMANDS INSIDE PROCEDURE. 01051 M00S00970.control +++|* 01052 M00S00971.control +++|* A, S AND B ARE SET BY DEFAULT IF NO PARAMETERS ARE SPECIFIED. 01053 M00S00972.control +++|* 01054 M00S00973.control +++|* NOTE TO AVOID PROBLEMS, MAKE SURE TO SPECIFY WHERE TO LOAD 01055 M00S00974.control +++|* THE PROGRAM FROM, AND HOW COMMANDS SHOULD BE MONITORED. 01056 M00S00975.control +++| 01057 M00S00976.control +++| 01058 M00S00977.control +++| SHELL BSS 0 ENTRY 01059 M00S00978.control +++| SB1 1 01060 M00S00979.control +++| SA5 CCDR FWA OF COMMAND 01061 M00S00980.control +++| SB7 SHLB FWA OF PARAMETER BLOCK 01062 M00S00981.control +++| RJ UPC UNPACK COMMAND PARAMETERS 01063 M00S00982.control +++| NZ X6,ERR3 IF ERROR DURING UNPACKING 01064 M00S00983.control +++| SB6 B6-B1 DO NOT COUNT *SHELL* AS A PARAMETER 01065 M00S00984.control +++| ZR B6,SHL6 IF NO PARAMETERS, CLEAR CONTROL WORD 01066 M00S00985.control +++| 01067 M00S00986.control +++|* BUILD SHELL PROGRAM CONTROL WORD FROM PARAMETERS. 01068 M00S00987.control +++| 01069 M00S00988.control +++| SA2 SHLB+B1 SET PROGRAM NAME 01070 M00S00989.control +++| BX6 X2 01071 M00S00990.control +++| SB6 B6-B1 DECREMENT PARAMETER COUNT 01072 M00S00991.control +++| ZR B6,SHL4 IF PROGRAM NAME IS ONLY PARAMETER 01073 M00S00992.control +++| SA2 A2+B1 CHECK NEXT PARAMETER 01074 M00S00993.control +++| SB4 -B1 01075 M00S00994.control +++| SB5 SHLTL NUMBER OF ACCEPTABLE PARAMETERS 01076 M00S00995.control +++| SX7 -B1 01077 M00S00996.control +++| MX0 42 01078 M00S00997.control +++| SB2 SHLT 01079 M00S00998.control +++| SHL1 SB4 B4+B1 CHECK NEXT VALID PARAMETER 01080 M00S00999.control +++| EQ B4,B5,SHL3 IF NO MATCH ON PARAMETER 01081 M00S01000.control +++| SA3 B2+B4 NEXT VALID PARAMETER IN LIST 01082 M00S01001.control +++| BX4 X0*X3 01083 M00S01002.control +++| BX4 X2-X4 COMPARE PARAMETERS 01084 M00S01003.control +++| NZ X4,SHL1 IF NO MATCH 01085 M00S01004.control +++| BX4 -X0*X3 SET PARAMETER BIT IN CONTROL WORD 01086 M00S01005.control +++| BX6 X6+X4 01087 M00S01006.control +++| SA7 A3 PREVENT DUPLICATE ENTRIES 01088 M00S01007.control +++| SHL2 SB4 -B1 RESET LIST POSITION 01089 M00S01008.control +++| SB6 B6-B1 DECREMENT PARAMETER COUNTER 01090 M00S01009.control +++| ZR B6,SHL5 IF ALL PARAMETERS PROCESSED 01091 M00S01010.control +++| SA2 A2+B1 01092 M00S01011.control +++| EQ SHL1 CHECK NEXT PARAMETER 01093 M00S01012.control +++| 01094 M00S01013.control +++| SHL3 ZR X2,SHL2 IF ZERO OR NULL PARAMETER 01095 M00S01014.control +++| EQ ERR2 * INCORRECT PARAMETER.* 01096 M00S01015.control +++| 01097 M00S01016.control +++|* SET SHELL CONTROL WORD. 01098 M00S01017.control +++| 01099 M00S01018.control +++| SHL4 SX3 112B SET DEFAULT PARAMETERS (A,S,B) 01100 M00S01019.control +++| BX6 X3+X6 01101 M00S01020.control +++| SHL5 SA6 SHLA 01102 M00S01021.control +++| SHL6 SHELL SHLA 01103 M00S01022.control +++| EQ END COMPLETE COMMAND 01104 M00S01023.control +++| 01105 M00S01024.control +++| SHLA DATA 0 SHELL PROGRAM CONTROL WORD 01106 M00S01025.control +++| SHLB BSSZ 10 PARAMETER BLOCK 01107 M00S01026.control +++| SHLT BSS 0 TABLE OF VALID *SHELL* PARAMETERS 01108 M00S01027.control +++| VFD 42/1LE,18/200B 01109 M00S01028.control +++| VFD 42/1LA,18/100B 01110 M00S01029.control +++| VFD 42/1LL,18/40B 01111 M00S01030.control +++| VFD 42/1LG,18/20B 01112 M00S01031.control +++| VFD 42/1LS,18/10B 01113 M00S01032.control +++| VFD 42/1LT,18/4 01114 M00S01033.control +++| VFD 42/1LB,18/2 01115 M00S01034.control +++| VFD 42/1LC,18/1 01116 M00S01035.control +++| SHLTL EQU *-SHLT TABLE LENGTH 01117 M00S01036.control +++| CON 0 END OF TABLE 01118 M00S01037.control +++| SUI SPACE 4,10 01119 M00S01038.control +++|*** SUI (NNNNNN) 01120 M00S01039.control +++|* SET USER INDEX = NNNNNNN. 01121 M00S01040.control +++|* NOTE - THIS FUNCTION IS LEGAL ONLY FOR SYSTEM JOBS. 01122 M00S01041.control +++| 01123 M00S01042.control +++| 01124 M00S01043.control +++| SUI BSS 0 ENTRY 01125 M00S01044.control +++| SA2 ACTR CHECK ARGUMENT COUNT 01126 M00S01045.control +++| SB1 1 01127 M00S01046.control +++| SX7 X2 01128 M00S01047.control +++| SB7 B0 SET OCTAL BASE 01129 M00S01048.control +++| SA5 ARGR ARGUMENT 01130 M00S01049.control +++| ZR X7,ERR ERROR IF NO ARGUMENT 01131 M00S01050.control +++| RJ DXB CONVERT 01132 M00S01051.control +++| NZ X4,ERR 01133 M00S01052.control +++| MX2 43 CHECK ARGUMENT 01134 M00S01053.control +++| BX7 X2*X6 01135 M00S01054.control +++| NZ X7,ERR ERROR IF TOO LARGE 01136 M00S01055.control +++| SETUI X6 REQUEST SET USER INDEX 01137 M00S01056.control +++| EQ END COMPLETE COMMAND 01138 M00S01057.control +++| USECPU SPACE 4,10 01139 M00S01058.control +++|*** USECPU(N) 01140 M00S01059.control +++|* SELECT CPU FOR JOB TO RUN IN. 01141 M00S01060.control +++|* N = 0, USE ANY CPU. 01142 M00S01061.control +++|* N = 1, USE ONLY CPU - 0. (6600 CPU ON 6700) 01143 M00S01062.control +++|* N = 2, USE ONLY CPU - 1, (6400 CPU ON 6700) 01144 M00S01063.control +++| 01145 M00S01064.control +++| 01146 M00S01065.control +++| USECPU BSS 0 ENTRY 01147 M00S01066.control +++| SA2 ACTR CHECK ARGUMENT COUNT 01148 M00S01067.control +++| SB1 1 01149 M00S01068.control +++| SB2 X2 01150 M00S01069.control +++| NE B2,B1,ERR IF NOT ONE ARGUMENT 01151 M00S01070.control +++| SA5 ARGR GET ARGUMENT 01152 M00S01071.control +++| RJ DXB CONVERT DIGITS 01153 M00S01072.control +++| NZ X4,ERR 01154 M00S01073.control +++| SX7 X6-3 01155 M00S01074.control +++| PL X7,ERR ERROR IF > 2 01156 M00S01075.control +++| USECPU X6 01157 M00S01076.control +++| EQ END COMPLETE COMMAND 01158 M00S01077.control +++| TITLE SUBROUTINES. 01159 M00S01078.control +++| CMP SPACE 4,20 01160 M00S01079.control +++|** CMP - CONVERT MEMORY PARAMETERS. 01161 M00S01080.control +++|* 01162 M00S01081.control +++|* EXIT (X1) = 0 IF NO CM PARAMETER. 01163 M00S01082.control +++|* .LT. 0 IF CM PARAMETER IS ZERO. 01164 M00S01083.control +++|* = CM PARAMETER, OTHERWISE. 01165 M00S01084.control +++|* (X3) = 0 IF NO EXTENDED MEMORY PARAMETER. 01166 M00S01085.control +++|* .LT. 0 IF EXTENDED MEMORY PARAMETER IS ZERO. 01167 M00S01086.control +++|* = EXTENDED MEMORY PARAMETER, OTHERWISE. 01168 M00S01087.control +++|* 01169 M00S01088.control +++|* USES A - 1, 3, 5, 6. 01170 M00S01089.control +++|* X - 0, 1, 3, 4, 5, 6, 7. 01171 M00S01090.control +++|* B - 7. 01172 M00S01091.control +++|* 01173 M00S01092.control +++|* CALLS DXB, PKP. 01174 M00S01093.control +++| 01175 M00S01094.control +++| 01176 M00S01095.control +++| CMP SUBR ENTRY/EXIT 01177 M00S01096.control +++| SX6 TMRA ARGUMENT TABLE ADDRESS 01178 M00S01097.control +++| SX7 TMRAL 01179 M00S01098.control +++| RJ PKP PROCESS KEYWORD OR POSITIONAL ARGUMENTS 01180 M00S01099.control +++| NZ X1,ERR IF NO ARGUMENTS SPECIFIED 01181 M00S01100.control +++| SB7 B0+ CONVERT ARGUMENTS TO BINARY 01182 M00S01101.control +++| SA5 TCKA 01183 M00S01102.control +++| ZR X5,CMP1 IF NO CM VALUE SPECIFIED 01184 M00S01103.control +++| RJ DXB 01185 M00S01104.control +++| NZ X4,ERR IF CONVERSION ERROR 01186 M00S01105.control +++| MX7 1 SAVE VALUE 01187 M00S01106.control +++| BX6 X6+X7 01188 M00S01107.control +++| SA6 A5+ 01189 M00S01108.control +++| CMP1 SA5 TCKA+1 01190 M00S01109.control +++| ZR X5,CMP2 IF NO EXTENDED MEMORY VALUE SPECIFIED 01191 M00S01110.control +++| RJ DXB 01192 M00S01111.control +++| NZ X4,ERR IF CONVERSION ERROR 01193 M00S01112.control +++| MX7 1 SAVE VALUE 01194 M00S01113.control +++| BX6 X6+X7 01195 M00S01114.control +++| SA6 A5+ 01196 M00S01115.control +++| CMP2 SA1 TCKA CHECK FOR LEGAL VALUES 01197 M00S01116.control +++| SA3 A1+B1 01198 M00S01117.control +++| MX0 -59 01199 M00S01118.control +++| BX6 -X0*X1 01200 M00S01119.control +++| BX7 -X0*X3 01201 M00S01120.control +++| SX4 77B CHECK CM FL ROUNDED TO NEAREST 100B 01202 M00S01121.control +++| IX6 X6+X4 01203 M00S01122.control +++| AX7 15 01204 M00S01123.control +++| AX6 17 01205 M00S01124.control +++| IX6 X6+X7 01206 M00S01125.control +++| ZR X6,CMP IF CM .LE. 377700B AND EC .LE. 77777B 01207 M00S01126.control +++| MESSAGE (=C* CM OR EC REQUEST EXCEEDS MAXIMUM.*) 01208 M00S01127.control +++| ABORT 01209 M00S01128.control +++| EQ CMPX RETURN 01210 M00S01129.control +++| END SPACE 4,10 01211 M00S01130.control +++|** END - END RUN. 01212 M00S01131.control +++| 01213 M00S01132.control +++| 01214 M00S01133.control +++| END BSS 0 ENTRY 01215 M00S01134.control +++| ENDRUN 01216 M00S01135.control +++| ENL SPACE 4,10 01217 M00S01136.control +++|* ENL - END NON-LOCAL REQUEST. 01218 M00S01137.control +++|* 01219 M00S01138.control +++|* ENTER (X1) = *QAC* REQUEST STATUS. 01220 M00S01139.control +++| 01221 M00S01140.control +++| 01222 M00S01141.control +++| ENL BSS 0 ENTRY 01223 M00S01142.control +++| ZR X1,END IF NORMAL STATUS 01224 M00S01143.control +++| SX3 X1-7 01225 M00S01144.control +++| NZ X3,ENL1 IF NOT JOB NOT FOUND 01226 M00S01145.control +++| MESSAGE (=C* FILE/JOB NOT FOUND.*) 01227 M00S01146.control +++| EQ END COMPLETE COMMAND 01228 M00S01147.control +++| 01229 M00S01148.control +++| ENL1 SX2 070007B 01230 M00S01149.control +++| BX6 X2*X1 LOW ORDER DIGIT 01231 M00S01150.control +++| LX1 6 01232 M00S01151.control +++| BX3 X2*X1 HIGH ORDER DIGIT 01233 M00S01152.control +++| AX2 6 01234 M00S01153.control +++| AX1 3 01235 M00S01154.control +++| BX6 X6+X3 01236 M00S01155.control +++| SA4 ENLB 01237 M00S01156.control +++| BX3 X2*X1 MIDDLE DIGIT 01238 M00S01157.control +++| BX6 X6+X3 01239 M00S01158.control +++| LX6 53-17 01240 M00S01159.control +++| IX6 X6+X4 01241 M00S01160.control +++| SA6 A4+ 01242 M00S01161.control +++| MESSAGE ENLA 01243 M00S01162.control +++| ABORT 01244 M00S01163.control +++| 01245 M00S01164.control +++| ENLA DATA 20H CONTROL *QAC* ERROR 01246 M00S01165.control +++| ENLB DATA 5C 000. 01247 M00S01166.control +++| ERR SPACE 4,10 01248 M00S01167.control +++|** ERR - PROCESS ARGUMENT ERROR. 01249 M00S01168.control +++| 01250 M00S01169.control +++| 01251 M00S01170.control +++| ERR MESSAGE (=C* ERROR IN CONTROL ARGUMENTS.*) 01252 M00S01171.control +++| ABORT 01253 M00S01172.control +++| 01254 M00S01173.control +++| ERR1 MESSAGE (=C* NO JOB CHARACTERISTICS SPECIFIED.*) 01255 M00S01174.control +++| ABORT 01256 M00S01175.control +++| 01257 M00S01176.control +++| ERR2 MESSAGE (=C* INCORRECT PARAMETER.*) 01258 M00S01177.control +++| ABORT 01259 M00S01178.control +++| 01260 M00S01179.control +++| ERR3 MESSAGE (=C* INCORRECT PARAMETER LENGTH OR SEPARATOR.*) 01261 M00S01180.control +++| ABORT 01262 M00S01181.control +++| 01263 M00S01182.control +++| ERR4 MESSAGE (=C* FAMILY NOT FOUND.*) 01264 M00S01183.control +++| ABORT 01265 M00S01184.control +++| 01266 M00S01185.control +++| ERR5 MESSAGE (=C* INCORRECT CPU PRIORITY VALUE.*) 01267 M00S01186.control +++| ABORT 01268 M00S01187.control +++| MCM SPACE 4,15 01269 M00S01188.control +++|** MCM - MOVE COMMENT MESSAGE. 01270 M00S01189.control +++|* 01271 M00S01190.control +++|* ENTER (B2) = FWA OF THE COMMAND. 01272 M00S01191.control +++|* 01273 M00S01192.control +++|* EXIT COMMENT FIELD MOVED TO *MSGA*. 01274 M00S01193.control +++|* 01275 M00S01194.control +++|* USES A - 1,6. 01276 M00S01195.control +++|* X - 1, 2, 3, 6. 01277 M00S01196.control +++|* B - 2, 6. 01278 M00S01197.control +++|* 01279 M00S01198.control +++|* CALLS USB. 01280 M00S01199.control +++| 01281 M00S01200.control +++| 01282 M00S01201.control +++| MCM5 SA6 B2+ STORE LAST WORD 01283 M00S01202.control +++| 01284 M00S01203.control +++| MCM SUBR ENTRY/EXIT 01285 M00S01204.control +++| RJ USB UNPACK COMMAND 01286 M00S01205.control +++| SX2 41B FIND COMMAND TERMINATOR 01287 M00S01206.control +++| LX2 12 01288 M00S01207.control +++| MCM1 SA1 B6 GET NEXT CHARACTER 01289 M00S01208.control +++| SB2 X1 01290 M00S01209.control +++| LX3 X2,B2 01291 M00S01210.control +++| SB6 B6+B1 01292 M00S01211.control +++| GT B6,B7,MCMX IF END OF COMMAND 01293 M00S01212.control +++| PL X3,MCM1 IF NOT TERMINATOR 01294 M00S01213.control +++| 01295 M00S01214.control +++|* PACK COMMENT IN *MSGA*. 01296 M00S01215.control +++| 01297 M00S01216.control +++| SB2 MSGA 01298 M00S01217.control +++| MCM2 BX6 X6-X6 CLEAR ASSEMBLY REGISTER 01299 M00S01218.control +++| MX2 10 SET CHARACTER COUNT 01300 M00S01219.control +++| MCM3 SA1 B6 GET NEXT CHARACTER 01301 M00S01220.control +++| LX6 6 01302 M00S01221.control +++| LX2 1 01303 M00S01222.control +++| BX6 X6+X1 MERGE CHARACTER 01304 M00S01223.control +++| SB6 B6+1 01305 M00S01224.control +++| ZR X1,MCM4 IF TERMINATOR 01306 M00S01225.control +++| NG X2,MCM3 IF WORD NOT FILLED 01307 M00S01226.control +++| SA6 B2 STORE WORD 01308 M00S01227.control +++| SB2 B2+B1 01309 M00S01228.control +++| EQ MCM2 START NEXT WORD 01310 M00S01229.control +++| 01311 M00S01230.control +++| MCM4 PL X2,MCM5 IF WORD FULL 01312 M00S01231.control +++| LX6 6 01313 M00S01232.control +++| LX2 1 01314 M00S01233.control +++| EQ MCM4 CHECK IF WORD LEFT JUSTIFIED 01315 M00S01234.control +++| SPACE 4,15 01316 M00S01235.control +++|** MDM - MOVE DAYFILE MESSAGE. 01317 M00S01236.control +++|* 01318 M00S01237.control +++|* MOVE *CCDR* MESSAGE TO BUFFER AND APPEND SPECIFIED SUFFIX. 01319 M00S01238.control +++|* 01320 M00S01239.control +++|* ENTRY (B2) = FWA OF SUFFIX. 01321 M00S01240.control +++|* 01322 M00S01241.control +++|* EXIT MESSAGE AND SUFFIX MOVED TO *MSGA*. 01323 M00S01242.control +++|* 01324 M00S01243.control +++|* USES X - 1, 2, 6, 7. 01325 M00S01244.control +++|* A - 1, 6, 7. 01326 M00S01245.control +++|* B - 2, 3, 6. 01327 M00S01246.control +++|* 01328 M00S01247.control +++|* MACROS MOVE. 01329 M00S01248.control +++|* 01330 M00S01249.control +++|* CALLS USB. 01331 M00S01250.control +++| 01332 M00S01251.control +++| 01333 M00S01252.control +++| MDM6 SA6 B2 01334 M00S01253.control +++| 01335 M00S01254.control +++| MDM SUBR ENTRY/EXIT 01336 M00S01255.control +++| RJ USB UNPACK SUFFIX 01337 M00S01256.control +++| SX7 1R. APPEND TERMINATOR 01338 M00S01257.control +++| SA7 B7+1
| Line S01258 Modification History | |
|---|---|
M01 (Removed by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01339 M01S01258.contr10 ---| MOVE 15,B6,SBUF MOVE UNPACKED CONSTANT TO SCRATCH BUFFER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01340 M01S00001.contr10 +++| MOVE SBUFL,B6,SBUF MOVE UNPACKED CONSTANT TO BUFFER 01341 M00S01259.control +++| MOVE 8,CCDR,MDMA+1 01342 M00S01260.control +++| SB2 MDMA 01343 M00S01261.control +++| RJ USB UNPACK COMMAND 01344 M00S01262.control +++| MDM1 SA1 B6 01345 M00S01263.control +++| SB3 X1-1R. 01346 M00S01264.control +++| ZR B3,MDM2 IF COMMAND TERMINATOR 01347 M00S01265.control +++| SB3 X1-1R) 01348 M00S01266.control +++| ZR B3,MDM2 IF COMMAND TERMINATOR 01349 M00S01267.control +++| SB6 B6+1 01350 M00S01268.control +++| EQ MDM1 CHECK NEXT CHARACTER 01351 M00S01269.control +++| 01352 M00S01270.control +++| MDM2 SX7 1R ADD ONE BLANK SPACE 01353 M00S01271.control +++| SA7 B7+1
| Line S01272 Modification History | |
|---|---|
M01 (Removed by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01354 M01S01272.contr10 ---| MOVE 15,SBUF,B7+2
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01355 M01S00002.contr10 +++| MOVE SBUFL,SBUF,B7+2 01356 M00S01273.control +++| 01357 M00S01274.control +++|* PACK COMMENT IN *MSGA*. 01358 M00S01275.control +++| 01359 M00S01276.control +++| SB2 MSGA 01360 M00S01277.control +++| SB6 USBB+7 RETRIEVE FWA OF COMMAND 01361 M00S01278.control +++| MDM3 BX6 X6-X6 CLEAR ASSEMBLY REGISTER 01362 M00S01279.control +++| MX2 10 SET CHARACTER COUNT 01363 M00S01280.control +++| MDM4 SA1 B6 GET NEXT CHARACTER 01364 M00S01281.control +++| LX6 6 01365 M00S01282.control +++| LX2 1 01366 M00S01283.control +++| BX6 X6+X1 MERGE CHARACTER 01367 M00S01284.control +++| SB6 B6+B1 01368 M00S01285.control +++| ZR X1,MDM5 IF END OF MESSAGE 01369 M00S01286.control +++| NG X2,MDM4 IF WORD NOT FILLED 01370 M00S01287.control +++| SA6 B2 01371 M00S01288.control +++| SB2 B2+B1 01372 M00S01289.control +++| EQ MDM3 START NEXT WORD 01373 M00S01290.control +++| 01374 M00S01291.control +++| MDM5 PL X2,MDM6 IF WORD FULL 01375 M00S01292.control +++| LX6 6 01376 M00S01293.control +++| LX2 1 01377 M00S01294.control +++| EQ MDM5 CHECK IF WORD LEFT JUSTIFIED 01378 M00S01295.control +++| 01379 M00S01296.control +++| 01380 M00S01297.control +++| MDMA DATA A/* / ASSEMBLY BUFFER FOR MESSAGE 01381 M00S01298.control +++| BSSZ 8 01382 M00S01299.control +++| PKP SPACE 4,15 01383 M00S01300.control +++|** PKP - PROCESS KEYWORD OR POSITIONAL ARGUMENTS. 01384 M00S01301.control +++|* 01385 M00S01302.control +++|* ENTRY (X6) = ARGUMENT TABLE ADDRESS. 01386 M00S01303.control +++|* (X7) = ARGUMENT TABLE LENGTH. 01387 M00S01304.control +++|* 01388 M00S01305.control +++|* EXIT (B1) = 1. 01389 M00S01306.control +++|* (X1) .NE. 0 IF NO ARGUMENTS SPECIFIED. 01390 M00S01307.control +++|* TO *ERR* IF ARGUMENT ERROR. 01391 M00S01308.control +++|* 01392 M00S01309.control +++|* USES A - 1, 2, 6, 7. 01393 M00S01310.control +++|* B - 1, 2, 3, 4, 6. 01394 M00S01311.control +++|* X - 1, 2, 6, 7. 01395 M00S01312.control +++|* 01396 M00S01313.control +++|* CALLS ARM, CPA, USB. 01397 M00S01314.control +++| 01398 M00S01315.control +++| 01399 M00S01316.control +++| PKP SUBR ENTRY/EXIT 01400 M00S01317.control +++| SB1 1 01401 M00S01318.control +++| SA6 PKPA SAVE ADDRESS AND LENGTH 01402 M00S01319.control +++| SA7 A6+1 01403 M00S01320.control +++| SB2 CCDR UNPACK COMMAND 01404 M00S01321.control +++| RJ USB 01405 M00S01322.control +++| SA1 A6 ASSURE TERMINATION 01406 M00S01323.control +++| SX6 1R. 01407 M00S01324.control +++| SA6 X1+B1 01408 M00S01325.control +++| 01409 M00S01326.control +++|* SKIP TO FIRST ARGUMENT. 01410 M00S01327.control +++| 01411 M00S01328.control +++| PKP1 SA1 B6 SKIP OVER COMMAND NAME 01412 M00S01329.control +++| SB6 B6+B1 ADVANCE CHARACTER ADDRESS 01413 M00S01330.control +++| SB2 X1-1R9-1 01414 M00S01331.control +++| NG B2,PKP1 IF NOT END OF NAME 01415 M00S01332.control +++| SB2 X1-1R 01416 M00S01333.control +++| ZR B2,PKP1 IF A BLANK 01417 M00S01334.control +++| SB3 X1-1R. 01418 M00S01335.control +++| SB4 X1-1R) 01419 M00S01336.control +++| ZR B3,PKPX IF NO ARGUMENTS 01420 M00S01337.control +++| ZR B4,PKPX IF NO ARGUMENTS 01421 M00S01338.control +++| 01422 M00S01339.control +++|* PROCESS ARGUMENTS. 01423 M00S01340.control +++| 01424 M00S01341.control +++| SA1 PKPA RETRIEVE ADDRESS AND LENGTH 01425 M00S01342.control +++| SA2 A1+B1 01426 M00S01343.control +++| SB3 X1 ARGUMENT TABLE ADDRESS 01427 M00S01344.control +++| SB2 X2+ 01428 M00S01345.control +++| SB4 ABUF CONVERT POSITIONAL ARGUMENTS 01429 M00S01346.control +++| RJ CPA 01430 M00S01347.control +++| NG B5,ERR IF ARGUMENT ERROR 01431 M00S01348.control +++| SX6 B5+ SET LWA OF ARGUMENTS 01432 M00S01349.control +++| SB6 ABUF SET FWA OF ARGUMENTS 01433 M00S01350.control +++| SA6 USBC 01434 M00S01351.control +++| RJ ARM PROCESS ARGUMENTS 01435 M00S01352.control +++| NZ X1,ERR IF ARGUMENT ERROR 01436 M00S01353.control +++| EQ PKPX RETURN 01437 M00S01354.control +++| 01438 M00S01355.control +++| PKPA CON 0 ARGUMENT TABLE ADDRESS 01439 M00S01356.control +++| CON 0 ARGUMENT TABLE LENGTH 01440 M00S01357.control +++| ERL SPACE 4,10 01441 M00S01358.control +++|** ERL - PROCESS RESOURCE LIMIT ERROR. 01442 M00S01359.control +++| 01443 M00S01360.control +++| 01444 M00S01361.control +++| ERL BSS 0 ENTRY 01445 M00S01362.control +++| MESSAGE (=C* USER ACCESS NOT VALID.*) 01446 M00S01363.control +++| ABORT 01447 M00S01364.control +++| PQB SPACE 4,10 01448 M00S01365.control +++|** PQB - PRESET *QAC* REQUEST BLOCK. 01449 M00S01366.control +++|* 01450 M00S01367.control +++|* EXIT PARAMETER BLOCKS *TALT* AND *TPEK* 01451 M00S01368.control +++|* ARE PRESET. 01452 M00S01369.control +++|* 01453 M00S01370.control +++|* USES A - 1, 2, 3, 6, 7. 01454 M00S01371.control +++|* X - 1, 2, 3, 6, 7. 01455 M00S01372.control +++|* B - 2. 01456 M00S01373.control +++| 01457 M00S01374.control +++| 01458 M00S01375.control +++| PQB SUBR ENTRY/EXIT 01459 M00S01376.control +++| SB2 MSGAE-TALT CLEAR REQUEST SPACE 01460 M00S01377.control +++| SX7 0 01461 M00S01378.control +++| PQB1 SA7 TALT+B2 01462 M00S01379.control +++| SB2 B2-1 01463 M00S01380.control +++| PL B2,PQB1 IF NOT ALL CLEARED 01464 M00S01381.control +++| SA1 TQPW FILL PRESET WORDS 01465 M00S01382.control +++| SA2 A1+B1 01466 M00S01383.control +++| BX7 X1 01467 M00S01384.control +++| SA3 A2+B1 01468 M00S01385.control +++| BX6 X2 01469 M00S01386.control +++| SA7 TALT+QFIR *FIRST* 01470 M00S01387.control +++| SA6 A7+B1 *IN* 01471 M00S01388.control +++| BX7 X3 01472 M00S01389.control +++| SA6 A6+B1 *OUT* 01473 M00S01390.control +++| SA7 A6+B1 *LIMIT* 01474 M00S01391.control +++| SA1 A3+B1 01475 M00S01392.control +++| SA2 A1+B1 01476 M00S01393.control +++| BX7 X1 01477 M00S01394.control +++| SA3 A2+B1 01478 M00S01395.control +++| SA7 TPEK+QFIR *FIRST* 01479 M00S01396.control +++| BX6 X2 01480 M00S01397.control +++| SA6 A7+B1 *IN* 01481 M00S01398.control +++| BX7 X3 01482 M00S01399.control +++| SA6 A6+B1 *OUT* 01483 M00S01400.control +++| SA7 A6+B1 *LIMIT* 01484 M00S01401.control +++| EQ PQBX RETURN 01485 M00S01402.control +++| QAC SPACE 4,15 01486 M00S01403.control +++|** QAC - CALL *QAC*. 01487 M00S01404.control +++|* SETS THE REQUESTED FUNCTION CODE IN (B3) AND 01488 M00S01405.control +++|* CALLS *QAC*. 01489 M00S01406.control +++|* 01490 M00S01407.control +++|* ENTER (X6) = FUNCTION CODE. 01491 M00S01408.control +++|* (B3) = REQUEST BLOCK ADDRESS. 01492 M00S01409.control +++|* 01493 M00S01410.control +++|* EXIT (X1) = ERROR STATUS. 01494 M00S01411.control +++|* 01495 M00S01412.control +++|* USES A - 1, 7. 01496 M00S01413.control +++|* X - 1, 7. 01497 M00S01414.control +++|* 01498 M00S01415.control +++|* MACROS SYSTEM. 01499 M00S01416.control +++| 01500 M00S01417.control +++| 01501 M00S01418.control +++| QAC SUBR ENTRY/EXIT 01502 M00S01419.control +++| SA1 QFCN+B3 01503 M00S01420.control +++| MX7 42 ENTER FUNCTION CODE 01504 M00S01421.control +++| LX6 1 01505 M00S01422.control +++| BX7 X7*X1 01506 M00S01423.control +++| BX7 X7+X6 01507 M00S01424.control +++| SA7 A1+ 01508 M00S01425.control +++| SYSTEM QAC,R,A7 01509 M00S01426.control +++| MX7 -8 01510 M00S01427.control +++| SA1 QFCN+B3 GET RESPONSE STATUS 01511 M00S01428.control +++| AX1 10 01512 M00S01429.control +++| BX1 -X7*X1 01513 M00S01430.control +++| EQ QACX RETURN 01514 M00S01431.control +++| SMG SPACE 4,10 01515 M00S01432.control +++|** SMG - SET MESSAGE IN *TALT*. 01516 M00S01433.control +++|* 01517 M00S01434.control +++|* ENTER MESSAGE STORED IN *MSGA*. 01518 M00S01435.control +++|* 01519 M00S01436.control +++|* EXIT MESSAGE POINTERS SET IN *TALT*. 01520 M00S01437.control +++|* (B7) .LT. (B6), IF NO MESSAGE. 01521 M00S01438.control +++|* 01522 M00S01439.control +++|* USES A - 1, 7. 01523 M00S01440.control +++|* X - 1, 7. 01524 M00S01441.control +++|* B - 6, 7. 01525 M00S01442.control +++| 01526 M00S01443.control +++| 01527 M00S01444.control +++| SMG SUBR ENTRY/EXIT 01528 M00S01445.control +++| SB7 MSGAE FIND END OF MESSAGE 01529 M00S01446.control +++| SB6 MSGA 01530 M00S01447.control +++| SMG1 SB7 B7-B1 01531 M00S01448.control +++| LT B7,B6,SMGX IF NO MESSAGE 01532 M00S01449.control +++| SA1 B7 01533 M00S01450.control +++| ZR X1,SMG1 IF EMPTY WORD 01534 M00S01451.control +++| MX7 -12 01535 M00S01452.control +++| BX7 -X7*X1 01536 M00S01453.control +++| ZR X7,SMG2 IF MESSAGE TERMINATOR 01537 M00S01454.control +++| SB7 B7+1 FORCE TERMINATOR 01538 M00S01455.control +++| SMG2 SX7 B7+1 ADJUST *IN* POINTER 01539 M00S01456.control +++| SA7 TALT+QINP 01540 M00S01457.control +++| EQ SMGX RETURN
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2516a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01458.control +++| SSC SPACE 4,15 01577 M00S01459.control +++|** SSC - SET SELECTION CRITERIA. 01578 M00S01460.control +++|* 01579 M00S01461.control +++|* ENTER (X1) = JSN IN BITS 59 - 36. 01580 M00S01462.control +++|* (X1) = 0 IF NO JSN PROVIDED. 01581 M00S01463.control +++|* (B2) .LT. 0 IF ALL QUEUES SELECTED. 01582 M00S01464.control +++|* (B2) .EQ. 0 IF FOR EXECUTION QUEUE ONLY. 01583 M00S01465.control +++|* (B2) .GT. 0 IF SPECIFIC QUEUE SELECTION. 01584 M00S01466.control +++|* (B3) = REQUEST BLOCK ADDRESS. 01585 M00S01467.control +++|* 01586 M00S01468.control +++|* EXIT SELECTION CRITERIA SET IN BLOCK. 01587 M00S01469.control +++|* 01588 M00S01470.control +++|* USES A - 2, 7. 01589 M00S01471.control +++|* X - 2, 6, 7. 01590 M00S01472.control +++| 01591 M00S01473.control +++| 01592 M00S01474.control +++| SSC SUBR ENTRY/EXIT 01593 M00S01475.control +++| SA2 QQUE+B3 SET QUEUE SELECTION 01594 M00S01476.control +++| SX7 0037B SELECT ALL QUEUES 01595 M00S01477.control +++| MX6 12 01596 M00S01478.control +++| BX2 -X6*X2 01597 M00S01479.control +++| NG B2,SSC1 IF ALL QUEUES 01598 M00S01480.control +++| SX7 0002B SET EXECTUION QUEUE 01599 M00S01481.control +++| ZR B2,SSC1 IF EXECUTION QUEUE 01600 M00S01482.control +++| SX7 B2+ SPECIAL QUEUE 01601 M00S01483.control +++| SSC1 LX7 59-11 01602 M00S01484.control +++| BX7 X2+X7 01603 M00S01485.control +++| SA7 A2+ 01604 M00S01486.control +++| ERRNZ QJSN-QSEL ENSURE ORDER OF BLOCK IS CORRECT 01605 M00S01487.control +++| SX7 1S6+1S2 SET SELECTION FLAGS 01606 M00S01488.control +++| NZ X1,SSC2 IF JSN SUPPLIED 01607 M00S01489.control +++| SX7 1S2 NO JSN SELECTION 01608 M00S01490.control +++| SSC2 BX7 X7+X1 01609 M00S01491.control +++| SA7 QJSN+B3 01610 M00S01492.control +++| EQ SSCX RETURN 01611 M00S01493.control +++| VJS SPACE 4,10 01612 M00S01494.control +++|** VJS - VALIDATE JSN. 01613 M00S01495.control +++|* 01614 M00S01496.control +++|* ENTRY (X1) = JSN PARAMETER WORD. 01615 M00S01497.control +++|* 01616 M00S01498.control +++|* EXIT (X2) = 0 IF PARAMETER IS VALID. 01617 M00S01499.control +++|* (X1) = JSN IN BITS 59 - 36 IF (X2) = 0. 01618 M00S01500.control +++|* 01619 M00S01501.control +++|* USES X - 1, 2, 3. 01620 M00S01502.control +++| 01621 M00S01503.control +++| 01622 M00S01504.control +++| VJS1 SX2 B1 SET INCORRECT PARAMETER 01623 M00S01505.control +++| 01624 M00S01506.control +++| VJS SUBR ENTRY/EXIT 01625 M00S01507.control +++| MX2 42 01626 M00S01508.control +++| MX3 24 01627 M00S01509.control +++| BX1 X2*X1 01628 M00S01510.control +++| BX2 -X3*X1 01629 M00S01511.control +++| NZ X2,VJSX IF JSN .GT. 4 CHARACTERS 01630 M00S01512.control +++| LX3 -18 01631 M00S01513.control +++| BX3 X3*X1 01632 M00S01514.control +++| NZ X3,VJSX IF FOUR CHARACTER JSN 01633 M00S01515.control +++| MX3 -48 01634 M00S01516.control +++| BX3 -X3*X1 01635 M00S01517.control +++| ZR X3,VJS1 IF JSN .LT. 3 CHARACTERS 01636 M00S01518.control +++| SX3 1R SET FOURTH CHARACTER TO BLANK 01637 M00S01519.control +++| LX3 36 01638 M00S01520.control +++| BX1 X1+X3 01639 M00S01521.control +++| EQ VJSX RETURN 01640 M00S01522.control +++| VRN SPACE 4,15 01641 M00S01523.control +++|** VRN VERIFY RERUN/NORERUN CALL. 01642 M00S01524.control +++|* 01643 M00S01525.control +++|* ENTRY DIRECT FROM RERUN/NORERUN COMMAND. 01644 M00S01526.control +++|* 01645 M00S01527.control +++|* EXIT NORMAL IF VALID CALLER-ELSE ENDRUN. 01646 M00S01528.control +++|* (B1) = 1 01647 M00S01529.control +++|* 01648 M00S01530.control +++|* CALLS NONE. 01649 M00S01531.control +++|* 01650 M00S01532.control +++|* USES A - 2. 01651 M00S01533.control +++|* X - 2, 3, 4, 6. 01652 M00S01534.control +++|* B - 1, 2. 01653 M00S01535.control +++| 01654 M00S01536.control +++| 01655 M00S01537.control +++| VRN SUBR 01656 M00S01538.control +++| SA2 ACTR 01657 M00S01539.control +++| SB1 1 01658 M00S01540.control +++| SB2 X2 NUMBER OF ARGUMENTS 01659 M00S01541.control +++| NE B2,ERR IF ANY ARGUMENTS 01660 M00S01542.control +++| SA2 FWPR VERIFY ORIGIN 01661 M00S01543.control +++| MX3 -6 01662 M00S01544.control +++| AX2 24D 01663 M00S01545.control +++| BX4 -X3*X2 ONLY ORIGIN 01664 M00S01546.control +++| SX6 X4-TXOT 01665 M00S01547.control +++| NZ X6,VRNX IF VALID ORIGIN 01666 M00S01548.control +++| MESSAGE (=C* NORERUN/RERUN INCORRECT FROM INTERACTIVE JOBS.*) 01667 M00S01549.control +++| EQ END COMPLETE COMMAND 01668 M00S01550.control +++| TCKA TITLE TABLE OF CRACKED ARGUMENT VALUES. 01669 M00S01551.control +++|** TCKA - TABLE OF CRACKED ARGUMENT VALUES. 01670 M00S01552.control +++|* 01671 M00S01553.control +++|* THE ORDER OF THE ARGUMENT VALUES IN THIS TABLE IS DETERMINED 01672 M00S01554.control +++|* BY THE ORDER OF THE ARGUMENTS IN THE INDIVIDUAL ARGUMENT 01673 M00S01555.control +++|* TABLES. THE NUMBER OF VALUES USED IS DETERMINED BY THE 01674 M00S01556.control +++|* LENGTH OF THE ARGUMENT TABLE. 01675 M00S01557.control +++|* 01676 M00S01558.control +++|* THE FOLLOWING ARGUMENT TABLES APPLY - 01677 M00S01559.control +++|* *TMRA*, LENGTH *TMRAL* *MFL* AND *RFL* ARGUMENTS 01678 M00S01560.control +++|* *TPRA*, LENGTH *TPRAL* *PROTECT* ARGUMENTS 01679 M00S01561.control +++|* *TSTJ*, LENGTH *TSTJL* *SETJOB* ARGUMENTS 01680 M00S01562.control +++| 01681 M00S01563.control +++| 01682 M00S01564.control +++| TCKAL MAX TMRAL,TPRAL,TSTJL 01683 M00S01565.control +++| TCKA BSSZ TCKAL CRACKED ARGUMENT VALUES 01684 M00S01566.control +++| TITLE COMMON DECKS. 01685 M00S01567.control +++|* COMMON DECKS. 01686 M00S01568.control +++| 01687 M00S01569.control +++| 01688 M00S01570.control +++|*CALL COMCARG 01689 M00S01571.control +++|*CALL COMCARM 01690 M00S01572.control +++|*CALL COMCCPA 01691 M01S00093.ns2516a +++|*CALL COMCCDD 01692 M00S01573.control +++|*CALL COMCCIO 01693 M00S01574.control +++|*CALL COMCCPM 01694 M00S01575.control +++|*CALL COMCDXB 01695 M00S01576.control +++|*CALL COMCLFM 01696 M00S01577.control +++|*CALL COMCMVE 01697 M00S01578.control +++|*CALL COMCPOP 01698 M00S01579.control +++|*CALL COMCSNM 01699 M00S01580.control +++|*CALL COMCSYS 01700 M00S01581.control +++|*CALL COMCUPC 01701 M00S01582.control +++|*CALL COMCUSB 01702 M00S01583.control +++| SPACE 4,10 01703 M00S01584.control +++| USE // 01704 M00S01585.control +++| SPACE 4,10 01705 M00S01586.control +++|** BUFFERS. 01706 M00S01587.control +++| 01707 M00S01588.control +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01708 M01S00003.contr10 +++| SBUFL EQU 15 SCRATCH BUFFER LENGTH 01709 M01S00004.contr10 +++| 01710 M00S01589.control +++| ABUF EQU * ARGUMENT STRING BUFFER 01711 M00S01590.control +++| SBUF EQU ABUF+200 SCRATCH BUFFER
| Line S01591 Modification History | |
|---|---|
M01 (Removed by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01712 M01S01591.contr10 ---| RFL= EQU SBUF+1
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | contr10 |
Seq # *Modification Id* Act ----------------------------+ 01713 M01S00005.contr10 +++| RFL= EQU SBUF+SBUFL+8 ALLOW FOR READ AHEAD IN COMMON DECKS 01714 M00S01592.control +++| SPACE 4,10 01715 M00S01593.control +++|** QAC PARAMETER BLOCK STORAGE. 01716 M00S01594.control +++| 01717 M00S01595.control +++| 01718 M00S01596.control +++| TALT EQU * *QAC* ALTER REQUEST BLOCK 01719 M00S01597.control +++| TPEK EQU TALT+QALTL *QAC* PEEK REQUEST BLOCK 01720 M00S01598.control +++| MSGA EQU TPEK+QPEKL MESSAGE BUFER 01721 M00S01599.control +++| MSGAE EQU MSGA+9 01722 M00S01600.control +++| PBUF EQU MSGAE PEEK BUFFER 01723 M00S01601.control +++| PBUFE EQU SBUF 01724 M00S01602.control +++| 01725 M00S01603.control +++| ERRNG CTFL*100B-RFL= CHANGE *CTFL* DEFINITION IN *COMSZOL* 01726 M00S01604.control +++| SPACE 4 01727 M00S01605.control +++| END
cdc/nos2.source/opl.opl871/deck/control.txt · Last modified: (external edit)