cdc:nos2.source:opl.opl871:deck:enquire.001
Deck ENQUIRE Part 001
28 Modifications
Listing Sections
- Deck ENQUIRE Start
- Deck ENQUIRE Part 1 (Line 1267)
- Deck ENQUIRE Part 2 (Line 2774)
Source
Seq # *Modification Id* Act ----------------------------+ 01267 M00S00892.enquire +++| SX3 A5-FBUF-RRPP 01268 M00S00893.enquire +++| ZR X2,OPD8 IF END OF RESOURCE ENTRIES 01269 M00S00894.enquire +++| NG X3,OPD1 IF MAGNETIC TAPE ENTRY
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01270 M01S00211.ns22000 +++| ZR X5,OPD8 IF END OF RESOURCE ENTRIES 01271 M00S00895.enquire +++| SA1 A5+B1 GET MAXIMUM UNIT COUNT 01272 M00S00896.enquire +++| UX1 X1,B2 01273 M00S00897.enquire +++| SA0 B2 01274 M00S00898.enquire +++| SX0 B1 RESET UNIT COUNT 01275 M00S00899.enquire +++| EQ OPD1 CONTINUE PROCESSING ENTRIES 01276 M00S00900.enquire +++| 01277 M00S00901.enquire +++| OPD7 WRITEW OUTPUT,FODC,FODD 01278 M00S00902.enquire +++|
| Line S00903 Modification History | |
|---|---|
M01 (Removed by) | enqui4 |
Seq # *Modification Id* Act ----------------------------+ 01279 M01S00903.enqui4 ---| OPD8 RETURN FILEFET
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | enqui4 |
Seq # *Modification Id* Act ----------------------------+ 01280 M01S00001.enqui4 +++| OPD8 RETURN FILEFET,R 01281 M00S00904.enquire +++| EQ MAIN1 RETURN 01282 M00S00905.enquire +++| 01283 M00S00906.enquire +++| OPDA VFD 12/0,12/1,18/MMFL,18/OPDC MMFL READ CONTROL 01284 M00S00907.enquire +++| OPDB VFD 60/0LRSXD DEMAND FILE NAME 01285 M00S00908.enquire +++| OPDC VFD 1/1,59/0 MMFL CODE 01286 M00S00909.enquire +++| 01287 M00S00910.enquire +++| 01288 M00S00911.enquire +++|* OUTPUT FORMAT FOR OP = D. 01289 M00S00912.enquire +++| 01290 M00S00913.enquire +++| 01291 M00S00914.enquire +++| FOD DATA 0 01292 M00S00915.enquire +++| DATA L* RESOURCE DEMAND INFORMATION. * 01293 M00S00916.enquire +++| DATA 0 01294 M00S00917.enquire +++| DATA L* RESOURCE DEMAND ASSIGNED * 01295 M00S00918.enquire +++| DATA 0 01296 M00S00919.enquire +++| FODA EQU *-FOD 01297 M00S00920.enquire +++| FODB DATA C* * 01298 M00S00921.enquire +++| FODL EQU *-FODB 01299 M00S00922.enquire +++| FODC DATA C* NONE.* 01300 M00S00923.enquire +++| FODD EQU *-FODC 01301 M00S00924.enquire +++| OPF TITLE F OPTION. 01302 M00S00925.enquire +++|** THE *OP=F* OPTION RETURNS TO THE USER THE FOLLOWING 01303 M00S00926.enquire +++|* INFORMATION ABOUT EACH OF HIS FILES- *FILENAME*
| Line S00927 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01304 M01S00927.ns22000 ---|* *LENGTH/PRUS* *TYPE* *STATUS*
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01305 M01S00212.ns22000 +++|* *LENGTH/PRUS* *TYPE* *STATUS* *FS* *LEVEL*. 01306 M00S00928.enquire +++| 01307 M00S00929.enquire +++|
| Line S00930 Modification History | |
|---|---|
M01 (Removed by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01308 M01S00930.enqui15 ---| OPF BX6 X6-X6 PRECLUDE FN PARAMETER PROCESSING
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01309 M01S00003.enqui15 +++| OPF BSS 0 ENTRY 01310 M01S00004.enqui15 +++| BX6 X6-X6 PRECLUDE FN PARAMETER PROCESSING 01311 M00S00931.enquire +++| SA6 TAGS+2 01312 M00S00932.enquire +++| MX7 0 CLEAR BUFFER CONTROL WORD 01313 M00S00933.enquire +++| SA7 FBUF
| Line S00934 Modification History | |
|---|---|
M01 (Removed by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01314 M01S00934.enqui15 ---| OPF0 SA1 GFNT SET GETFNT CONTROL WORD IN FET+8
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01315 M01S00005.enqui15 +++| SA1 GFNT SET GETFNT CONTROL WORD IN FET+8 01316 M00S00935.enquire +++| BX6 X1 01317 M00S00936.enquire +++| SA6 FILEFET+8 01318 M00S00937.enquire +++| GETFNT FILEFET GET FILES 01319 M00S00938.enquire +++| BX6 X6-X6 CLEAR STATUS WORD 01320 M00S00939.enquire +++| SA6 FILEFET+8
| Line S00940 Modification History | |
|---|---|
M01 (Removed by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01321 M01S00940.enqui15 ---| SA5 FBUF+1 FILE BUFFER 01322 M01S00941.enqui15 ---| SA1 FCT 01323 M01S00942.enqui15 ---| ZR X1,OPF2 IF FIRST ENTRY 01324 M01S00943.enqui15 ---| OPF1 ZR X5,OPF4 IF END OF BUFFER
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00944.enquire +++| RJ LST LIST FILE 01355 M00S00945.enquire +++|
| Line S00946 Modification History | |
|---|---|
M01 (Removed by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01356 M01S00946.enqui15 ---|* CHECK FOR FULL PAGE AND STORE FILE COUNT.
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01357 M01S00035.enqui15 +++|* CHECK FOR FULL PAGE. 01358 M00S00947.enquire +++| 01359 M00S00948.enquire +++| SA5 A5+1 NEXT FILE IN BUFFER
| Line S00949 Modification History | |
|---|---|
M01 (Removed by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01360 M01S00949.enqui15 ---| SA2 FCT FILE COUNT 01361 M01S00950.enqui15 ---| SX7 X2+B1 01362 M01S00951.enqui15 ---| SA7 A2 01363 M00S00952.enquire +++| SA1 LCT LINE COUNT 01364 M00S00953.enquire +++| SX6 X1+B1 01365 M00S00954.enquire +++| SA6 A1
| Line S00955 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01366 M01S00955.ns22000 ---| SX7 X1-LINP+6
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01370 M01S00956.enqui15 ---| NZ X7,OPF1 IF NOT END OF PAGE 01371 M01S00957.enqui15 ---| SA7 A1 01372 M01S00958.enqui15 ---| OPF2 SA1 FT TERMINAL FILE CONSTANT 01373 M01S00959.enqui15 ---| ZR X1,OPF3 IF TERMAINAL FILE 01374 M01S00960.enqui15 ---| WRITEW OUTPUT,PAGE,B1 PAGE EJECT 01375 M01S00961.enqui15 ---| OPF3 WRITEW OUTPUT,FOP,FOPA HEADER 01376 M01S00962.enqui15 ---| EQ OPF1 01377 M01S00963.enqui15 ---| 01378 M01S00964.enqui15 ---| OPF4 SA4 FBUF BUFFER CONTROL WORD 01379 M01S00965.enqui15 ---| NZ X4,OPF0 IF MORE FILES TO GET
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00966.enquire +++| 01384 M00S00967.enquire +++|* WRITE FILE COUNT MESSAGE AND EXIT. 01385 M00S00968.enquire +++|
| Line S00969 Modification History | |
|---|---|
M01 (Removed by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01386 M01S00969.enqui15 ---| SA1 FCT FILE COUNT
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | enqui15 |
Seq # *Modification Id* Act ----------------------------+ 01387 M01S00039.enqui15 +++| OPF5 SA1 FCT FILE COUNT 01388 M00S00970.enquire +++| RJ CDD CONVERT TO DISPLAY 01389 M00S00971.enquire +++| MX0 24 01390 M00S00972.enquire +++| BX6 X0*X4 01391 M00S00973.enquire +++| SA6 FOPD+1 TOTAL FILE COUNT 01392 M00S00974.enquire +++| WRITEW OUTPUT,FOPC,FOLL 01393 M00S00975.enquire +++| EQ MAIN1 RETURN 01394 M00S00976.enquire +++| 01395 M00S00977.enquire +++| 01396 M00S00978.enquire +++|* OUTPUT FORMAT FOR OP = F. 01397 M00S00979.enquire +++| 01398 M00S00980.enquire +++| 01399 M00S00981.enquire +++| FOP DATA 0 01400 M00S00982.enquire +++| DATA L* LOCAL FILE INFORMATION.* 01401 M00S00983.enquire +++| DATA 0
| Line S00984 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01402 M01S00984.ns22000 ---| DATA L* FILENAME LENGTH/PRUS TYPE STATUS FS*
| Line S00216 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01403 M01S00216.ns22000 +++| DATA L* FILENAME LENGTH/PRUS TYPE STATUS FS LEVEL* 01404 M00S00985.enquire +++| DATA 0 01405 M00S00986.enquire +++| FOPA EQU *-FOP
| Line S00987 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01406 M01S00987.ns22000 ---| FOPB DATA C* *
| Line S00217 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01407 M01S00217.ns22000 +++| FOPB DATA L* * 01408 M00S00988.enquire +++| FOPL EQU *-FOPB 01409 M00S00989.enquire +++| FOPC DATA 0 01410 M00S00990.enquire +++| FOPD DATA 10H TOTAL = 01411 M00S00991.enquire +++| DATA 0 01412 M00S00992.enquire +++| FOLL EQU *-FOPC 01413 M00S00993.enquire +++| OPJ TITLE J OPTION. 01414 M00S00994.enquire +++|** OP=*J* RETURNS TO THE USER THE CONTENTS OF HIS CONTROL 01415 M00S00995.enquire +++|* REGISTERS AND THE CONTENTS OF ERROR FLAG FIELD.
| Line S00996 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01416 M01S00996.v23l617 ---|* THE NEXT CONTROL STATEMENT FROM THE USER CONTROL 01417 M01S00997.v23l617 ---|* STATEMENT BUFFER IS GIVEN ALSO.
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01418 M01S00080.v23l617 +++|* THE NEXT COMMAND FROM THE BUFFER IS GIVEN ALSO. 01419 M00S00998.enquire +++| 01420 M00S00999.enquire +++| 01421 M00S01000.enquire +++|* PROCESS PSEUDO REGISTERS. 01422 M00S01001.enquire +++| 01423 M00S01002.enquire +++| OPJ SA5 BUFF+JCRW JOB CONTROL WORD 01424 M00S01003.enquire +++| LX5 6 01425 M00S01004.enquire +++| MX0 -6 ERROR FLAG 01426 M00S01005.enquire +++| BX1 -X0*X5 01427 M00S01006.enquire +++| RJ COD CONVERT TO DISPLAY CODE 01428 M00S01007.enquire +++| MX0 42 01429 M00S01008.enquire +++| BX6 X0*X4 01430 M00S01009.enquire +++| SA6 JOPE+1 01431 M00S01010.enquire +++| LX5 18 R3 01432 M00S01011.enquire +++| BX1 -X0*X5 01433 M00S01012.enquire +++| RJ CSD CONVERT TO SIGNED DISPLAY CODE 01434 M00S01013.enquire +++| SA6 JOPD+1 01435 M00S01014.enquire +++| LX5 18 R2 01436 M00S01015.enquire +++| BX1 -X0*X5 01437 M00S01016.enquire +++| RJ CSD CONVERT TO SIGNED DISPLAY CODE 01438 M00S01017.enquire +++| SA6 JOPC+1 01439 M00S01018.enquire +++| LX5 18 R1 01440 M00S01019.enquire +++| BX1 -X0*X5 01441 M00S01020.enquire +++| RJ CSD CONVERT TO SIGNED DISPLAY CODE 01442 M00S01021.enquire +++| SA6 JOPB+1 01443 M00S01022.enquire +++| SA5 BUFF+JCDW *CCL* JOB CONTROL WORD 01444 M00S01023.enquire +++| LX5 6 GLOBAL ERROR FLAG 01445 M00S01024.enquire +++| MX0 -6 01446 M00S01025.enquire +++| BX1 -X0*X5 01447 M00S01026.enquire +++| RJ COD CONVERT TO DISPLAY CODE 01448 M00S01027.enquire +++| MX0 42 01449 M00S01028.enquire +++| BX6 X0*X4 01450 M00S01029.enquire +++| SA6 JOPF+1 01451 M00S01030.enquire +++| LX5 18 R1G 01452 M00S01031.enquire +++| BX1 -X0*X5 01453 M00S01032.enquire +++| RJ CSD CONVERT TO SIGNED DISPLAY CODE 01454 M00S01033.enquire +++| SA6 JOPG+1
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01034.enquire +++| WRITEW O,JOP,JOPL 01471 M00S01035.enquire +++|
| Line S01036 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01472 M01S01036.v23l617 ---|* PROCESSING NEXT CONTROL STATEMENT.
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01473 M01S00081.v23l617 +++|* PROCESSING NEXT COMMAND. 01474 M00S01037.enquire +++| 01475 M00S01038.enquire +++| SA3 F+1 SET FET EMPTY 01476 M00S01039.enquire +++| MX0 -30 01477 M00S01040.enquire +++| SX6 X3 01478 M00S01041.enquire +++| SA6 A3+B1
| Line S01042 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01479 M01S01042.v23l617 ---| SX5 NCST NUMBER OF CONTROL STATEMENTS
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01480 M01S00082.v23l617 +++| SX5 NCST NUMBER OF COMMANDS 01481 M00S01043.enquire +++| SA6 A6+B1
| Line S01044 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01482 M01S01044.v23l617 ---| ACCSF F,CSFP,L ATTACH CONTROL STATEMENT FILE
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01483 M01S00083.v23l617 +++| ACCSF F,CSFP,L ATTACH COMMAND FILE 01484 M00S01045.enquire +++| SA4 CSFP 01485 M00S01046.enquire +++| BX7 -X0*X4 01486 M00S01047.enquire +++| AX7 6 01487 M00S01048.enquire +++| SA7 F+6 RANDOM ADDRESS 01488 M00S01049.enquire +++| READ F,R 01489 M00S01050.enquire +++| MX0 -6 01490 M00S01051.enquire +++| BX6 -X0*X4 01491 M00S01052.enquire +++| SA3 F+3 UPDATE *OUT* POINTER 01492 M00S01053.enquire +++| IX6 X3+X6 01493 M00S01054.enquire +++| SA6 A3 01494 M00S01055.enquire +++| OPJ1 READC F,WBUF,WBUFL 01495 M00S01056.enquire +++| NZ X1,OPJ2 IF *EOR* 01496 M00S01057.enquire +++| SB2 WBUF 01497 M00S01058.enquire +++| SB6 USBBL
| Line S01059 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01498 M01S01059.v23l617 ---| RJ USB UNSTRING CONTROL CARD
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01499 M01S00084.v23l617 +++| RJ USB UNSTRING COMMAND 01500 M00S01060.enquire +++| SB7 B7-WBUF2+1 01501 M00S01061.enquire +++| WRITES O,WBUF2,B7 01502 M00S01062.enquire +++| SX5 X5-1 DECREMENT COUNTER
| Line S01063 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01503 M01S01063.v23l617 ---| NZ X5,OPJ1 IF NOT END OF CONTROL STATEMENTS
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01504 M01S00085.v23l617 +++| NZ X5,OPJ1 IF NOT END OF COMMANDS 01505 M00S01064.enquire +++| EQ OPJ3 RETURN FILE AND EXIT 01506 M00S01065.enquire +++| 01507 M00S01066.enquire +++| OPJ2 WRITEC O,OPJB WRITE *EOR* LINE 01508 M00S01067.enquire +++| OPJ3 RETURN F 01509 M00S01068.enquire +++| EQ MAIN1 RETURN 01510 M00S01069.enquire +++| 01511 M00S01070.enquire +++|
| Line S01071 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01512 M01S01071.v23l617 ---| OPJA CON 0 CONTROL STATEMENT COUNT
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01513 M01S00086.v23l617 +++| OPJA CON 0 COMMAND COUNT 01514 M00S01072.enquire +++| 01515 M00S01073.enquire +++| OPJB DATA C/ *EOR*/ 01516 M00S01074.enquire +++| 01517 M00S01075.enquire +++| 01518 M00S01076.enquire +++|* OUTPUT FORMAT FOR OP = J. 01519 M00S01077.enquire +++| 01520 M00S01078.enquire +++| JOP DATA 0 01521 M00S01079.enquire +++| JOPA DATA L* JOB CONTROL REGISTERS.* 01522 M00S01080.enquire +++| DATA 0 01523 M00S01081.enquire +++| JOPB DATA C* R1 = * 01524 M00S01082.enquire +++| JOPC DATA C* R2 = * 01525 M00S01083.enquire +++| JOPD DATA C* R3 = * 01526 M00S01084.enquire +++| JOPE DATA C* EF = * 01527 M00S01085.enquire +++| JOPF DATA C* EFG = * 01528 M00S01086.enquire +++| JOPG DATA C* R1G = * 01529 M00S01087.enquire +++| DATA 0
| Line S01088 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01530 M01S01088.ns22000 ---| JOPH DATA L* CONTROL STATEMENT(S).*
| Line S00233 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01089.enquire +++| DATA 0 01539 M00S01090.enquire +++| JOPL EQU *-JOP 01540 M00S01091.enquire +++| OPL TITLE L OPTION. 01541 M00S01092.enquire +++|** *OP=L* GIVES THE USER LOADER INFORMATION THAT CONSISTS OF 01542 M00S01093.enquire +++|* MAP OPTIONS, DEBUG MODE AND GLOBAL LIBRARY SET 01543 M00S01094.enquire +++|* CURRENTLY IN EFFECT. 01544 M00S01095.enquire +++| 01545 M00S01096.enquire +++| 01546 M00S01097.enquire +++| OPL SA1 BUFF+LB1W MAP OPTIONS IN EFFECT 01547 M00S01098.enquire +++| PL X1,OPL2.1 IF SYSTEM DEFAULT 01548 M00S01099.enquire +++| LX1 59-57 POSITION MAP OPTION FIELD TO LEFT 01549 M00S01100.enquire +++| MX0 4 MAP OPTION FIELD WIDTH 01550 M00S01101.enquire +++| BX1 X0*X1 01551 M00S01102.enquire +++| ZR X1,OPL8 IF MAP *OFF* 01552 M00S01103.enquire +++| BX2 -X0+X1 01553 M00S01104.enquire +++| ZR X2,OPL3 IF *FULL* MAP 01554 M00S01105.enquire +++| SA2 OPLA 01555 M00S01106.enquire +++| BX2 X1-X2 01556 M00S01107.enquire +++| ZR X2,OPL4 IF MAP *ON* 01557 M00S01108.enquire +++| SA2 OPLB 01558 M00S01109.enquire +++| BX2 X1-X2 01559 M00S01110.enquire +++| ZR X2,OPL5 IF *PARTIAL* MAP 01560 M00S01111.enquire +++| 01561 M00S01112.enquire +++| SA2 =L*XEBS* FETCH POSSIBLE MAP OPTIONS 01562 M00S01113.enquire +++| SB2 4 INITIALIZE MAP OPTIONS COUNTER 01563 M00S01114.enquire +++| BX6 X6-X6 PRESET RESULT REGISTER 01564 M00S01115.enquire +++| MX0 6 01565 M00S01116.enquire +++| OPL1 PL X1,OPL2 IF OPTION NOT SET 01566 M00S01117.enquire +++| BX3 X0*X2 ADD CHARACTER TO RESULT REGISTER 01567 M00S01118.enquire +++| LX6 -6 01568 M00S01119.enquire +++| BX6 X3+X6 01569 M00S01120.enquire +++| OPL2 SB2 B2-B1 DECREMENT MAP OPTIONS COUNTER 01570 M00S01121.enquire +++| ZR B2,OPL7 IF NO MORE MAP OPTIONS TO CONSIDER 01571 M00S01122.enquire +++| LX1 1 01572 M00S01123.enquire +++| LX2 6 01573 M00S01124.enquire +++| EQ OPL1 LOOP 01574 M00S01125.enquire +++| 01575 M00S01126.enquire +++| OPL2.1 SA1 =L*DEFAULT* 01576 M00S01127.enquire +++| EQ OPL6 SET DEFAULT MAP OPTION 01577 M00S01128.enquire +++| 01578 M00S01129.enquire +++| OPL3 SA1 =L*FULL* 01579 M00S01130.enquire +++| EQ OPL6 01580 M00S01131.enquire +++| 01581 M00S01132.enquire +++| OPL4 SA1 =L*ON* 01582 M00S01133.enquire +++| EQ OPL6 01583 M00S01134.enquire +++| 01584 M00S01135.enquire +++| OPL5 SA1 =L*PARTIAL* 01585 M00S01136.enquire +++| 01586 M00S01137.enquire +++| OPL6 BX6 X1 01587 M00S01138.enquire +++| OPL7 SA6 OPLD UPDATE MAP OPTIONS ASSEMBLY AREA 01588 M00S01139.enquire +++| OPL8 WRITEW OUTPUT,OPLC,OPLE 01589 M00S01140.enquire +++| 01590 M00S01141.enquire +++|* PROCESS INTERACTIVE DEBUG. 01591 M00S01142.enquire +++| 01592 M00S01143.enquire +++| SA1 BUFF+LB1W CHECK DEBUG STATUS 01593 M00S01144.enquire +++| SB6 OPLH *DEBUG = OFF* 01594 M00S01145.enquire +++| LX1 59-35 01595 M00S01146.enquire +++| PL X1,OPL8.1 IF DEBUG = OFF 01596 M00S01147.enquire +++| SB6 OPLI *DEBUG = ON* 01597 M00S01148.enquire +++| OPL8.1 WRITEC O,B6 WRITE DEBUG STATUS 01598 M00S01149.enquire +++| 01599 M00S01150.enquire +++|* PROCESS GLOBAL LIBRARY SET. 01600 M00S01151.enquire +++| 01601 M00S01152.enquire +++| MOVE 4,OPLG,LBUF HEADER (PRESET EMPTY) 01602 M00S01153.enquire +++| GETGLS GGLS GET GLOBAL LIBRARY SET 01603 M00S01154.enquire +++| SB3 4 PRESET NUMBER OF WORDS TO WRITE 01604 M00S01155.enquire +++| SA1 GGLS LWA OF LIST + 1 01605 M00S01156.enquire +++| AX1 36 01606 M00S01157.enquire +++| SB2 X1-LBUF-3 01607 M00S01158.enquire +++| ZR B2,OPL11 IF EMPTY LIST 01608 M00S01159.enquire +++| SB3 B3-B1 01609 M00S01160.enquire +++| SB4 X1 01610 M00S01161.enquire +++| SB5 B3 INITIALIZE NAMES PER LINE COUNTER 01611 M00S01162.enquire +++| MX0 48 01612 M00S01163.enquire +++| MX5 42 01613 M00S01164.enquire +++| SA1 LBUF+3 01614 M00S01165.enquire +++| OPL9 BX1 X1*X5 01615 M00S01166.enquire +++| RJ SFN SPACE FILL NAME 01616 M00S01167.enquire +++| LX6 -6 01617 M00S01168.enquire +++| SB5 B5-B1 DECREMENT NAMES PER LINE COUNTER 01618 M00S01169.enquire +++| NZ B5,OPL10 IF NOT THIRD NAME ON LINE 01619 M00S01170.enquire +++| SB5 3 RE-INITIALIZE NAMES PER LINE COUNTER 01620 M00S01171.enquire +++| BX6 X0*X6 SET END-OF-LINE 01621 M00S01172.enquire +++| OPL10 SA6 A1 01622 M00S01173.enquire +++| SA1 A1+B1 01623 M00S01174.enquire +++| SB3 B3+B1 INCREMENT NUMBER OF WORD TO WRITE 01624 M00S01175.enquire +++| SB2 A1-B4 01625 M00S01176.enquire +++| NZ B2,OPL9 IF NOT END OF LIST 01626 M00S01177.enquire +++| BX6 X0*X6 SET END-OF-LINE 01627 M00S01178.enquire +++| SA6 A6 01628 M00S01179.enquire +++| OPL11 WRITEW OUTPUT,LBUF,B3 01629 M00S01180.enquire +++| JP MAIN1 RETURN 01630 M00S01181.enquire +++| 01631 M00S01182.enquire +++| OPLA VFD 4/7,56/0 MAP *ON* MASK 01632 M00S01183.enquire +++| OPLB VFD 4/3,56/0 *PARTIAL* MAP MASK 01633 M00S01184.enquire +++| 01634 M00S01185.enquire +++|* MAP OPTIONS ASSEMBLY AREA. 01635 M00S01186.enquire +++| 01636 M00S01187.enquire +++| OPLC DATA 0 BLANK LINE 01637 M00S01188.enquire +++| DATA L* LOADER INFORMATION. * 01638 M00S01189.enquire +++| DATA H* MAP OPTIONS = * 01639 M00S01190.enquire +++| OPLD DATA L*OFF* PRESET AS *OFF* 01640 M00S01191.enquire +++| OPLE EQU *-OPLC LENGTH OF MAP OPTIONS ASSEMBLY AREA 01641 M00S01192.enquire +++| 01642 M00S01193.enquire +++| OPLG DATA L* GLOBAL LIBRARY SET IS - * 01643 M00S01194.enquire +++| DATA L* EMPTY.* 01644 M00S01195.enquire +++| 01645 M00S01196.enquire +++| OPLH DATA L* DEBUG = OFF* 01646 M00S01197.enquire +++| OPLI DATA L* DEBUG = ON* 01647 M00S01198.enquire +++| OPR TITLE R OPTION. 01648 M00S01199.enquire +++|** THE *OP=R* OPTION RETURNS TO THE USER HIS ACCUMULATED 01649 M00S01200.enquire +++|* RESOURCES. THESE INCLUDE SRU UNITS, CP, IO AND 01650 M00S01201.enquire +++|* ADDER ACCUMULATORS. 01651 M00S01202.enquire +++| 01652 M00S01203.enquire +++| 01653 M00S01204.enquire +++| OPR SA1 BUFF+CPTW CPU TIME 01654 M00S01205.enquire +++| PX1 X1 CONVERT TO MILLISECONDS 01655 M00S01206.enquire +++| SA2 OPA 01656 M00S01207.enquire +++| NX1 X1 01657 M00S01208.enquire +++| RX2 X2*X1 01658 M00S01209.enquire +++| UX1,B4 X2 01659 M00S01210.enquire +++| LX1 B4 01660 M00S01211.enquire +++| RJ CFD CONVERT TO F10.3 FORMAT 01661 M00S01212.enquire +++| SA6 ROPB+2 01662 M00S01213.enquire +++| SA5 BUFF+IOAW IO ACCUMULATORS 01663 M00S01214.enquire +++| MX0 -20
| Line S01215 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01664 M01S01215.ns22000 ---| LX5 20 MS ACCUMULATOR
| Line S00240 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01665 M01S00240.ns22000 +++| LX5 20 MS ACCUMULATOR 01666 M00S01216.enquire +++| BX1 -X0*X5 01667 M00S01217.enquire +++| RJ CFD 01668 M00S01218.enquire +++| SA6 ROPC+2
| Line S01219 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01669 M01S01219.ns22000 ---| LX5 20 MT ACCUMULATOR
| Line S00241 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01670 M01S00241.ns22000 +++| LX5 20 MT ACCUMULATOR 01671 M00S01220.enquire +++| BX1 -X0*X5 01672 M00S01221.enquire +++| RJ CFD 01673 M00S01222.enquire +++| SA6 ROPD+2 01674 M00S01223.enquire +++| LX5 20 PF ACCUMULATOR 01675 M00S01224.enquire +++| BX1 -X0*X5 01676 M00S01225.enquire +++| RJ CFD 01677 M00S01226.enquire +++| SA6 ROPE+2 01678 M00S01227.enquire +++| SA2 BUFF+ADAW ADDER ACCUMULATOR 01679 M00S01228.enquire +++| BX1 -X0*X2 ADDER ACCUMULATOR 01680 M00S01229.enquire +++| RJ CFD 01681 M00S01230.enquire +++| SA6 ROPF+2
| Line S00242 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01231.enquire +++| SA2 BUFF+SRUW SRU ACCUMULATOR 01688 M00S01232.enquire +++| RJ CSR CONVERT SRU ACCUMULATOR
| Line S01233 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01689 M01S01233.ns22000 ---| SA6 ROPG+2
| Line S00247 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01690 M01S00247.ns22000 +++| SA6 ROPH+2 01691 M00S01234.enquire +++| WRITEW OUTPUT,ROP,ROPL 01692 M00S01235.enquire +++| EQ MAIN1 RETURN 01693 M00S01236.enquire +++| 01694 M00S01237.enquire +++| 01695 M00S01238.enquire +++|* OUTPUT FORMAT FOR OP = R. 01696 M00S01239.enquire +++| 01697 M00S01240.enquire +++| ROP DATA 0 01698 M00S01241.enquire +++| ROPA DATA L* RESOURCES USED.* 01699 M00S01242.enquire +++| DATA 0 01700 M00S01243.enquire +++| ROPB DATA 30H CPU TIME 01701 M00S01244.enquire +++| DATA 6L SECS. 01702 M00S01245.enquire +++| ROPC DATA 30H MS ACTIVITY 01703 M00S01246.enquire +++| DATA 6L KUNS. 01704 M00S01247.enquire +++| ROPD DATA 30H MT ACTIVITY 01705 M00S01248.enquire +++| DATA 6L KUNS. 01706 M00S01249.enquire +++| ROPE DATA 30H PF ACTIVITY 01707 M00S01250.enquire +++| DATA 6L KUNS. 01708 M00S01251.enquire +++| ROPF DATA 30H ADDER 01709 M00S01252.enquire +++| DATA 6L KUNS.
| Line S01253 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01710 M01S01253.ns22000 ---| ROPG DATA 30H SRU
| Line S00248 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01711 M01S00248.ns22000 +++| ROPG DATA 30H AUC ACTIVITY 01712 M01S00249.ns22000 +++| DATA 6L UNTS. 01713 M01S00250.ns22000 +++| ROPH DATA 30H SRU 01714 M00S01254.enquire +++| DATA 6L UNTS. 01715 M00S01255.enquire +++| ROPL EQU *-ROP 01716 M00S01256.enquire +++| OPS TITLE S OPTION. 01717 M00S01257.enquire +++|** THE *OP=S* OPTION RETURNS TO THE USER HIS SRU UNIT. 01718 M00S01258.enquire +++|* THIS UNIT REPRESENTS THE TOTAL USAGE OF THE SYSTEM 01719 M00S01259.enquire +++|* BY THE USER. 01720 M00S01260.enquire +++| 01721 M00S01261.enquire +++| 01722 M00S01262.enquire +++| OPS BSS 0 ENTRY 01723 M00S01263.enquire +++| SA2 BUFF+SRUW SRU ACCUMULATOR 01724 M00S01264.enquire +++| RJ CSR CONVERT SRU ACCUMULATOR 01725 M00S01265.enquire +++| SA6 SOPB+1 01726 M00S01266.enquire +++| WRITEW OUTPUT,SOP,SOPL 01727 M00S01267.enquire +++| EQ MAIN1 RETURN 01728 M00S01268.enquire +++| 01729 M00S01269.enquire +++| 01730 M00S01270.enquire +++|* OUTPUT FORMAT FOR OP = S. 01731 M00S01271.enquire +++| 01732 M00S01272.enquire +++| SOP DATA 0 01733 M00S01273.enquire +++| SOPA DATA L* SRU ACCUMULATOR.* 01734 M00S01274.enquire +++| DATA 0 01735 M00S01275.enquire +++| SOPB DATA 20H SRU 01736 M00S01276.enquire +++| DATA 6L UNTS. 01737 M00S01277.enquire +++| SOPL EQU *-SOP 01738 M00S01278.enquire +++| OPT TITLE T OPTION. 01739 M00S01279.enquire +++|** OP=*T* RETURNS TO THE USER HIS CP TIME. 01740 M00S01280.enquire +++|* 01741 M00S01281.enquire +++| 01742 M00S01282.enquire +++| 01743 M00S01283.enquire +++| 01744 M00S01284.enquire +++| OPT SA1 BUFF+CPTW CP TIME 01745 M00S01285.enquire +++| PX1 X1 CONVERT TO MILLISECONDS 01746 M00S01286.enquire +++| SA2 OPA 01747 M00S01287.enquire +++| NX1 X1 01748 M00S01288.enquire +++| RX2 X2*X1 01749 M00S01289.enquire +++| UX1,B4 X2 01750 M00S01290.enquire +++| LX1 B4 01751 M00S01291.enquire +++| RJ CFD CONVERT TO F10.3 FORMAT 01752 M00S01292.enquire +++| SA6 TOPA+1 STORE CP TIME 01753 M00S01293.enquire +++| WRITEW OUTPUT,TOP,TOPL 01754 M00S01294.enquire +++| EQ MAIN1 RETURN 01755 M00S01295.enquire +++| 01756 M00S01296.enquire +++| 01757 M00S01297.enquire +++|* OUTPUT FORMAT FOR OP = T. 01758 M00S01298.enquire +++| 01759 M00S01299.enquire +++| TOP DATA 0 01760 M00S01300.enquire +++| DATA L* CPU ACCUMULATOR.* 01761 M00S01301.enquire +++| DATA 0 01762 M00S01302.enquire +++| TOPA DATA 20H CPU TIME 01763 M00S01303.enquire +++| DATA 6L SECS. 01764 M00S01304.enquire +++| TOPL EQU *-TOP 01765 M00S01305.enquire +++| OPU TITLE U OPTION. 01766 M00S01306.enquire +++|** OP = *U* GIVES THE USER THE AMOUNT OF RESOURCE USAGE 01767 M00S01307.enquire +++|* ALLOWED TO HIS JOB. THESE RESOURCES INCLUDE SYSTEM 01768 M00S01308.enquire +++|* RESOURCE UNITS ALLOWED FOR EACH JOB STEP AND ACCOUNT 01769 M00S01309.enquire +++|* BLOCK, JOB STEP TIME LIMIT, AND MAXIMUM NUMBER OF DISPOSE 01770 M00S01310.enquire +++|* FILES, MASS STORAGE PRUS, DAYFILE MESSAGES AND CONTROL
| Line S01311 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01771 M01S01311.v23l617 ---|* STATEMENTS.
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01772 M01S00087.v23l617 +++|* COMMANDS. 01773 M00S01312.enquire +++| 01774 M00S01313.enquire +++| 01775 M00S01314.enquire +++| OPU SA5 BUFF+CPJW JOB STEP TIME LIMIT 01776 M00S01315.enquire +++| MX0 -15 01777 M00S01316.enquire +++| LX0 17-14 01778 M00S01317.enquire +++| LX5 30 01779 M00S01318.enquire +++| RJ CLM CONVERT 01780 M00S01319.enquire +++| SA7 UOPF+2 01781 M00S01320.enquire +++| SA5 BUFF+SRJW JOB STEP SRU LIMIT 01782 M00S01321.enquire +++| LX5 30 01783 M00S01322.enquire +++| RJ CLM CONVERT 01784 M00S01323.enquire +++| SA7 UOPG+2 01785 M00S01324.enquire +++| SA5 BUFF+STLW ACCOUNT BLOCK SRU LIMIT 01786 M00S01325.enquire +++| LX5 18 01787 M00S01326.enquire +++| RJ CLM CONVERT 01788 M00S01327.enquire +++| SA7 UOPH+2 01789 M00S01328.enquire +++| SA5 BUFF+ACLW PICK UP ACCOUNTING LIMITS WORD 01790 M00S01329.enquire +++| MX0 -12 01791 M00S01330.enquire +++| LX5 24 DAYFILE MESSAGES COUNT 01792 M00S01331.enquire +++| RJ CLM CONVERT 01793 M00S01332.enquire +++| SA7 UOPB+2
| Line S01333 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01794 M01S01333.v23l617 ---| LX5 12 CONTROL STATEMENT COUNT
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01795 M01S00088.v23l617 +++| LX5 12 COMMAND COUNT 01796 M00S01334.enquire +++| RJ CLM CONVERT 01797 M00S01335.enquire +++| SA7 UOPC+2
| Line S01336 Modification History | |
|---|---|
M01 (Removed by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01798 M01S01336.enqui1 ---| MX0 -6 01799 M01S01337.enqui1 ---| LX5 6 DISPOSE FILES 01800 M01S01338.enqui1 ---| RJ CLM CONVERT 01801 M01S01339.enqui1 ---| SA7 UOPD+2 01802 M00S01340.enquire +++| MX0 -15 01803 M00S01341.enquire +++| LX0 17-14
| Line S01342 Modification History | |
|---|---|
M01 (Removed by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01804 M01S01342.enqui1 ---| LX5 18 MASS STORAGE PRUS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01805 M01S00003.enqui1 +++| LX5 24 MASS STORAGE PRUS 01806 M00S01343.enquire +++| RJ CLM 01807 M00S01344.enquire +++| SA7 UOPE+2 01808 M00S01345.enquire +++| WRITEW OUTPUT,UOP,UOPL 01809 M00S01346.enquire +++| EQ MAIN1 01810 M00S01347.enquire +++| 01811 M00S01348.enquire +++| 01812 M00S01349.enquire +++|* OUTPUT FORMAT FOR OP = U. 01813 M00S01350.enquire +++| 01814 M00S01351.enquire +++| UOP DATA 0 01815 M00S01352.enquire +++| UOPA DATA L* RESOURCE USAGE ALLOWED.* 01816 M00S01353.enquire +++| DATA 0 01817 M00S01354.enquire +++| UOPF DATA 20H SECONDS 01818 M00S01355.enquire +++| DATA 0 01819 M00S01356.enquire +++| UOPG DATA 20H JOB STEP SRU 01820 M00S01357.enquire +++| DATA 0 01821 M00S01358.enquire +++| UOPH DATA 20H ACCOUNT BLK SRU 01822 M00S01359.enquire +++| DATA 0 01823 M00S01360.enquire +++| UOPB DATA 20H DAYFILE MESSAGES 01824 M00S01361.enquire +++| DATA 0
| Line S01362 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01825 M01S01362.ns22000 ---| UOPC DATA 20H CONTROL STATMTS
| Line S00251 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01826 M01S00251.ns22000 +++| UOPC DATA 20H COMMANDS
| Line S01363 Modification History | |
|---|---|
M01 (Removed by) | enqui1 |
Seq # *Modification Id* Act ----------------------------+ 01827 M01S01363.enqui1 ---| DATA 0 01828 M01S01364.enqui1 ---| UOPD DATA 20H DISPOSE FILES 01829 M00S01365.enquire +++| DATA 0 01830 M00S01366.enquire +++| UOPE DATA 20H MASS STORAGE 01831 M00S01367.enquire +++| DATA 0 01832 M00S01368.enquire +++| UOPL EQU *-UOP 01833 M00S01369.enquire +++| TITLE JSN= OPTION. 01834 M00S01370.enquire +++| PEJ SPACE 4,10 01835 M00S01371.enquire +++|** PEJ - PROCESS EQUIVALENCED JSN PARAMETER. 01836 M00S01372.enquire +++|* 01837 M00S01373.enquire +++|* ENTRY (X5) = JSN PARAMETER VALUE. 01838 M00S01374.enquire +++|* 01839 M00S01375.enquire +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 01840 M00S01376.enquire +++|* A - 1, 2, 3, 5, 6, 7. 01841 M00S01377.enquire +++|* B - 2, 4, 6, 7. 01842 M00S01378.enquire +++|*
| Line S01379 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01843 M01S01379.ns22000 ---|* CALLS CDD, CLM, COD, CSR, ESB, GJS, GSC, IPR, SFN, WCL, WML.
| Line S00252 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01844 M01S00252.ns22000 +++|* CALLS CDD, COD, CSR, ESB, GCS, GDR, GJS, GSC, IPR, SFN, 01845 M01S00253.ns22000 +++|* WCL, WML. 01846 M00S01380.enquire +++|* 01847 M00S01381.enquire +++|* MACROS WRITES, WRITEW. 01848 M00S01382.enquire +++|* 01849 M00S01383.enquire +++|* EXAMPLE OF EXECUTING JOB - 01850 M00S01384.enquire +++|* 01851 M00S01385.enquire +++|* 1 2 3 4 5 6 7 01852 M00S01386.enquire +++|* 234567890123456789012345678901234567890123456789012345678901234567890 01853 M00S01387.enquire +++|*
| Line S01388 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01854 M01S01388.ns21000 ---|* ABFB.T.TIMED/EVENT ROLLOUT UJN=MYJOBAA.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01855 M02S00019.ns22000 ---|* ABFB.T.M90.TIMED/EVENT ROLLOUT UJN=MYJOBAA.
| Line S00254 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01856 M01S00254.ns22000 +++|* ABFB.T.ON.BC.M90.T/E ROLLOUT UJN=MYJOBAA LEVEL=LVL0 01857 M00S01389.enquire +++|* SRUS= 22.057. SRU LIMIT=NO LIMIT. CM FL= 47500. ECS FL= 1000. 01858 M00S01390.enquire +++|* LABEL,TAPE,VSN=TEROLL,D=PE. (MS1W MESSAGE) 01859 M00S01391.enquire +++|* WAITING FOR TAPE/PACK MOUNT. (MS2W MESSAGE) 01860 M00S01392.enquire +++|* 01861 M00S01393.enquire +++|* DAYFILE= 01862 M00S01394.enquire +++|* (MAXIMUM OF 10 LINES OF DAYFILE) 01863 M00S01395.enquire +++|*
| Line S01396 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01864 M01S01396.v23l617 ---|* NEXT CONTROL STATEMENTS= 01865 M01S01397.v23l617 ---|* (MAXIMUM OF 10 LINES OF CONTROL STATEMENTS)
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01866 M01S00089.v23l617 +++|* NEXT COMMANDS= 01867 M01S00090.v23l617 +++|* (MAXIMUM OF 10 LINES OF COMMANDS) 01868 M00S01398.enquire +++|* 01869 M00S01399.enquire +++|* EXAMPLE OF JOBS IN THE INPUT, PRINT, PLOT, PUNCH 01870 M00S01400.enquire +++|* OR WAIT QUEUE - 01871 M00S01401.enquire +++|* 01872 M00S01402.enquire +++|* 1 2 3 4 5 6 7 01873 M00S01403.enquire +++|* 234567890123456789012345678901234567890123456789012345678901234567890 01874 M00S01404.enquire +++|*
| Line S01405 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 01875 M01S01405.ns21000 ---|* ADAE.B.PRINT QUEUE UJN=MYJOBAB.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01876 M02S00020.ns22000 ---|* ADAE.B.M90.PRINT QUEUE UJN=MYJOBAB.
| Line S00255 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01877 M01S00255.ns22000 +++|* ADAE.B. .BC.M90.PRINT QUEUE UJN=MYJOBAA LEVEL=LVL0 01878 M00S01406.enquire +++|* PRU LENGTH= 47. DC=LT. FC= . ID=05. EC=A9 . 01879 M00S01407.enquire +++| 01880 M00S01408.enquire +++| 01881 M00S01409.enquire +++| PEJ SUBR ENTRY/EXIT 01882 M00S01410.enquire +++| SA3 PIEJ SET PEEK INFORMATION BITS 01883 M00S01411.enquire +++| BX7 X3 01884 M00S01412.enquire +++| BX6 X5 SAVE JSN 01885 M00S01413.enquire +++| SA6 JSNM 01886 M00S01414.enquire +++| SA7 BQPF+2 01887 M00S01415.enquire +++| SA1 BQSC+2 SET JSN SELECTION CRITERIA 01888 M00S01416.enquire +++| SX2 JSSF SET JSN SELECTION BIT 01889 M00S01417.enquire +++| BX1 X1+X5 SET JSN 01890 M00S01418.enquire +++| BX6 X1+X2 01891 M00S01419.enquire +++| SA6 A1+ 01892 M00S01420.enquire +++| RJ IPR ISSUE *QAC* PEEK REQUEST 01893 M00S01421.enquire +++| NZ X1,PEJX IF JOB NOT FOUND 01894 M00S01422.enquire +++| 01895 M00S01423.enquire +++|* FORMAT LINE 1. 01896 M00S01424.enquire +++| 01897 M00S01425.enquire +++| SA1 PEJF WRITE SKELETON LINE 01898 M00S01426.enquire +++| SB7 L1JL 01899 M00S01427.enquire +++| BX6 X1 01900 M00S01428.enquire +++| RJ ESB 01901 M00S01429.enquire +++| SA1 RBUF GET REPLY ENTRY FWA 01902 M00S01430.enquire +++| MX0 24 SET JSN 01903 M00S01431.enquire +++| BX1 X0*X1 01904 M00S01432.enquire +++| RJ SFN 01905 M00S01433.enquire +++| SB6 A1+ 01906 M00S01434.enquire +++| SB7 JSJL 01907 M00S01435.enquire +++| RJ ESB 01908 M00S01436.enquire +++| RJ GSC SET SERVICE CLASS 01909 M00S01437.enquire +++| SB7 SCJL 01910 M00S01438.enquire +++| RJ ESB
| Line S00256 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01922 M02S00024.ns22000 ---| SB3 X1-1
| Line S00264 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01923 M01S00264.ns22000 +++| SB3 X1-2
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01931 M01S01439.ns22000 ---| SB4 6 SET JOB STATUS
| Line S00265 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01932 M01S00265.ns22000 +++| SB4 7 SET JOB STATUS 01933 M00S01440.enquire +++| RJ GJS 01934 M00S01441.enquire +++| SB7 STJL 01935 M00S01442.enquire +++| RJ ESB
| Line S01443 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01936 M01S01443.ns22000 ---| SA1 B6+4 SET UJN
| Line S00266 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01937 M01S00266.ns22000 +++| SA1 B6+5 SET UJN 01938 M00S01444.enquire +++| MX0 42 01939 M00S01445.enquire +++| BX1 X0*X1 01940 M00S01446.enquire +++| RJ SFN 01941 M00S01447.enquire +++| SB7 UJJL 01942 M00S01448.enquire +++| RJ ESB
| Line S01449 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01943 M01S01449.ns22000 ---| WRITEW OUTPUT,PAGE,B1
| Line S00267 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01450.enquire +++| SA1 L1JL GET CHARACTER COUNT 01967 M00S01451.enquire +++| SB7 X1+ 01968 M00S01452.enquire +++| WRITES OUTPUT,USBB,B7 01969 M00S01453.enquire +++| SA1 RBUF CHECK QUEUE TYPE 01970 M00S01454.enquire +++| MX0 -12 01971 M00S01455.enquire +++| LX1 -12 01972 M00S01456.enquire +++| BX6 -X0*X1 01973 M00S01457.enquire +++| SX2 X6-EXQQ 01974 M00S01458.enquire +++| SA6 PEJA SAVE QUEUE TYPE 01975 M00S01459.enquire +++| NZ X2,PEJ1 IF NOT EXECUTING QUEUE 01976 M00S01460.enquire +++| 01977 M00S01461.enquire +++|* FORMAT OUTPUT LINES FOR EXECUTING JOB. 01978 M00S01462.enquire +++| 01979 M00S01463.enquire +++| SB6 RBUF RESET REPLY ENTRY FWA 01980 M00S01464.enquire +++| SA1 PEJB WRITE SKELETON LINE 01981 M00S01465.enquire +++| BX6 X1 01982 M00S01466.enquire +++| SB7 L2JL 01983 M00S01467.enquire +++| RJ ESB
| Line S01468 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01984 M01S01468.ns22000 ---| SA2 B6+18 SET SRU ACCUMULATOR
| Line S00289 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01985 M01S00289.ns22000 +++| SA2 B6+19 01986 M00S01469.enquire +++| LX2 -18 01987 M00S01470.enquire +++| RJ CSR CONVERT SRU ACCUMULATOR 01988 M00S01471.enquire +++| SB7 SUJL 01989 M00S01472.enquire +++| RJ ESB
| Line S01473 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01990 M01S01473.ns22000 ---| SA2 B6+17 SET SRU LIMIT
| Line S00290 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01991 M01S00290.ns22000 +++| SA2 B6+18 SET SRU LIMIT 01992 M00S01474.enquire +++| LX2 -18 01993 M00S01475.enquire +++| RJ CSR CONVERT SRU LIMIT 01994 M00S01476.enquire +++| SB7 SLJL 01995 M00S01477.enquire +++| RJ ESB 01996 M00S01478.enquire +++| SA5 B6+2 GET CM FL/100B 01997 M00S01479.enquire +++| LX5 0-24 01998 M00S01480.enquire +++| MX0 -12 01999 M00S01481.enquire +++| BX1 -X0*X5 02000 M00S01482.enquire +++| LX1 6 MULTIPLY BY 100B 02001 M00S01483.enquire +++| RJ COD 02002 M00S01484.enquire +++| SB7 CFJL SET CM FL 02003 M00S01485.enquire +++| LX6 24 USE LOWER 6 CHARACTERS 02004 M00S01486.enquire +++| RJ ESB
| Line S01487 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02005 M01S01487.v23l617 ---| LX5 0-36-0+24 GET ECS FL/1000B
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02006 M01S00091.v23l617 +++| LX5 0-36-0+24 GET EXTENDED MEMORY FL/1000B 02007 M00S01488.enquire +++| MX0 -12 02008 M00S01489.enquire +++| BX1 -X0*X5 02009 M00S01490.enquire +++| LX1 9 MULTIPLY BY 1000B 02010 M00S01491.enquire +++| RJ COD 02011 M00S01492.enquire +++| LX6 18 USE LOWER 7 CHARACTERS
| Line S01493 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02012 M01S01493.v23l617 ---| SB7 EFJL SET ECS FL
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02013 M01S00092.v23l617 +++| SB7 EFJL SET EXTENDED MEMORY FL 02014 M00S01494.enquire +++| RJ ESB 02015 M00S01495.enquire +++| SA1 L2JL GET CHARACTER COUNT 02016 M00S01496.enquire +++| SB7 X1+ 02017 M00S01497.enquire +++| WRITES OUTPUT,USBB,B7
| Line S01498 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02018 M01S01498.ns22000 ---| SA2 RBUF+7 WRITE *MS1W*
| Line S00291 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02019 M01S00291.ns22000 +++| SA2 RBUF+8 WRITE *MS1W* 02020 M00S01499.enquire +++| RJ WML
| Line S01500 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02021 M01S01500.ns22000 ---| SA2 RBUF+13 WRITE *MS2W*
| Line S00292 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02022 M01S00292.ns22000 +++| SA2 RBUF+14 WRITE *MS2W* 02023 M00S01501.enquire +++| RJ WML
| Line S01502 Modification History | |
|---|---|
M01 (Removed by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02024 M01S01502.enqui3 ---| WRITEW OUTPUT,PEJC,PEJCL WRITE DAYFILE TITLE LINE 02025 M01S01503.enqui3 ---| SA1 RBUF+19 GET WORD COUNTS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02026 M02S00001.ns22000 ---| SA1 RBUF+19 WRITE DAYFILE BUFFER
| Line S00293 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02027 M01S00293.ns22000 +++| SA1 RBUF+20 WRITE DAYFILE BUFFER 02028 M00S01504.enquire +++| MX7 -12 02029 M00S01505.enquire +++| LX1 -12
| Line S01506 Modification History | |
|---|---|
M01 (Removed by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02030 M01S01506.enqui3 ---| SB6 A1+B1 FWA OF DATA
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02031 M01S00002.enqui3 +++| SX0 A1+1 FWA OF DATA 02032 M00S01507.enquire +++| BX2 -X7*X1 REPLY UNIT WORD COUNT - 1 02033 M00S01508.enquire +++| LX1 -12 02034 M00S01509.enquire +++| BX5 -X7*X1 DATA WORD COUNT
| Line S01510 Modification History | |
|---|---|
M01 (Removed by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02035 M01S01510.enqui3 ---| SX0 X2+B6 SAVE LWA+1 OF REPLY UNIT
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01511.enquire +++| SB7 B0 WRITE LAST 10 DAYFILE MESSAGES 02042 M00S01512.enquire +++| RJ WCL
| Line S01513 Modification History | |
|---|---|
M01 (Removed by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02043 M01S01513.enqui3 ---| SA1 X0 WRITE CONTROL STATEMENT BUFFER
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02044 M02S00008.v23l617 ---| PEJ0 SA2 PEJG WRITE CONTROL STATEMENT BUFFER
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02045 M01S00093.v23l617 +++| PEJ0 SA2 PEJG WRITE COMMAND BUFFER
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02046 M01S00009.enqui3 +++| SA1 X2 02047 M00S01514.enquire +++| MX7 -12 02048 M00S01515.enquire +++| SX0 A1+1 FWA OF DATA 02049 M00S01516.enquire +++| LX1 -24 02050 M00S01517.enquire +++| BX5 -X7*X1 DATA WORD COUNT 02051 M00S01518.enquire +++| ZR X5,PEJX IF NO DATA
| Line S01519 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02052 M01S01519.v23l617 ---| WRITEW OUTPUT,PEJD,PEJDL WRITE CONTROL STATEMENT TITLE LINE
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02053 M01S00094.v23l617 +++| WRITEW OUTPUT,PEJD,PEJDL WRITE COMMAND TITLE LINE
| Line S01520 Modification History | |
|---|---|
M01 (Removed by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02054 M01S01520.enqui3 ---| SB6 X0 WRITE CONTROL STATEMENT BUFFER
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02055 M01S00010.enqui3 +++| SB6 X0
| Line S01521 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02056 M01S01521.v23l617 ---| SB7 B1 WRITE FIRST 10 CONTROL STATEMENTS
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02057 M01S00095.v23l617 +++| SB7 B1 WRITE FIRST 10 COMMANDS 02058 M00S01522.enquire +++| RJ WCL 02059 M00S01523.enquire +++| EQ PEJX RETURN 02060 M00S01524.enquire +++| 02061 M00S01525.enquire +++|* FORMAT OUTPUT LINE FOR JOB IN THE INPUT, PRINT, PLOT, 02062 M00S01526.enquire +++|* PUNCH OR WAIT QUEUE. 02063 M00S01527.enquire +++| 02064 M00S01528.enquire +++| PEJ1 SA1 PEJE WRITE SKELETON LINE 02065 M00S01529.enquire +++| SB7 L3JL 02066 M00S01530.enquire +++| BX6 X1 02067 M00S01531.enquire +++| RJ ESB 02068 M00S01532.enquire +++| SB6 RBUF
| Line S01533 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02069 M01S01533.ns22000 ---| SA1 B6+5 SET FILE LENGTH
| Line S00294 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02070 M01S00294.ns22000 +++| SA1 B6+6 SET FILE LENGTH 02071 M00S01534.enquire +++| MX0 -24 02072 M00S01535.enquire +++| LX1 24 02073 M00S01536.enquire +++| SB7 PLJL 02074 M00S01537.enquire +++| BX1 -X0*X1 02075 M00S01538.enquire +++| RJ CDD 02076 M00S01539.enquire +++| LX6 12 USE LOWER 8 CHARACTERS 02077 M00S01540.enquire +++| RJ ESB 02078 M00S01541.enquire +++| SA5 B6+B1 SET FORMS CODE 02079 M00S01542.enquire +++| MX0 12 02080 M00S01543.enquire +++| LX5 59-47 02081 M00S01544.enquire +++| BX6 X0*X5 02082 M00S01545.enquire +++| ZR X6,PEJ2 IF FORMS CODE NOT SPECIFIED 02083 M00S01546.enquire +++| SB7 FCJL 02084 M00S01547.enquire +++| RJ ESB 02085 M00S01548.enquire +++| PEJ2 LX5 59-35-59+47 SET DISPOSITION CODE 02086 M00S01549.enquire +++| MX0 12 02087 M00S01550.enquire +++| BX6 X0*X5 02088 M00S01551.enquire +++| ZR X6,PEJ3 IF DISPOSITION CODE NOT SPECIFIED 02089 M00S01552.enquire +++| SB7 DCJL 02090 M00S01553.enquire +++| RJ ESB 02091 M00S01554.enquire +++| PEJ3 SA1 PEJA GET QUEUE TYPE 02092 M00S01555.enquire +++| MX0 18 02093 M00S01556.enquire +++| SA2 QTEC SEARCH FOR MATCHING QUEUE TYPE 02094 M00S01557.enquire +++| PEJ4 ZR X2,PEJ5 IF END OF TABLE 02095 M00S01558.enquire +++| BX3 X0*X2 02096 M00S01559.enquire +++| LX3 18 02097 M00S01560.enquire +++| IX3 X1-X3 02098 M00S01561.enquire +++| SB2 X2 ADDRESS OF EXTERNAL CHARACTERISTICS TABLE 02099 M00S01562.enquire +++| SA2 A2+B1 02100 M00S01563.enquire +++| NZ X3,PEJ4 IF NOT MATCH 02101 M00S01564.enquire +++| LX5 0-21-59+35 GET EXTERNAL CHARACTERISTICS 02102 M00S01565.enquire +++| MX0 -3 02103 M00S01566.enquire +++| BX1 -X0*X5 02104 M00S01567.enquire +++| SB7 ECJL SET EXTERNAL CHARACTERISTICS 02105 M00S01568.enquire +++| SA2 X1+B2 INDEX INTO TABLE 02106 M00S01569.enquire +++| BX6 X2 02107 M00S01570.enquire +++| RJ ESB 02108 M00S01571.enquire +++| PEJ5 SA1 B6+3 SET DESTINATION BATCH DEVICE ID 02109 M00S01572.enquire +++| MX0 -6 02110 M00S01573.enquire +++| LX1 -12 02111 M00S01574.enquire +++| BX1 -X0*X1 02112 M00S01575.enquire +++| RJ COD 02113 M00S01576.enquire +++| LX6 -12 USE LOWER 2 CHARACTERS 02114 M00S01577.enquire +++| SB7 IDJL 02115 M00S01578.enquire +++| RJ ESB 02116 M00S01579.enquire +++| SA1 L3JL GET CHARACTER COUNT 02117 M00S01580.enquire +++| SB7 X1+ 02118 M00S01581.enquire +++| WRITES OUTPUT,USBB,B7 02119 M00S01582.enquire +++| EQ PEJX RETURN 02120 M00S01583.enquire +++| 02121 M00S01584.enquire +++| 02122 M00S01585.enquire +++| PEJA CON 0 QUEUE TYPE 02123 M00S01586.enquire +++| 02124 M00S01587.enquire +++| PEJB DATA L* SRUS= . SRU LIMIT= . CM FL= .
| Line S01588 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02125 M01S01588.v23l617 ---|, ECS FL= .*
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02126 M01S00096.v23l617 +++|, EM FL= .* 02127 M00S01589.enquire +++| 02128 M00S01590.enquire +++| PEJC DATA 0 02129 M00S01591.enquire +++| DATA L* DAYFILE= * 02130 M00S01592.enquire +++| PEJCL EQU *-PEJC LENGTH OF DAYFILE HEADER LINE 02131 M00S01593.enquire +++| 02132 M00S01594.enquire +++| PEJD DATA 0
| Line S01595 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02133 M01S01595.ns22000 ---| DATA L* NEXT CONTROL STATEMENTS=*
| Line S00295 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02134 M01S00295.ns22000 +++| DATA C* PENDING COMMANDS =*
| Line S01596 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02135 M01S01596.v23l617 ---| PEJDL EQU *-PEJD LENGTH OF CONTROL STATEMENT HEADER LINE
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02136 M01S00097.v23l617 +++| PEJDL EQU *-PEJD LENGTH OF COMMAND HEADER LINE 02137 M00S01597.enquire +++| 02138 M00S01598.enquire +++| PEJE DATA L* PRU LENGTH= . DC= . FC= . ID= . EC= 02139 M00S01599.enquire +++|, .* 02140 M00S01600.enquire +++|
| Line S01601 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02141 M01S01601.ns21000 ---| PEJF DATA L* . . UJN= .*
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02142 M02S00032.ns22000 ---| PEJF DATA L* . . . UJN= .*
| Line S00296 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02143 M01S00296.ns22000 +++| PEJF DATA L* . . . . . UJN= 02144 M01S00297.ns22000 +++|, LEVEL= *
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | enqui3 |
Seq # *Modification Id* Act ----------------------------+ 02145 M01S00011.enqui3 +++| 02146 M01S00012.enqui3 +++| PEJG CON 0 LWA+1 OF REPLY UNIT 02147 M00S01602.enquire +++| TITLE JSN OPTION. 02148 M00S01603.enquire +++| PJS SPACE 4,10 02149 M00S01604.enquire +++|** PJS - PROCESS JSN PARAMETER. 02150 M00S01605.enquire +++|* 02151 M00S01606.enquire +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 02152 M00S01607.enquire +++|* A - 1, 2, 3, 6, 7. 02153 M00S01608.enquire +++|* B - 4, 6, 7. 02154 M00S01609.enquire +++|*
| Line S01610 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02155 M01S01610.ns22000 ---|* CALLS BFB, CFP, ESB, GJS, GSC, IPR, RRB, SFN.
| Line S00298 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02156 M01S00298.ns22000 +++|* CALLS BFB, CFP, ESB, GCS, GDR, GJS, GSC, IPR, RRB, SFN. 02157 M00S01611.enquire +++|* 02158 M00S01612.enquire +++|* MACROS WRITES. 02159 M00S01613.enquire +++|* 02160 M00S01614.enquire +++|* DEFINE (X5) = INCOMPLETE LINE FLAG. 02161 M00S01615.enquire +++|* .EQ. 1, PARTIAL LINE WRITTEN. 02162 M00S01616.enquire +++|* .NE. 1, COMPLETE LINE WRITTEN. 02163 M00S01617.enquire +++|* 02164 M00S01618.enquire +++|* EXAMPLE - 02165 M00S01619.enquire +++|* 02166 M00S01620.enquire +++|* 1 2 3 4 5 6 7 02167 M00S01621.enquire +++|* 234567890123456789012345678901234567890123456789012345678901234567890 02168 M00S01622.enquire +++|*
| Line S01623 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02169 M01S01623.ns21000 ---|* JSN SC STATUS JSN SC STATUS
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02170 M02S00033.ns22000 ---|* JSN SC LID STATUS JSN SC LID STATUS
| Line S01624 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02171 M01S01624.ns22000 ---|*
| Line S01625 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02172 M02S01625.ns22000 ---|* ABFB.D.PRINT QUEUE ABAB.T.TIMED/EVENT ROLLOUT
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02173 M02S00034.ns22000 ---|* ABFB.D.M90.PRINT QUEUE ABAB.T.M90.TIMED/EVENT ROLLOUT
| Line S00299 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01626.enquire +++| 02178 M00S01627.enquire +++| 02179 M00S01628.enquire +++| PJS SUBR ENTRY/EXIT 02180 M00S01629.enquire +++| SA1 PIJS SET PEEK INFORMATION BITS
| Line S01630 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02181 M01S01630.ns22000 ---| SX6 LINP-3 FORCE PAGE EJECT
| Line S00302 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02182 M01S00302.ns22000 +++| SX6 99999 FORCE EJECT 02183 M00S01631.enquire +++| BX5 X5-X5 SET LINE COMPLETE 02184 M00S01632.enquire +++| SA6 LCT 02185 M00S01633.enquire +++| BX7 X1 02186 M00S01634.enquire +++| SA7 BQPF+2 02187 M00S01635.enquire +++| PJS1 RJ IPR ISSUE PEEK REQUEST 02188 M00S01636.enquire +++| NZ X1,PJS5 IF NO JOBS FOUND 02189 M00S01637.enquire +++| NZ X5,PJS3 IF INCOMPLETE LINE 02190 M00S01638.enquire +++| PJS2 SB6 PJSA CHECK FOR PAGE LIMIT 02191 M00S01639.enquire +++| RJ BFB INITIALIZE BUFFER 02192 M00S01640.enquire +++| SB7 PJSAL 02193 M00S01641.enquire +++| RJ CFP 02194 M00S01642.enquire +++| PJS3 SA1 BQAC+3 GET NEXT ENTRY 02195 M00S01643.enquire +++| SB6 X1 GET *OUT* POINTER 02196 M00S01644.enquire +++| MX0 24 02197 M00S01645.enquire +++| SA1 B6 GET JSN 02198 M00S01646.enquire +++| BX1 X0*X1 02199 M00S01647.enquire +++| RJ SFN 02200 M00S01648.enquire +++| SB7 JSJL+X5 SET JSN IN BUFFER 02201 M00S01649.enquire +++| RJ ESB 02202 M00S01650.enquire +++| SX6 1R. 02203 M00S01651.enquire +++| SA6 B7+ 02204 M00S01652.enquire +++| RJ GSC GET SERVICE CLASS 02205 M00S01653.enquire +++| SB7 SCJL+X5 SET SERVICE CLASS IN BUFFER 02206 M00S01654.enquire +++| RJ ESB 02207 M00S01655.enquire +++| SX6 1R.
| Line S01656 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02208 M01S01656.ns21000 ---| SB4 B1+B1 02209 M00S01657.enquire +++| SA6 B7
| Line S00303 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02216 M02S00035.ns22000 ---| SA1 B6+3 GET LID
| Line S00309 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02231 M02S00043.ns22000 ---| SB4 B1+B1
| Line S00316 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02232 M01S00316.ns22000 +++| SB4 3
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02233 M01S00044.ns21000 +++| SA6 B7 02234 M00S01658.enquire +++| RJ GJS GET JOB STATUS 02235 M00S01659.enquire +++| SB7 STJL+X5 SET JOB STATUS IN BUFFER 02236 M00S01660.enquire +++| RJ ESB 02237 M00S01661.enquire +++| MX0 -12 02238 M00S01662.enquire +++| SA1 BQPF+1 ADVANCE *OUT* POINTER 02239 M00S01663.enquire +++| BX1 -X0*X1 PEEK REPLY ENTRY LENGTH 02240 M00S01664.enquire +++| SA2 BQAC+3 02241 M00S01665.enquire +++| SA3 A2-B1 GET *IN* POINTER 02242 M00S01666.enquire +++| IX6 X1+X2 02243 M00S01667.enquire +++| IX3 X6-X3 CALCULATE *OUT* - *IN* 02244 M00S01668.enquire +++| SX5 X5+B1 02245 M00S01669.enquire +++| ZR X3,PJS4 IF REPLY BUFFER EMPTY 02246 M00S01670.enquire +++| SA6 A2 02247 M00S01671.enquire +++| SB7 X5 02248 M00S01672.enquire +++| EQ B7,B1,PJS3 IF INCOMPLETE LINE 02249 M00S01673.enquire +++| WRITES OUTPUT,USBB,MXLL 02250 M00S01674.enquire +++| BX5 X5-X5 02251 M00S01675.enquire +++| EQ PJS2 PROCESS NEXT ENTRY 02252 M00S01676.enquire +++| 02253 M00S01677.enquire +++| PJS4 RJ RRB RESET *QAC* REQUEST BUFFER
| Line S01678 Modification History | |
|---|---|
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 02254 M01S01678.enqui9 ---| NZ X1,PJS1 IF MORE QUEUES TO SCAN
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 02255 M01S00007.enqui9 +++| NZ X1,PJS6 IF MORE QUEUES TO SCAN 02256 M00S01679.enquire +++| PJS5 ZR X5,PJSX IF LINE ALREADY WRITTEN 02257 M00S01680.enquire +++| WRITES OUTPUT,USBB,MXLL 02258 M00S01681.enquire +++| EQ PJSX RETURN
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01682.enquire +++| 02265 M00S01683.enquire +++|
| Line S01684 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02266 M01S01684.ns21000 ---| PJSA DATA L* JSN SC STATUS JSN SC STATUS*
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02267 M02S00045.ns22000 ---| PJSA DATA L* JSN SC LID STATUS JSN SC LID STATUS*
| Line S00317 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02268 M01S00317.ns22000 +++| PJSA DATA L* JSN SC CS DS LID STATUS JSN SC CS * 02269 M01S00318.ns22000 +++| DATA L*DS LID STATUS* 02270 M00S01685.enquire +++| DATA 0 02271 M00S01686.enquire +++| PJSAL EQU *-PJSA LENGTH OF PAGE HEADER 02272 M00S01687.enquire +++| TITLE UJN OPTION. 02273 M00S01688.enquire +++| PUJ SPACE 4,10 02274 M00S01689.enquire +++|** PUJ - PROCESS UJN PARAMETER. 02275 M00S01690.enquire +++|* 02276 M00S01691.enquire +++|* ENTRY (X5) = UJN PARAMETER WORD. 02277 M00S01692.enquire +++|* 02278 M00S01693.enquire +++|* USES X - 0, 1, 2, 3, 6, 7. 02279 M00S01694.enquire +++|* A - 1, 2, 3, 6, 7. 02280 M00S01695.enquire +++|* B - 4, 6, 7. 02281 M00S01696.enquire +++|*
| Line S01697 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02282 M01S01697.ns22000 ---|* CALLS BFB, CFP, ESB, GJS, GSC, IPR, ISM, RRB, SFN.
| Line S00319 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02283 M01S00319.ns22000 +++|* CALLS BFB, CFP, ESB, GCS, GDR, GJS, GSC, IPR, ISM, RRB, 02284 M01S00320.ns22000 +++|* SFN. 02285 M00S01698.enquire +++|*
| Line S01699 Modification History | |
|---|---|
M01 (Removed by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02286 M01S01699.enqui10 ---|* MACROS REWIND, WRITES.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02287 M01S00001.enqui10 +++|* MACROS WRITES. 02288 M00S01700.enquire +++|* 02289 M00S01701.enquire +++|* EXAMPLE - 02290 M00S01702.enquire +++|* 02291 M00S01703.enquire +++|* 1 2 3 4 5 6 7 02292 M00S01704.enquire +++|* 234567890123456789012345678901234567890123456789012345678901234567890 02293 M00S01705.enquire +++|*
| Line S01706 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02294 M01S01706.ns21000 ---|* JSN SC UJN STATUS EXECUTING MESSAGE
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02295 M02S00046.ns22000 ---|* JSN SC LID UJN STATUS EXECUTING MESSAGE
| Line S01707 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02296 M01S01707.ns22000 ---|*
| Line S01708 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02297 M02S01708.ns22000 ---|* ABFB.D.MYJOBAA EXECUTING ASSEMBLING LFM
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02298 M02S00047.ns22000 ---|* ABFB.D.M90.MYJOBAA EXECUTING ASSEMBLING LFM
| Line S00321 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01709.enquire +++| 02303 M00S01710.enquire +++| 02304 M00S01711.enquire +++| PUJ SUBR ENTRY/EXIT 02305 M00S01712.enquire +++| MX0 42 SAVE UJN 02306 M00S01713.enquire +++| BX6 X0*X5 02307 M00S01714.enquire +++| SA6 PUJB 02308 M00S01715.enquire +++| SA6 PUJC 02309 M00S01716.enquire +++| SA1 PIUJ SET PEEK INFORMATION BITS
| Line S01717 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02310 M01S01717.ns22000 ---| SX6 LINP-3 FORCE PAGE EJECT
| Line S00324 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02311 M01S00324.ns22000 +++| SX6 99999 FORCE EJECT 02312 M00S01718.enquire +++| SA6 LCT 02313 M00S01719.enquire +++| BX7 X1 02314 M00S01720.enquire +++| SA7 BQPF+2 02315 M00S01721.enquire +++| PUJ1 RJ IPR ISSUE PEEK REQUEST
| Line S01722 Modification History | |
|---|---|
M01 (Removed by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02316 M01S01722.enqui10 ---| NZ X1,PUJ8 IF NO JOBS FOUND
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02317 M01S00002.enqui10 +++| NZ X1,PUJX IF NO JOBS FOUND 02318 M00S01723.enquire +++| PUJ2 SB6 PUJA CHECK FOR PAGE LIMIT 02319 M00S01724.enquire +++| SB7 PUJAL 02320 M00S01725.enquire +++| RJ CFP 02321 M00S01726.enquire +++| RJ BFB BLANK FILL STRING BUFFER 02322 M00S01727.enquire +++| SA1 BQAC+3 GET NEXT ENTRY 02323 M00S01728.enquire +++| SB6 X1+ GET *OUT* POINTER 02324 M00S01729.enquire +++| MX0 42 GET UJN
| Line S01730 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02325 M01S01730.ns22000 ---| SA1 B6+2
| Line S00325 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02326 M01S00325.ns22000 +++| SA1 B6+3 02327 M00S01731.enquire +++| BX1 X0*X1 02328 M00S01732.enquire +++| SA2 PUJB 02329 M00S01733.enquire +++| ZR X2,PUJ3 IF NOT SEARCHING FOR SPECIFIC UJN 02330 M00S01734.enquire +++| BX2 X1-X2 02331 M00S01735.enquire +++| NZ X2,PUJ7 IF NOT MATCH 02332 M00S01736.enquire +++| BX6 X6-X6 SPECIFIC UJN FOUND 02333 M00S01737.enquire +++| SA6 PUJC 02334 M00S01738.enquire +++| PUJ3 RJ SFN SPACE FILL UJN 02335 M00S01739.enquire +++| SB7 UJUL 02336 M00S01740.enquire +++| RJ ESB 02337 M00S01741.enquire +++| MX0 24 02338 M00S01742.enquire +++| SA1 B6+ GET JSN 02339 M00S01743.enquire +++| BX1 X0*X1 02340 M00S01744.enquire +++| RJ SFN 02341 M00S01745.enquire +++| SB7 JSUL SET JSN 02342 M00S01746.enquire +++| RJ ESB 02343 M00S01747.enquire +++| SX6 1R. 02344 M00S01748.enquire +++| SA6 B7+ 02345 M00S01749.enquire +++| RJ GSC GET SERVICE CLASS 02346 M00S01750.enquire +++| SB7 SCUL SET SERVICE CLASS 02347 M00S01751.enquire +++| RJ ESB 02348 M00S01752.enquire +++| SX6 1R. 02349 M00S01753.enquire +++| SA6 B7+
| Line S00326 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02356 M02S00048.ns22000 ---| SA1 B6+14D GET LID
| Line S00332 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02372 M01S01754.ns22000 ---| SB4 3 GET JOB STATUS
| Line S00339 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02373 M01S00339.ns22000 +++| SB4 4 GET JOB STATUS 02374 M00S01755.enquire +++| RJ GJS 02375 M00S01756.enquire +++| SB7 STUL SET JOB STATUS 02376 M00S01757.enquire +++| RJ ESB 02377 M00S01758.enquire +++| SB7 EMUL
| Line S01759 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02378 M01S01759.ns22000 ---| SA1 B6+11 CHECK *MS2W*
| Line S00340 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02379 M01S00340.ns22000 +++| SA1 B6+12 CHECK *MS2W* 02380 M00S01760.enquire +++| NZ X1,PUJ4 IF MESSAGE PRESENT
| Line S01761 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02381 M01S01761.ns22000 ---| SA1 B6+5 USE MESSAGE IN *MS1W*
| Line S00341 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02382 M01S00341.ns22000 +++| SA1 B6+6 USE MESSAGE IN *MS1W* 02383 M00S01762.enquire +++| PUJ4 BX6 X1 02384 M00S01763.enquire +++| RJ ESB 02385 M00S01764.enquire +++| SA1 L1UL 02386 M00S01765.enquire +++| SB7 X1+ 02387 M00S01766.enquire +++| SA2 USBB+B7 CHANGE TRAILING ZEROES TO BLANKS 02388 M00S01767.enquire +++| SX6 1R 02389 M00S01768.enquire +++| PUJ5 SA2 A2-B1 02390 M00S01769.enquire +++| NZ X2,PUJ6 IF NONZERO CHARACTER 02391 M00S01770.enquire +++| SA6 A2 02392 M00S01771.enquire +++| EQ PUJ5 CHECK NEXT CHARACTER 02393 M00S01772.enquire +++| 02394 M00S01773.enquire +++| PUJ6 WRITES OUTPUT,USBB,B7 02395 M00S01774.enquire +++| PUJ7 SA2 BQPF+1 GET PEEK REPLY ENTRY LENGTH 02396 M00S01775.enquire +++| MX0 -12 02397 M00S01776.enquire +++| BX2 -X0*X2 02398 M00S01777.enquire +++| SA1 BQAC+3 ADVANCE *OUT* POINTER 02399 M00S01778.enquire +++| SA3 A1-B1 02400 M00S01779.enquire +++| IX6 X2+X1 02401 M00S01780.enquire +++| IX3 X6-X3 CALCULATE *OUT* - *IN* 02402 M00S01781.enquire +++| SA6 A1 02403 M00S01782.enquire +++| NZ X3,PUJ2 IF MORE ENTRIES IN REPLY BUFFER 02404 M00S01783.enquire +++| RJ RRB RESET REQUEST BUFFER 02405 M00S01784.enquire +++| NZ X1,PUJ1 IF MORE QUEUES TO SCAN
| Line S01785 Modification History | |
|---|---|
M01 (Removed by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02406 M01S01785.enqui10 ---| PUJ8 SA1 PUJC
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02407 M01S00003.enqui10 +++| SA1 PUJC 02408 M00S01786.enquire +++| ZR X1,PUJX IF NOT SEARCHING FOR UJN
| Line S01787 Modification History | |
|---|---|
M01 (Removed by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02409 M01S01787.enqui10 ---| REWIND OUTPUT,R
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01788.enquire +++| SA1 PUJB 02422 M00S01789.enquire +++| SA2 EMSD * UJN NOT FOUND.* 02423 M00S01790.enquire +++| RJ ISM ISSUE ERROR MESSAGE 02424 M00S01791.enquire +++| EQ PUJX RETURN 02425 M00S01792.enquire +++| 02426 M00S01793.enquire +++|
| Line S01794 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 02427 M01S01794.ns21000 ---| PUJA DATA L* JSN SC UJN STATUS EXECUTING MESSA 02428 M01S01795.ns21000 ---|,GE*
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns21000 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02429 M02S00057.ns22000 ---| PUJA DATA L* JSN SC LID UJN STATUS EXECUTIN* 02430 M02S00058.ns22000 ---| DATA L*G MESSAGE*
| Line S00342 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02431 M01S00342.ns22000 +++| PUJA DATA L* JSN SC CS DS LID UJN STATUS EXECUT* 02432 M01S00343.ns22000 +++| DATA L*ING MESSAGE* 02433 M00S01796.enquire +++| DATA 0 02434 M00S01797.enquire +++| PUJAL EQU *-PUJA LENGTH OF PAGE HEADER 02435 M00S01798.enquire +++| 02436 M00S01799.enquire +++| PUJB CON 0 UJN TO SEARCH FOR 02437 M00S01800.enquire +++| PUJC CON 0 SEARCHING FOR UJN FLAG
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | enqui10 |
Seq # *Modification Id* Act ----------------------------+ 02438 M01S00015.enqui10 +++| PUJD DATA L*NOT FOUND * 02439 M00S01801.enquire +++| TITLE SUBROUTINES. 02440 M00S01802.enquire +++| BFB SPACE 4,10 02441 M00S01803.enquire +++|** BFB - BLANK FILL STRING BUFFER. 02442 M00S01804.enquire +++|* 02443 M00S01805.enquire +++|* EXIT (USBB) = STRING BUFFER BLANK FILLED. 02444 M00S01806.enquire +++|* 02445 M00S01807.enquire +++|* USES X - 1, 6. 02446 M00S01808.enquire +++|* A - 1, 6. 02447 M00S01809.enquire +++|* B - 2. 02448 M00S01810.enquire +++| 02449 M00S01811.enquire +++| 02450 M00S01812.enquire +++| BFB SUBR ENTRY/EXIT 02451 M00S01813.enquire +++| SA1 USBB 02452 M00S01814.enquire +++| SB2 USBBL 02453 M00S01815.enquire +++| SX6 1R 02454 M00S01816.enquire +++| BFB1 SA6 A1 02455 M00S01817.enquire +++| SB2 B2-B1 02456 M00S01818.enquire +++| SA1 A1+1 02457 M00S01819.enquire +++| NZ B2,BFB1 IF NOT END OF BUFFER 02458 M00S01820.enquire +++| EQ BFBX RETURN 02459 M00S01821.enquire +++| CFP SPACE 4,15 02460 M00S01822.enquire +++|** CFP - CHECK FOR END OF PAGE. 02461 M00S01823.enquire +++|* 02462 M00S01824.enquire +++|* ENTRY (B6) = FWA OF PAGE HEADER. 02463 M00S01825.enquire +++|* (B7) = LENGTH OF PAGE HEADER (WORDS). 02464 M00S01826.enquire +++|* (LCT) = CURRENT LINE COUNT.
| Line S00344 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02465 M01S00344.ns22000 +++|* (LLM) = CURRENT PAGE SIZE. 02466 M00S01827.enquire +++|* 02467 M00S01828.enquire +++|* EXIT LINE COUNT UPDATED. 02468 M00S01829.enquire +++|* NEW PAGE HEADER WRITTEN IF END OF PAGE. 02469 M00S01830.enquire +++|* 02470 M00S01831.enquire +++|* USES X - 1, 2, 6, 7. 02471 M00S01832.enquire +++|* A - 1, 2, 6, 7. 02472 M00S01833.enquire +++|* 02473 M00S01834.enquire +++|* MACROS WRITEW. 02474 M00S01835.enquire +++| 02475 M00S01836.enquire +++| 02476 M00S01837.enquire +++| CFP SUBR ENTRY/EXIT 02477 M00S01838.enquire +++| SA1 LCT INCREMENT LINE COUNT 02478 M00S01839.enquire +++| SX6 X1+B1 02479 M00S01840.enquire +++| SA6 A1
| Line S01841 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02480 M01S01841.ns22000 ---| SX7 X1-LINP+3 02481 M01S01842.ns22000 ---| NZ X7,CFPX IF NOT END OF PAGE
| Line S00345 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01843.enquire +++| SA7 A1 RESET LINE COUNT
| Line S01844 Modification History | |
|---|---|
M01 (Removed by) | enqui13 |
Seq # *Modification Id* Act ----------------------------+ 02488 M01S01844.enqui13 ---| SX6 B6 SAVE FWA OF PAGE HEADER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | enqui13 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01845.enquire +++| SA6 CFPA 02495 M00S01846.enquire +++| SX7 B7+ SAVE LENGTH OF PAGE HEADER 02496 M00S01847.enquire +++| SA7 CFPC 02497 M00S01848.enquire +++| WRITEW OUTPUT,PAGE,B1 WRITE NEW PAGE HEADER 02498 M00S01849.enquire +++| SA1 CFPA 02499 M00S01850.enquire +++| SA2 CFPC 02500 M00S01851.enquire +++| WRITEW OUTPUT,X1,X2 02501 M00S01852.enquire +++| EQ CFPX RETURN 02502 M00S01853.enquire +++| 02503 M00S01854.enquire +++| 02504 M00S01855.enquire +++| CFPA CON 0 FWA OF PAGE HEADER 02505 M00S01856.enquire +++| CFPC CON 0 LENGTH OF PAGE HEADER 02506 M00S01857.enquire +++| CIH SPACE 4,10 02507 M00S01858.enquire +++|** CIH - COMPUTE USER INDEX HASH. 02508 M00S01859.enquire +++|* 02509 M00S01860.enquire +++|* ENTRY (X7) = 18 BIT USER INDEX (RIGHT JUSTIFIED). 02510 M00S01861.enquire +++|* 02511 M00S01862.enquire +++|* EXIT (X7) = 4 CHARACTER USER INDEX HASH (LEFT JUSTIFIED 02512 M00S01863.enquire +++|* WITH ZERO FILL). 02513 M00S01864.enquire +++|* 02514 M00S01865.enquire +++|* USES X - 0, 1, 2, 3, 7. 02515 M00S01866.enquire +++|* B - 2, 3. 02516 M00S01867.enquire +++| 02517 M00S01868.enquire +++| 02518 M00S01869.enquire +++| CIH SUBR ENTRY/EXIT 02519 M00S01870.enquire +++| SB2 59-11 INITIAL SHIFT COUNT 02520 M00S01871.enquire +++| SB3 5 02521 M00S01872.enquire +++| MX0 -5 02522 M00S01873.enquire +++| LX3 B2,X7 BITS 12-16 OF USER INDEX 02523 M00S01874.enquire +++| BX2 -X0*X3 FIRST CHARACTER OF HASH 02524 M00S01875.enquire +++| SX2 X2+B1 02525 M00S01876.enquire +++| LX2 6 02526 M00S01877.enquire +++| SB2 B2+B3 SHIFT COUNT FOR SECOND CHARACTER 02527 M00S01878.enquire +++| LX3 B2,X7 BITS 7-11 OF USER INDEX 02528 M00S01879.enquire +++| BX1 -X0*X3 SECOND CHARACTER OF HASH 02529 M00S01880.enquire +++| SX1 X1+B1 02530 M00S01881.enquire +++| BX2 X2+X1 02531 M00S01882.enquire +++| LX2 6 02532 M00S01883.enquire +++| SB2 B2+B3 SHIFT COUNT FOR THIRD CHARACTER 02533 M00S01884.enquire +++| LX3 B2,X7 BITS 2-6 OF USER INDEX 02534 M00S01885.enquire +++| BX1 -X0*X3 THIRD CHARACTER OF HASH 02535 M00S01886.enquire +++| SX1 X1+B1 02536 M00S01887.enquire +++| BX2 X2+X1 02537 M00S01888.enquire +++| LX2 6 02538 M00S01889.enquire +++| MX0 -2 FOURTH CHARACTER OF HASH 02539 M00S01890.enquire +++| BX1 -X0*X7 BITS 1-0 OF USER INDEX 02540 M00S01891.enquire +++| LX1 3 02541 M00S01892.enquire +++| SX1 X1+B1 02542 M00S01893.enquire +++| BX7 X2+X1 02543 M00S01894.enquire +++| LX7 59-23 LEFT JUSTIFY USER INDEX HASH 02544 M00S01895.enquire +++| EQ CIHX EXIT 02545 M00S01896.enquire +++| CLM SPACE 4,15 02546 M00S01897.enquire +++|** CLM - CHECK AND CONVERT LIMIT. 02547 M00S01898.enquire +++|* 02548 M00S01899.enquire +++|* ENTRY (X5) = VALUE TO CONVERT. 02549 M00S01900.enquire +++|* (X0) = MASK. 02550 M00S01901.enquire +++|* 02551 M00S01902.enquire +++|* EXIT (X6) = CONVERTED VALUE, RIGHT JUSTIFIED. 02552 M00S01903.enquire +++|* (X7) = CONVERTED VALUE, LEFT JUSTIFIED. 02553 M00S01904.enquire +++|* 02554 M00S01905.enquire +++|* USES A - 2. 02555 M00S01906.enquire +++|* X - 1, 2, 3, 6, 7. 02556 M00S01907.enquire +++|* 02557 M00S01908.enquire +++|* CALLS CDD. 02558 M00S01909.enquire +++| 02559 M00S01910.enquire +++| 02560 M00S01911.enquire +++| CLM SUBR ENTRY/EXIT 02561 M00S01912.enquire +++| SA2 =L*NO LIMIT* 02562 M00S01913.enquire +++| BX1 -X0*X5 02563 M00S01914.enquire +++| BX3 X0+X1 02564 M00S01915.enquire +++| BX7 X2 02565 M00S01916.enquire +++| LX2 -12 02566 M00S01917.enquire +++| BX6 X2 02567 M00S01918.enquire +++| ZR X3,CLMX IF NO LIMIT 02568 M00S01919.enquire +++| MX3 57 COMPLETE MASK (ADD BITS 2-0) 02569 M00S01920.enquire +++| BX3 X3*X0 02570 M00S01921.enquire +++| BX1 -X3*X5 02571 M00S01922.enquire +++| RJ CDD CONVERT TO DECIMAL DISPLAY 02572 M00S01923.enquire +++| MX3 42 INSURE END OF LINE 02573 M00S01924.enquire +++| BX7 X3*X4 02574 M00S01925.enquire +++| EQ CLMX RETURN 02575 M00S01926.enquire +++| CSD SPACE 4,15 02576 M00S01927.enquire +++|** CSD - CONVERT TO SIGNED DISPLAY CODE. 02577 M00S01928.enquire +++|* 02578 M00S01929.enquire +++|* ENTRY (X1) = 18-BIT VALUE TO BE CONVERTED, RIGHT JUSTIFIED. 02579 M00S01930.enquire +++|* 02580 M00S01931.enquire +++|* EXIT (X6) = SIGNED VALUE, MAXIMUM OF 6 CHARACTERS 02581 M00S01932.enquire +++|* PLUS SIGN CHARACTER. 02582 M00S01933.enquire +++|* 02583 M00S01934.enquire +++|* USES B - 5. 02584 M00S01935.enquire +++|* X - 1, 2, 3, 4, 6. 02585 M00S01936.enquire +++|* 02586 M00S01937.enquire +++|* CALLS CDD. 02587 M00S01938.enquire +++| 02588 M00S01939.enquire +++| 02589 M00S01940.enquire +++| CSD SUBR ENTRY/EXIT 02590 M00S01941.enquire +++| SB5 B0 02591 M00S01942.enquire +++| BX2 X1 02592 M00S01943.enquire +++| LX2 59-17 02593 M00S01944.enquire +++| BX3 -X2 GET COMPLEMENT 02594 M00S01945.enquire +++| PL X2,CSD1 IF NOT NEGATIVE VALUE 02595 M00S01946.enquire +++| AX3 59-17 FIND POSITIVE VALUE 02596 M00S01947.enquire +++| BX1 X3 02597 M00S01948.enquire +++| SB5 1R- SET NEGATIVE SIGN 02598 M00S01949.enquire +++| CSD1 RJ CDD CONVERT TO DISPLAY CODE 02599 M00S01950.enquire +++| ZR B5,CSD2 IF NOT A NEGATIVE VALUE 02600 M00S01951.enquire +++| SX3 B5 ADD SIGN TO VALUE 02601 M00S01952.enquire +++| AX4 6 02602 M00S01953.enquire +++| MX2 6 CLEAR UPPER 6 BITS 02603 M00S01954.enquire +++| BX4 -X2*X4 02604 M00S01955.enquire +++| LX3 54 02605 M00S01956.enquire +++| BX4 X4+X3 02606 M00S01957.enquire +++| CSD2 MX1 48 02607 M00S01958.enquire +++| BX6 X1*X4 02608 M00S01959.enquire +++| EQ CSDX RETURN 02609 M00S01960.enquire +++| CSR SPACE 4,10 02610 M00S01961.enquire +++|** CSR - CONVERT SRU-S. 02611 M00S01962.enquire +++|* 02612 M00S01963.enquire +++|* ENTRY (X2) = SRU VALUE (MICRO-UNITS*10). 02613 M00S01964.enquire +++|* 02614 M00S01965.enquire +++|* EXIT (X6) = F10.3 FORMAT VALUE. 02615 M00S01966.enquire +++|* = *NO LIMIT*, IF SRU VALUE .EQ. -0. 02616 M00S01967.enquire +++|* 02617 M00S01968.enquire +++|* USES X - 0, 1, 3, 6. 02618 M00S01969.enquire +++|* A - 3. 02619 M00S01970.enquire +++|* 02620 M00S01971.enquire +++|* CALLS CFD. 02621 M00S01972.enquire +++| 02622 M00S01973.enquire +++| 02623 M00S01974.enquire +++| CSR1 SA3 =L*NO LIMIT* 02624 M00S01975.enquire +++| BX6 X3 02625 M00S01976.enquire +++| 02626 M00S01977.enquire +++| CSR SUBR ENTRY/EXIT 02627 M00S01978.enquire +++| MX0 -42 02628 M00S01979.enquire +++| BX1 -X0*X2 02629 M00S01980.enquire +++| BX3 X0+X1 02630 M00S01981.enquire +++| ZR X3,CSR1 IF NO LIMIT 02631 M00S01982.enquire +++| SA3 MLPY SRU CONSTANT (=.0001) 02632 M00S01983.enquire +++| PX1 X1 02633 M00S01984.enquire +++| FX1 X3*X1 SRU/10000 02634 M00S01985.enquire +++| RJ CFD CONVERT TO F10.3 FORMAT 02635 M00S01986.enquire +++| EQ CSRX RETURN
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | enqui14 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01987.enquire +++| ESB SPACE 4,15 02677 M00S01988.enquire +++|** ESB - ENTER DATA INTO STRING BUFFER. 02678 M00S01989.enquire +++|* 02679 M00S01990.enquire +++|* ENTRY (B7) = ADDRESS OF LINE DESCRIPTOR ENTRY. 02680 M00S01991.enquire +++|* (X6) = FIRST WORD OF DATA TO TRANSFER. 02681 M00S01992.enquire +++|* (A1) = ADDRESS OF DATA TO TRANSFER, IF MORE THAN 02682 M00S01993.enquire +++|* ONE WORD. 02683 M00S01994.enquire +++|* 02684 M00S01995.enquire +++|* EXIT (B7) = CURRENT STRING BUFFER ADDRESS. 02685 M00S01996.enquire +++|* 02686 M00S01997.enquire +++|* USES X - 0, 1, 2, 3, 6, 7. 02687 M00S01998.enquire +++|* A - 1, 2, 7. 02688 M00S01999.enquire +++|* B - 2, 3, 7. 02689 M00S02000.enquire +++| 02690 M00S02001.enquire +++| 02691 M00S02002.enquire +++| ESB SUBR ENTRY/EXIT 02692 M00S02003.enquire +++| SA2 B7+ GET NUMBER OF CHARACTERS TO TRANSFER 02693 M00S02004.enquire +++| SB2 X2 02694 M00S02005.enquire +++| LX2 -18 02695 M00S02006.enquire +++| SX3 X2 GET CHARACTER INDEX 02696 M00S02007.enquire +++| SB7 USBB+X3 SET STARTING ADDRESS IN STRING BUFFER 02697 M00S02008.enquire +++| MX0 -6 02698 M00S02009.enquire +++| ESB1 SB3 10 SET CHARACTERS PER WORD 02699 M00S02010.enquire +++| ESB2 LX6 6 02700 M00S02011.enquire +++| SB2 B2-B1 02701 M00S02012.enquire +++| BX7 -X0*X6 02702 M00S02013.enquire +++| SB3 B3-B1 02703 M00S02014.enquire +++| SA7 B7 02704 M00S02015.enquire +++| SB7 B7+B1 02705 M00S02016.enquire +++| ZR B2,ESBX IF ALL CHARACTERS TRANSFERRED 02706 M00S02017.enquire +++| NZ B3,ESB2 IF NOT END OF WORD 02707 M00S02018.enquire +++| SA1 A1+B1 02708 M00S02019.enquire +++| BX6 X1 02709 M00S02020.enquire +++| EQ ESB1 TRANSFER NEXT CHARACTER
| Line S00350 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02021.enquire +++| GJS SPACE 4,15 02768 M00S02022.enquire +++|** GJS - GET JOB STATUS. 02769 M00S02023.enquire +++|* 02770 M00S02024.enquire +++|* ENTRY (B4) = EJT STATUS WORD OFFSET. 02771 M00S02025.enquire +++|* (B6) = PEEK REPLY ENTRY ADDRESS. 02772 M00S02026.enquire +++|* 02773 M00S02027.enquire +++|* EXIT (A1) = ADDRESS OF STATUS DESCRIPTOR.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/enquire.001.txt · Last modified: (external edit)