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.