cdc:nos2.source:opl.opl871:deck:enquire.001
Deck ENQUIRE Part 001
28 Modifications
Listing Sections
- Deck ENQUIRE Start
- Deck ENQUIRE Part 1 (Line 1182)
- Deck ENQUIRE Part 2 (Line 2786)
Source
Seq # *Modification Id* Act ----------------------------+ 01182 M01S00841.enquire +++| ZR X2,OPD7 IF NO ASSIGNS/DEMANDS 01183 M01S00842.enquire +++| SA5 FBUF+RMTP GET FIRST MAGNETIC TAPE ENTRY WORD 01184 M01S00843.enquire +++| 01185 M01S00844.enquire +++|* FORMAT LINE. 01186 M01S00845.enquire +++| 01187 M01S00846.enquire +++| OPD1 MX2 12 GET RESOURCE IDENTIFIER 01188 M01S00847.enquire +++| BX1 X2*X5 01189 M01S00848.enquire +++| SX3 A5-FBUF-RRPP 01190 M01S00849.enquire +++| NG X3,OPD2 IF MAGNETIC TAPE ENTRY 01191 M01S00850.enquire +++| SX2 1R1 ENTER REMOVABLE PACK UNIT COUNT 01192 M01S00851.enquire +++| LX2 -18 01193 M01S00852.enquire +++| BX1 X1+X2 01194 M01S00853.enquire +++| OPD2 RJ SFN BLANK FILL RESOURCE IDENTIFIER 01195 M01S00854.enquire +++| LX6 -24 01196 M01S00855.enquire +++| SA6 FODB 01197 M01S00856.enquire +++| LX5 12 01198 M01S00178.ns22000 +++| SX3 A5-FBUF-RRPP 01199 M01S00179.ns22000 +++| PL X3,OPD3 IF REMOVABLE PACK ENTRY 01200 M01S00180.ns22000 +++| 01201 M01S00181.ns22000 +++|* ADD THE ASSIGNED AND DEMAND COUNTS FOR ALL ACCESS LEVELS 01202 M01S00182.ns22000 +++|* OF MAGNETIC TAPE RESOURCE ENTRY. PRINT NON-ZERO COUNTS. 01203 M01S00183.ns22000 +++| 01204 M01S00184.ns22000 +++| BX1 X1-X1 INITIALIZE TOTAL ASSIGNED COUNT 01205 M01S00185.ns22000 +++| BX3 X3-X3 INITIALIZE TOTAL DEMAND COUNT 01206 M01S00186.ns22000 +++| SB2 B1+ INITIALIZE ENTRY WORD COUNT 01207 M01S00187.ns22000 +++| OPD2.1 SB3 3 INITIALIZE BYTE COUNT 01208 M01S00188.ns22000 +++| OPD2.2 MX2 -6 GET ASSIGNED COUNT 01209 M01S00189.ns22000 +++| LX5 6 01210 M01S00190.ns22000 +++| BX0 -X2*X5 01211 M01S00191.ns22000 +++| IX1 X0+X1 ADD COUNT TO TOTAL COUNT 01212 M01S00192.ns22000 +++| LX5 6 GET DEMAND COUNT 01213 M01S00193.ns22000 +++| BX2 -X2*X5 01214 M01S00194.ns22000 +++| IX3 X2+X3 ADD COUNT TO TOTAL COUNT 01215 M01S00195.ns22000 +++| SB3 B3-B1 01216 M01S00196.ns22000 +++| PL B3,OPD2.2 IF NOT END OF ENTRY WORD 01217 M01S00197.ns22000 +++| SB2 B2-B1 01218 M01S00198.ns22000 +++| NG B2,OPD2.3 IF END OF SECOND ENTRY WORD 01219 M01S00199.ns22000 +++| SA5 A5+B1 READ SECOND ENTRY WORD 01220 M01S00200.ns22000 +++| LX5 12 01221 M01S00201.ns22000 +++| EQ OPD2.1 RESET BYTE COUNT 01222 M01S00202.ns22000 +++| 01223 M01S00203.ns22000 +++| OPD2.3 BX0 X1+X3 01224 M01S00204.ns22000 +++| BX5 X3 01225 M01S00205.ns22000 +++| ZR X0,OPD6 IF NO ASSIGNED/DEMAND COUNTS 01226 M01S00206.ns22000 +++| EQ OPD3.1 CONVERT ASSIGNED COUNT 01227 M01S00207.ns22000 +++| 01228 M01S00208.ns22000 +++|* GET ASSIGNED/DEMAND COUNTS FOR REMOVABLE PACK ENTRIES. 01229 M01S00209.ns22000 +++| 01230 M01S00857.enquire +++| OPD3 MX2 -6 GET ASSIGNED COUNT 01231 M01S00858.enquire +++| LX5 6 01232 M01S00859.enquire +++| BX1 -X2*X5 01233 M01S00860.enquire +++| MX3 -12 CHECK FOR ZERO ASSIGNED AND DEMAND COUNTS 01234 M01S00861.enquire +++| LX5 6 01235 M01S00862.enquire +++| BX3 -X3*X5 01236 M01S00863.enquire +++| ZR X3,OPD4 IF NO ASSIGNED/DEMAND COUNTS
| Line S00864 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01237 M02S00864.ns22000 ---| RJ CDD CONVERT ASSIGNED COUNT 01238 M01S00210.ns22000 +++| OPD3.1 RJ CDD CONVERT ASSIGNED COUNT 01239 M01S00865.enquire +++| LX6 18 01240 M01S00866.enquire +++| MX2 -6 01241 M01S00867.enquire +++| SA6 FODB+2 01242 M01S00868.enquire +++| BX1 -X2*X5 GET DEMAND COUNT 01243 M01S00869.enquire +++| RJ CDD CONVERT DEMAND COUNT 01244 M01S00870.enquire +++| LX6 18 01245 M01S00871.enquire +++| SA6 A6-B1 01246 M01S00872.enquire +++| WRITEW OUTPUT,FODB,FODL 01247 M01S00873.enquire +++| OPD4 SX3 A5-FBUF-RRPP 01248 M01S00874.enquire +++| NG X3,OPD6 IF MAGNETIC TAPE ENTRY 01249 M01S00875.enquire +++| SX2 B1 INCREMENT REMOVABLE PACK UNIT COUNT 01250 M01S00876.enquire +++| SA1 FODB 01251 M01S00877.enquire +++| LX2 18 01252 M01S00878.enquire +++| SB2 X0+B1 01253 M01S00879.enquire +++| IX6 X1+X2 01254 M01S00880.enquire +++| SB3 X0-RPEW 01255 M01S00881.enquire +++| SB2 A0-B2 01256 M01S00882.enquire +++| SA6 A1 01257 M01S00883.enquire +++| NZ B3,OPD5 IF NOT END OF FIRST ENTRY WORD 01258 M01S00884.enquire +++| SA5 A5+B1 01259 M01S00885.enquire +++| LX5 12 01260 M01S00886.enquire +++| OPD5 SX0 X0+1 01261 M01S00887.enquire +++| PL B2,OPD3 IF MORE COUNTS TO PROCESS IN ENTRY 01262 M01S00888.enquire +++| PL B3,OPD6 IF SECOND ENTRY WORD PROCESSED 01263 M01S00889.enquire +++| SA5 A5+1 01264 M01S00890.enquire +++| OPD6 SA5 A5+1
| Line S00891 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 01265 M02S00891.282l826 ---| SX2 A5-FBUF-RQPD 01266 M01S00001.282l826 +++| SX2 A5-FBUF-RREQ 01267 M01S00892.enquire +++| SX3 A5-FBUF-RRPP 01268 M01S00893.enquire +++| ZR X2,OPD8 IF END OF RESOURCE ENTRIES 01269 M01S00894.enquire +++| NG X3,OPD1 IF MAGNETIC TAPE ENTRY 01270 M01S00211.ns22000 +++| ZR X5,OPD8 IF END OF RESOURCE ENTRIES 01271 M01S00895.enquire +++| SA1 A5+B1 GET MAXIMUM UNIT COUNT 01272 M01S00896.enquire +++| UX1 X1,B2 01273 M01S00897.enquire +++| SA0 B2 01274 M01S00898.enquire +++| SX0 B1 RESET UNIT COUNT 01275 M01S00899.enquire +++| EQ OPD1 CONTINUE PROCESSING ENTRIES 01276 M01S00900.enquire +++| 01277 M01S00901.enquire +++| OPD7 WRITEW OUTPUT,FODC,FODD 01278 M01S00902.enquire +++|
| Line S00903 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui4 |
Seq # *Modification Id* Act ----------------------------+ 01279 M02S00903.enqui4 ---| OPD8 RETURN FILEFET 01280 M01S00001.enqui4 +++| OPD8 RETURN FILEFET,R 01281 M01S00904.enquire +++| EQ MAIN1 RETURN 01282 M01S00905.enquire +++| 01283 M01S00906.enquire +++| OPDA VFD 12/0,12/1,18/MMFL,18/OPDC MMFL READ CONTROL 01284 M01S00907.enquire +++| OPDB VFD 60/0LRSXD DEMAND FILE NAME 01285 M01S00908.enquire +++| OPDC VFD 1/1,59/0 MMFL CODE 01286 M01S00909.enquire +++| 01287 M01S00910.enquire +++| 01288 M01S00911.enquire +++|* OUTPUT FORMAT FOR OP = D. 01289 M01S00912.enquire +++| 01290 M01S00913.enquire +++| 01291 M01S00914.enquire +++| FOD DATA 0 01292 M01S00915.enquire +++| DATA L* RESOURCE DEMAND INFORMATION. * 01293 M01S00916.enquire +++| DATA 0 01294 M01S00917.enquire +++| DATA L* RESOURCE DEMAND ASSIGNED * 01295 M01S00918.enquire +++| DATA 0 01296 M01S00919.enquire +++| FODA EQU *-FOD 01297 M01S00920.enquire +++| FODB DATA C* * 01298 M01S00921.enquire +++| FODL EQU *-FODB 01299 M01S00922.enquire +++| FODC DATA C* NONE.* 01300 M01S00923.enquire +++| FODD EQU *-FODC 01301 M01S00924.enquire +++| OPF TITLE F OPTION. 01302 M01S00925.enquire +++|** THE *OP=F* OPTION RETURNS TO THE USER THE FOLLOWING 01303 M01S00926.enquire +++|* INFORMATION ABOUT EACH OF HIS FILES- *FILENAME*
| Line S00927 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01304 M02S00927.ns22000 ---|* *LENGTH/PRUS* *TYPE* *STATUS* 01305 M01S00212.ns22000 +++|* *LENGTH/PRUS* *TYPE* *STATUS* *FS* *LEVEL*. 01306 M01S00928.enquire +++| 01307 M01S00929.enquire +++|
| Line S00930 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01308 M02S00930.enqui15 ---| OPF BX6 X6-X6 PRECLUDE FN PARAMETER PROCESSING 01309 M01S00003.enqui15 +++| OPF BSS 0 ENTRY 01310 M01S00004.enqui15 +++| BX6 X6-X6 PRECLUDE FN PARAMETER PROCESSING 01311 M01S00931.enquire +++| SA6 TAGS+2 01312 M01S00932.enquire +++| MX7 0 CLEAR BUFFER CONTROL WORD 01313 M01S00933.enquire +++| SA7 FBUF
| Line S00934 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01314 M02S00934.enqui15 ---| OPF0 SA1 GFNT SET GETFNT CONTROL WORD IN FET+8 01315 M01S00005.enqui15 +++| SA1 GFNT SET GETFNT CONTROL WORD IN FET+8 01316 M01S00935.enquire +++| BX6 X1 01317 M01S00936.enquire +++| SA6 FILEFET+8 01318 M01S00937.enquire +++| GETFNT FILEFET GET FILES 01319 M01S00938.enquire +++| BX6 X6-X6 CLEAR STATUS WORD 01320 M01S00939.enquire +++| SA6 FILEFET+8
| Line S00940 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01321 M02S00940.enqui15 ---| SA5 FBUF+1 FILE BUFFER
| Line S00941 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01322 M02S00941.enqui15 ---| SA1 FCT
| Line S00942 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01323 M02S00942.enqui15 ---| ZR X1,OPF2 IF FIRST ENTRY
| Line S00943 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01324 M02S00943.enqui15 ---| OPF1 ZR X5,OPF4 IF END OF BUFFER 01325 M01S00006.enqui15 +++| 01326 M01S00007.enqui15 +++|* SORT FNT ENTRIES INTO ASCENDING ORDER. 01327 M01S00008.enqui15 +++| 01328 M01S00009.enqui15 +++| SX7 B0 COUNT NUMBER OF ENTRIES TO SORT 01329 M01S00010.enqui15 +++| SA1 FBUF+1 01330 M01S00011.enqui15 +++| OPF1 SX7 X7+B1 01331 M01S00012.enqui15 +++| SA1 A1+2 01332 M01S00013.enqui15 +++| NZ X1,OPF1 IF MORE ENTRIES TO COUNT 01333 M01S00014.enqui15 +++| SA7 FCT SAVE FILE COUNT 01334 M01S00015.enqui15 +++| SB2 B0 SORT FNT ENTRIES 01335 M01S00016.enqui15 +++| SB3 B0 01336 M01S00017.enqui15 +++| SB4 B1 01337 M01S00018.enqui15 +++| SB5 B1+B1 01338 M01S00019.enqui15 +++| SB6 X7 01339 M01S00020.enqui15 +++| SB7 FBUF+1 01340 M01S00021.enqui15 +++| MX0 42 01341 M01S00022.enqui15 +++| RJ GMS 01342 M01S00023.enqui15 +++| SA5 FBUF+1 SET ADDRESS OF FIRST ENTRY TO LIST 01343 M01S00024.enqui15 +++| 01344 M01S00025.enqui15 +++|* OUTPUT PAGE EJECT AND/OR PAGE HEADER. 01345 M01S00026.enqui15 +++| 01346 M01S00027.enqui15 +++| OPF2 SA1 FT 01347 M01S00028.enqui15 +++| ZR X1,OPF3 IF OUTPUT ASSIGNED TO TERMINAL 01348 M01S00029.enqui15 +++| WRITEW OUTPUT,PAGE,B1 PAGE EJECT 01349 M01S00030.enqui15 +++| OPF3 WRITEW OUTPUT,FOP,FOPA PAGE HEADER 01350 M01S00031.enqui15 +++| 01351 M01S00032.enqui15 +++|* LIST FNT ENTRY. 01352 M01S00033.enqui15 +++| 01353 M01S00034.enqui15 +++| OPF4 ZR X5,OPF5 IF END OF BUFFER 01354 M01S00944.enquire +++| RJ LST LIST FILE 01355 M01S00945.enquire +++|
| Line S00946 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01356 M02S00946.enqui15 ---|* CHECK FOR FULL PAGE AND STORE FILE COUNT. 01357 M01S00035.enqui15 +++|* CHECK FOR FULL PAGE. 01358 M01S00947.enquire +++| 01359 M01S00948.enquire +++| SA5 A5+1 NEXT FILE IN BUFFER
| Line S00949 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01360 M02S00949.enqui15 ---| SA2 FCT FILE COUNT
| Line S00950 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01361 M02S00950.enqui15 ---| SX7 X2+B1
| Line S00951 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01362 M02S00951.enqui15 ---| SA7 A2 01363 M01S00952.enquire +++| SA1 LCT LINE COUNT 01364 M01S00953.enquire +++| SX6 X1+B1 01365 M01S00954.enquire +++| SA6 A1
| Line S00955 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01366 M02S00955.ns22000 ---| SX7 X1-LINP+6 01367 M01S00213.ns22000 +++| SA2 LLM GET LINE LIMIT 01368 M01S00214.ns22000 +++| IX1 X1-X2 01369 M01S00215.ns22000 +++| SX7 X1+6
| Line S00956 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01370 M02S00956.enqui15 ---| NZ X7,OPF1 IF NOT END OF PAGE
| Line S00957 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01371 M02S00957.enqui15 ---| SA7 A1
| Line S00958 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01372 M02S00958.enqui15 ---| OPF2 SA1 FT TERMINAL FILE CONSTANT
| Line S00959 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01373 M02S00959.enqui15 ---| ZR X1,OPF3 IF TERMAINAL FILE
| Line S00960 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01374 M02S00960.enqui15 ---| WRITEW OUTPUT,PAGE,B1 PAGE EJECT
| Line S00961 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01375 M02S00961.enqui15 ---| OPF3 WRITEW OUTPUT,FOP,FOPA HEADER
| Line S00962 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01376 M02S00962.enqui15 ---| EQ OPF1
| Line S00963 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01377 M02S00963.enqui15 ---|
| Line S00964 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01378 M02S00964.enqui15 ---| OPF4 SA4 FBUF BUFFER CONTROL WORD
| Line S00965 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01379 M02S00965.enqui15 ---| NZ X4,OPF0 IF MORE FILES TO GET 01380 M01S00036.enqui15 +++| NZ X7,OPF4 IF NOT END OF PAGE 01381 M01S00037.enqui15 +++| SA7 A1 CLEAR LINE COUNT 01382 M01S00038.enqui15 +++| EQ OPF2 OUTPUT PAGE EJECT AND/OR PAGE HEADER 01383 M01S00966.enquire +++| 01384 M01S00967.enquire +++|* WRITE FILE COUNT MESSAGE AND EXIT. 01385 M01S00968.enquire +++|
| Line S00969 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01386 M02S00969.enqui15 ---| SA1 FCT FILE COUNT 01387 M01S00039.enqui15 +++| OPF5 SA1 FCT FILE COUNT 01388 M01S00970.enquire +++| RJ CDD CONVERT TO DISPLAY 01389 M01S00971.enquire +++| MX0 24 01390 M01S00972.enquire +++| BX6 X0*X4 01391 M01S00973.enquire +++| SA6 FOPD+1 TOTAL FILE COUNT 01392 M01S00974.enquire +++| WRITEW OUTPUT,FOPC,FOLL 01393 M01S00975.enquire +++| EQ MAIN1 RETURN 01394 M01S00976.enquire +++| 01395 M01S00977.enquire +++| 01396 M01S00978.enquire +++|* OUTPUT FORMAT FOR OP = F. 01397 M01S00979.enquire +++| 01398 M01S00980.enquire +++| 01399 M01S00981.enquire +++| FOP DATA 0 01400 M01S00982.enquire +++| DATA L* LOCAL FILE INFORMATION.* 01401 M01S00983.enquire +++| DATA 0
| Line S00984 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01402 M02S00984.ns22000 ---| DATA L* FILENAME LENGTH/PRUS TYPE STATUS FS* 01403 M01S00216.ns22000 +++| DATA L* FILENAME LENGTH/PRUS TYPE STATUS FS LEVEL* 01404 M01S00985.enquire +++| DATA 0 01405 M01S00986.enquire +++| FOPA EQU *-FOP
| Line S00987 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01406 M02S00987.ns22000 ---| FOPB DATA C* * 01407 M01S00217.ns22000 +++| FOPB DATA L* * 01408 M01S00988.enquire +++| FOPL EQU *-FOPB 01409 M01S00989.enquire +++| FOPC DATA 0 01410 M01S00990.enquire +++| FOPD DATA 10H TOTAL = 01411 M01S00991.enquire +++| DATA 0 01412 M01S00992.enquire +++| FOLL EQU *-FOPC 01413 M01S00993.enquire +++| OPJ TITLE J OPTION. 01414 M01S00994.enquire +++|** OP=*J* RETURNS TO THE USER THE CONTENTS OF HIS CONTROL 01415 M01S00995.enquire +++|* REGISTERS AND THE CONTENTS OF ERROR FLAG FIELD.
| Line S00996 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01416 M02S00996.v23l617 ---|* THE NEXT CONTROL STATEMENT FROM THE USER CONTROL
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01417 M02S00997.v23l617 ---|* STATEMENT BUFFER IS GIVEN ALSO. 01418 M01S00080.v23l617 +++|* THE NEXT COMMAND FROM THE BUFFER IS GIVEN ALSO. 01419 M01S00998.enquire +++| 01420 M01S00999.enquire +++| 01421 M01S01000.enquire +++|* PROCESS PSEUDO REGISTERS. 01422 M01S01001.enquire +++| 01423 M01S01002.enquire +++| OPJ SA5 BUFF+JCRW JOB CONTROL WORD 01424 M01S01003.enquire +++| LX5 6 01425 M01S01004.enquire +++| MX0 -6 ERROR FLAG 01426 M01S01005.enquire +++| BX1 -X0*X5 01427 M01S01006.enquire +++| RJ COD CONVERT TO DISPLAY CODE 01428 M01S01007.enquire +++| MX0 42 01429 M01S01008.enquire +++| BX6 X0*X4 01430 M01S01009.enquire +++| SA6 JOPE+1 01431 M01S01010.enquire +++| LX5 18 R3 01432 M01S01011.enquire +++| BX1 -X0*X5 01433 M01S01012.enquire +++| RJ CSD CONVERT TO SIGNED DISPLAY CODE 01434 M01S01013.enquire +++| SA6 JOPD+1 01435 M01S01014.enquire +++| LX5 18 R2 01436 M01S01015.enquire +++| BX1 -X0*X5 01437 M01S01016.enquire +++| RJ CSD CONVERT TO SIGNED DISPLAY CODE 01438 M01S01017.enquire +++| SA6 JOPC+1 01439 M01S01018.enquire +++| LX5 18 R1 01440 M01S01019.enquire +++| BX1 -X0*X5 01441 M01S01020.enquire +++| RJ CSD CONVERT TO SIGNED DISPLAY CODE 01442 M01S01021.enquire +++| SA6 JOPB+1 01443 M01S01022.enquire +++| SA5 BUFF+JCDW *CCL* JOB CONTROL WORD 01444 M01S01023.enquire +++| LX5 6 GLOBAL ERROR FLAG 01445 M01S01024.enquire +++| MX0 -6 01446 M01S01025.enquire +++| BX1 -X0*X5 01447 M01S01026.enquire +++| RJ COD CONVERT TO DISPLAY CODE 01448 M01S01027.enquire +++| MX0 42 01449 M01S01028.enquire +++| BX6 X0*X4 01450 M01S01029.enquire +++| SA6 JOPF+1 01451 M01S01030.enquire +++| LX5 18 R1G 01452 M01S01031.enquire +++| BX1 -X0*X5 01453 M01S01032.enquire +++| RJ CSD CONVERT TO SIGNED DISPLAY CODE 01454 M01S01033.enquire +++| SA6 JOPG+1 01455 M01S00218.ns22000 +++| SA5 JPPW GET JOB PAGE PARAMETERS 01456 M01S00219.ns22000 +++| MX0 -8 01457 M01S00220.ns22000 +++| AX5 12 POSITION FOR *PW* 01458 M01S00221.ns22000 +++| BX1 -X0*X5 01459 M01S00222.ns22000 +++| RJ CSD CONVERT TO DISPLAY 01460 M01S00223.ns22000 +++| SA6 JOPH+1 PAGE WIDTH 01461 M01S00224.ns22000 +++| AX5 8 POSITION FOR *PS* 01462 M01S00225.ns22000 +++| BX1 -X0*X5 01463 M01S00226.ns22000 +++| RJ CSD CONVERT TO DISPLAY 01464 M01S00227.ns22000 +++| SA6 JOPI+1 PAGE SIZE 01465 M01S00228.ns22000 +++| MX0 -4 01466 M01S00229.ns22000 +++| AX5 8 POSITION FOR *PD* 01467 M01S00230.ns22000 +++| BX1 -X0*X5 01468 M01S00231.ns22000 +++| RJ CSD CONVERT TO DISPLAY CODE 01469 M01S00232.ns22000 +++| SA6 JOPJ+1 PAGE DENSITY 01470 M01S01034.enquire +++| WRITEW O,JOP,JOPL 01471 M01S01035.enquire +++|
| Line S01036 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01472 M02S01036.v23l617 ---|* PROCESSING NEXT CONTROL STATEMENT. 01473 M01S00081.v23l617 +++|* PROCESSING NEXT COMMAND. 01474 M01S01037.enquire +++| 01475 M01S01038.enquire +++| SA3 F+1 SET FET EMPTY 01476 M01S01039.enquire +++| MX0 -30 01477 M01S01040.enquire +++| SX6 X3 01478 M01S01041.enquire +++| SA6 A3+B1
| Line S01042 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01479 M02S01042.v23l617 ---| SX5 NCST NUMBER OF CONTROL STATEMENTS 01480 M01S00082.v23l617 +++| SX5 NCST NUMBER OF COMMANDS 01481 M01S01043.enquire +++| SA6 A6+B1
| Line S01044 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01482 M02S01044.v23l617 ---| ACCSF F,CSFP,L ATTACH CONTROL STATEMENT FILE 01483 M01S00083.v23l617 +++| ACCSF F,CSFP,L ATTACH COMMAND FILE 01484 M01S01045.enquire +++| SA4 CSFP 01485 M01S01046.enquire +++| BX7 -X0*X4 01486 M01S01047.enquire +++| AX7 6 01487 M01S01048.enquire +++| SA7 F+6 RANDOM ADDRESS 01488 M01S01049.enquire +++| READ F,R 01489 M01S01050.enquire +++| MX0 -6 01490 M01S01051.enquire +++| BX6 -X0*X4 01491 M01S01052.enquire +++| SA3 F+3 UPDATE *OUT* POINTER 01492 M01S01053.enquire +++| IX6 X3+X6 01493 M01S01054.enquire +++| SA6 A3 01494 M01S01055.enquire +++| OPJ1 READC F,WBUF,WBUFL 01495 M01S01056.enquire +++| NZ X1,OPJ2 IF *EOR* 01496 M01S01057.enquire +++| SB2 WBUF 01497 M01S01058.enquire +++| SB6 USBBL
| Line S01059 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01498 M02S01059.v23l617 ---| RJ USB UNSTRING CONTROL CARD 01499 M01S00084.v23l617 +++| RJ USB UNSTRING COMMAND 01500 M01S01060.enquire +++| SB7 B7-WBUF2+1 01501 M01S01061.enquire +++| WRITES O,WBUF2,B7 01502 M01S01062.enquire +++| SX5 X5-1 DECREMENT COUNTER
| Line S01063 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01503 M02S01063.v23l617 ---| NZ X5,OPJ1 IF NOT END OF CONTROL STATEMENTS 01504 M01S00085.v23l617 +++| NZ X5,OPJ1 IF NOT END OF COMMANDS 01505 M01S01064.enquire +++| EQ OPJ3 RETURN FILE AND EXIT 01506 M01S01065.enquire +++| 01507 M01S01066.enquire +++| OPJ2 WRITEC O,OPJB WRITE *EOR* LINE 01508 M01S01067.enquire +++| OPJ3 RETURN F 01509 M01S01068.enquire +++| EQ MAIN1 RETURN 01510 M01S01069.enquire +++| 01511 M01S01070.enquire +++|
| Line S01071 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01512 M02S01071.v23l617 ---| OPJA CON 0 CONTROL STATEMENT COUNT 01513 M01S00086.v23l617 +++| OPJA CON 0 COMMAND COUNT 01514 M01S01072.enquire +++| 01515 M01S01073.enquire +++| OPJB DATA C/ *EOR*/ 01516 M01S01074.enquire +++| 01517 M01S01075.enquire +++| 01518 M01S01076.enquire +++|* OUTPUT FORMAT FOR OP = J. 01519 M01S01077.enquire +++| 01520 M01S01078.enquire +++| JOP DATA 0 01521 M01S01079.enquire +++| JOPA DATA L* JOB CONTROL REGISTERS.* 01522 M01S01080.enquire +++| DATA 0 01523 M01S01081.enquire +++| JOPB DATA C* R1 = * 01524 M01S01082.enquire +++| JOPC DATA C* R2 = * 01525 M01S01083.enquire +++| JOPD DATA C* R3 = * 01526 M01S01084.enquire +++| JOPE DATA C* EF = * 01527 M01S01085.enquire +++| JOPF DATA C* EFG = * 01528 M01S01086.enquire +++| JOPG DATA C* R1G = * 01529 M01S01087.enquire +++| DATA 0
| Line S01088 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01530 M02S01088.ns22000 ---| JOPH DATA L* CONTROL STATEMENT(S).* 01531 M01S00233.ns22000 +++| DATA C* JOB PAGE PARAMETERS.* 01532 M01S00234.ns22000 +++| DATA 0 01533 M01S00235.ns22000 +++| JOPH DATA C* PW = * 01534 M01S00236.ns22000 +++| JOPI DATA C* PS = * 01535 M01S00237.ns22000 +++| JOPJ DATA C* PD = * 01536 M01S00238.ns22000 +++| DATA 0 01537 M01S00239.ns22000 +++| JOPK DATA L* PENDING COMMANDS.* 01538 M01S01089.enquire +++| DATA 0 01539 M01S01090.enquire +++| JOPL EQU *-JOP 01540 M01S01091.enquire +++| OPL TITLE L OPTION. 01541 M01S01092.enquire +++|** *OP=L* GIVES THE USER LOADER INFORMATION THAT CONSISTS OF 01542 M01S01093.enquire +++|* MAP OPTIONS, DEBUG MODE AND GLOBAL LIBRARY SET 01543 M01S01094.enquire +++|* CURRENTLY IN EFFECT. 01544 M01S01095.enquire +++| 01545 M01S01096.enquire +++| 01546 M01S01097.enquire +++| OPL SA1 BUFF+LB1W MAP OPTIONS IN EFFECT 01547 M01S01098.enquire +++| PL X1,OPL2.1 IF SYSTEM DEFAULT 01548 M01S01099.enquire +++| LX1 59-57 POSITION MAP OPTION FIELD TO LEFT 01549 M01S01100.enquire +++| MX0 4 MAP OPTION FIELD WIDTH 01550 M01S01101.enquire +++| BX1 X0*X1 01551 M01S01102.enquire +++| ZR X1,OPL8 IF MAP *OFF* 01552 M01S01103.enquire +++| BX2 -X0+X1 01553 M01S01104.enquire +++| ZR X2,OPL3 IF *FULL* MAP 01554 M01S01105.enquire +++| SA2 OPLA 01555 M01S01106.enquire +++| BX2 X1-X2 01556 M01S01107.enquire +++| ZR X2,OPL4 IF MAP *ON* 01557 M01S01108.enquire +++| SA2 OPLB 01558 M01S01109.enquire +++| BX2 X1-X2 01559 M01S01110.enquire +++| ZR X2,OPL5 IF *PARTIAL* MAP 01560 M01S01111.enquire +++| 01561 M01S01112.enquire +++| SA2 =L*XEBS* FETCH POSSIBLE MAP OPTIONS 01562 M01S01113.enquire +++| SB2 4 INITIALIZE MAP OPTIONS COUNTER 01563 M01S01114.enquire +++| BX6 X6-X6 PRESET RESULT REGISTER 01564 M01S01115.enquire +++| MX0 6 01565 M01S01116.enquire +++| OPL1 PL X1,OPL2 IF OPTION NOT SET 01566 M01S01117.enquire +++| BX3 X0*X2 ADD CHARACTER TO RESULT REGISTER 01567 M01S01118.enquire +++| LX6 -6 01568 M01S01119.enquire +++| BX6 X3+X6 01569 M01S01120.enquire +++| OPL2 SB2 B2-B1 DECREMENT MAP OPTIONS COUNTER 01570 M01S01121.enquire +++| ZR B2,OPL7 IF NO MORE MAP OPTIONS TO CONSIDER 01571 M01S01122.enquire +++| LX1 1 01572 M01S01123.enquire +++| LX2 6 01573 M01S01124.enquire +++| EQ OPL1 LOOP 01574 M01S01125.enquire +++| 01575 M01S01126.enquire +++| OPL2.1 SA1 =L*DEFAULT* 01576 M01S01127.enquire +++| EQ OPL6 SET DEFAULT MAP OPTION 01577 M01S01128.enquire +++| 01578 M01S01129.enquire +++| OPL3 SA1 =L*FULL* 01579 M01S01130.enquire +++| EQ OPL6 01580 M01S01131.enquire +++| 01581 M01S01132.enquire +++| OPL4 SA1 =L*ON* 01582 M01S01133.enquire +++| EQ OPL6 01583 M01S01134.enquire +++| 01584 M01S01135.enquire +++| OPL5 SA1 =L*PARTIAL* 01585 M01S01136.enquire +++| 01586 M01S01137.enquire +++| OPL6 BX6 X1 01587 M01S01138.enquire +++| OPL7 SA6 OPLD UPDATE MAP OPTIONS ASSEMBLY AREA 01588 M01S01139.enquire +++| OPL8 WRITEW OUTPUT,OPLC,OPLE 01589 M01S01140.enquire +++| 01590 M01S01141.enquire +++|* PROCESS INTERACTIVE DEBUG. 01591 M01S01142.enquire +++| 01592 M01S01143.enquire +++| SA1 BUFF+LB1W CHECK DEBUG STATUS 01593 M01S01144.enquire +++| SB6 OPLH *DEBUG = OFF* 01594 M01S01145.enquire +++| LX1 59-35 01595 M01S01146.enquire +++| PL X1,OPL8.1 IF DEBUG = OFF 01596 M01S01147.enquire +++| SB6 OPLI *DEBUG = ON* 01597 M01S01148.enquire +++| OPL8.1 WRITEC O,B6 WRITE DEBUG STATUS 01598 M01S01149.enquire +++| 01599 M01S01150.enquire +++|* PROCESS GLOBAL LIBRARY SET. 01600 M01S01151.enquire +++| 01601 M01S01152.enquire +++| MOVE 4,OPLG,LBUF HEADER (PRESET EMPTY) 01602 M01S01153.enquire +++| GETGLS GGLS GET GLOBAL LIBRARY SET 01603 M01S01154.enquire +++| SB3 4 PRESET NUMBER OF WORDS TO WRITE 01604 M01S01155.enquire +++| SA1 GGLS LWA OF LIST + 1 01605 M01S01156.enquire +++| AX1 36 01606 M01S01157.enquire +++| SB2 X1-LBUF-3 01607 M01S01158.enquire +++| ZR B2,OPL11 IF EMPTY LIST 01608 M01S01159.enquire +++| SB3 B3-B1 01609 M01S01160.enquire +++| SB4 X1 01610 M01S01161.enquire +++| SB5 B3 INITIALIZE NAMES PER LINE COUNTER 01611 M01S01162.enquire +++| MX0 48 01612 M01S01163.enquire +++| MX5 42 01613 M01S01164.enquire +++| SA1 LBUF+3 01614 M01S01165.enquire +++| OPL9 BX1 X1*X5 01615 M01S01166.enquire +++| RJ SFN SPACE FILL NAME 01616 M01S01167.enquire +++| LX6 -6 01617 M01S01168.enquire +++| SB5 B5-B1 DECREMENT NAMES PER LINE COUNTER 01618 M01S01169.enquire +++| NZ B5,OPL10 IF NOT THIRD NAME ON LINE 01619 M01S01170.enquire +++| SB5 3 RE-INITIALIZE NAMES PER LINE COUNTER 01620 M01S01171.enquire +++| BX6 X0*X6 SET END-OF-LINE 01621 M01S01172.enquire +++| OPL10 SA6 A1 01622 M01S01173.enquire +++| SA1 A1+B1 01623 M01S01174.enquire +++| SB3 B3+B1 INCREMENT NUMBER OF WORD TO WRITE 01624 M01S01175.enquire +++| SB2 A1-B4 01625 M01S01176.enquire +++| NZ B2,OPL9 IF NOT END OF LIST 01626 M01S01177.enquire +++| BX6 X0*X6 SET END-OF-LINE 01627 M01S01178.enquire +++| SA6 A6 01628 M01S01179.enquire +++| OPL11 WRITEW OUTPUT,LBUF,B3 01629 M01S01180.enquire +++| JP MAIN1 RETURN 01630 M01S01181.enquire +++| 01631 M01S01182.enquire +++| OPLA VFD 4/7,56/0 MAP *ON* MASK 01632 M01S01183.enquire +++| OPLB VFD 4/3,56/0 *PARTIAL* MAP MASK 01633 M01S01184.enquire +++| 01634 M01S01185.enquire +++|* MAP OPTIONS ASSEMBLY AREA. 01635 M01S01186.enquire +++| 01636 M01S01187.enquire +++| OPLC DATA 0 BLANK LINE 01637 M01S01188.enquire +++| DATA L* LOADER INFORMATION. * 01638 M01S01189.enquire +++| DATA H* MAP OPTIONS = * 01639 M01S01190.enquire +++| OPLD DATA L*OFF* PRESET AS *OFF* 01640 M01S01191.enquire +++| OPLE EQU *-OPLC LENGTH OF MAP OPTIONS ASSEMBLY AREA 01641 M01S01192.enquire +++| 01642 M01S01193.enquire +++| OPLG DATA L* GLOBAL LIBRARY SET IS - * 01643 M01S01194.enquire +++| DATA L* EMPTY.* 01644 M01S01195.enquire +++| 01645 M01S01196.enquire +++| OPLH DATA L* DEBUG = OFF* 01646 M01S01197.enquire +++| OPLI DATA L* DEBUG = ON* 01647 M01S01198.enquire +++| OPR TITLE R OPTION. 01648 M01S01199.enquire +++|** THE *OP=R* OPTION RETURNS TO THE USER HIS ACCUMULATED 01649 M01S01200.enquire +++|* RESOURCES. THESE INCLUDE SRU UNITS, CP, IO AND 01650 M01S01201.enquire +++|* ADDER ACCUMULATORS. 01651 M01S01202.enquire +++| 01652 M01S01203.enquire +++| 01653 M01S01204.enquire +++| OPR SA1 BUFF+CPTW CPU TIME 01654 M01S01205.enquire +++| PX1 X1 CONVERT TO MILLISECONDS 01655 M01S01206.enquire +++| SA2 OPA 01656 M01S01207.enquire +++| NX1 X1 01657 M01S01208.enquire +++| RX2 X2*X1 01658 M01S01209.enquire +++| UX1,B4 X2 01659 M01S01210.enquire +++| LX1 B4 01660 M01S01211.enquire +++| RJ CFD CONVERT TO F10.3 FORMAT 01661 M01S01212.enquire +++| SA6 ROPB+2 01662 M01S01213.enquire +++| SA5 BUFF+IOAW IO ACCUMULATORS 01663 M01S01214.enquire +++| MX0 -20
| Line S01215 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01664 M02S01215.ns22000 ---| LX5 20 MS ACCUMULATOR 01665 M01S00240.ns22000 +++| LX5 20 MS ACCUMULATOR 01666 M01S01216.enquire +++| BX1 -X0*X5 01667 M01S01217.enquire +++| RJ CFD 01668 M01S01218.enquire +++| SA6 ROPC+2
| Line S01219 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01669 M02S01219.ns22000 ---| LX5 20 MT ACCUMULATOR 01670 M01S00241.ns22000 +++| LX5 20 MT ACCUMULATOR 01671 M01S01220.enquire +++| BX1 -X0*X5 01672 M01S01221.enquire +++| RJ CFD 01673 M01S01222.enquire +++| SA6 ROPD+2 01674 M01S01223.enquire +++| LX5 20 PF ACCUMULATOR 01675 M01S01224.enquire +++| BX1 -X0*X5 01676 M01S01225.enquire +++| RJ CFD 01677 M01S01226.enquire +++| SA6 ROPE+2 01678 M01S01227.enquire +++| SA2 BUFF+ADAW ADDER ACCUMULATOR 01679 M01S01228.enquire +++| BX1 -X0*X2 ADDER ACCUMULATOR 01680 M01S01229.enquire +++| RJ CFD 01681 M01S01230.enquire +++| SA6 ROPF+2 01682 M01S00242.ns22000 +++| SA2 BUFF+AUCW AUC ACCUMULATOR 01683 M01S00243.ns22000 +++| MX0 -29 01684 M01S00244.ns22000 +++| BX1 -X0*X2 01685 M01S00245.ns22000 +++| RJ CFD 01686 M01S00246.ns22000 +++| SA6 ROPG+2 01687 M01S01231.enquire +++| SA2 BUFF+SRUW SRU ACCUMULATOR 01688 M01S01232.enquire +++| RJ CSR CONVERT SRU ACCUMULATOR
| Line S01233 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01689 M02S01233.ns22000 ---| SA6 ROPG+2 01690 M01S00247.ns22000 +++| SA6 ROPH+2 01691 M01S01234.enquire +++| WRITEW OUTPUT,ROP,ROPL 01692 M01S01235.enquire +++| EQ MAIN1 RETURN 01693 M01S01236.enquire +++| 01694 M01S01237.enquire +++| 01695 M01S01238.enquire +++|* OUTPUT FORMAT FOR OP = R. 01696 M01S01239.enquire +++| 01697 M01S01240.enquire +++| ROP DATA 0 01698 M01S01241.enquire +++| ROPA DATA L* RESOURCES USED.* 01699 M01S01242.enquire +++| DATA 0 01700 M01S01243.enquire +++| ROPB DATA 30H CPU TIME 01701 M01S01244.enquire +++| DATA 6L SECS. 01702 M01S01245.enquire +++| ROPC DATA 30H MS ACTIVITY 01703 M01S01246.enquire +++| DATA 6L KUNS. 01704 M01S01247.enquire +++| ROPD DATA 30H MT ACTIVITY 01705 M01S01248.enquire +++| DATA 6L KUNS. 01706 M01S01249.enquire +++| ROPE DATA 30H PF ACTIVITY 01707 M01S01250.enquire +++| DATA 6L KUNS. 01708 M01S01251.enquire +++| ROPF DATA 30H ADDER 01709 M01S01252.enquire +++| DATA 6L KUNS.
| Line S01253 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01710 M02S01253.ns22000 ---| ROPG DATA 30H SRU 01711 M01S00248.ns22000 +++| ROPG DATA 30H AUC ACTIVITY 01712 M01S00249.ns22000 +++| DATA 6L UNTS. 01713 M01S00250.ns22000 +++| ROPH DATA 30H SRU 01714 M01S01254.enquire +++| DATA 6L UNTS. 01715 M01S01255.enquire +++| ROPL EQU *-ROP 01716 M01S01256.enquire +++| OPS TITLE S OPTION. 01717 M01S01257.enquire +++|** THE *OP=S* OPTION RETURNS TO THE USER HIS SRU UNIT. 01718 M01S01258.enquire +++|* THIS UNIT REPRESENTS THE TOTAL USAGE OF THE SYSTEM 01719 M01S01259.enquire +++|* BY THE USER. 01720 M01S01260.enquire +++| 01721 M01S01261.enquire +++| 01722 M01S01262.enquire +++| OPS BSS 0 ENTRY 01723 M01S01263.enquire +++| SA2 BUFF+SRUW SRU ACCUMULATOR 01724 M01S01264.enquire +++| RJ CSR CONVERT SRU ACCUMULATOR 01725 M01S01265.enquire +++| SA6 SOPB+1 01726 M01S01266.enquire +++| WRITEW OUTPUT,SOP,SOPL 01727 M01S01267.enquire +++| EQ MAIN1 RETURN 01728 M01S01268.enquire +++| 01729 M01S01269.enquire +++| 01730 M01S01270.enquire +++|* OUTPUT FORMAT FOR OP = S. 01731 M01S01271.enquire +++| 01732 M01S01272.enquire +++| SOP DATA 0 01733 M01S01273.enquire +++| SOPA DATA L* SRU ACCUMULATOR.* 01734 M01S01274.enquire +++| DATA 0 01735 M01S01275.enquire +++| SOPB DATA 20H SRU 01736 M01S01276.enquire +++| DATA 6L UNTS. 01737 M01S01277.enquire +++| SOPL EQU *-SOP 01738 M01S01278.enquire +++| OPT TITLE T OPTION. 01739 M01S01279.enquire +++|** OP=*T* RETURNS TO THE USER HIS CP TIME. 01740 M01S01280.enquire +++|* 01741 M01S01281.enquire +++| 01742 M01S01282.enquire +++| 01743 M01S01283.enquire +++| 01744 M01S01284.enquire +++| OPT SA1 BUFF+CPTW CP TIME 01745 M01S01285.enquire +++| PX1 X1 CONVERT TO MILLISECONDS 01746 M01S01286.enquire +++| SA2 OPA 01747 M01S01287.enquire +++| NX1 X1 01748 M01S01288.enquire +++| RX2 X2*X1 01749 M01S01289.enquire +++| UX1,B4 X2 01750 M01S01290.enquire +++| LX1 B4 01751 M01S01291.enquire +++| RJ CFD CONVERT TO F10.3 FORMAT 01752 M01S01292.enquire +++| SA6 TOPA+1 STORE CP TIME 01753 M01S01293.enquire +++| WRITEW OUTPUT,TOP,TOPL 01754 M01S01294.enquire +++| EQ MAIN1 RETURN 01755 M01S01295.enquire +++| 01756 M01S01296.enquire +++| 01757 M01S01297.enquire +++|* OUTPUT FORMAT FOR OP = T. 01758 M01S01298.enquire +++| 01759 M01S01299.enquire +++| TOP DATA 0 01760 M01S01300.enquire +++| DATA L* CPU ACCUMULATOR.* 01761 M01S01301.enquire +++| DATA 0 01762 M01S01302.enquire +++| TOPA DATA 20H CPU TIME 01763 M01S01303.enquire +++| DATA 6L SECS. 01764 M01S01304.enquire +++| TOPL EQU *-TOP 01765 M01S01305.enquire +++| OPU TITLE U OPTION. 01766 M01S01306.enquire +++|** OP = *U* GIVES THE USER THE AMOUNT OF RESOURCE USAGE 01767 M01S01307.enquire +++|* ALLOWED TO HIS JOB. THESE RESOURCES INCLUDE SYSTEM 01768 M01S01308.enquire +++|* RESOURCE UNITS ALLOWED FOR EACH JOB STEP AND ACCOUNT 01769 M01S01309.enquire +++|* BLOCK, JOB STEP TIME LIMIT, AND MAXIMUM NUMBER OF DISPOSE 01770 M01S01310.enquire +++|* FILES, MASS STORAGE PRUS, DAYFILE MESSAGES AND CONTROL
| Line S01311 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01771 M02S01311.v23l617 ---|* STATEMENTS. 01772 M01S00087.v23l617 +++|* COMMANDS. 01773 M01S01312.enquire +++| 01774 M01S01313.enquire +++| 01775 M01S01314.enquire +++| OPU SA5 BUFF+CPJW JOB STEP TIME LIMIT 01776 M01S01315.enquire +++| MX0 -15 01777 M01S01316.enquire +++| LX0 17-14 01778 M01S01317.enquire +++| LX5 30 01779 M01S01318.enquire +++| RJ CLM CONVERT 01780 M01S01319.enquire +++| SA7 UOPF+2 01781 M01S01320.enquire +++| SA5 BUFF+SRJW JOB STEP SRU LIMIT 01782 M01S01321.enquire +++| LX5 30 01783 M01S01322.enquire +++| RJ CLM CONVERT 01784 M01S01323.enquire +++| SA7 UOPG+2 01785 M01S01324.enquire +++| SA5 BUFF+STLW ACCOUNT BLOCK SRU LIMIT 01786 M01S01325.enquire +++| LX5 18 01787 M01S01326.enquire +++| RJ CLM CONVERT 01788 M01S01327.enquire +++| SA7 UOPH+2 01789 M01S01328.enquire +++| SA5 BUFF+ACLW PICK UP ACCOUNTING LIMITS WORD 01790 M01S01329.enquire +++| MX0 -12 01791 M01S01330.enquire +++| LX5 24 DAYFILE MESSAGES COUNT 01792 M01S01331.enquire +++| RJ CLM CONVERT 01793 M01S01332.enquire +++| SA7 UOPB+2
| Line S01333 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01794 M02S01333.v23l617 ---| LX5 12 CONTROL STATEMENT COUNT 01795 M01S00088.v23l617 +++| LX5 12 COMMAND COUNT 01796 M01S01334.enquire +++| RJ CLM CONVERT 01797 M01S01335.enquire +++| SA7 UOPC+2
| Line S01336 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01798 M02S01336.enqui1 ---| MX0 -6
| Line S01337 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01799 M02S01337.enqui1 ---| LX5 6 DISPOSE FILES
| Line S01338 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01800 M02S01338.enqui1 ---| RJ CLM CONVERT
| Line S01339 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01801 M02S01339.enqui1 ---| SA7 UOPD+2 01802 M01S01340.enquire +++| MX0 -15 01803 M01S01341.enquire +++| LX0 17-14
| Line S01342 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01804 M02S01342.enqui1 ---| LX5 18 MASS STORAGE PRUS 01805 M01S00003.enqui1 +++| LX5 24 MASS STORAGE PRUS 01806 M01S01343.enquire +++| RJ CLM 01807 M01S01344.enquire +++| SA7 UOPE+2 01808 M01S01345.enquire +++| WRITEW OUTPUT,UOP,UOPL 01809 M01S01346.enquire +++| EQ MAIN1 01810 M01S01347.enquire +++| 01811 M01S01348.enquire +++| 01812 M01S01349.enquire +++|* OUTPUT FORMAT FOR OP = U. 01813 M01S01350.enquire +++| 01814 M01S01351.enquire +++| UOP DATA 0 01815 M01S01352.enquire +++| UOPA DATA L* RESOURCE USAGE ALLOWED.* 01816 M01S01353.enquire +++| DATA 0 01817 M01S01354.enquire +++| UOPF DATA 20H SECONDS 01818 M01S01355.enquire +++| DATA 0 01819 M01S01356.enquire +++| UOPG DATA 20H JOB STEP SRU 01820 M01S01357.enquire +++| DATA 0 01821 M01S01358.enquire +++| UOPH DATA 20H ACCOUNT BLK SRU 01822 M01S01359.enquire +++| DATA 0 01823 M01S01360.enquire +++| UOPB DATA 20H DAYFILE MESSAGES 01824 M01S01361.enquire +++| DATA 0
| Line S01362 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01825 M02S01362.ns22000 ---| UOPC DATA 20H CONTROL STATMTS 01826 M01S00251.ns22000 +++| UOPC DATA 20H COMMANDS
| Line S01363 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01827 M02S01363.enqui1 ---| DATA 0
| Line S01364 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01828 M02S01364.enqui1 ---| UOPD DATA 20H DISPOSE FILES 01829 M01S01365.enquire +++| DATA 0 01830 M01S01366.enquire +++| UOPE DATA 20H MASS STORAGE 01831 M01S01367.enquire +++| DATA 0 01832 M01S01368.enquire +++| UOPL EQU *-UOP 01833 M01S01369.enquire +++| TITLE JSN= OPTION. 01834 M01S01370.enquire +++| PEJ SPACE 4,10 01835 M01S01371.enquire +++|** PEJ - PROCESS EQUIVALENCED JSN PARAMETER. 01836 M01S01372.enquire +++|* 01837 M01S01373.enquire +++|* ENTRY (X5) = JSN PARAMETER VALUE. 01838 M01S01374.enquire +++|* 01839 M01S01375.enquire +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 01840 M01S01376.enquire +++|* A - 1, 2, 3, 5, 6, 7. 01841 M01S01377.enquire +++|* B - 2, 4, 6, 7. 01842 M01S01378.enquire +++|*
| Line S01379 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01843 M02S01379.ns22000 ---|* CALLS CDD, CLM, COD, CSR, ESB, GJS, GSC, IPR, SFN, WCL, WML. 01844 M01S00252.ns22000 +++|* CALLS CDD, COD, CSR, ESB, GCS, GDR, GJS, GSC, IPR, SFN, 01845 M01S00253.ns22000 +++|* WCL, WML. 01846 M01S01380.enquire +++|* 01847 M01S01381.enquire +++|* MACROS WRITES, WRITEW. 01848 M01S01382.enquire +++|* 01849 M01S01383.enquire +++|* EXAMPLE OF EXECUTING JOB - 01850 M01S01384.enquire +++|* 01851 M01S01385.enquire +++|* 1 2 3 4 5 6 7 01852 M01S01386.enquire +++|* 234567890123456789012345678901234567890123456789012345678901234567890 01853 M01S01387.enquire +++|*
| Line S01388 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01854 M02S01388.ns21000 ---|* ABFB.T.TIMED/EVENT ROLLOUT UJN=MYJOBAA.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01855 M02S00019.ns22000 ---|* ABFB.T.M90.TIMED/EVENT ROLLOUT UJN=MYJOBAA. 01856 M01S00254.ns22000 +++|* ABFB.T.ON.BC.M90.T/E ROLLOUT UJN=MYJOBAA LEVEL=LVL0 01857 M01S01389.enquire +++|* SRUS= 22.057. SRU LIMIT=NO LIMIT. CM FL= 47500. ECS FL= 1000. 01858 M01S01390.enquire +++|* LABEL,TAPE,VSN=TEROLL,D=PE. (MS1W MESSAGE) 01859 M01S01391.enquire +++|* WAITING FOR TAPE/PACK MOUNT. (MS2W MESSAGE) 01860 M01S01392.enquire +++|* 01861 M01S01393.enquire +++|* DAYFILE= 01862 M01S01394.enquire +++|* (MAXIMUM OF 10 LINES OF DAYFILE) 01863 M01S01395.enquire +++|*
| Line S01396 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01864 M02S01396.v23l617 ---|* NEXT CONTROL STATEMENTS=
| Line S01397 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01865 M02S01397.v23l617 ---|* (MAXIMUM OF 10 LINES OF CONTROL STATEMENTS) 01866 M01S00089.v23l617 +++|* NEXT COMMANDS= 01867 M01S00090.v23l617 +++|* (MAXIMUM OF 10 LINES OF COMMANDS) 01868 M01S01398.enquire +++|* 01869 M01S01399.enquire +++|* EXAMPLE OF JOBS IN THE INPUT, PRINT, PLOT, PUNCH 01870 M01S01400.enquire +++|* OR WAIT QUEUE - 01871 M01S01401.enquire +++|* 01872 M01S01402.enquire +++|* 1 2 3 4 5 6 7 01873 M01S01403.enquire +++|* 234567890123456789012345678901234567890123456789012345678901234567890 01874 M01S01404.enquire +++|*
| Line S01405 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01875 M02S01405.ns21000 ---|* ADAE.B.PRINT QUEUE UJN=MYJOBAB.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01876 M02S00020.ns22000 ---|* ADAE.B.M90.PRINT QUEUE UJN=MYJOBAB. 01877 M01S00255.ns22000 +++|* ADAE.B. .BC.M90.PRINT QUEUE UJN=MYJOBAA LEVEL=LVL0 01878 M01S01406.enquire +++|* PRU LENGTH= 47. DC=LT. FC= . ID=05. EC=A9 . 01879 M01S01407.enquire +++| 01880 M01S01408.enquire +++| 01881 M01S01409.enquire +++| PEJ SUBR ENTRY/EXIT 01882 M01S01410.enquire +++| SA3 PIEJ SET PEEK INFORMATION BITS 01883 M01S01411.enquire +++| BX7 X3 01884 M01S01412.enquire +++| BX6 X5 SAVE JSN 01885 M01S01413.enquire +++| SA6 JSNM 01886 M01S01414.enquire +++| SA7 BQPF+2 01887 M01S01415.enquire +++| SA1 BQSC+2 SET JSN SELECTION CRITERIA 01888 M01S01416.enquire +++| SX2 JSSF SET JSN SELECTION BIT 01889 M01S01417.enquire +++| BX1 X1+X5 SET JSN 01890 M01S01418.enquire +++| BX6 X1+X2 01891 M01S01419.enquire +++| SA6 A1+ 01892 M01S01420.enquire +++| RJ IPR ISSUE *QAC* PEEK REQUEST 01893 M01S01421.enquire +++| NZ X1,PEJX IF JOB NOT FOUND 01894 M01S01422.enquire +++| 01895 M01S01423.enquire +++|* FORMAT LINE 1. 01896 M01S01424.enquire +++| 01897 M01S01425.enquire +++| SA1 PEJF WRITE SKELETON LINE 01898 M01S01426.enquire +++| SB7 L1JL 01899 M01S01427.enquire +++| BX6 X1 01900 M01S01428.enquire +++| RJ ESB 01901 M01S01429.enquire +++| SA1 RBUF GET REPLY ENTRY FWA 01902 M01S01430.enquire +++| MX0 24 SET JSN 01903 M01S01431.enquire +++| BX1 X0*X1 01904 M01S01432.enquire +++| RJ SFN 01905 M01S01433.enquire +++| SB6 A1+ 01906 M01S01434.enquire +++| SB7 JSJL 01907 M01S01435.enquire +++| RJ ESB 01908 M01S01436.enquire +++| RJ GSC SET SERVICE CLASS 01909 M01S01437.enquire +++| SB7 SCJL 01910 M01S01438.enquire +++| RJ ESB 01911 M01S00256.ns22000 +++| SA1 B6+7 01912 M01S00257.ns22000 +++| RJ GCS GET CONNECTION STATUS 01913 M01S00258.ns22000 +++| SB7 CNJL 01914 M01S00259.ns22000 +++| RJ ESB 01915 M01S00260.ns22000 +++| SA1 B6+4 GET DESTINATION ROUTING 01916 M01S00261.ns22000 +++| RJ GDR 01917 M01S00262.ns22000 +++| SB7 DSJL 01918 M01S00263.ns22000 +++| RJ ESB 01919 M01S00021.ns21000 +++| SA1 BQPF+1 GET LID 01920 M01S00022.ns21000 +++| MX0 -12 01921 M01S00023.ns21000 +++| BX1 -X0*X1
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01922 M02S00024.ns22000 ---| SB3 X1-1 01923 M01S00264.ns22000 +++| SB3 X1-2 01924 M01S00025.ns21000 +++| SA1 B6+B3 SET LID 01925 M01S00026.ns21000 +++| MX0 18 01926 M01S00027.ns21000 +++| LX1 6 01927 M01S00028.ns21000 +++| BX1 X0*X1 01928 M01S00029.ns21000 +++| RJ SFN 01929 M01S00030.ns21000 +++| SB7 LIJL 01930 M01S00031.ns21000 +++| RJ ESB
| Line S01439 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01931 M02S01439.ns22000 ---| SB4 6 SET JOB STATUS 01932 M01S00265.ns22000 +++| SB4 7 SET JOB STATUS 01933 M01S01440.enquire +++| RJ GJS 01934 M01S01441.enquire +++| SB7 STJL 01935 M01S01442.enquire +++| RJ ESB
| Line S01443 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01936 M02S01443.ns22000 ---| SA1 B6+4 SET UJN 01937 M01S00266.ns22000 +++| SA1 B6+5 SET UJN 01938 M01S01444.enquire +++| MX0 42 01939 M01S01445.enquire +++| BX1 X0*X1 01940 M01S01446.enquire +++| RJ SFN 01941 M01S01447.enquire +++| SB7 UJJL 01942 M01S01448.enquire +++| RJ ESB
| Line S01449 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01943 M02S01449.ns22000 ---| WRITEW OUTPUT,PAGE,B1 01944 M01S00267.ns22000 +++| SA1 SSFL 01945 M01S00268.ns22000 +++| NZ X1,PEJ0.1 IF SECURE SYSTEM 01946 M01S00269.ns22000 +++| SA1 L1JL DO NOT DISPLAY ACCESS LEVEL 01947 M01S00270.ns22000 +++| SX6 X1-16 01948 M01S00271.ns22000 +++| SA6 A1 01949 M01S00272.ns22000 +++| EQ PEJ0.2 OUTPUT DATA 01950 M01S00273.ns22000 +++| 01951 M01S00274.ns22000 +++| PEJ0.1 SA1 BQPF+1 GET ACCESS LEVEL 01952 M01S00275.ns22000 +++| MX0 -12 01953 M01S00276.ns22000 +++| BX1 -X0*X1 01954 M01S00277.ns22000 +++| SB3 X1-1 01955 M01S00278.ns22000 +++| SA1 B6+B3 01956 M01S00279.ns22000 +++| AX1 12 01957 M01S00280.ns22000 +++| MX0 -3 01958 M01S00281.ns22000 +++| BX1 -X0*X1 01959 M01S00282.ns22000 +++| SA1 TALV+X1 SET ACCESS LEVEL 01960 M01S00283.ns22000 +++| MX0 42 01961 M01S00284.ns22000 +++| BX1 X0*X1 01962 M01S00285.ns22000 +++| RJ SFN SPACE FILL NAME 01963 M01S00286.ns22000 +++| SB7 ALJL 01964 M01S00287.ns22000 +++| RJ ESB 01965 M01S00288.ns22000 +++| PEJ0.2 WRITEW OUTPUT,PAGE,B1 01966 M01S01450.enquire +++| SA1 L1JL GET CHARACTER COUNT 01967 M01S01451.enquire +++| SB7 X1+ 01968 M01S01452.enquire +++| WRITES OUTPUT,USBB,B7 01969 M01S01453.enquire +++| SA1 RBUF CHECK QUEUE TYPE 01970 M01S01454.enquire +++| MX0 -12 01971 M01S01455.enquire +++| LX1 -12 01972 M01S01456.enquire +++| BX6 -X0*X1 01973 M01S01457.enquire +++| SX2 X6-EXQQ 01974 M01S01458.enquire +++| SA6 PEJA SAVE QUEUE TYPE 01975 M01S01459.enquire +++| NZ X2,PEJ1 IF NOT EXECUTING QUEUE 01976 M01S01460.enquire +++| 01977 M01S01461.enquire +++|* FORMAT OUTPUT LINES FOR EXECUTING JOB. 01978 M01S01462.enquire +++| 01979 M01S01463.enquire +++| SB6 RBUF RESET REPLY ENTRY FWA 01980 M01S01464.enquire +++| SA1 PEJB WRITE SKELETON LINE 01981 M01S01465.enquire +++| BX6 X1 01982 M01S01466.enquire +++| SB7 L2JL 01983 M01S01467.enquire +++| RJ ESB
| Line S01468 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01984 M02S01468.ns22000 ---| SA2 B6+18 SET SRU ACCUMULATOR 01985 M01S00289.ns22000 +++| SA2 B6+19 01986 M01S01469.enquire +++| LX2 -18 01987 M01S01470.enquire +++| RJ CSR CONVERT SRU ACCUMULATOR 01988 M01S01471.enquire +++| SB7 SUJL 01989 M01S01472.enquire +++| RJ ESB
| Line S01473 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01990 M02S01473.ns22000 ---| SA2 B6+17 SET SRU LIMIT 01991 M01S00290.ns22000 +++| SA2 B6+18 SET SRU LIMIT 01992 M01S01474.enquire +++| LX2 -18 01993 M01S01475.enquire +++| RJ CSR CONVERT SRU LIMIT 01994 M01S01476.enquire +++| SB7 SLJL 01995 M01S01477.enquire +++| RJ ESB 01996 M01S01478.enquire +++| SA5 B6+2 GET CM FL/100B 01997 M01S01479.enquire +++| LX5 0-24 01998 M01S01480.enquire +++| MX0 -12 01999 M01S01481.enquire +++| BX1 -X0*X5 02000 M01S01482.enquire +++| LX1 6 MULTIPLY BY 100B 02001 M01S01483.enquire +++| RJ COD 02002 M01S01484.enquire +++| SB7 CFJL SET CM FL 02003 M01S01485.enquire +++| LX6 24 USE LOWER 6 CHARACTERS 02004 M01S01486.enquire +++| RJ ESB
| Line S01487 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02005 M02S01487.v23l617 ---| LX5 0-36-0+24 GET ECS FL/1000B 02006 M01S00091.v23l617 +++| LX5 0-36-0+24 GET EXTENDED MEMORY FL/1000B 02007 M01S01488.enquire +++| MX0 -12 02008 M01S01489.enquire +++| BX1 -X0*X5 02009 M01S01490.enquire +++| LX1 9 MULTIPLY BY 1000B 02010 M01S01491.enquire +++| RJ COD 02011 M01S01492.enquire +++| LX6 18 USE LOWER 7 CHARACTERS
| Line S01493 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02012 M02S01493.v23l617 ---| SB7 EFJL SET ECS FL 02013 M01S00092.v23l617 +++| SB7 EFJL SET EXTENDED MEMORY FL 02014 M01S01494.enquire +++| RJ ESB 02015 M01S01495.enquire +++| SA1 L2JL GET CHARACTER COUNT 02016 M01S01496.enquire +++| SB7 X1+ 02017 M01S01497.enquire +++| WRITES OUTPUT,USBB,B7
| Line S01498 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02018 M02S01498.ns22000 ---| SA2 RBUF+7 WRITE *MS1W* 02019 M01S00291.ns22000 +++| SA2 RBUF+8 WRITE *MS1W* 02020 M01S01499.enquire +++| RJ WML
| Line S01500 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02021 M02S01500.ns22000 ---| SA2 RBUF+13 WRITE *MS2W* 02022 M01S00292.ns22000 +++| SA2 RBUF+14 WRITE *MS2W* 02023 M01S01501.enquire +++| RJ WML
| Line S01502 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02024 M02S01502.enqui3 ---| WRITEW OUTPUT,PEJC,PEJCL WRITE DAYFILE TITLE LINE
| Line S01503 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02025 M02S01503.enqui3 ---| SA1 RBUF+19 GET WORD COUNTS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02026 M02S00001.ns22000 ---| SA1 RBUF+19 WRITE DAYFILE BUFFER 02027 M01S00293.ns22000 +++| SA1 RBUF+20 WRITE DAYFILE BUFFER 02028 M01S01504.enquire +++| MX7 -12 02029 M01S01505.enquire +++| LX1 -12
| Line S01506 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02030 M02S01506.enqui3 ---| SB6 A1+B1 FWA OF DATA 02031 M01S00002.enqui3 +++| SX0 A1+1 FWA OF DATA 02032 M01S01507.enquire +++| BX2 -X7*X1 REPLY UNIT WORD COUNT - 1 02033 M01S01508.enquire +++| LX1 -12 02034 M01S01509.enquire +++| BX5 -X7*X1 DATA WORD COUNT
| Line S01510 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02035 M02S01510.enqui3 ---| SX0 X2+B6 SAVE LWA+1 OF REPLY UNIT 02036 M01S00003.enqui3 +++| IX6 X0+X2 SAVE LWA+1 OF REPLY UNIT 02037 M01S00004.enqui3 +++| SA6 PEJG 02038 M01S00005.enqui3 +++| ZR X5,PEJ0 IF NO DATA 02039 M01S00006.enqui3 +++| WRITEW OUTPUT,PEJC,PEJCL WRITE DAYFILE TITLE LINE 02040 M01S00007.enqui3 +++| SB6 X0 02041 M01S01511.enquire +++| SB7 B0 WRITE LAST 10 DAYFILE MESSAGES 02042 M01S01512.enquire +++| RJ WCL
| Line S01513 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02043 M02S01513.enqui3 ---| SA1 X0 WRITE CONTROL STATEMENT BUFFER
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02044 M02S00008.v23l617 ---| PEJ0 SA2 PEJG WRITE CONTROL STATEMENT BUFFER 02045 M01S00093.v23l617 +++| PEJ0 SA2 PEJG WRITE COMMAND BUFFER 02046 M01S00009.enqui3 +++| SA1 X2 02047 M01S01514.enquire +++| MX7 -12 02048 M01S01515.enquire +++| SX0 A1+1 FWA OF DATA 02049 M01S01516.enquire +++| LX1 -24 02050 M01S01517.enquire +++| BX5 -X7*X1 DATA WORD COUNT 02051 M01S01518.enquire +++| ZR X5,PEJX IF NO DATA
| Line S01519 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02052 M02S01519.v23l617 ---| WRITEW OUTPUT,PEJD,PEJDL WRITE CONTROL STATEMENT TITLE LINE 02053 M01S00094.v23l617 +++| WRITEW OUTPUT,PEJD,PEJDL WRITE COMMAND TITLE LINE
| Line S01520 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02054 M02S01520.enqui3 ---| SB6 X0 WRITE CONTROL STATEMENT BUFFER 02055 M01S00010.enqui3 +++| SB6 X0
| Line S01521 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02056 M02S01521.v23l617 ---| SB7 B1 WRITE FIRST 10 CONTROL STATEMENTS 02057 M01S00095.v23l617 +++| SB7 B1 WRITE FIRST 10 COMMANDS 02058 M01S01522.enquire +++| RJ WCL 02059 M01S01523.enquire +++| EQ PEJX RETURN 02060 M01S01524.enquire +++| 02061 M01S01525.enquire +++|* FORMAT OUTPUT LINE FOR JOB IN THE INPUT, PRINT, PLOT, 02062 M01S01526.enquire +++|* PUNCH OR WAIT QUEUE. 02063 M01S01527.enquire +++| 02064 M01S01528.enquire +++| PEJ1 SA1 PEJE WRITE SKELETON LINE 02065 M01S01529.enquire +++| SB7 L3JL 02066 M01S01530.enquire +++| BX6 X1 02067 M01S01531.enquire +++| RJ ESB 02068 M01S01532.enquire +++| SB6 RBUF
| Line S01533 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02069 M02S01533.ns22000 ---| SA1 B6+5 SET FILE LENGTH 02070 M01S00294.ns22000 +++| SA1 B6+6 SET FILE LENGTH 02071 M01S01534.enquire +++| MX0 -24 02072 M01S01535.enquire +++| LX1 24 02073 M01S01536.enquire +++| SB7 PLJL 02074 M01S01537.enquire +++| BX1 -X0*X1 02075 M01S01538.enquire +++| RJ CDD 02076 M01S01539.enquire +++| LX6 12 USE LOWER 8 CHARACTERS 02077 M01S01540.enquire +++| RJ ESB 02078 M01S01541.enquire +++| SA5 B6+B1 SET FORMS CODE 02079 M01S01542.enquire +++| MX0 12 02080 M01S01543.enquire +++| LX5 59-47 02081 M01S01544.enquire +++| BX6 X0*X5 02082 M01S01545.enquire +++| ZR X6,PEJ2 IF FORMS CODE NOT SPECIFIED 02083 M01S01546.enquire +++| SB7 FCJL 02084 M01S01547.enquire +++| RJ ESB 02085 M01S01548.enquire +++| PEJ2 LX5 59-35-59+47 SET DISPOSITION CODE 02086 M01S01549.enquire +++| MX0 12 02087 M01S01550.enquire +++| BX6 X0*X5 02088 M01S01551.enquire +++| ZR X6,PEJ3 IF DISPOSITION CODE NOT SPECIFIED 02089 M01S01552.enquire +++| SB7 DCJL 02090 M01S01553.enquire +++| RJ ESB 02091 M01S01554.enquire +++| PEJ3 SA1 PEJA GET QUEUE TYPE 02092 M01S01555.enquire +++| MX0 18 02093 M01S01556.enquire +++| SA2 QTEC SEARCH FOR MATCHING QUEUE TYPE 02094 M01S01557.enquire +++| PEJ4 ZR X2,PEJ5 IF END OF TABLE 02095 M01S01558.enquire +++| BX3 X0*X2 02096 M01S01559.enquire +++| LX3 18 02097 M01S01560.enquire +++| IX3 X1-X3 02098 M01S01561.enquire +++| SB2 X2 ADDRESS OF EXTERNAL CHARACTERISTICS TABLE 02099 M01S01562.enquire +++| SA2 A2+B1 02100 M01S01563.enquire +++| NZ X3,PEJ4 IF NOT MATCH 02101 M01S01564.enquire +++| LX5 0-21-59+35 GET EXTERNAL CHARACTERISTICS 02102 M01S01565.enquire +++| MX0 -3 02103 M01S01566.enquire +++| BX1 -X0*X5 02104 M01S01567.enquire +++| SB7 ECJL SET EXTERNAL CHARACTERISTICS 02105 M01S01568.enquire +++| SA2 X1+B2 INDEX INTO TABLE 02106 M01S01569.enquire +++| BX6 X2 02107 M01S01570.enquire +++| RJ ESB 02108 M01S01571.enquire +++| PEJ5 SA1 B6+3 SET DESTINATION BATCH DEVICE ID 02109 M01S01572.enquire +++| MX0 -6 02110 M01S01573.enquire +++| LX1 -12 02111 M01S01574.enquire +++| BX1 -X0*X1 02112 M01S01575.enquire +++| RJ COD 02113 M01S01576.enquire +++| LX6 -12 USE LOWER 2 CHARACTERS 02114 M01S01577.enquire +++| SB7 IDJL 02115 M01S01578.enquire +++| RJ ESB 02116 M01S01579.enquire +++| SA1 L3JL GET CHARACTER COUNT 02117 M01S01580.enquire +++| SB7 X1+ 02118 M01S01581.enquire +++| WRITES OUTPUT,USBB,B7 02119 M01S01582.enquire +++| EQ PEJX RETURN 02120 M01S01583.enquire +++| 02121 M01S01584.enquire +++| 02122 M01S01585.enquire +++| PEJA CON 0 QUEUE TYPE 02123 M01S01586.enquire +++| 02124 M01S01587.enquire +++| PEJB DATA L* SRUS= . SRU LIMIT= . CM FL= .
| Line S01588 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02125 M02S01588.v23l617 ---|, ECS FL= .* 02126 M01S00096.v23l617 +++|, EM FL= .* 02127 M01S01589.enquire +++| 02128 M01S01590.enquire +++| PEJC DATA 0 02129 M01S01591.enquire +++| DATA L* DAYFILE= * 02130 M01S01592.enquire +++| PEJCL EQU *-PEJC LENGTH OF DAYFILE HEADER LINE 02131 M01S01593.enquire +++| 02132 M01S01594.enquire +++| PEJD DATA 0
| Line S01595 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02133 M02S01595.ns22000 ---| DATA L* NEXT CONTROL STATEMENTS=* 02134 M01S00295.ns22000 +++| DATA C* PENDING COMMANDS =*
| Line S01596 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02135 M02S01596.v23l617 ---| PEJDL EQU *-PEJD LENGTH OF CONTROL STATEMENT HEADER LINE 02136 M01S00097.v23l617 +++| PEJDL EQU *-PEJD LENGTH OF COMMAND HEADER LINE 02137 M01S01597.enquire +++| 02138 M01S01598.enquire +++| PEJE DATA L* PRU LENGTH= . DC= . FC= . ID= . EC= 02139 M01S01599.enquire +++|, .* 02140 M01S01600.enquire +++|
| Line S01601 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02141 M02S01601.ns21000 ---| PEJF DATA L* . . UJN= .*
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02142 M02S00032.ns22000 ---| PEJF DATA L* . . . UJN= .* 02143 M01S00296.ns22000 +++| PEJF DATA L* . . . . . UJN= 02144 M01S00297.ns22000 +++|, LEVEL= * 02145 M01S00011.enqui3 +++| 02146 M01S00012.enqui3 +++| PEJG CON 0 LWA+1 OF REPLY UNIT 02147 M01S01602.enquire +++| TITLE JSN OPTION. 02148 M01S01603.enquire +++| PJS SPACE 4,10 02149 M01S01604.enquire +++|** PJS - PROCESS JSN PARAMETER. 02150 M01S01605.enquire +++|* 02151 M01S01606.enquire +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 02152 M01S01607.enquire +++|* A - 1, 2, 3, 6, 7. 02153 M01S01608.enquire +++|* B - 4, 6, 7. 02154 M01S01609.enquire +++|*
| Line S01610 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02155 M02S01610.ns22000 ---|* CALLS BFB, CFP, ESB, GJS, GSC, IPR, RRB, SFN. 02156 M01S00298.ns22000 +++|* CALLS BFB, CFP, ESB, GCS, GDR, GJS, GSC, IPR, RRB, SFN. 02157 M01S01611.enquire +++|* 02158 M01S01612.enquire +++|* MACROS WRITES. 02159 M01S01613.enquire +++|* 02160 M01S01614.enquire +++|* DEFINE (X5) = INCOMPLETE LINE FLAG. 02161 M01S01615.enquire +++|* .EQ. 1, PARTIAL LINE WRITTEN. 02162 M01S01616.enquire +++|* .NE. 1, COMPLETE LINE WRITTEN. 02163 M01S01617.enquire +++|* 02164 M01S01618.enquire +++|* EXAMPLE - 02165 M01S01619.enquire +++|* 02166 M01S01620.enquire +++|* 1 2 3 4 5 6 7 02167 M01S01621.enquire +++|* 234567890123456789012345678901234567890123456789012345678901234567890 02168 M01S01622.enquire +++|*
| Line S01623 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02169 M02S01623.ns21000 ---|* JSN SC STATUS JSN SC STATUS
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02170 M02S00033.ns22000 ---|* JSN SC LID STATUS JSN SC LID STATUS
| Line S01624 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02171 M02S01624.ns22000 ---|*
| Line S01625 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
M03 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02172 M03S01625.ns22000 ---|* ABFB.D.PRINT QUEUE ABAB.T.TIMED/EVENT ROLLOUT
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02173 M02S00034.ns22000 ---|* ABFB.D.M90.PRINT QUEUE ABAB.T.M90.TIMED/EVENT ROLLOUT 02174 M01S00299.ns22000 +++|* JSN SC CS DS LID STATUS JSN SC CS DS LID STATUS 02175 M01S00300.ns22000 +++|* 02176 M01S00301.ns22000 +++|* ABFB.D. .RB.M90.PRINT QUEUE ABAB.T.ON.BC.M90.EXECUTING 02177 M01S01626.enquire +++| 02178 M01S01627.enquire +++| 02179 M01S01628.enquire +++| PJS SUBR ENTRY/EXIT 02180 M01S01629.enquire +++| SA1 PIJS SET PEEK INFORMATION BITS
| Line S01630 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02181 M02S01630.ns22000 ---| SX6 LINP-3 FORCE PAGE EJECT 02182 M01S00302.ns22000 +++| SX6 99999 FORCE EJECT 02183 M01S01631.enquire +++| BX5 X5-X5 SET LINE COMPLETE 02184 M01S01632.enquire +++| SA6 LCT 02185 M01S01633.enquire +++| BX7 X1 02186 M01S01634.enquire +++| SA7 BQPF+2 02187 M01S01635.enquire +++| PJS1 RJ IPR ISSUE PEEK REQUEST 02188 M01S01636.enquire +++| NZ X1,PJS5 IF NO JOBS FOUND 02189 M01S01637.enquire +++| NZ X5,PJS3 IF INCOMPLETE LINE 02190 M01S01638.enquire +++| PJS2 SB6 PJSA CHECK FOR PAGE LIMIT 02191 M01S01639.enquire +++| RJ BFB INITIALIZE BUFFER 02192 M01S01640.enquire +++| SB7 PJSAL 02193 M01S01641.enquire +++| RJ CFP 02194 M01S01642.enquire +++| PJS3 SA1 BQAC+3 GET NEXT ENTRY 02195 M01S01643.enquire +++| SB6 X1 GET *OUT* POINTER 02196 M01S01644.enquire +++| MX0 24 02197 M01S01645.enquire +++| SA1 B6 GET JSN 02198 M01S01646.enquire +++| BX1 X0*X1 02199 M01S01647.enquire +++| RJ SFN 02200 M01S01648.enquire +++| SB7 JSJL+X5 SET JSN IN BUFFER 02201 M01S01649.enquire +++| RJ ESB 02202 M01S01650.enquire +++| SX6 1R. 02203 M01S01651.enquire +++| SA6 B7+ 02204 M01S01652.enquire +++| RJ GSC GET SERVICE CLASS 02205 M01S01653.enquire +++| SB7 SCJL+X5 SET SERVICE CLASS IN BUFFER 02206 M01S01654.enquire +++| RJ ESB 02207 M01S01655.enquire +++| SX6 1R.
| Line S01656 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02208 M02S01656.ns21000 ---| SB4 B1+B1 02209 M01S01657.enquire +++| SA6 B7 02210 M01S00303.ns22000 +++| SA1 B6+3 02211 M01S00304.ns22000 +++| RJ GCS GET CONNECTION STATUS 02212 M01S00305.ns22000 +++| SB7 CNJL+X5 02213 M01S00306.ns22000 +++| RJ ESB 02214 M01S00307.ns22000 +++| SX6 1R. 02215 M01S00308.ns22000 +++| SA6 B7
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02216 M02S00035.ns22000 ---| SA1 B6+3 GET LID 02217 M01S00309.ns22000 +++| SA1 B6+2 02218 M01S00310.ns22000 +++| RJ GDR GET DESTINATION ROUTING 02219 M01S00311.ns22000 +++| SB7 DSJL+X5 02220 M01S00312.ns22000 +++| RJ ESB 02221 M01S00313.ns22000 +++| SX6 1R. 02222 M01S00314.ns22000 +++| SA6 B7+ 02223 M01S00315.ns22000 +++| SA1 B6+4 GET LID 02224 M01S00036.ns21000 +++| MX0 18 02225 M01S00037.ns21000 +++| LX1 6 02226 M01S00038.ns21000 +++| BX1 X0*X1 02227 M01S00039.ns21000 +++| RJ SFN 02228 M01S00040.ns21000 +++| SB7 LIJL+X5 SET LID IN BUFFER 02229 M01S00041.ns21000 +++| RJ ESB 02230 M01S00042.ns21000 +++| SX6 1R.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02231 M02S00043.ns22000 ---| SB4 B1+B1 02232 M01S00316.ns22000 +++| SB4 3 02233 M01S00044.ns21000 +++| SA6 B7 02234 M01S01658.enquire +++| RJ GJS GET JOB STATUS 02235 M01S01659.enquire +++| SB7 STJL+X5 SET JOB STATUS IN BUFFER 02236 M01S01660.enquire +++| RJ ESB 02237 M01S01661.enquire +++| MX0 -12 02238 M01S01662.enquire +++| SA1 BQPF+1 ADVANCE *OUT* POINTER 02239 M01S01663.enquire +++| BX1 -X0*X1 PEEK REPLY ENTRY LENGTH 02240 M01S01664.enquire +++| SA2 BQAC+3 02241 M01S01665.enquire +++| SA3 A2-B1 GET *IN* POINTER 02242 M01S01666.enquire +++| IX6 X1+X2 02243 M01S01667.enquire +++| IX3 X6-X3 CALCULATE *OUT* - *IN* 02244 M01S01668.enquire +++| SX5 X5+B1 02245 M01S01669.enquire +++| ZR X3,PJS4 IF REPLY BUFFER EMPTY 02246 M01S01670.enquire +++| SA6 A2 02247 M01S01671.enquire +++| SB7 X5 02248 M01S01672.enquire +++| EQ B7,B1,PJS3 IF INCOMPLETE LINE 02249 M01S01673.enquire +++| WRITES OUTPUT,USBB,MXLL 02250 M01S01674.enquire +++| BX5 X5-X5 02251 M01S01675.enquire +++| EQ PJS2 PROCESS NEXT ENTRY 02252 M01S01676.enquire +++| 02253 M01S01677.enquire +++| PJS4 RJ RRB RESET *QAC* REQUEST BUFFER
| Line S01678 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 02254 M02S01678.enqui9 ---| NZ X1,PJS1 IF MORE QUEUES TO SCAN 02255 M01S00007.enqui9 +++| NZ X1,PJS6 IF MORE QUEUES TO SCAN 02256 M01S01679.enquire +++| PJS5 ZR X5,PJSX IF LINE ALREADY WRITTEN 02257 M01S01680.enquire +++| WRITES OUTPUT,USBB,MXLL 02258 M01S01681.enquire +++| EQ PJSX RETURN 02259 M01S00008.enqui9 +++| 02260 M01S00009.enqui9 +++| PJS6 ZR X5,PJS1 IF LINE ALREADY WRITTEN 02261 M01S00010.enqui9 +++| WRITES OUTPUT,USBB,MXLL 02262 M01S00011.enqui9 +++| SX5 B0+ 02263 M01S00012.enqui9 +++| EQ PJS1 PROCESS NEXT BUFFER 02264 M01S01682.enquire +++| 02265 M01S01683.enquire +++|
| Line S01684 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02266 M02S01684.ns21000 ---| PJSA DATA L* JSN SC STATUS JSN SC STATUS*
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02267 M02S00045.ns22000 ---| PJSA DATA L* JSN SC LID STATUS JSN SC LID STATUS* 02268 M01S00317.ns22000 +++| PJSA DATA L* JSN SC CS DS LID STATUS JSN SC CS * 02269 M01S00318.ns22000 +++| DATA L*DS LID STATUS* 02270 M01S01685.enquire +++| DATA 0 02271 M01S01686.enquire +++| PJSAL EQU *-PJSA LENGTH OF PAGE HEADER 02272 M01S01687.enquire +++| TITLE UJN OPTION. 02273 M01S01688.enquire +++| PUJ SPACE 4,10 02274 M01S01689.enquire +++|** PUJ - PROCESS UJN PARAMETER. 02275 M01S01690.enquire +++|* 02276 M01S01691.enquire +++|* ENTRY (X5) = UJN PARAMETER WORD. 02277 M01S01692.enquire +++|* 02278 M01S01693.enquire +++|* USES X - 0, 1, 2, 3, 6, 7. 02279 M01S01694.enquire +++|* A - 1, 2, 3, 6, 7. 02280 M01S01695.enquire +++|* B - 4, 6, 7. 02281 M01S01696.enquire +++|*
| Line S01697 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02282 M02S01697.ns22000 ---|* CALLS BFB, CFP, ESB, GJS, GSC, IPR, ISM, RRB, SFN. 02283 M01S00319.ns22000 +++|* CALLS BFB, CFP, ESB, GCS, GDR, GJS, GSC, IPR, ISM, RRB, 02284 M01S00320.ns22000 +++|* SFN. 02285 M01S01698.enquire +++|*
| Line S01699 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02286 M02S01699.enqui10 ---|* MACROS REWIND, WRITES. 02287 M01S00001.enqui10 +++|* MACROS WRITES. 02288 M01S01700.enquire +++|* 02289 M01S01701.enquire +++|* EXAMPLE - 02290 M01S01702.enquire +++|* 02291 M01S01703.enquire +++|* 1 2 3 4 5 6 7 02292 M01S01704.enquire +++|* 234567890123456789012345678901234567890123456789012345678901234567890 02293 M01S01705.enquire +++|*
| Line S01706 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02294 M02S01706.ns21000 ---|* JSN SC UJN STATUS EXECUTING MESSAGE
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02295 M02S00046.ns22000 ---|* JSN SC LID UJN STATUS EXECUTING MESSAGE
| Line S01707 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02296 M02S01707.ns22000 ---|*
| Line S01708 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
M03 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02297 M03S01708.ns22000 ---|* ABFB.D.MYJOBAA EXECUTING ASSEMBLING LFM
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02298 M02S00047.ns22000 ---|* ABFB.D.M90.MYJOBAA EXECUTING ASSEMBLING LFM 02299 M01S00321.ns22000 +++|* JSN SC CS DS LID UJN STATUS EXECUTING MESSAGE 02300 M01S00322.ns22000 +++|* 02301 M01S00323.ns22000 +++|* ABFB.D.DT.BC.M90.MYJOBAA EXECUTING ASSEMBLING LFM 02302 M01S01709.enquire +++| 02303 M01S01710.enquire +++| 02304 M01S01711.enquire +++| PUJ SUBR ENTRY/EXIT 02305 M01S01712.enquire +++| MX0 42 SAVE UJN 02306 M01S01713.enquire +++| BX6 X0*X5 02307 M01S01714.enquire +++| SA6 PUJB 02308 M01S01715.enquire +++| SA6 PUJC 02309 M01S01716.enquire +++| SA1 PIUJ SET PEEK INFORMATION BITS
| Line S01717 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02310 M02S01717.ns22000 ---| SX6 LINP-3 FORCE PAGE EJECT 02311 M01S00324.ns22000 +++| SX6 99999 FORCE EJECT 02312 M01S01718.enquire +++| SA6 LCT 02313 M01S01719.enquire +++| BX7 X1 02314 M01S01720.enquire +++| SA7 BQPF+2 02315 M01S01721.enquire +++| PUJ1 RJ IPR ISSUE PEEK REQUEST
| Line S01722 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02316 M02S01722.enqui10 ---| NZ X1,PUJ8 IF NO JOBS FOUND 02317 M01S00002.enqui10 +++| NZ X1,PUJX IF NO JOBS FOUND 02318 M01S01723.enquire +++| PUJ2 SB6 PUJA CHECK FOR PAGE LIMIT 02319 M01S01724.enquire +++| SB7 PUJAL 02320 M01S01725.enquire +++| RJ CFP 02321 M01S01726.enquire +++| RJ BFB BLANK FILL STRING BUFFER 02322 M01S01727.enquire +++| SA1 BQAC+3 GET NEXT ENTRY 02323 M01S01728.enquire +++| SB6 X1+ GET *OUT* POINTER 02324 M01S01729.enquire +++| MX0 42 GET UJN
| Line S01730 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02325 M02S01730.ns22000 ---| SA1 B6+2 02326 M01S00325.ns22000 +++| SA1 B6+3 02327 M01S01731.enquire +++| BX1 X0*X1 02328 M01S01732.enquire +++| SA2 PUJB 02329 M01S01733.enquire +++| ZR X2,PUJ3 IF NOT SEARCHING FOR SPECIFIC UJN 02330 M01S01734.enquire +++| BX2 X1-X2 02331 M01S01735.enquire +++| NZ X2,PUJ7 IF NOT MATCH 02332 M01S01736.enquire +++| BX6 X6-X6 SPECIFIC UJN FOUND 02333 M01S01737.enquire +++| SA6 PUJC 02334 M01S01738.enquire +++| PUJ3 RJ SFN SPACE FILL UJN 02335 M01S01739.enquire +++| SB7 UJUL 02336 M01S01740.enquire +++| RJ ESB 02337 M01S01741.enquire +++| MX0 24 02338 M01S01742.enquire +++| SA1 B6+ GET JSN 02339 M01S01743.enquire +++| BX1 X0*X1 02340 M01S01744.enquire +++| RJ SFN 02341 M01S01745.enquire +++| SB7 JSUL SET JSN 02342 M01S01746.enquire +++| RJ ESB 02343 M01S01747.enquire +++| SX6 1R. 02344 M01S01748.enquire +++| SA6 B7+ 02345 M01S01749.enquire +++| RJ GSC GET SERVICE CLASS 02346 M01S01750.enquire +++| SB7 SCUL SET SERVICE CLASS 02347 M01S01751.enquire +++| RJ ESB 02348 M01S01752.enquire +++| SX6 1R. 02349 M01S01753.enquire +++| SA6 B7+ 02350 M01S00326.ns22000 +++| SA1 B6+4 02351 M01S00327.ns22000 +++| RJ GCS GET CONNECTION STATUS 02352 M01S00328.ns22000 +++| SB7 CNUL SET CONNECTION STATUS 02353 M01S00329.ns22000 +++| RJ ESB 02354 M01S00330.ns22000 +++| SX6 1R. 02355 M01S00331.ns22000 +++| SA6 B7+
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02356 M02S00048.ns22000 ---| SA1 B6+14D GET LID 02357 M01S00332.ns22000 +++| SA1 B6+2 02358 M01S00333.ns22000 +++| RJ GDR GET DESTINATION ROUTING 02359 M01S00334.ns22000 +++| SB7 DSUL 02360 M01S00335.ns22000 +++| RJ ESB 02361 M01S00336.ns22000 +++| SX6 1R. 02362 M01S00337.ns22000 +++| SA6 B7 02363 M01S00338.ns22000 +++| SA1 B6+15 GET LID 02364 M01S00049.ns21000 +++| MX0 18 02365 M01S00050.ns21000 +++| LX1 6 02366 M01S00051.ns21000 +++| BX1 X0*X1 02367 M01S00052.ns21000 +++| RJ SFN 02368 M01S00053.ns21000 +++| SB7 LIUL SET LID IN BUFFER 02369 M01S00054.ns21000 +++| RJ ESB 02370 M01S00055.ns21000 +++| SX6 1R. 02371 M01S00056.ns21000 +++| SA6 B7
| Line S01754 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02372 M02S01754.ns22000 ---| SB4 3 GET JOB STATUS 02373 M01S00339.ns22000 +++| SB4 4 GET JOB STATUS 02374 M01S01755.enquire +++| RJ GJS 02375 M01S01756.enquire +++| SB7 STUL SET JOB STATUS 02376 M01S01757.enquire +++| RJ ESB 02377 M01S01758.enquire +++| SB7 EMUL
| Line S01759 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02378 M02S01759.ns22000 ---| SA1 B6+11 CHECK *MS2W* 02379 M01S00340.ns22000 +++| SA1 B6+12 CHECK *MS2W* 02380 M01S01760.enquire +++| NZ X1,PUJ4 IF MESSAGE PRESENT
| Line S01761 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02381 M02S01761.ns22000 ---| SA1 B6+5 USE MESSAGE IN *MS1W* 02382 M01S00341.ns22000 +++| SA1 B6+6 USE MESSAGE IN *MS1W* 02383 M01S01762.enquire +++| PUJ4 BX6 X1 02384 M01S01763.enquire +++| RJ ESB 02385 M01S01764.enquire +++| SA1 L1UL 02386 M01S01765.enquire +++| SB7 X1+ 02387 M01S01766.enquire +++| SA2 USBB+B7 CHANGE TRAILING ZEROES TO BLANKS 02388 M01S01767.enquire +++| SX6 1R 02389 M01S01768.enquire +++| PUJ5 SA2 A2-B1 02390 M01S01769.enquire +++| NZ X2,PUJ6 IF NONZERO CHARACTER 02391 M01S01770.enquire +++| SA6 A2 02392 M01S01771.enquire +++| EQ PUJ5 CHECK NEXT CHARACTER 02393 M01S01772.enquire +++| 02394 M01S01773.enquire +++| PUJ6 WRITES OUTPUT,USBB,B7 02395 M01S01774.enquire +++| PUJ7 SA2 BQPF+1 GET PEEK REPLY ENTRY LENGTH 02396 M01S01775.enquire +++| MX0 -12 02397 M01S01776.enquire +++| BX2 -X0*X2 02398 M01S01777.enquire +++| SA1 BQAC+3 ADVANCE *OUT* POINTER 02399 M01S01778.enquire +++| SA3 A1-B1 02400 M01S01779.enquire +++| IX6 X2+X1 02401 M01S01780.enquire +++| IX3 X6-X3 CALCULATE *OUT* - *IN* 02402 M01S01781.enquire +++| SA6 A1 02403 M01S01782.enquire +++| NZ X3,PUJ2 IF MORE ENTRIES IN REPLY BUFFER 02404 M01S01783.enquire +++| RJ RRB RESET REQUEST BUFFER 02405 M01S01784.enquire +++| NZ X1,PUJ1 IF MORE QUEUES TO SCAN
| Line S01785 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02406 M02S01785.enqui10 ---| PUJ8 SA1 PUJC 02407 M01S00003.enqui10 +++| SA1 PUJC 02408 M01S01786.enquire +++| ZR X1,PUJX IF NOT SEARCHING FOR UJN
| Line S01787 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02409 M02S01787.enqui10 ---| REWIND OUTPUT,R 02410 M01S00004.enqui10 +++| SA1 PUJB GET UJN 02411 M01S00005.enqui10 +++| RJ SFN 02412 M01S00006.enqui10 +++| SB7 UJUL SET UJN 02413 M01S00007.enqui10 +++| RJ ESB 02414 M01S00008.enqui10 +++| SA1 PUJD 02415 M01S00009.enqui10 +++| BX6 X1 02416 M01S00010.enqui10 +++| SB7 STUL SET JOB STATUS 02417 M01S00011.enqui10 +++| RJ ESB 02418 M01S00012.enqui10 +++| SA1 L1UL 02419 M01S00013.enqui10 +++| SB7 X1 02420 M01S00014.enqui10 +++| WRITES OUTPUT,USBB,B7 02421 M01S01788.enquire +++| SA1 PUJB 02422 M01S01789.enquire +++| SA2 EMSD * UJN NOT FOUND.* 02423 M01S01790.enquire +++| RJ ISM ISSUE ERROR MESSAGE 02424 M01S01791.enquire +++| EQ PUJX RETURN 02425 M01S01792.enquire +++| 02426 M01S01793.enquire +++|
| Line S01794 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02427 M02S01794.ns21000 ---| PUJA DATA L* JSN SC UJN STATUS EXECUTING MESSA
| Line S01795 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02428 M02S01795.ns21000 ---|,GE*
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02429 M02S00057.ns22000 ---| PUJA DATA L* JSN SC LID UJN STATUS EXECUTIN*
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02430 M02S00058.ns22000 ---| DATA L*G MESSAGE* 02431 M01S00342.ns22000 +++| PUJA DATA L* JSN SC CS DS LID UJN STATUS EXECUT* 02432 M01S00343.ns22000 +++| DATA L*ING MESSAGE* 02433 M01S01796.enquire +++| DATA 0 02434 M01S01797.enquire +++| PUJAL EQU *-PUJA LENGTH OF PAGE HEADER 02435 M01S01798.enquire +++| 02436 M01S01799.enquire +++| PUJB CON 0 UJN TO SEARCH FOR 02437 M01S01800.enquire +++| PUJC CON 0 SEARCHING FOR UJN FLAG 02438 M01S00015.enqui10 +++| PUJD DATA L*NOT FOUND * 02439 M01S01801.enquire +++| TITLE SUBROUTINES. 02440 M01S01802.enquire +++| BFB SPACE 4,10 02441 M01S01803.enquire +++|** BFB - BLANK FILL STRING BUFFER. 02442 M01S01804.enquire +++|* 02443 M01S01805.enquire +++|* EXIT (USBB) = STRING BUFFER BLANK FILLED. 02444 M01S01806.enquire +++|* 02445 M01S01807.enquire +++|* USES X - 1, 6. 02446 M01S01808.enquire +++|* A - 1, 6. 02447 M01S01809.enquire +++|* B - 2. 02448 M01S01810.enquire +++| 02449 M01S01811.enquire +++| 02450 M01S01812.enquire +++| BFB SUBR ENTRY/EXIT 02451 M01S01813.enquire +++| SA1 USBB 02452 M01S01814.enquire +++| SB2 USBBL 02453 M01S01815.enquire +++| SX6 1R 02454 M01S01816.enquire +++| BFB1 SA6 A1 02455 M01S01817.enquire +++| SB2 B2-B1 02456 M01S01818.enquire +++| SA1 A1+1 02457 M01S01819.enquire +++| NZ B2,BFB1 IF NOT END OF BUFFER 02458 M01S01820.enquire +++| EQ BFBX RETURN 02459 M01S01821.enquire +++| CFP SPACE 4,15 02460 M01S01822.enquire +++|** CFP - CHECK FOR END OF PAGE. 02461 M01S01823.enquire +++|* 02462 M01S01824.enquire +++|* ENTRY (B6) = FWA OF PAGE HEADER. 02463 M01S01825.enquire +++|* (B7) = LENGTH OF PAGE HEADER (WORDS). 02464 M01S01826.enquire +++|* (LCT) = CURRENT LINE COUNT. 02465 M01S00344.ns22000 +++|* (LLM) = CURRENT PAGE SIZE. 02466 M01S01827.enquire +++|* 02467 M01S01828.enquire +++|* EXIT LINE COUNT UPDATED. 02468 M01S01829.enquire +++|* NEW PAGE HEADER WRITTEN IF END OF PAGE. 02469 M01S01830.enquire +++|* 02470 M01S01831.enquire +++|* USES X - 1, 2, 6, 7. 02471 M01S01832.enquire +++|* A - 1, 2, 6, 7. 02472 M01S01833.enquire +++|* 02473 M01S01834.enquire +++|* MACROS WRITEW. 02474 M01S01835.enquire +++| 02475 M01S01836.enquire +++| 02476 M01S01837.enquire +++| CFP SUBR ENTRY/EXIT 02477 M01S01838.enquire +++| SA1 LCT INCREMENT LINE COUNT 02478 M01S01839.enquire +++| SX6 X1+B1 02479 M01S01840.enquire +++| SA6 A1
| Line S01841 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02480 M02S01841.ns22000 ---| SX7 X1-LINP+3
| Line S01842 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02481 M02S01842.ns22000 ---| NZ X7,CFPX IF NOT END OF PAGE 02482 M01S00345.ns22000 +++| SA2 LLM GET LINE LIMIT 02483 M01S00346.ns22000 +++| IX1 X1-X2 02484 M01S00347.ns22000 +++| SX7 X1+4 02485 M01S00348.ns22000 +++| NG X7,CFPX IF NOT END OF PAGE 02486 M01S00349.ns22000 +++| MX7 0 02487 M01S01843.enquire +++| SA7 A1 RESET LINE COUNT
| Line S01844 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui13 |
Seq # *Modification Id* Act ----------------------------+ 02488 M02S01844.enqui13 ---| SX6 B6 SAVE FWA OF PAGE HEADER 02489 M01S00001.enqui13 +++| SA1 PUJB 02490 M01S00002.enqui13 +++| ZR X1,CFP1 IF NOT SEARCHING FOR SPECIFIC UJN 02491 M01S00003.enqui13 +++| SA1 CFPA 02492 M01S00004.enqui13 +++| NZ X1,CFPX IF FWA OF PAGE HEADER ALREADY SET 02493 M01S00005.enqui13 +++| CFP1 SX6 B6 SAVE FWA OF PAGE HEADER 02494 M01S01845.enquire +++| SA6 CFPA 02495 M01S01846.enquire +++| SX7 B7+ SAVE LENGTH OF PAGE HEADER 02496 M01S01847.enquire +++| SA7 CFPC 02497 M01S01848.enquire +++| WRITEW OUTPUT,PAGE,B1 WRITE NEW PAGE HEADER 02498 M01S01849.enquire +++| SA1 CFPA 02499 M01S01850.enquire +++| SA2 CFPC 02500 M01S01851.enquire +++| WRITEW OUTPUT,X1,X2 02501 M01S01852.enquire +++| EQ CFPX RETURN 02502 M01S01853.enquire +++| 02503 M01S01854.enquire +++| 02504 M01S01855.enquire +++| CFPA CON 0 FWA OF PAGE HEADER 02505 M01S01856.enquire +++| CFPC CON 0 LENGTH OF PAGE HEADER 02506 M01S01857.enquire +++| CIH SPACE 4,10 02507 M01S01858.enquire +++|** CIH - COMPUTE USER INDEX HASH. 02508 M01S01859.enquire +++|* 02509 M01S01860.enquire +++|* ENTRY (X7) = 18 BIT USER INDEX (RIGHT JUSTIFIED). 02510 M01S01861.enquire +++|* 02511 M01S01862.enquire +++|* EXIT (X7) = 4 CHARACTER USER INDEX HASH (LEFT JUSTIFIED 02512 M01S01863.enquire +++|* WITH ZERO FILL). 02513 M01S01864.enquire +++|* 02514 M01S01865.enquire +++|* USES X - 0, 1, 2, 3, 7. 02515 M01S01866.enquire +++|* B - 2, 3. 02516 M01S01867.enquire +++| 02517 M01S01868.enquire +++| 02518 M01S01869.enquire +++| CIH SUBR ENTRY/EXIT 02519 M01S01870.enquire +++| SB2 59-11 INITIAL SHIFT COUNT 02520 M01S01871.enquire +++| SB3 5 02521 M01S01872.enquire +++| MX0 -5 02522 M01S01873.enquire +++| LX3 B2,X7 BITS 12-16 OF USER INDEX 02523 M01S01874.enquire +++| BX2 -X0*X3 FIRST CHARACTER OF HASH 02524 M01S01875.enquire +++| SX2 X2+B1 02525 M01S01876.enquire +++| LX2 6 02526 M01S01877.enquire +++| SB2 B2+B3 SHIFT COUNT FOR SECOND CHARACTER 02527 M01S01878.enquire +++| LX3 B2,X7 BITS 7-11 OF USER INDEX 02528 M01S01879.enquire +++| BX1 -X0*X3 SECOND CHARACTER OF HASH 02529 M01S01880.enquire +++| SX1 X1+B1 02530 M01S01881.enquire +++| BX2 X2+X1 02531 M01S01882.enquire +++| LX2 6 02532 M01S01883.enquire +++| SB2 B2+B3 SHIFT COUNT FOR THIRD CHARACTER 02533 M01S01884.enquire +++| LX3 B2,X7 BITS 2-6 OF USER INDEX 02534 M01S01885.enquire +++| BX1 -X0*X3 THIRD CHARACTER OF HASH 02535 M01S01886.enquire +++| SX1 X1+B1 02536 M01S01887.enquire +++| BX2 X2+X1 02537 M01S01888.enquire +++| LX2 6 02538 M01S01889.enquire +++| MX0 -2 FOURTH CHARACTER OF HASH 02539 M01S01890.enquire +++| BX1 -X0*X7 BITS 1-0 OF USER INDEX 02540 M01S01891.enquire +++| LX1 3 02541 M01S01892.enquire +++| SX1 X1+B1 02542 M01S01893.enquire +++| BX7 X2+X1 02543 M01S01894.enquire +++| LX7 59-23 LEFT JUSTIFY USER INDEX HASH 02544 M01S01895.enquire +++| EQ CIHX EXIT 02545 M01S01896.enquire +++| CLM SPACE 4,15 02546 M01S01897.enquire +++|** CLM - CHECK AND CONVERT LIMIT. 02547 M01S01898.enquire +++|* 02548 M01S01899.enquire +++|* ENTRY (X5) = VALUE TO CONVERT. 02549 M01S01900.enquire +++|* (X0) = MASK. 02550 M01S01901.enquire +++|* 02551 M01S01902.enquire +++|* EXIT (X6) = CONVERTED VALUE, RIGHT JUSTIFIED. 02552 M01S01903.enquire +++|* (X7) = CONVERTED VALUE, LEFT JUSTIFIED. 02553 M01S01904.enquire +++|* 02554 M01S01905.enquire +++|* USES A - 2. 02555 M01S01906.enquire +++|* X - 1, 2, 3, 6, 7. 02556 M01S01907.enquire +++|* 02557 M01S01908.enquire +++|* CALLS CDD. 02558 M01S01909.enquire +++| 02559 M01S01910.enquire +++| 02560 M01S01911.enquire +++| CLM SUBR ENTRY/EXIT 02561 M01S01912.enquire +++| SA2 =L*NO LIMIT* 02562 M01S01913.enquire +++| BX1 -X0*X5 02563 M01S01914.enquire +++| BX3 X0+X1 02564 M01S01915.enquire +++| BX7 X2 02565 M01S01916.enquire +++| LX2 -12 02566 M01S01917.enquire +++| BX6 X2 02567 M01S01918.enquire +++| ZR X3,CLMX IF NO LIMIT 02568 M01S01919.enquire +++| MX3 57 COMPLETE MASK (ADD BITS 2-0) 02569 M01S01920.enquire +++| BX3 X3*X0 02570 M01S01921.enquire +++| BX1 -X3*X5 02571 M01S01922.enquire +++| RJ CDD CONVERT TO DECIMAL DISPLAY 02572 M01S01923.enquire +++| MX3 42 INSURE END OF LINE 02573 M01S01924.enquire +++| BX7 X3*X4 02574 M01S01925.enquire +++| EQ CLMX RETURN 02575 M01S01926.enquire +++| CSD SPACE 4,15 02576 M01S01927.enquire +++|** CSD - CONVERT TO SIGNED DISPLAY CODE. 02577 M01S01928.enquire +++|* 02578 M01S01929.enquire +++|* ENTRY (X1) = 18-BIT VALUE TO BE CONVERTED, RIGHT JUSTIFIED. 02579 M01S01930.enquire +++|* 02580 M01S01931.enquire +++|* EXIT (X6) = SIGNED VALUE, MAXIMUM OF 6 CHARACTERS 02581 M01S01932.enquire +++|* PLUS SIGN CHARACTER. 02582 M01S01933.enquire +++|* 02583 M01S01934.enquire +++|* USES B - 5. 02584 M01S01935.enquire +++|* X - 1, 2, 3, 4, 6. 02585 M01S01936.enquire +++|* 02586 M01S01937.enquire +++|* CALLS CDD. 02587 M01S01938.enquire +++| 02588 M01S01939.enquire +++| 02589 M01S01940.enquire +++| CSD SUBR ENTRY/EXIT 02590 M01S01941.enquire +++| SB5 B0 02591 M01S01942.enquire +++| BX2 X1 02592 M01S01943.enquire +++| LX2 59-17 02593 M01S01944.enquire +++| BX3 -X2 GET COMPLEMENT 02594 M01S01945.enquire +++| PL X2,CSD1 IF NOT NEGATIVE VALUE 02595 M01S01946.enquire +++| AX3 59-17 FIND POSITIVE VALUE 02596 M01S01947.enquire +++| BX1 X3 02597 M01S01948.enquire +++| SB5 1R- SET NEGATIVE SIGN 02598 M01S01949.enquire +++| CSD1 RJ CDD CONVERT TO DISPLAY CODE 02599 M01S01950.enquire +++| ZR B5,CSD2 IF NOT A NEGATIVE VALUE 02600 M01S01951.enquire +++| SX3 B5 ADD SIGN TO VALUE 02601 M01S01952.enquire +++| AX4 6 02602 M01S01953.enquire +++| MX2 6 CLEAR UPPER 6 BITS 02603 M01S01954.enquire +++| BX4 -X2*X4 02604 M01S01955.enquire +++| LX3 54 02605 M01S01956.enquire +++| BX4 X4+X3 02606 M01S01957.enquire +++| CSD2 MX1 48 02607 M01S01958.enquire +++| BX6 X1*X4 02608 M01S01959.enquire +++| EQ CSDX RETURN 02609 M01S01960.enquire +++| CSR SPACE 4,10 02610 M01S01961.enquire +++|** CSR - CONVERT SRU-S. 02611 M01S01962.enquire +++|* 02612 M01S01963.enquire +++|* ENTRY (X2) = SRU VALUE (MICRO-UNITS*10). 02613 M01S01964.enquire +++|* 02614 M01S01965.enquire +++|* EXIT (X6) = F10.3 FORMAT VALUE. 02615 M01S01966.enquire +++|* = *NO LIMIT*, IF SRU VALUE .EQ. -0. 02616 M01S01967.enquire +++|* 02617 M01S01968.enquire +++|* USES X - 0, 1, 3, 6. 02618 M01S01969.enquire +++|* A - 3. 02619 M01S01970.enquire +++|* 02620 M01S01971.enquire +++|* CALLS CFD. 02621 M01S01972.enquire +++| 02622 M01S01973.enquire +++| 02623 M01S01974.enquire +++| CSR1 SA3 =L*NO LIMIT* 02624 M01S01975.enquire +++| BX6 X3 02625 M01S01976.enquire +++| 02626 M01S01977.enquire +++| CSR SUBR ENTRY/EXIT 02627 M01S01978.enquire +++| MX0 -42 02628 M01S01979.enquire +++| BX1 -X0*X2 02629 M01S01980.enquire +++| BX3 X0+X1 02630 M01S01981.enquire +++| ZR X3,CSR1 IF NO LIMIT 02631 M01S01982.enquire +++| SA3 MLPY SRU CONSTANT (=.0001) 02632 M01S01983.enquire +++| PX1 X1 02633 M01S01984.enquire +++| FX1 X3*X1 SRU/10000 02634 M01S01985.enquire +++| RJ CFD CONVERT TO F10.3 FORMAT 02635 M01S01986.enquire +++| EQ CSRX RETURN 02636 M01S00002.enqui14 +++| DTT SPACE 4,10 02637 M01S00003.enqui14 +++|** DTT - DETERMINE TIME UNTIL TIMEOUT. 02638 M01S00004.enqui14 +++|* 02639 M01S00005.enqui14 +++|* ENTRY (X1) = SCHEDULING FIELD FROM *QAC* BLOCK, 02640 M01S00006.enqui14 +++|* RIGHT-JUSTIFIED. 02641 M01S00007.enqui14 +++|* 02642 M01S00008.enqui14 +++|* EXIT (SUSM) = UPDATED WITH NEW TIME. 02643 M01S00009.enqui14 +++|* 02644 M01S00010.enqui14 +++|* USES X - 1, 2, 4, 6. 02645 M01S00011.enqui14 +++|* A - 1, 6. 02646 M01S00012.enqui14 +++|* 02647 M01S00013.enqui14 +++|* CALLS CDD. 02648 M01S00014.enqui14 +++|* 02649 M01S00015.enqui14 +++|* MACROS RTIME. 02650 M01S00016.enqui14 +++| 02651 M01S00017.enqui14 +++| 02652 M01S00018.enqui14 +++| DTT SUBR ENTRY/EXIT 02653 M01S00019.enqui14 +++| MX2 -24 02654 M01S00020.enqui14 +++| BX4 -X2*X1 02655 M01S00021.enqui14 +++| RTIME DTTA 02656 M01S00022.enqui14 +++| SA1 DTTA GET SECONDS 02657 M01S00023.enqui14 +++| LX1 24 02658 M01S00024.enqui14 +++| BX1 -X2*X1 02659 M01S00025.enqui14 +++| IX4 X4-X1 SECONDS REMAINING UNTIL TIMEOUT 02660 M01S00026.enqui14 +++| SX1 X4+30 02661 M01S00027.enqui14 +++| SX4 60 02662 M01S00028.enqui14 +++| IX1 X1/X4 CONVERT SECONDS TO MINUTES 02663 M01S00029.enqui14 +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE 02664 M01S00030.enqui14 +++| SA1 SUSM 02665 M01S00031.enqui14 +++| MX2 -18 02666 M01S00032.enqui14 +++| BX6 -X2*X6 02667 M01S00033.enqui14 +++| LX2 23-17 02668 M01S00034.enqui14 +++| BX1 X2*X1 REMOVE TIME 02669 M01S00035.enqui14 +++| LX6 23-17 02670 M01S00036.enqui14 +++| BX6 X1+X6 02671 M01S00037.enqui14 +++| SA6 A1 REPLACE MINUTES REMAINING 02672 M01S00038.enqui14 +++| EQ DTTX RETURN 02673 M01S00039.enqui14 +++| 02674 M01S00040.enqui14 +++| 02675 M01S00041.enqui14 +++| DTTA DATA 0 REAL TIME 02676 M01S01987.enquire +++| ESB SPACE 4,15 02677 M01S01988.enquire +++|** ESB - ENTER DATA INTO STRING BUFFER. 02678 M01S01989.enquire +++|* 02679 M01S01990.enquire +++|* ENTRY (B7) = ADDRESS OF LINE DESCRIPTOR ENTRY. 02680 M01S01991.enquire +++|* (X6) = FIRST WORD OF DATA TO TRANSFER. 02681 M01S01992.enquire +++|* (A1) = ADDRESS OF DATA TO TRANSFER, IF MORE THAN 02682 M01S01993.enquire +++|* ONE WORD. 02683 M01S01994.enquire +++|* 02684 M01S01995.enquire +++|* EXIT (B7) = CURRENT STRING BUFFER ADDRESS. 02685 M01S01996.enquire +++|* 02686 M01S01997.enquire +++|* USES X - 0, 1, 2, 3, 6, 7. 02687 M01S01998.enquire +++|* A - 1, 2, 7. 02688 M01S01999.enquire +++|* B - 2, 3, 7. 02689 M01S02000.enquire +++| 02690 M01S02001.enquire +++| 02691 M01S02002.enquire +++| ESB SUBR ENTRY/EXIT 02692 M01S02003.enquire +++| SA2 B7+ GET NUMBER OF CHARACTERS TO TRANSFER 02693 M01S02004.enquire +++| SB2 X2 02694 M01S02005.enquire +++| LX2 -18 02695 M01S02006.enquire +++| SX3 X2 GET CHARACTER INDEX 02696 M01S02007.enquire +++| SB7 USBB+X3 SET STARTING ADDRESS IN STRING BUFFER 02697 M01S02008.enquire +++| MX0 -6 02698 M01S02009.enquire +++| ESB1 SB3 10 SET CHARACTERS PER WORD 02699 M01S02010.enquire +++| ESB2 LX6 6 02700 M01S02011.enquire +++| SB2 B2-B1 02701 M01S02012.enquire +++| BX7 -X0*X6 02702 M01S02013.enquire +++| SB3 B3-B1 02703 M01S02014.enquire +++| SA7 B7 02704 M01S02015.enquire +++| SB7 B7+B1 02705 M01S02016.enquire +++| ZR B2,ESBX IF ALL CHARACTERS TRANSFERRED 02706 M01S02017.enquire +++| NZ B3,ESB2 IF NOT END OF WORD 02707 M01S02018.enquire +++| SA1 A1+B1 02708 M01S02019.enquire +++| BX6 X1 02709 M01S02020.enquire +++| EQ ESB1 TRANSFER NEXT CHARACTER 02710 M01S00350.ns22000 +++| GCS SPACE 4,10 02711 M01S00351.ns22000 +++|** GCS - GET CONNECTION STATUS. 02712 M01S00352.ns22000 +++|* 02713 M01S00353.ns22000 +++|* ENTRY (B6) = PEEK REPLY ENTRY ADDRESS. 02714 M01S00354.ns22000 +++|* (X1) = PEEK REPLY ENTRY WORD CONTAINING CONNECTION 02715 M01S00355.ns22000 +++|* STATUS. 02716 M01S00356.ns22000 +++|* 02717 M01S00357.ns22000 +++|* EXIT (X6) = CONNECTION STATUS, LEFT JUSTIFIED. 02718 M01S00358.ns22000 +++|* 02719 M01S00359.ns22000 +++|* USES X - 0, 1, 2, 6. 02720 M01S00360.ns22000 +++|* A - 1, 2. 02721 M01S00361.ns22000 +++| 02722 M01S00362.ns22000 +++| 02723 M01S00363.ns22000 +++| GCS SUBR ENTRY/EXIT 02724 M01S00364.ns22000 +++| SA2 B6 GET QUEUE TYPE 02725 M01S00365.ns22000 +++| MX0 -12 02726 M01S00366.ns22000 +++| LX2 11-23 02727 M01S00367.ns22000 +++| BX2 -X0*X2 02728 M01S00368.ns22000 +++| SX2 X2-EXQQ 02729 M01S00369.ns22000 +++| ZR X2,GCS1 IF EXECUTING JOB 02730 M01S00370.ns22000 +++| SA1 GCSA CLEAR CONNECTION STATUS 02731 M01S00371.ns22000 +++| BX6 X1 02732 M01S00372.ns22000 +++| EQ GCSX RETURN 02733 M01S00373.ns22000 +++| 02734 M01S00374.ns22000 +++| GCS1 MX0 -4 GET CONNECTION STATUS FROM REPLY ENTRY 02735 M01S00375.ns22000 +++| LX1 0-55 02736 M01S00376.ns22000 +++| BX1 -X0*X1 02737 M01S00377.ns22000 +++| SA1 CNST+X1 GET CONNECTION STATUS TO DISPLAY 02738 M01S00378.ns22000 +++| BX6 X1 02739 M01S00379.ns22000 +++| EQ GCSX RETURN 02740 M01S00380.ns22000 +++| 02741 M01S00381.ns22000 +++| GCSA DATA 2C CONNECTION STATUS FOR QUEUED FILES 02742 M01S00382.ns22000 +++| GDR SPACE 4,10 02743 M01S00383.ns22000 +++|** GDR - GET DESTINATION ROUTING. 02744 M01S00384.ns22000 +++|* 02745 M01S00385.ns22000 +++|* ENTRY (X1) = PEEK REPLY ENTRY WORD CONTAINING THE 02746 M01S00386.ns22000 +++|* DESTINATION *FO-UI*. 02747 M01S00387.ns22000 +++|* 02748 M01S00388.ns22000 +++|* EXIT (X6) = DESTINATION ROUTING, LEFT JUSTIFIED. 02749 M01S00389.ns22000 +++|* 02750 M01S00390.ns22000 +++|* USES X - 0, 1, 2, 6. 02751 M01S00391.ns22000 +++|* A - 1. 02752 M01S00392.ns22000 +++| 02753 M01S00393.ns22000 +++| 02754 M01S00394.ns22000 +++| GDR SUBR ENTRY/EXIT 02755 M01S00395.ns22000 +++| MX0 6 02756 M01S00396.ns22000 +++| BX2 X0*X1 02757 M01S00397.ns22000 +++| NZ X2,GDR1 IF ROUTED TO REMOTE BATCH 02758 M01S00398.ns22000 +++| SA1 GDRA 02759 M01S00399.ns22000 +++| EQ GDR2 DISPLAY ROUTED TO LOCAL BATCH 02760 M01S00400.ns22000 +++| 02761 M01S00401.ns22000 +++| GDR1 SA1 GDRB DISPLAY ROUTED TO REMOTE BATCH 02762 M01S00402.ns22000 +++| GDR2 BX6 X1 02763 M01S00403.ns22000 +++| EQ GDRX RETURN 02764 M01S00404.ns22000 +++| 02765 M01S00405.ns22000 +++| GDRA DATA 2CBC ROUTED TO LOCAL BATCH 02766 M01S00406.ns22000 +++| GDRB DATA 2CRB ROUTED TO REMOTE BATCH 02767 M01S02021.enquire +++| GJS SPACE 4,15 02768 M01S02022.enquire +++|** GJS - GET JOB STATUS. 02769 M01S02023.enquire +++|* 02770 M01S02024.enquire +++|* ENTRY (B4) = EJT STATUS WORD OFFSET. 02771 M01S02025.enquire +++|* (B6) = PEEK REPLY ENTRY ADDRESS. 02772 M01S02026.enquire +++|* 02773 M01S02027.enquire +++|* EXIT (A1) = ADDRESS OF STATUS DESCRIPTOR. 02774 M01S02028.enquire +++|* (X6) = FIRST WORD OF STATUS DESCRIPTOR. 02775 M01S02029.enquire +++|*
| Line S02030 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02776 M02S02030.v23l617 ---|* ERROR TO *PSE*, IF INVALID QUEUE TYPE. 02777 M01S00098.v23l617 +++|* ERROR TO *PSE*, IF INCORRECT QUEUE TYPE. 02778 M01S02031.enquire +++|* 02779 M01S02032.enquire +++|* USES X - 0, 1, 2, 3, 4, 6. 02780 M01S02033.enquire +++|* A - 1, 2, 3. 02781 M01S00042.enqui14 +++|* 02782 M01S00043.enqui14 +++|* CALLS DTT. 02783 M01S02034.enquire +++| 02784 M01S02035.enquire +++| 02785 M01S02036.enquire +++| GJS SUBR ENTRY/EXIT
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/enquire.001.txt · Last modified: by 127.0.0.1