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