Seq # *Modification Id* Act
----------------------------+
01366 M00S01172.tafrec +++| ZR B5,BDR7 IF *CDCS* DOWN
01367 M00S01173.tafrec +++| SB5 X2-CSTI
01368 M00S01174.tafrec +++| ZR B5,BDR7 IF RECOVERABLE TRANSACTION/JOB INPUT
01369 M00S01175.tafrec +++| SB5 X2-CSBC
01370 M00S01176.tafrec +++| ZR B5,BDR7 IF BEGIN/COMMIT ID-S LOGGED
01371 M00S01177.tafrec +++| SB5 X2-CSND
01372 M00S01178.tafrec +++| ZR B5,BDR7 IF NAM DOWN
01373 M00S01179.tafrec +++| EQ BDR8 RECOVERY BIT NOT SET
01374 M00S01180.tafrec +++|
01375 M00S01181.tafrec +++|* SET AUTOMATIC RECOVERY BIT.
01376 M00S01182.tafrec +++|
01377 M00S01183.tafrec +++| BDR7 SA3 A3-TSTNW+TSARW
01378 M00S01184.tafrec +++| MX6 TSARN
01379 M00S01185.tafrec +++| LX6 TSARS-59
01380 M00S01186.tafrec +++| BX6 X3+X6 SET AUTO RECOVERY BIT
01381 M00S01187.tafrec +++| SA6 A3
01382 M00S01188.tafrec +++|
01383 M00S01189.tafrec +++|* BUILD DIRECTORY ENTRY.
01384 M00S01190.tafrec +++|
01385 M00S01191.tafrec +++| BDR8 SA1 BDRD
01386 M00S01192.tafrec +++| SA2 BDRH+2 TERMINAL NAME
01387 M00S01193.tafrec +++| BX6 X2
01388 M00S01194.tafrec +++| SA2 TRBUF+TRCNW
01389 M00S01195.tafrec +++| MX0 -TRCNN
01390 M00S01196.tafrec +++| BX7 -X0*X2 TRANSACTION SEQUENCE NUMBER
01391 M00S01197.tafrec +++| LX7 30
01392 M00S01198.tafrec +++| SA2 BDRC DISK ADDRESS
01393 M00S01199.tafrec +++| BX7 X7+X2
01394 M00S01200.tafrec +++| SA3 TRBUF+TRCSW
01395 M00S01201.tafrec +++| MX0 -TRCSN
01396 M00S01202.tafrec +++| BX4 -X0*X3 CURRENT TRANSACTION STEP
01397 M00S01203.tafrec +++| SX0 X4-TSTPL
01398 M00S01204.tafrec +++| PL X0,BDR2 IF TRANSACTION STEP NOT IN TABLE
01399 M00S01205.tafrec +++| NZ X4,BDR9 IF NOT NONRECOVERABLE TRANSACTION
01400 M00S01206.tafrec +++| MX2 1
01401 M00S01207.tafrec +++| BX7 X7+X2 ADD INACTIVE FLAG
01402 M00S01208.tafrec +++| BDR9 BX6 X6+X4 ADD STEP TO DIRECTORY
01403 M00S01209.tafrec +++| LX3 TRTYN-TRTYS-1
01404 M00S01210.tafrec +++| MX0 -TRTYN
01405 M00S01211.tafrec +++| BX4 -X0*X3
01406 M00S01212.tafrec +++| SA3 TNRC+X4
01407 M00S01213.tafrec +++| SX0 X4-TTYPL-1
01408 M00S01214.tafrec +++| PL X0,BDR2 IF TRANSACTION TYPE NOT IN TABLE
01409 M00S01215.tafrec +++| LX4 17-5
01410 M00S01216.tafrec +++| BX6 X6+X4 ADD TYPE TO DIRECTORY
01411 M00S01217.tafrec +++| SA6 X1
01412 M00S01218.tafrec +++| SA7 A6+B1
01413 M00S01219.tafrec +++| SX6 X3+B1 INCREMENT COUNT OF RECOVERED TYPES
01414 M00S01220.tafrec +++| SA6 A3
01415 M00S01221.tafrec +++| SA3 TRBUF+TRCDW DATE
01416 M00S01222.tafrec +++| SA4 TRBUF+TRCTW TIME
01417 M00S01223.tafrec +++| BX6 X3
01418 M00S01224.tafrec +++| BX7 X4
01419 M00S01225.tafrec +++| SA6 A7+B1
01420 M00S01226.tafrec +++| SA7 A6+B1
01421 M00S01227.tafrec +++|
01422 M00S01228.tafrec +++|* READ ALL MESSAGES FOR RECOVERY UNIT TO HELP AVOID I/O
01423 M00S01229.tafrec +++|* ERRORS DURING TRANSACTION PROCESSING.
01424 M00S01230.tafrec +++|
01425 M00S01231.tafrec +++| SA2 BDRB WORDS IN ALL MESSAGES
01426 M00S01232.tafrec +++| RJ RMR READ MESSAGE RECORDS
01427 M00S01233.tafrec +++| SA2 BDRD
01428 M00S01234.tafrec +++| ZR X1,BDR10 IF NO ERROR
01429 M00S01235.tafrec +++|
01430 M00S01236.tafrec +++|* AN I/O ERROR OCCURRED ON A MESSAGE RECORD IN THE
01431 M00S01237.tafrec +++|* RECOVERY UNIT. IF NO ERROR OVERRIDE, REPORT ERROR ON
01432 M00S01238.tafrec +++|* RECOVERY REPORT AND ABORT *TAFREC*. OTHERWISE, REFORMAT
| Line S01239 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01433 M01S01239.ns2023 ---|* THE TRF AND INDICATE RECOVERY IS NO LONGER AVAILABLE
| Line S00142 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01434 M01S00142.ns2023 +++|* THE *CRF* AND INDICATE THAT RECOVERY IS NO LONGER AVAILABLE
01435 M00S01240.tafrec +++|* FOR RECOVERY UNIT.
01436 M00S01241.tafrec +++|
01437 M00S01242.tafrec +++| SA1 OVRD
01438 M00S01243.tafrec +++| ZR X1,BDR3 IF ERROR OVERRIDE NOT SET
01439 M00S01244.tafrec +++| SA1 X2+B1
01440 M00S01245.tafrec +++| MX3 1
01441 M00S01246.tafrec +++| LX3 -1
01442 M00S01247.tafrec +++| BX6 X1+X3 SET ERROR BIT
01443 M00S01248.tafrec +++| SA6 A1
01444 M00S01249.tafrec +++| SA1 TERR
01445 M00S01250.tafrec +++| SX6 X1+B1 INCREMENT ERROR COUNT
01446 M00S01251.tafrec +++| SA6 A1+
01447 M00S01252.tafrec +++| SA6 BDRE INDICATE REFORMAT NECESSARY
01448 M00S01253.tafrec +++| BDR10 SX6 X2+RUDL UPDATE DIRECTORY ADDRESS
01449 M00S01254.tafrec +++| SA6 BDRD
01450 M00S01255.tafrec +++| BDR11 SA0 A0-B1 NUMBER OF RECOVERY UNITS LEFT
01451 M00S01256.tafrec +++| SA2 BDRC UPDATE PRU ADDRESS OF NEXT RECOVERY UNIT
01452 M00S01257.tafrec +++| SX7 A0
01453 M00S01258.tafrec +++| SA3 BDRA INCREMENT
01454 M00S01259.tafrec +++| IX6 X2+X3
01455 M00S01260.tafrec +++| SA6 A2
01456 M00S01261.tafrec +++| NZ X7,BDR1 IF MORE RECOVERY UNITS
01457 M00S01262.tafrec +++|
01458 M00S01263.tafrec +++|* SORT DIRECTORY OF RECOVERY UNITS BY TERMINAL NAME.
01459 M00S01264.tafrec +++|
01460 M00S01265.tafrec +++| SA1 BDRD
01461 M00S01266.tafrec +++| SX1 X1-DIR DIRECTORY LENGTH
01462 M00S01267.tafrec +++| SB3 DIR FWA OF DIRECTORY
01463 M00S01268.tafrec +++| SB4 RUDL DIRECTORY ENTRY LENGTH
01464 M00S01269.tafrec +++| RJ SDR SORT DIRECTORY
01465 M00S01270.tafrec +++|
| Line S01271 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01466 M01S01271.ns2023 ---|* REFORMAT TRF IF NUMBER OF TERMINALS CHANGED, OR IF
| Line S00143 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01467 M01S00143.ns2023 +++|* REFORMAT *CRF* IF NUMBER OF TERMINALS CHANGED, OR IF
01468 M00S01272.tafrec +++|* NUMBER OF USER MESSAGES OR MESSAGE SIZE INCREASED, OR
01469 M00S01273.tafrec +++|* IF I/O OR DATA ERROR OCCURRED.
01470 M00S01274.tafrec +++|
01471 M00S01275.tafrec +++| SA1 BDRE ERROR INDICATOR
01472 M00S01276.tafrec +++| BX6 X1
01473 M00S01277.tafrec +++| NZ X6,BDRX IF REFORMAT NECESSARY
01474 M00S01278.tafrec +++| SA2 NMRU NUMBER OF RECOVERY UNITS
01475 M00S01279.tafrec +++| SA3 HTST
01476 M00S01280.tafrec +++| SA4 LTST
01477 M00S01281.tafrec +++| IX3 X3-X4
01478 M00S01282.tafrec +++| SX4 TSTLLE
01479 M00S01283.tafrec +++| IX3 X3/X4
01480 M00S01284.tafrec +++| SX3 X3+B1 NUMBER OF TST ENTRIES
01481 M00S01285.tafrec +++| IX6 X3-X2
01482 M00S01286.tafrec +++| NZ X6,BDRX IF REFORMAT NECESSARY
01483 M00S01287.tafrec +++| SA1 CUID CURRENT ID
01484 M00S01288.tafrec +++| SA1 TREC+X1
01485 M00S01289.tafrec +++| MX0 12
01486 M00S01290.tafrec +++| LX0 36
01487 M00S01291.tafrec +++| BX6 X0*X1 NUMBER MESSAGES ON *RECOVER* DIRECTIVE
01488 M00S01292.tafrec +++| LX6 -24
| Line S01293 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01489 M01S01293.ns2023 ---| SA2 NUMO NUMBER USER MESSAGES ON OLD TRF
| Line S00144 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01490 M01S00144.ns2023 +++| SA2 NUMO NUMBER USER MESSAGES ON OLD *CRF*
01491 M00S01294.tafrec +++| IX6 X6-X2
01492 M00S01295.tafrec +++| NZ X6,BDRX IF REFORMAT NECESSARY
01493 M00S01296.tafrec +++| LX0 12
01494 M00S01297.tafrec +++| BX6 X0*X1
01495 M00S01298.tafrec +++| LX6 -36 PRU-S PER USER MESSAGE FROM *RECOVER*
| Line S01299 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01496 M01S01299.ns2023 ---| SA2 PPMO PRU-S PER USER MESSAGE ON OLD TRF
| Line S00145 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01497 M01S00145.ns2023 +++| SA2 PPMO PRU-S PER USER MESSAGE ON OLD *CRF*
01498 M00S01300.tafrec +++| IX6 X6-X2
01499 M00S01301.tafrec +++| EQ BDRX RETURN
01500 M00S01302.tafrec +++|
01501 M00S01303.tafrec +++| BDRA CON 0 PRU-S PER RECOVERY UNIT
01502 M00S01304.tafrec +++| BDRB CON 0 WORDS IN ALL MESSAGE RECORDS
01503 M00S01305.tafrec +++| BDRC CON 0 CURRENT DISK ADDRESS
01504 M00S01306.tafrec +++| BDRD CON 0 CURRENT DIRECTORY ADDRESS
| Line S01307 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01505 M01S01307.ns2023 ---| BDRE CON 0 TRF REFORMAT FLAG
| Line S00146 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01506 M01S00146.ns2023 +++| BDRE CON 0 *CRF* REFORMAT FLAG
01507 M00S01308.tafrec +++| BDRF DATA C* RECOVERABLE RUN UNIT DELETED - XXXXXXX.*
| Line S01309 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01508 M01S01309.v23l617 ---| BDRG DATA C* CRF RECOVERY UNIT ERROR - XXXXXXX.*
| Line S00010 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01509 M01S00010.v23l617 +++| BDRG DATA C* CRF RUN UNIT ERROR - XXXXXXX.*
01510 M00S01310.tafrec +++| BDRH DATA 30H RECOVERING - XXXXXXX.
01511 M00S01311.tafrec +++| BDRI BSSZ 5
01512 M00S01312.tafrec +++| RMR SPACE 4,20
01513 M00S01313.tafrec +++|** RMR - READ MESSAGE RECORDS.
01514 M00S01314.tafrec +++|*
01515 M00S01315.tafrec +++|* READ MESSAGE RECORDS IN A RECOVERY UNIT TO CHECK FOR
01516 M00S01316.tafrec +++|* I/O ERRORS.
01517 M00S01317.tafrec +++|*
01518 M00S01318.tafrec +++|* ENTRY (X2) = NUMBER OF WORDS IN ALL MESSAGE RECORDS.
01519 M00S01319.tafrec +++|* (X5) = FET ADDRESS.
01520 M00S01320.tafrec +++|*
01521 M00S01321.tafrec +++|* EXIT (X1) = 0 IF NO ERRORS ENCOUNTERED.
01522 M00S01322.tafrec +++|*
01523 M00S01323.tafrec +++|* USES X - 1, 2, 6, 7.
01524 M00S01324.tafrec +++|* A - 2, 7.
01525 M00S01325.tafrec +++|*
01526 M00S01326.tafrec +++|* CALLS CES, FIO.
01527 M00S01327.tafrec +++|*
01528 M00S01328.tafrec +++|* MACROS RECALL.
01529 M00S01329.tafrec +++|
01530 M00S01330.tafrec +++|
01531 M00S01331.tafrec +++| RMR SUBR ENTRY/EXIT
01532 M00S01332.tafrec +++| SX7 X2-TRBUFL/100B*100B
01533 M00S01333.tafrec +++| SA7 RMRA
01534 M00S01334.tafrec +++| AX2 6 CONVERT TO PRU-S
01535 M00S01335.tafrec +++| NG X7,RMR1 IF LESS THAN A BUFFER SIZE
01536 M00S01336.tafrec +++| NZ X7,RMR2 IF NOT SAME AS BUFFER SIZE
01537 M00S01337.tafrec +++| RMR1 SX6 B0
01538 M00S01338.tafrec +++| SX1 CIORD
01539 M00S01339.tafrec +++| RJ FIO READ MESSAGE RECORDS
01540 M00S01340.tafrec +++| RECALL X5 WAIT I/O
01541 M00S01341.tafrec +++| RJ CES CHECK ERROR STATUS
01542 M00S01342.tafrec +++| EQ RMRX RETURN
01543 M00S01343.tafrec +++|
01544 M00S01344.tafrec +++| RMR2 SX6 B0+
01545 M00S01345.tafrec +++| SX1 CIORD
01546 M00S01346.tafrec +++| SX2 TRBUFL/100B
01547 M00S01347.tafrec +++| RJ FIO
01548 M00S01348.tafrec +++| RECALL X5 WAIT I/O
01549 M00S01349.tafrec +++| RJ CES CHECK ERROR STATUS
01550 M00S01350.tafrec +++| NZ X1,RMRX IF ERROR
01551 M00S01351.tafrec +++| SA2 RMRA
01552 M00S01352.tafrec +++| SX7 X2-TRBUFL/100B*100B
01553 M00S01353.tafrec +++| AX2 6 PRU-S
01554 M00S01354.tafrec +++| NG X7,RMR1 IF LESS THAN A BUFFER FULL
01555 M00S01355.tafrec +++| ZR X7,RMR1 IF EXACTLY A BUFFER FULL
01556 M00S01356.tafrec +++| SA7 A2
01557 M00S01357.tafrec +++| EQ RMR2 READ MORE MESSAGE RECORDS
01558 M00S01358.tafrec +++|
01559 M00S01359.tafrec +++| RMRA CON 0 WORDS IN ALL MESSAGE RECORDS
01560 M00S01360.tafrec +++| FRL SPACE 4,20
01561 M00S01361.tafrec +++|** FRL - FORMAT REPORT LINE.
01562 M00S01362.tafrec +++|*
01563 M00S01363.tafrec +++|* EXTRACT INFORMATION FROM THE DIRECTORY ENTRY AND FORMAT
01564 M00S01364.tafrec +++|* A PRINT LINE FOR THE REPORT FILE.
01565 M00S01365.tafrec +++|*
01566 M00S01366.tafrec +++|* ENTRY (X5) = ADDRESS OF THE DIRECTORY ENTRY.
01567 M00S01367.tafrec +++|* (A0) = COMMENT INDEX.
01568 M00S01368.tafrec +++|*
01569 M00S01369.tafrec +++|* EXIT LINE WRITTEN TO REPORT FILE.
01570 M00S01370.tafrec +++|*
01571 M00S01371.tafrec +++|* USES X - 0, 1, 2, 6, 7.
01572 M00S01372.tafrec +++|* A - 1, 2, 6, 7.
01573 M00S01373.tafrec +++|* B - 2.
01574 M00S01374.tafrec +++|*
01575 M00S01375.tafrec +++|* CALLS ALC, CDD, SFN.
01576 M00S01376.tafrec +++|*
01577 M00S01377.tafrec +++|* MACROS WRITEW.
01578 M00S01378.tafrec +++|
01579 M00S01379.tafrec +++|
01580 M00S01380.tafrec +++| FRL SUBR ENTRY/EXIT
01581 M00S01381.tafrec +++| MX0 42
01582 M00S01382.tafrec +++| SA1 X5
01583 M00S01383.tafrec +++| BX1 X0*X1 TERMINAL NAME
01584 M00S01384.tafrec +++| RJ SFN SPACE FILL NAME
01585 M00S01385.tafrec +++| LX6 53-59 USE BLANK FOR PRINTER CONTROL
01586 M00S01386.tafrec +++| SA6 RWSA
01587 M00S01387.tafrec +++| MX0 24
01588 M00S01388.tafrec +++| LX0 53-59
01589 M00S01389.tafrec +++| SA1 X5+B1
01590 M00S01390.tafrec +++| BX1 X0*X1
01591 M00S01391.tafrec +++| LX1 23-53
01592 M00S01392.tafrec +++| NZ X1,FRL1 IF TRANSACTION SEQUENCE NUMBER PRESENT
01593 M00S01393.tafrec +++| SA1 BLNK
01594 M00S01394.tafrec +++| BX6 X1
01595 M00S01395.tafrec +++| SA6 RWSA+1
01596 M00S01396.tafrec +++| SA6 A6+B1
01597 M00S01397.tafrec +++| SA6 A6+B1
01598 M00S01398.tafrec +++| SA6 A6+B1
01599 M00S01399.tafrec +++| SA6 A6+B1
01600 M00S01400.tafrec +++| EQ FRL2 PRINT COMMENT
01601 M00S01401.tafrec +++|
01602 M00S01402.tafrec +++| FRL1 RJ COD CONVERT TO DISPLAY
01603 M00S01403.tafrec +++| LX6 12
01604 M00S01404.tafrec +++| MX0 48
01605 M00S01405.tafrec +++| SX2 2RB
01606 M00S01406.tafrec +++| BX6 X0*X6
01607 M00S01407.tafrec +++| BX6 X6+X2
01608 M00S01408.tafrec +++| SA6 RWSA+1
01609 M00S01409.tafrec +++| MX0 6
01610 M00S01410.tafrec +++| LX0 18
01611 M00S01411.tafrec +++| SA1 X5
01612 M00S01412.tafrec +++| BX2 X0*X1
01613 M00S01413.tafrec +++| LX2 -12 TRANSACTION TYPE
01614 M00S01414.tafrec +++| SA2 TTYP+X2
01615 M00S01415.tafrec +++| BX6 X2
01616 M00S01416.tafrec +++| SA6 A6+B1
01617 M00S01417.tafrec +++| MX0 12
01618 M00S01418.tafrec +++| LX0 12
01619 M00S01419.tafrec +++| BX2 X0*X1 TRANSACTION STEP
01620 M00S01420.tafrec +++| SA2 TSTP+X2
01621 M00S01421.tafrec +++| BX6 X2
01622 M00S01422.tafrec +++| SA6 A6+B1
01623 M00S01423.tafrec +++| SA1 X5+2 DATE
01624 M00S01424.tafrec +++| SA2 A1+B1 TIME
01625 M00S01425.tafrec +++| BX7 X1
01626 M00S01426.tafrec +++| BX6 X2
01627 M00S01427.tafrec +++| SA7 A6+B1
01628 M00S01428.tafrec +++| SA6 A7+B1
01629 M00S01429.tafrec +++| FRL2 SA1 FRLA+A0 GET COMMENT
01630 M00S01430.tafrec +++| SA2 A1+B1
01631 M00S01431.tafrec +++| BX6 X1
01632 M00S01432.tafrec +++| BX7 X2
01633 M00S01433.tafrec +++| SA6 A6+B1
01634 M00S01434.tafrec +++| SA7 A6+B1
01635 M00S01435.tafrec +++| SB2 B1
01636 M00S01436.tafrec +++| RJ ALC ADVANCE LINE COUNT
01637 M00S01437.tafrec +++| WRITEW R,RWSA,RWSAL
01638 M00S01438.tafrec +++| EQ FRLX RETURN
01639 M00S01439.tafrec +++|
01640 M00S01440.tafrec +++|* TABLE OF COMMENTS FOR REPORT FILE (12 CHARACTERS MAXIMUM).
01641 M00S01441.tafrec +++|
01642 M00S01442.tafrec +++| FRLA BSS 0
01643 M00S01443.tafrec +++| LOC 0
01644 M00S01444.tafrec +++| DATA C*RECOVERED*
01645 M00S01445.tafrec +++| DATA C*INITIALIZED*
01646 M00S01446.tafrec +++| LOC *O
01647 M00S01447.tafrec +++| STN SPACE 4,20
01648 M00S01448.tafrec +++|** STN - SEARCH TERMINAL NAME.
01649 M00S01449.tafrec +++|*
01650 M00S01450.tafrec +++|* SEARCH A TABLE FOR THE REQUIRED TERMINAL NAME.
01651 M00S01451.tafrec +++|*
01652 M00S01452.tafrec +++|* ENTRY (X1) = TERMINAL NAME.
01653 M00S01453.tafrec +++|* (B3) = FWA OF TABLE.
01654 M00S01454.tafrec +++|* (B4) = LENGTH OF ENTRY.
01655 M00S01455.tafrec +++|* (B5) = LWA OF TABLE + 1.
01656 M00S01456.tafrec +++|*
01657 M00S01457.tafrec +++|* EXIT (X5) = ADDRESS OF ENTRY.
01658 M00S01458.tafrec +++|* = 0 IF TERMINAL NOT FOUND.
01659 M00S01459.tafrec +++|* (X1) = TERMINAL NAME.
01660 M00S01460.tafrec +++|*
01661 M00S01461.tafrec +++|* USES X - 0, 1, 2, 4, 5, 6, 7.
01662 M00S01462.tafrec +++|* A - 2.
01663 M00S01463.tafrec +++|* B - 3, 5.
01664 M00S01464.tafrec +++|
01665 M00S01465.tafrec +++|
01666 M00S01466.tafrec +++| STN SUBR ENTRY/EXIT
01667 M00S01467.tafrec +++| LX1 59-17
01668 M00S01468.tafrec +++| MX0 42 MASK FOR TERMINAL NAME
01669 M00S01469.tafrec +++| BX5 X5-X5
01670 M00S01470.tafrec +++| EQ STN2 ENTER LOOP
01671 M00S01471.tafrec +++|
01672 M00S01472.tafrec +++|* USE BINARY SEARCH TO FIND TERMINAL.
01673 M00S01473.tafrec +++|
01674 M00S01474.tafrec +++| STN1 SB3 A2+B4 SET NEW LOW LIMIT
01675 M00S01475.tafrec +++| STN2 SX7 B5-B3 FIND MIDDLE
01676 M00S01476.tafrec +++| SX4 B4
01677 M00S01477.tafrec +++| IX7 X7/X4
01678 M00S01478.tafrec +++| AX7 1
01679 M00S01479.tafrec +++| SX4 B4
01680 M00S01480.tafrec +++| IX7 X4*X7
01681 M00S01481.tafrec +++| SA2 B3+X7 READ AN ENTRY
01682 M00S01482.tafrec +++| BX4 X0*X2
01683 M00S01483.tafrec +++| LX4 42
01684 M00S01484.tafrec +++| IX6 X4-X1
01685 M00S01485.tafrec +++| ZR X6,STN3 IF ENTRY FOUND
01686 M00S01486.tafrec +++| ZR X7,STN4 IF END OF SEARCH
01687 M00S01487.tafrec +++| NG X6,STN1 IF TOO LOW IN TABLE
01688 M00S01488.tafrec +++| SB5 A2 SET NEW UPPER LIMIT
01689 M00S01489.tafrec +++| EQ STN2 NEXT ENTRY
01690 M00S01490.tafrec +++|
01691 M00S01491.tafrec +++| STN3 SX5 A2 ADDRESS OF ENTRY
01692 M00S01492.tafrec +++| STN4 LX1 17-59 REPOSITION TERMINAL NAME
01693 M00S01493.tafrec +++| EQ STNX RETURN
01694 M00S01494.tafrec +++| SDR SPACE 4,15
01695 M00S01495.tafrec +++|** SDR - SORT DIRECTORY OF RECOVERY UNITS.
01696 M00S01496.tafrec +++|*
01697 M00S01497.tafrec +++|* ENTRY (B3) = FWA OF TABLE.
01698 M00S01498.tafrec +++|* (B4) = LENGTH OF ENTRY.
01699 M00S01499.tafrec +++|* (X1) = LENGTH OF TABLE.
01700 M00S01500.tafrec +++|*
01701 M00S01501.tafrec +++|* EXIT DIRECTORY SORTED BY TERMINAL NAME.
01702 M00S01502.tafrec +++|*
01703 M00S01503.tafrec +++|* USES X - ALL.
01704 M00S01504.tafrec +++|* A - 3, 6.
01705 M00S01505.tafrec +++|* B - 2, 4, 6, 7.
01706 M00S01506.tafrec +++|
01707 M00S01507.tafrec +++|
01708 M00S01508.tafrec +++| SDR SUBR ENTRY/EXIT
01709 M00S01509.tafrec +++| MX0 42
01710 M00S01510.tafrec +++| SX2 B4
01711 M00S01511.tafrec +++| MX4 12
01712 M00S01512.tafrec +++| BX3 X1
01713 M00S01513.tafrec +++| IX3 X3/X2 NUMBER OF ENTRIES
01714 M00S01514.tafrec +++| SX2 B4
01715 M00S01515.tafrec +++| NX6,B2 X3
01716 M00S01516.tafrec +++| AX4 X4,B2
01717 M00S01517.tafrec +++| SX1 B3+X1
01718 M00S01518.tafrec +++| BX5 X5-X5
01719 M00S01519.tafrec +++| EQ SDR7 ENTER SORT LOOP
01720 M00S01520.tafrec +++|
01721 M00S01521.tafrec +++| SDR1 PL X5,SDR3 IF NO SWAP
01722 M00S01522.tafrec +++| SB7 X2 NUMBER OF WORDS TO MOVE
01723 M00S01523.tafrec +++| SB6 B6+B2
01724 M00S01524.tafrec +++| SDR2 SB7 B7-B1 DECREMENT INDEX
01725 M00S01525.tafrec +++| SA3 SDRA+B7
01726 M00S01526.tafrec +++| BX6 X3
01727 M00S01527.tafrec +++| SA6 B6+B7
01728 M00S01528.tafrec +++| NZ B7,SDR2 IF NOT END OF ENTRY
01729 M00S01529.tafrec +++| SDR3 SB4 B4+X2
01730 M00S01530.tafrec +++| SX3 B4+
01731 M00S01531.tafrec +++| IX3 X3-X1
01732 M00S01532.tafrec +++| BX5 X5-X5
01733 M00S01533.tafrec +++| ZR X3,SDR7 IF END OF TABLE
01734 M00S01534.tafrec +++| SB7 X2 NUMBER OF WORDS TO SAVE
01735 M00S01535.tafrec +++| SDR4 SB7 B7-B1
01736 M00S01536.tafrec +++| SA3 B4+B7
01737 M00S01537.tafrec +++| BX6 X3
01738 M00S01538.tafrec +++| SA6 SDRA+B7
01739 M00S01539.tafrec +++| NZ B7,SDR4 IF NOT END OF ENTRY
01740 M00S01540.tafrec +++| SB6 B4-B2
01741 M00S01541.tafrec +++| BX7 X0*X3
01742 M00S01542.tafrec +++| LX7 42 SHIFT SO NO SIGN BIT
01743 M00S01543.tafrec +++| SDR5 SA3 B6+
01744 M00S01544.tafrec +++| BX6 X0*X3
01745 M00S01545.tafrec +++| LX6 42 SHIFT SO NO SIGN BIT
01746 M00S01546.tafrec +++| IX6 X7-X6
01747 M00S01547.tafrec +++| PL X6,SDR1 IF IN ORDER
01748 M00S01548.tafrec +++| SB7 X2
01749 M00S01549.tafrec +++| SX5 B6+B2
01750 M00S01550.tafrec +++| SDR6 SB7 B7-B1
01751 M00S01551.tafrec +++| SA3 B6+B7
01752 M00S01552.tafrec +++| BX6 X3
01753 M00S01553.tafrec +++| SA6 X5+B7
01754 M00S01554.tafrec +++| NZ B7,SDR6 IF NOT END OF ENTRY
01755 M00S01555.tafrec +++| MX5 1 INDICATE ENTRY REPLACED
01756 M00S01556.tafrec +++| SB6 B6-B2
01757 M00S01557.tafrec +++| GE B6,B3,SDR5 IF IN BOUNDS
01758 M00S01558.tafrec +++| EQ SDR1 SELECT NEXT ENTRY
01759 M00S01559.tafrec +++|
01760 M00S01560.tafrec +++| SDR7 AX4 1
01761 M00S01561.tafrec +++| BX3 -X4
01762 M00S01562.tafrec +++| IX7 X2*X3
01763 M00S01563.tafrec +++| SB2 X7
01764 M00S01564.tafrec +++| SB7 X2
01765 M00S01565.tafrec +++| SB4 B3+X7
01766 M00S01566.tafrec +++| NZ X4,SDR4 IF MORE TO SORT
01767 M00S01567.tafrec +++| EQ SDRX RETURN
01768 M00S01568.tafrec +++|
01769 M00S01569.tafrec +++| SDRA BSSZ RUDL TEMPORARY STORAGE
01770 M00S01570.tafrec +++| GHL SPACE 4,15
01771 M00S01571.tafrec +++|** GHL - GET HIGHEST/LOWEST TST ENTRY ADDRESSES.
01772 M00S01572.tafrec +++|*
01773 M00S01573.tafrec +++|* CALCULATE THE HIGHEST AND LOWEST TST ADDRESSES FOR
01774 M00S01574.tafrec +++|* THE REQUIRED NETWORK FILE.
01775 M00S01575.tafrec +++|*
01776 M00S01576.tafrec +++|* ENTRY (CUID) = CURRENT ID.
01777 M00S01577.tafrec +++|*
01778 M00S01578.tafrec +++|* EXIT (X6) = HIGHEST ADDRESS.
01779 M00S01579.tafrec +++|* (X7) = LOWEST ADDRESS.
01780 M00S01580.tafrec +++|*
01781 M00S01581.tafrec +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
01782 M00S01582.tafrec +++|* A - 1, 3.
01783 M00S01583.tafrec +++|
01784 M00S01584.tafrec +++|
01785 M00S01585.tafrec +++| GHL SUBR ENTRY/EXIT
01786 M00S01586.tafrec +++| SA1 CUID
01787 M00S01587.tafrec +++| SX3 TTFTE LENGTH OF TST HEADING ENTRY
01788 M00S01588.tafrec +++| IX3 X3*X1
01789 M00S01589.tafrec +++| SA3 TSTHD+X3 GET HIGHEST TST ORDINAL FOR ID
01790 M00S01590.tafrec +++| MX0 -TFHON
01791 M00S01591.tafrec +++| LX3 TFHON-1-TFHOS RIGHT JUSTIFY HIGHEST ORDINAL
01792 M00S01592.tafrec +++| BX2 -X0*X3 HIGHEST ORDINAL
01793 M00S01593.tafrec +++| SX4 B1+
01794 M00S01594.tafrec +++| GHL1 SX1 X1-1
01795 M00S01595.tafrec +++| NG X1,GHL2 IF START OF TST HEADER REACHED
01796 M00S01596.tafrec +++| SA3 A3-TTFTE
01797 M00S01597.tafrec +++| ZR X3,GHL1 IF NO NETWORK FILE FOR THIS ID
01798 M00S01598.tafrec +++| LX3 TFHON-1-TFHOS RIGHT JUSTIFY HIGHEST ORDINAL
01799 M00S01599.tafrec +++| BX4 -X0*X3 HIGHEST ORDINAL OF PREVIOUS NETWORK FILE
01800 M00S01600.tafrec +++| SX4 X4+1 LOWEST ORDINAL FOR THIS NETWORK FILE
01801 M00S01601.tafrec +++| GHL2 SX0 TSTLLE
01802 M00S01602.tafrec +++| IX2 X0*X2 CONVERT TO OFFSET
01803 M00S01603.tafrec +++| IX4 X0*X4
01804 M00S01604.tafrec +++| SX0 TST
01805 M00S01605.tafrec +++| IX6 X0+X2 CONVERT TO ABSOLUTE ADDRESS
01806 M00S01606.tafrec +++| IX7 X0+X4
01807 M00S01607.tafrec +++| EQ GHLX RETURN
01808 M00S01608.tafrec +++| ZFB SPACE 4,10
01809 M00S01609.tafrec +++|** ZFB - ZERO FILL BUFFER.
01810 M00S01610.tafrec +++|*
01811 M00S01611.tafrec +++|* ENTRY (B5) = FWA OF BUFFER.
01812 M00S01612.tafrec +++|* (B6) = NUMBER OF WORDS.
01813 M00S01613.tafrec +++|*
01814 M00S01614.tafrec +++|* USES X - 6.
01815 M00S01615.tafrec +++|* A - 6.
01816 M00S01616.tafrec +++|* B - 5, 6.
01817 M00S01617.tafrec +++|
01818 M00S01618.tafrec +++|
01819 M00S01619.tafrec +++| ZFB SUBR ENTRY/EXIT
01820 M00S01620.tafrec +++| EQ B6,ZFBX IF NONE
01821 M00S01621.tafrec +++| SX6 B0+
01822 M00S01622.tafrec +++| ZFB1 SA6 B5
01823 M00S01623.tafrec +++| SB5 B5+B1
01824 M00S01624.tafrec +++| SB6 B6-B1
01825 M00S01625.tafrec +++| NE B6,ZFB1 IF MORE TO DO
01826 M00S01626.tafrec +++| EQ ZFBX RETURN
01827 M00S01627.tafrec +++| ALC SPACE 4,15
01828 M00S01628.tafrec +++|** ALC - ADVANCE LINE COUNT.
01829 M00S01629.tafrec +++|*
01830 M00S01630.tafrec +++|* ADVANCE THE LINE COUNT OF THE REPORT FILE AND IF
01831 M00S01631.tafrec +++|* NECESSARY, PRINT THE HEADING AND SUBHEADING ON A NEW PAGE.
01832 M00S01632.tafrec +++|*
01833 M00S01633.tafrec +++|* ENTRY (B2) = NUMBER OF LINES TO ADVANCE.
01834 M00S01634.tafrec +++|*
01835 M00S01635.tafrec +++|* USES X - 1, 2, 6, 7.
01836 M00S01636.tafrec +++|* A - 1, 2, 6.
01837 M00S01637.tafrec +++|*
01838 M00S01638.tafrec +++|* CALLS CDD.
01839 M00S01639.tafrec +++|*
01840 M00S01640.tafrec +++|* MACROS WRITEW.
01841 M00S01641.tafrec +++|
01842 M00S01642.tafrec +++|
01843 M00S01643.tafrec +++| ALC SUBR ENTRY/EXIT
01844 M00S01644.tafrec +++| SA1 LCNT CURRENT LINE COUNT
01845 M00S01645.tafrec +++| SX6 X1+B2
01846 M00S01646.tafrec +++| SX7 X6-LINP
01847 M00S01647.tafrec +++| PL X7,ALC1 IF PAGE FULL
01848 M00S01648.tafrec +++| SA6 A1
01849 M00S01649.tafrec +++| EQ ALCX RETURN
01850 M00S01650.tafrec +++|
01851 M00S01651.tafrec +++| ALC1 SX6 B2+5 LINE COUNT PLUS HEADING
01852 M00S01652.tafrec +++| SA2 SBHD+2
01853 M00S01653.tafrec +++| IX6 X6+X2 INCLUDE SUBHEADING LINE COUNT
01854 M00S01654.tafrec +++| SA6 A1
01855 M00S01655.tafrec +++| SA1 PCNT
01856 M00S01656.tafrec +++| SX1 X1+B1 INCREMENT PAGE COUNT
01857 M00S01657.tafrec +++| BX6 X1
01858 M00S01658.tafrec +++| SA6 A1+
01859 M00S01659.tafrec +++| RJ CDD CONVERT TO DISPLAY CODE
01860 M00S01660.tafrec +++| BX6 X4
01861 M00S01661.tafrec +++| SA6 HEAD1
01862 M00S01662.tafrec +++| WRITEW R,HEAD,HEADL WRITE NEW HEADING
01863 M00S01663.tafrec +++| SA1 SBHD SUBHEADING ADDRESS
01864 M00S01664.tafrec +++| SA2 A1+B1 LENGTH
01865 M00S01665.tafrec +++| WRITEW R,X1,X2
01866 M00S01666.tafrec +++| EQ ALCX RETURN
01867 M00S01667.tafrec +++| ERR SPACE 4,10
01868 M00S01668.tafrec +++|** ERR - ERROR PROCESSOR.
01869 M00S01669.tafrec +++|*
01870 M00S01670.tafrec +++|* ISSUE A DAYFILE ERROR MESSAGE AND ABORT *TAFREC*.
01871 M00S01671.tafrec +++|*
01872 M00S01672.tafrec +++|* ENTRY (B5) = FWA OF ERROR MESSAGE.
01873 M00S01673.tafrec +++|*
| Line S01674 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01874 M01S01674.ns22000 ---|* MACROS ABORT, MESSAGE, ENFAM, SETUI, WRITER.
| Line S00033 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01875 M01S00033.ns22000 +++|* MACROS ABORT, MESSAGE, SETPFP, WRITER.
01876 M00S01675.tafrec +++|
01877 M00S01676.tafrec +++|
01878 M00S01677.tafrec +++| ERR MESSAGE B5,0,R ISSUE SPECIFIC ERROR MESSAGE
01879 M00S01678.tafrec +++| MESSAGE ERRA,0,R
| Line S01679 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01880 M01S01679.ns22000 ---| ENFAM DFFM RESET TO DEFAULT FAMILY
| Line S00034 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01881 M01S00034.ns22000 +++| SA1 DFFM DEFAULT FAMILY
01882 M01S00035.ns22000 +++| SX0 10B *SETPFP* FLAGS
01883 M01S00036.ns22000 +++| BX6 X0+X1
01884 M01S00037.ns22000 +++| SA6 PFPA *SETPFP* CALL BLOCK
01885 M01S00038.ns22000 +++| SETPFP PFPA RESET TO DEFAULT FAMILY
01886 M00S01680.tafrec +++| WRITER R,R FLUSH REPORT FILE BUFFER
| Line S01681 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01887 M01S01681.ns22000 ---| SETUI 0
01888 M00S01682.tafrec +++| ABORT
01889 M00S01683.tafrec +++|
01890 M00S01684.tafrec +++| ERRA DATA C* CRF RECOVERY/INITIALIZATION ABORTED.*
01891 M00S01685.tafrec +++| SPACE 4,10
01892 M00S01686.tafrec +++|* COMMON DECKS.
01893 M00S01687.tafrec +++|
01894 M00S01688.tafrec +++| LIST X
01895 M00S01689.tafrec +++|*CALL COMKFIO
01896 M00S01690.tafrec +++| LIST -X
01897 M00S01691.tafrec +++| SPACE 4,10
01898 M00S01692.tafrec +++|*CALL COMCCDD
01899 M00S01693.tafrec +++|*CALL COMCCIO
01900 M00S01694.tafrec +++|*CALL COMCCOD
01901 M00S01695.tafrec +++|*CALL COMCCPM
01902 M00S01696.tafrec +++|*CALL COMCDXB
01903 M00S01697.tafrec +++|*CALL COMCLFM
01904 M00S01698.tafrec +++|*CALL COMCPFM
01905 M00S01699.tafrec +++|*CALL COMCRDW
01906 M00S01700.tafrec +++|*CALL COMCSFN
01907 M00S01701.tafrec +++|*CALL COMCSNM
01908 M00S01702.tafrec +++|*CALL COMCSYS
01909 M00S01703.tafrec +++|*CALL COMCWTC
01910 M00S01704.tafrec +++|*CALL COMCWTW
| Line S00002 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
01911 M01S00002.241l630 +++|*CALL COMCZTB
01912 M00S01705.tafrec +++| TITLE *TAFREC* PRESET ROUTINES.
01913 M00S01706.tafrec +++| PRS SPACE 4,10
01914 M00S01707.tafrec +++|** PRS - PRESET *TAFREC*.
01915 M00S01708.tafrec +++|*
01916 M00S01709.tafrec +++|* PERFORM PRESET PROCESSING FOR *TAFREC*.
01917 M00S01710.tafrec +++|* PRESET CONSISTS OF -
01918 M00S01711.tafrec +++|*
01919 M00S01712.tafrec +++|* PROCESSING THE TCF.
01920 M00S01713.tafrec +++|* SETTING THE *K-DISPLAY*.
01921 M00S01714.tafrec +++|* PROCESSING THE NETWORK FILE(S).
| Line S01715 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01922 M01S01715.ns2023 ---|* ATTACHING OR DEFINING THE TRF(S).
| Line S00147 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01923 M01S00147.ns2023 +++|* ATTACHING OR DEFINING THE CRF(S).
| Line S00003 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
01924 M01S00003.241l630 +++|*
01925 M01S00004.241l630 +++|* CALLS CDD, COD, IIM, PNF, PRK, PTF, RKD, SKD,
01926 M01S00005.241l630 +++|* SRS, ZFB.
01927 M01S00006.241l630 +++|*
| Line S01716 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01928 M01S01716.ns22000 ---|* MACROS CLOCK, DATE, ENFAM, READ, READW, REWIND, SETUI,
| Line S00039 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01929 M01S00039.ns22000 +++|* MACROS CLOCK, DATE, GETPFP, READ, READW, REWIND,
01930 M00S01717.tafrec +++|* STATUS, WRITEW.
01931 M00S01718.tafrec +++|
01932 M00S01719.tafrec +++|
01933 M00S01720.tafrec +++| PRS SUBR
01934 M00S01721.tafrec +++| SB1 1
01935 M00S01722.tafrec +++| SX7 B0+
| Line S00001 Modification History |
M01 (Added by) | tafrc1 |
Seq # *Modification Id* Act
----------------------------+
01936 M01S00001.tafrc1 +++| SA7 VECSC CLEAR CURRENT ECS ADDRESS
01937 M00S01723.tafrec +++| SA7 VTST SET *O-DISPLAY* INACTIVE
| Line S01724 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01938 M01S01724.ns22000 ---| SETUI TRUI SET *TAF* USER INDEX
01939 M00S01725.tafrec +++| DATE DATE
01940 M00S01726.tafrec +++| CLOCK TIME
| Line S01727 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01941 M01S01727.ns22000 ---| ENFAM FM GET DEFAULT FAMILY
01942 M01S01728.ns22000 ---| SA1 FM SAVE DEFAULT FAMILY
| Line S00040 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01943 M01S00040.ns22000 +++| GETPFP PFPA GET PERMANENT FILE PARAMETERS
01944 M01S00041.ns22000 +++| SA1 PFPA
01945 M00S01729.tafrec +++| BX6 X1
01946 M00S01730.tafrec +++| SA6 DFFM
| Line S01731 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01947 M01S01731.ns22000 ---| ENFAM FM RESTORE DEFAULT FAMILY
01948 M00S01732.tafrec +++| SX7 TTFTL
01949 M00S01733.tafrec +++| SA7 TSTLW PRESET TST LENGTH
01950 M00S01734.tafrec +++| SA1 DATE
01951 M00S01735.tafrec +++| SA2 TIME
01952 M00S01736.tafrec +++| BX6 X1
01953 M00S01737.tafrec +++| BX7 X2
01954 M00S01738.tafrec +++| SA6 PRSC
01955 M00S01739.tafrec +++| SA7 A6+B1
01956 M00S01740.tafrec +++| WRITEW R,PRSB,PRSBL WRITE REPORT FILE BANNER
01957 M00S01741.tafrec +++| SX7 PMSG ADDRESS OF *PFM* ERROR MESSAGES
| Line S01742 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01958 M01S01742.ns2023 ---| SA7 TRF+CFPW
01959 M01S01743.ns2023 ---| SA7 TRFA+CFPW
| Line S00148 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
01960 M01S00148.ns2023 +++| SA7 CRF+CFPW
01961 M01S00149.ns2023 +++| SA7 CRFA+CFPW
01962 M00S01744.tafrec +++| SA7 TCF+CFPW
01963 M00S01745.tafrec +++| SA7 N+CFPW
01964 M00S01746.tafrec +++| SB5 TSTHD FWA OF TST HEADER
01965 M00S01747.tafrec +++| SB6 TTFTL+TSTLLE HEADER LENGTH + FIRST TST ENTRY
01966 M00S01748.tafrec +++| RJ ZFB ZERO FILL BUFFER
01967 M00S01749.tafrec +++|
01968 M00S01750.tafrec +++|* DETERMINE IF RESTART.
01969 M00S01751.tafrec +++|
01970 M00S01752.tafrec +++| SA1 B0 POSITION TO SENSE SWITCH 3
01971 M00S01753.tafrec +++| LX1 59-8
01972 M00S01754.tafrec +++| PL X1,PRS1 IF RECOVERY MODE NOT SELECTED
01973 M00S01755.tafrec +++| REWIND TIF,R
01974 M00S01756.tafrec +++| READ TIF
01975 M00S01757.tafrec +++| READW TIF,PRSA,1 READ WORD ONE INTO TEMPORARY LOCATION
01976 M00S01758.tafrec +++| SX6 B1 SET RESTART FLAG
01977 M00S01759.tafrec +++| LX6 TIRFS-0
01978 M00S01760.tafrec +++| SA6 PRSA
01979 M00S01761.tafrec +++| READW TIF,VLOCS,VLOCL RESTORE POINTERS
01980 M00S01762.tafrec +++| SX7 B0+
01981 M00S01763.tafrec +++| SA7 VTST SET *O-DISPLAY* INACTIVE
01982 M00S01764.tafrec +++| SA7 VTOT CLEAR *TOTAL* LOAD FLAG
| Line S01765 Modification History |
M01 (Removed by) | tafrc1 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01983 M02S01765.v23l617 ---| SA7 VECSC CLEAR CURRENT ECS ADDRESS
| Line S00011 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01984 M01S00011.v23l617 +++| SA7 VECSC CLEAR CURRENT EXTENDED MEMORY ADDRESS
01985 M00S01766.tafrec +++| REWIND TIF
01986 M00S01767.tafrec +++| SA7 VINT CLEAR *TAFXXX1* COMPLETE FLAG
01987 M00S01768.tafrec +++| SA1 PRSE INDICATE RESTART
01988 M00S01769.tafrec +++| BX6 X1
01989 M00S01770.tafrec +++| SA6 HEAD2
01990 M00S01771.tafrec +++| RJ RKD SET UP RESTART *K-DISPLAY*
01991 M00S01772.tafrec +++| EQ PRS2 PROCESS TCF
01992 M00S01773.tafrec +++|
01993 M00S01774.tafrec +++|* SET UP INITIAL *TAFREC* VALUES.
01994 M00S01775.tafrec +++|
01995 M00S01776.tafrec +++| PRS1 BX7 X7-X7 CLEAR *TAFXXX1* COMPLETE FLAG
01996 M00S01777.tafrec +++| SA7 VINT
01997 M00S01778.tafrec +++| SX6 NSCP
01998 M00S01779.tafrec +++| SX7 NCMB
01999 M00S01780.tafrec +++| LX6 41-17
02000 M00S01781.tafrec +++| LX7 41-17
02001 M00S01782.tafrec +++| SA6 VNSCP NUMBER OF SUBCONTROL POINTS
02002 M00S01783.tafrec +++| SA7 VNCMB NUMBER OF COMMUNICATION BLOCKS
02003 M00S01784.tafrec +++| SX7 SCMFL
02004 M00S01785.tafrec +++| SA7 VMFL MAXIMUM FL FOR SUBCONTROL POINTS
| Line S01786 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02005 M01S01786.v23l617 ---| SX7 ECSFL MAXIMUM ECS FOR *TAF*
| Line S00012 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02006 M01S00012.v23l617 +++| SX7 ECSFL MAXIMUM EXTENDED MEMORY FOR *TAF*
| Line S01787 Modification History |
M01 (Removed by) | tafrc2 |
Seq # *Modification Id* Act
----------------------------+
02007 M01S01787.tafrc2 ---| SA7 VECS
02008 M00S01788.tafrec +++| SX6 RECDF
02009 M00S01789.tafrec +++| SA6 VREC USER RECOVERY FLAG DEFAULT VALUE
02010 M00S01790.tafrec +++| SA1 PRSD
02011 M00S01791.tafrec +++| BX6 X1
| Line S00001 Modification History |
M01 (Added by) | tafrc2 |
Seq # *Modification Id* Act
----------------------------+
02012 M01S00001.tafrc2 +++| LX7 9 CORRECTLY POSITION *ECSFL*
02013 M01S00002.tafrc2 +++| SA7 VECS
02014 M00S01792.tafrec +++| SA6 VTFL SYSTEM TASK LIBRARY FILE NAME
02015 M00S01793.tafrec +++| SX1 CMMBFL BASE FL FOR CMM
02016 M00S01794.tafrec +++| SX6 CMMEFL EXPANDABLE FL FOR CMM
02017 M00S01795.tafrec +++| LX6 18
02018 M00S01796.tafrec +++| BX7 X1+X6
| Line S00001 Modification History |
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act
----------------------------+
02019 M01S00001.ns2157 +++| SX1 CMMTFL TARGET FL FOR CMM
02020 M01S00002.ns2157 +++| LX1 36
02021 M01S00003.ns2157 +++| BX7 X1+X7
02022 M00S01797.tafrec +++| SA7 VCMM SAVE CMM FL
02023 M00S01798.tafrec +++|
02024 M00S01799.tafrec +++|* SAVE INITIAL *TIF* VALUES IN CASE OF ABORT.
02025 M00S01800.tafrec +++|
02026 M00S01801.tafrec +++| REWIND TIF,R
02027 M00S01802.tafrec +++| WRITEW TIF,PRSA,1 STATUS WORD
02028 M00S01803.tafrec +++| WRITEW TIF,VLOCS,VLOCL LOW CORE SYMBOLS
02029 M00S01804.tafrec +++| WRITER TIF,R FLUSH BUFFER
02030 M00S01805.tafrec +++|
02031 M00S01806.tafrec +++|* PROCESS *TAF* CONFIGURATION PARAMETERS.
02032 M00S01807.tafrec +++|
02033 M00S01808.tafrec +++| PRS2 RJ PTF PROCESS TAF CONFIGURATION FILE
02034 M00S01809.tafrec +++| ZR X2,PRS3 IF *K-DISPLAY* NOT REQUESTED
| Line S00007 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
02035 M01S00007.241l630 +++| SX3 KPRS
02036 M01S00008.241l630 +++| RJ PRK PRESET K-DISPLAY BUFFER
02037 M00S01810.tafrec +++| RJ SKD SET *K-DISPLAY*
02038 M00S01811.tafrec +++|
02039 M00S01812.tafrec +++|* COMPUTE NUMBER OF C.B.-S RESERVED FOR SMALL INPUT.
02040 M00S01813.tafrec +++|
02041 M00S01814.tafrec +++| PRS3 SB5 -NLIN*NCBC NUMBER OF C.B. FOR LARGE INPUT
02042 M00S01815.tafrec +++| SA2 VNCMB NUMBER OF C.B.-S
02043 M00S01816.tafrec +++| LX2 17-41
02044 M00S01817.tafrec +++| SX6 X2+B5 COMPUTE *VNSIN*
02045 M00S01818.tafrec +++| SX6 X6-RSCMB
02046 M00S01819.tafrec +++| LX6 41-17
02047 M00S01820.tafrec +++| SB5 PRSG
02048 M00S01821.tafrec +++| NG X6,ERR IF NOT ENOUGH C.B.-S
02049 M00S01822.tafrec +++| SA6 VNSIN
02050 M00S01823.tafrec +++|
02051 M00S01824.tafrec +++|* PROCESS NETWORK FILES.
02052 M00S01825.tafrec +++|
02053 M00S01826.tafrec +++| SA1 CUID
02054 M00S01827.tafrec +++| SX2 MAXNF
02055 M00S01828.tafrec +++| SX1 X1+B1 NEXT ID
02056 M00S01829.tafrec +++| IX2 X2-X1
02057 M00S01830.tafrec +++| ZR X2,PRS4 IF ALL ID-S PROCESSED
02058 M00S01831.tafrec +++| SX2 2
02059 M00S01832.tafrec +++| IX5 X2*X1
02060 M00S01833.tafrec +++| BX6 X1
02061 M00S01834.tafrec +++| SA6 A1
02062 M00S01835.tafrec +++| SA1 TFAM+X5+1
02063 M00S01836.tafrec +++| ZR X1,PRS3 IF NO NETWORK FILE
02064 M00S01837.tafrec +++| RJ PNF PROCESS NETWORK FILE
02065 M00S01838.tafrec +++| SX1 IPTAR
02066 M00S01839.tafrec +++| ZR X1,PRS3 IF AUTO RECOVERY DISABLED
02067 M00S01840.tafrec +++| RJ SRS SET RECOVERY STATUS
02068 M00S01841.tafrec +++| EQ PRS3 NEXT ID
02069 M00S01842.tafrec +++|
02070 M00S01843.tafrec +++|* WRITE LOW CORE POINTERS.
02071 M00S01844.tafrec +++|
02072 M00S01845.tafrec +++| PRS4 REWIND TIF,R
02073 M00S01846.tafrec +++| WRITEW TIF,PRSA,1 FALGS FOR *TAF1*
02074 M00S01847.tafrec +++| WRITEW TIF,VLOCS,VLOCL WRITE LOW CM POINTERS
02075 M00S01848.tafrec +++|
02076 M00S01849.tafrec +++|* ISSUE DAYFILE MESSAGES.
02077 M00S01850.tafrec +++|
02078 M00S01851.tafrec +++| PRS6 MESSAGE IIMA * INITIALIZATION OPTIONS.*
02079 M00S01852.tafrec +++| SA1 VNCMB NUMBER OF COMMUNICATION BLOCKS
02080 M00S01853.tafrec +++| LX1 -24
02081 M00S01854.tafrec +++| RJ CDD CONSTANT TO DECIMAL DISPLAY
02082 M00S01855.tafrec +++| SB5 IIMB * K.CMB=XX.*
02083 M00S01856.tafrec +++| BX1 X6
02084 M00S01857.tafrec +++| LX1 48
02085 M00S01858.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
| Line S01859 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02086 M01S01859.v23l617 ---| SA1 VECS ECS FL
| Line S00013 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02087 M01S00013.v23l617 +++| SA1 VECS EXTENDED MEMORY FL
02088 M00S01860.tafrec +++| LX1 -9
02089 M00S01861.tafrec +++| RJ COD CONSTANT TO OCTAL DISPLAY
02090 M00S01862.tafrec +++| BX1 X6
02091 M00S01863.tafrec +++| LX1 42
02092 M00S01864.tafrec +++| SB5 IIMC * K.ECS=XXXK.*
02093 M00S01865.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
02094 M00S01866.tafrec +++| SA1 VMFL TAF MAXIMUM FL
02095 M00S01867.tafrec +++| RJ COD CONSTANT TO OCTAL DISPLAY
02096 M00S01868.tafrec +++| BX1 X6
02097 M00S01869.tafrec +++| LX1 24
02098 M00S01870.tafrec +++| SB5 IIME * K.MFL=XXXXXXB.*
02099 M00S01871.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
02100 M00S01872.tafrec +++| SA2 VREC GET RECOVERY FLAG
02101 M00S01873.tafrec +++| SX1 3L NO
02102 M00S01874.tafrec +++| LX1 42
02103 M00S01875.tafrec +++| ZR X2,PRS7 IF USER RECOVERY NOT SET
02104 M00S01876.tafrec +++| SX1 3LYES
02105 M00S01877.tafrec +++| LX1 42
02106 M00S01878.tafrec +++| SX2 X2
02107 M00S01879.tafrec +++| NZ X2,PRS7 IF USER RECOVERY SET
02108 M00S01880.tafrec +++| SX1 3LCRM
02109 M00S01881.tafrec +++| LX1 42
02110 M00S01882.tafrec +++| PRS7 SB5 IIMF * K.REC=XXX.*
02111 M00S01883.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
02112 M00S01884.tafrec +++| SA1 VNSCP NUMBER OF SUBCONTROL POINTS
02113 M00S01885.tafrec +++| LX1 -24
02114 M00S01886.tafrec +++| RJ CDD CONSTANT TO DECIMAL DISPLAY
02115 M00S01887.tafrec +++| BX1 X6
02116 M00S01888.tafrec +++| LX1 48
02117 M00S01889.tafrec +++| SB5 IIMG * K.SCP=XX.*
02118 M00S01890.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
02119 M00S01891.tafrec +++| SA1 VTFL NAME OF SYSTEM TASK LIBRARY
02120 M00S01892.tafrec +++| AX1 18
02121 M00S01893.tafrec +++| LX1 18
02122 M00S01894.tafrec +++| SB5 IIMH * K.TLF=XXXXXXX.*
02123 M00S01895.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
| Line S01896 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
02124 M01S01896.ns2023 ---| SA1 INTG TRF INTIALIZATION OPTION
02125 M01S01897.ns2023 ---| SB5 IIMI * K.INT=TRF,XXXXXXX.*
| Line S00150 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
02126 M01S00150.ns2023 +++| SA1 INTG *CRF* INTIALIZATION OPTION
02127 M01S00151.ns2023 +++| SB5 IIMI * K.INT=CRF,XXXXXXX.*
02128 M00S01898.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
02129 M00S01899.tafrec +++| SA2 PRSA
02130 M00S01900.tafrec +++| LX2 59-TICRS *CRM* INITIALIZATION OPTION
02131 M00S01901.tafrec +++| SA1 PRSF
02132 M00S01902.tafrec +++| PL X2,PRS8 IF NOT *ALL*
02133 M00S01903.tafrec +++| SX1 3LALL
02134 M00S01904.tafrec +++| LX1 42
02135 M00S01905.tafrec +++| PRS8 SB5 IIMJ * K.INT=CRM,XXXX.*
02136 M00S01906.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
| Line S01907 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
02137 M01S01907.ns2023 ---| SA2 OVRD TRF ERROR OVERRIDE OPTION
| Line S00152 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
02138 M01S00152.ns2023 +++| SA2 OVRD *CRF* ERROR OVERRIDE OPTION
02139 M00S01908.tafrec +++| SX1 3L NO
02140 M00S01909.tafrec +++| LX1 42
02141 M00S01910.tafrec +++| ZR X2,PRS9 IF NOT ERROR OVERRIDE
02142 M00S01911.tafrec +++| SX1 3LYES
02143 M00S01912.tafrec +++| LX1 42
| Line S01913 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
02144 M01S01913.ns2023 ---| PRS9 SB5 IIMK * K.ERO=TRF,XXX.*
| Line S00153 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
02145 M01S00153.ns2023 +++| PRS9 SB5 IIMK * K.ERO=CRF,XXX.*
02146 M00S01914.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
02147 M00S01915.tafrec +++| SA2 VCMM CMM FL
02148 M00S01916.tafrec +++| SX1 X2 CMM BASE FL
02149 M00S01917.tafrec +++| RJ COD CONVERT OCTAL TO DISPLAY
02150 M00S01918.tafrec +++| BX1 X4
02151 M00S01919.tafrec +++| SB5 IIML * K.BFL=XXXXXXB.*
02152 M00S01920.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
02153 M00S01921.tafrec +++| SA1 VCMM
02154 M00S01922.tafrec +++| AX1 18 CMM EXPANDABLE FL
| Line S00004 Modification History |
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act
----------------------------+
02155 M01S00004.ns2157 +++| SX1 X1
02156 M00S01923.tafrec +++| RJ COD CONVERT OCTAL TO DISPLAY
02157 M00S01924.tafrec +++| BX1 X4
02158 M00S01925.tafrec +++| SB5 IIMM * K.EFL=XXXXXXB.*
02159 M00S01926.tafrec +++| RJ IIM ISSUE INITIALIZATION MESSAGE
| Line S00005 Modification History |
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act
----------------------------+
02160 M01S00005.ns2157 +++| SA1 VCMM
02161 M01S00006.ns2157 +++| AX1 36
02162 M01S00007.ns2157 +++| RJ COD CONVERT OCTAL TO DISPLAY
02163 M01S00008.ns2157 +++| BX1 X4
02164 M01S00009.ns2157 +++| SB5 IIMN * K.TFL=XXXXXXB.*
02165 M01S00010.ns2157 +++| RJ IIM ISSUE INITIALIZATION MESSAGE
02166 M00S01927.tafrec +++| EQ PRSX RETURN
02167 M00S01928.tafrec +++|
02168 M00S01929.tafrec +++| PRSA CON 0 FLAG WORD
02169 M00S01930.tafrec +++|
02170 M00S01931.tafrec +++|* REPORT FILE BANNER
02171 M00S01932.tafrec +++|
02172 M00S01933.tafrec +++| PRSB DATA C/1****************************************************
02173 M00S01934.tafrec +++|,*****************/
02174 M00S01935.tafrec +++| DATA 1L
02175 M00S01936.tafrec +++| DATA 1L
02176 M00S01937.tafrec +++| DATA 10H
02177 M00S01938.tafrec +++| DATA C* TAF INITIALIZATION AND RECOVERY REPORT*
02178 M00S01939.tafrec +++| DATA 1L
02179 M00S01940.tafrec +++| DATA 20H
02180 M00S01941.tafrec +++| DATA C*GIVE TO TAF ADMINISTRATOR*
02181 M00S01942.tafrec +++| DATA 1L
02182 M00S01943.tafrec +++| DATA 20H
02183 M00S01944.tafrec +++| PRSC BSS 2 DATE/TIME
02184 M00S01945.tafrec +++| DATA 1L
02185 M00S01946.tafrec +++| DATA 1L
02186 M00S01947.tafrec +++| DATA C/ ****************************************************
02187 M00S01948.tafrec +++|,*****************/
02188 M00S01949.tafrec +++| PRSBL EQU *-PRSB
02189 M00S01950.tafrec +++|
02190 M00S01951.tafrec +++| PRSD VFD 42/0L"TLFM",18/1
02191 M00S01952.tafrec +++| PRSE DATA 10H RESTART
02192 M00S01953.tafrec +++| PRSF DATA 4LNONE
02193 M00S01954.tafrec +++| PRSG DATA C* NOT ENOUGH COMMUNICATION BLOCKS DEFINED.*
02194 M00S01955.tafrec +++| IIM SPACE 4,10
02195 M00S01956.tafrec +++|** IIM - ISSUE INITIALIZATION MESSAGE.
02196 M00S01957.tafrec +++|*
02197 M00S01958.tafrec +++|* ENTRY (B5) = FWA OF MESSAGE.
02198 M00S01959.tafrec +++|* (X1) = VALUE TO BE PUT IN MESSAGE.
02199 M00S01960.tafrec +++|*
02200 M00S01961.tafrec +++|* USES B - 2, 3, 5.
02201 M00S01962.tafrec +++|*
02202 M00S01963.tafrec +++|* CALLS SNM.
02203 M00S01964.tafrec +++|
02204 M00S01965.tafrec +++|
02205 M00S01966.tafrec +++| IIM SUBR ENTRY/EXIT
02206 M00S01967.tafrec +++| SB2 1RX SET REPLACEMENT CHARACTER
02207 M00S01968.tafrec +++| SB3 DAYB ALTERNATE ASSEMBLY AREA
02208 M00S01969.tafrec +++| SB5 -B5
02209 M00S01970.tafrec +++| RJ SNM SET NAME IN MESSAGE
02210 M00S01971.tafrec +++| MESSAGE DAYB ISSUE MESSAGE TO DAYFILE
02211 M00S01972.tafrec +++| EQ IIMX RETURN
02212 M00S01973.tafrec +++|
02213 M00S01974.tafrec +++| IIMA DATA C* INITIALIZATION OPTIONS.*
02214 M00S01975.tafrec +++| IIMB DATA C* K.CMB=XX.*
02215 M00S01976.tafrec +++| IIMC DATA C* K.ECS=XXXK.*
02216 M00S01977.tafrec +++| IIME DATA C* K.MFL=XXXXXXB.*
02217 M00S01978.tafrec +++| IIMF DATA C* K.REC=XXX.*
02218 M00S01979.tafrec +++| IIMG DATA C* K.SCP=XX.*
02219 M00S01980.tafrec +++| IIMH DATA C* K.TLF=XXXXXXX.*
02220 M00S01981.tafrec +++| IIMI DATA C* K.INT=CRF,XXXXXXX.*
02221 M00S01982.tafrec +++| IIMJ DATA C* K.INT=CRM,XXXX.*
02222 M00S01983.tafrec +++| IIMK DATA C* K.ERO=CRF,XXX.*
02223 M00S01984.tafrec +++| IIML DATA C* K.BFL=XXXXXXB.*
02224 M00S01985.tafrec +++| IIMM DATA C* K.EFL=XXXXXXB.*
| Line S00011 Modification History |
M01 (Added by) | ns2157 |
Seq # *Modification Id* Act
----------------------------+
02225 M01S00011.ns2157 +++| IIMN DATA C* K.TFL=XXXXXXB.*
02226 M00S01986.tafrec +++| PTF SPACE 4,40
02227 M00S01987.tafrec +++|** PTF - PROCESS *TAF* CONFIGURATION FILE.
02228 M00S01988.tafrec +++|*
02229 M00S01989.tafrec +++|* READ DIRECTIVES FROM THE TCF AND VALIDATE THE
02230 M00S01990.tafrec +++|* PARAMETERS. ALL DIRECTIVES ARE VALIDATED BUT ONLY A SUBSET
02231 M00S01991.tafrec +++|* OF THEM ARE FULLY PROCESSED WITHIN *TAFREC*. THE OTHERS
02232 M00S01992.tafrec +++|* RECEIVE FINAL PROCESSING IN *TAFNAM1*.
02233 M00S01993.tafrec +++|*
02234 M00S01994.tafrec +++|* VALID DIRECTIVES ARE -
02235 M00S01995.tafrec +++|*
02236 M00S01996.tafrec +++|* * DISPLAY(DSTAT)
02237 M00S01997.tafrec +++|* * K.COMMAND.
02238 M00S01998.tafrec +++|* * NETWORK(ID=I,FM=FAMILY,UN=USERNAM)
02239 M00S01999.tafrec +++|* * RECOVER(ID=I,NM=NMSG,MS=MSIZE)
02240 M00S02000.tafrec +++|* DMS(DM,SW,DB1,DB2,...,DBN)
02241 M00S02001.tafrec +++|*
02242 M00S02002.tafrec +++|* WHERE DSTAT = *ON* OR *OFF* DEFINES IF K-DISPLAY IS USED.
02243 M00S02003.tafrec +++|* COMMAND = INITIALIZATION OPTIONS, STOP, END OR GO.
| Line S02004 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
02244 M01S02004.ns2023 ---|* I = NETWORK FILE AND TRF ID (0-7).
02245 M01S02005.ns2023 ---|* FAMILY = FAMILY WHERE NETWORK FILE AND TRF RESIDE.
02246 M01S02006.ns2023 ---|* USERNAM = USER NAME OF NETWORK FILE AND TRF.
02247 M01S02007.ns2023 ---|* NMSG = NUMBER OF USER MESSAGES/TERMINAL ON TRF.
| Line S00154 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
02248 M01S00154.ns2023 +++|* I = NETWORK FILE AND *CRF* ID (0-7).
02249 M01S00155.ns2023 +++|* FAMILY = FAMILY WHERE NETWORK FILE AND *CRF* RESIDE.
02250 M01S00156.ns2023 +++|* USERNAM = USER NAME OF NETWORK FILE AND *CRF*.
02251 M01S00157.ns2023 +++|* NMSG = NUMBER OF USER MESSAGES/TERMINAL ON *CRF*.
02252 M00S02008.tafrec +++|* MSIZE = MAXIMUM USER MESSAGE SIZE.
02253 M00S02009.tafrec +++|* DM = DATA MANAGER (*TAF*,*CRM*,*TOTAL*,*OTHER*).
02254 M00S02010.tafrec +++|* SW = *ON* OR *OFF*.
02255 M00S02011.tafrec +++|* DBI = DATA BASE NAMES.
02256 M00S02012.tafrec +++|*
02257 M00S02013.tafrec +++|* DIRECTIVES FLAGGED BY * ARE FULLY PROCESSED IN *TAFREC*.
02258 M00S02014.tafrec +++|*
02259 M00S02015.tafrec +++|* EXIT (X2) .NE. 0 IF K-DISPLAY TO BE SET.
02260 M00S02016.tafrec +++|* *TCF* PROCESSED.
02261 M00S02017.tafrec +++|* (B5) = FWA OF ERROR MESSAGE IF ERROR.
02262 M00S02018.tafrec +++|* TO *SKD* IF ERRORS IN *TCF*.
02263 M00S02019.tafrec +++|* TO *ERR* IF *TCF* NOT FOUND, OTHER THAN
02264 M00S02020.tafrec +++|* *K.COMMAND* ERRORS OR OPERATOR TERMINATION.
02265 M00S02021.tafrec +++|*
02266 M00S02022.tafrec +++|* USES X - ALL.
02267 M00S02023.tafrec +++|* A - ALL.
02268 M00S02024.tafrec +++|* B - 2, 3, 4, 5, 7.
02269 M00S02025.tafrec +++|*
02270 M00S02026.tafrec +++|* CALLS ALC, DMS, DSP, DXB, NET, PKC, RCV, SKD, UPC.
02271 M00S02027.tafrec +++|*
02272 M00S02028.tafrec +++|* MACROS GET, MESSAGE, READ, READC, REWIND, STATUS, WRITEC,
02273 M00S02029.tafrec +++|* WRITEW.
02274 M00S02030.tafrec +++|*
| Line S02031 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02275 M01S02031.v23l617 ---|* NOTES *K-DISPLAY* WILL BE SET IN CASE OF INVALID DIRECTIVES.
| Line S00014 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02276 M01S00014.v23l617 +++|* NOTES *K-DISPLAY* WILL BE SET IN CASE OF INCORRECT
02277 M01S00015.v23l617 +++|* DIRECTIVES.
02278 M00S02032.tafrec +++|
02279 M00S02033.tafrec +++|
02280 M00S02034.tafrec +++| PTF SUBR ENTRY/EXIT
02281 M00S02035.tafrec +++| SX6 PTFQ
02282 M00S02036.tafrec +++| SX7 PTFQL
02283 M00S02037.tafrec +++| SA6 SBHD SET SUB HEADING ADDRESS
02284 M00S02038.tafrec +++| SA7 A6+B1 LENGTH
02285 M00S02039.tafrec +++| SX6 B1+B1 SUBHEADING LINE COUNT
02286 M00S02040.tafrec +++| SA6 A7+B1
02287 M00S02041.tafrec +++|
02288 M00S02042.tafrec +++|* IF TCF IS LOCAL, USE IT, OTHERWISE GET TCF
02289 M00S02043.tafrec +++|* FROM *TAF-S* USER INDEX.
02290 M00S02044.tafrec +++|
02291 M00S02045.tafrec +++| STATUS TCF SEE IF TCF IS LOCAL
02292 M00S02046.tafrec +++| SA1 X2
02293 M00S02047.tafrec +++| MX0 11
02294 M00S02048.tafrec +++| LX1 59-11
02295 M00S02049.tafrec +++| BX1 X0*X1
02296 M00S02050.tafrec +++| NZ X1,PTF1 IF TCF LOCAL
02297 M00S02051.tafrec +++| GET TCF
02298 M00S02052.tafrec +++| MX0 8
02299 M00S02053.tafrec +++| SA1 TCF
02300 M00S02054.tafrec +++| LX1 59-17
02301 M00S02055.tafrec +++| BX1 X0*X1
02302 M00S02056.tafrec +++| ZR X1,PTF1 IF TCF FOUND
02303 M00S02057.tafrec +++| SB5 PTFD
02304 M00S02058.tafrec +++| EQ ERR ERROR - FILE TCF NOT FOUND
02305 M00S02059.tafrec +++|
02306 M00S02060.tafrec +++| PTF1 REWIND TCF,R LOCAL TCF MUST BE REWOUND IF RESTART
02307 M00S02061.tafrec +++| READ TCF,R
02308 M00S02062.tafrec +++| SA1 TCF+2 IN
02309 M00S02063.tafrec +++| SA2 A1+B1 OUT
02310 M00S02064.tafrec +++| IX3 X1-X2 IN-OUT
02311 M00S02065.tafrec +++| NZ X3,PTF2 IF TCF FILE NOT EMPTY
02312 M00S02066.tafrec +++| SB5 PTFE
02313 M00S02067.tafrec +++| EQ ERR ERROR - TCF FILE EMPTY
02314 M00S02068.tafrec +++|
02315 M00S02069.tafrec +++|* SET DEFAULT *TAF* CONFIGURATION VALUES.
02316 M00S02070.tafrec +++|
02317 M00S02071.tafrec +++| PTF2 SX6 B0+
02318 M00S02072.tafrec +++| SA1 DFNM DEFAULT *NM*
02319 M00S02073.tafrec +++| SA2 DFMS DEFAULT *MS*
02320 M00S02074.tafrec +++| SA6 ID CLEAR *ID*
02321 M00S02075.tafrec +++| BX6 X1
02322 M00S02076.tafrec +++| BX7 X2
02323 M00S02077.tafrec +++| SA6 A6+B1
02324 M00S02078.tafrec +++| SA7 A6+B1
| Line S02079 Modification History |
M01 (Removed by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02325 M01S02079.ns2094 ---| SA1 DFFM DEFAULT FAMILY
02326 M01S02080.ns2094 ---| SA2 DFUN DEFAULT USER NUMBER
02327 M01S02081.ns2094 ---| BX6 X1
02328 M01S02082.ns2094 ---| BX7 X2
02329 M01S02083.ns2094 ---| SA7 UN
02330 M01S02084.ns2094 ---| SA6 FM DEFAULT FAMILY
02331 M00S02085.tafrec +++| READC TCF,PTFB,16 READ DIRECTIVE IMAGE
02332 M00S02086.tafrec +++| NZ X1,PTF6 IF NO MORE ENTRIES
02333 M00S02087.tafrec +++| SB2 B1
02334 M00S02088.tafrec +++| RJ ALC ADVANCE LINE COUNT
02335 M00S02089.tafrec +++| WRITEW R,BLNK,2
02336 M00S02090.tafrec +++| WRITEC R,PTFB WRITE DIRECTIVE TO REPORT FILE
02337 M00S02091.tafrec +++| SB7 PTFC FWA TO UNPACK INTO
02338 M00S02092.tafrec +++| SA5 PTFB FIRST WORD TO UNPACK
02339 M00S02093.tafrec +++| RJ UPC UNPACK DIRECTIVE IMAGE
02340 M00S02094.tafrec +++| ZR X6,PTF3 IF NO UNPACK ERRORS
| Line S02095 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02341 M01S02095.v23l617 ---| SA0 PTFF * INVALID TCF ENTRIES*
| Line S00016 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02342 M01S00016.v23l617 +++| SA0 PTFF * INCORRECT TCF ENTRIES*
02343 M00S02096.tafrec +++| EQ PTF5 REPORT ERROR
02344 M00S02097.tafrec +++|
02345 M00S02098.tafrec +++| PTF3 MX0 42
02346 M00S02099.tafrec +++| SA1 PTFC
02347 M00S02100.tafrec +++| SA4 PTFA FWA OF KEYWORD TABLE
02348 M00S02101.tafrec +++| SA0 PTFH
| Line S02102 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02349 M01S02102.v23l617 ---| PTF4 ZR X4,PTF5 IF INVALID KEYWORD
| Line S00017 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02350 M01S00017.v23l617 +++| PTF4 ZR X4,PTF5 IF INCORRECT KEYWORD
02351 M00S02103.tafrec +++| BX5 X1-X4
02352 M00S02104.tafrec +++| BX2 X0*X5
02353 M00S02105.tafrec +++| SB3 X4
02354 M00S02106.tafrec +++| SA4 A4+B1
02355 M00S02107.tafrec +++| NZ X2,PTF4 IF NO MATCH
02356 M00S02108.tafrec +++| JP B3 PROCESS KEYWORD
02357 M00S02109.tafrec +++|
02358 M00S02110.tafrec +++|* ENTRY FROM *SKD*.
02359 M00S02111.tafrec +++|* WRITE ERROR MESSAGE TO RECOVERY REPORT.
02360 M00S02112.tafrec +++|
02361 M00S02113.tafrec +++| PTF5 WRITEW R,PTFG,PTFGL WRITE GENERAL ERROR MESSAGE
02362 M00S02114.tafrec +++| WRITEC R,A0 WRITE DETAILED ERROR MESSAGE
| Line S02115 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02363 M01S02115.v23l617 ---| MESSAGE PTFB,3 WRITE STATEMENT IN ERROR
| Line S00018 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02364 M01S00018.v23l617 +++| MESSAGE PTFB,3 WRITE STATEMENT IN ERROR
02365 M00S02116.tafrec +++| MESSAGE A0,3 WRITE ERROR MESSAGE
02366 M00S02117.tafrec +++| SA1 PTFN
02367 M00S02118.tafrec +++| SX6 X1+B1 INCREMENT NUMBER OF ERRORS
02368 M00S02119.tafrec +++| SA6 A1
02369 M00S02120.tafrec +++| EQ PTF2 PROCESS NEXT DIRECTIVE
02370 M00S02121.tafrec +++|
02371 M00S02122.tafrec +++| PTF6 SX6 B0 CLEAR TCF ORIGIN
02372 M00S02123.tafrec +++| SA6 KCOF
02373 M00S02124.tafrec +++| SA1 PTFZ *K.* ERROR COUNT
02374 M00S02125.tafrec +++| SA3 PTFN TOTAL ERROR COUNT
02375 M00S02126.tafrec +++| IX6 X3-X1 GET FATAL ERROR COUNT
02376 M00S02127.tafrec +++| SA6 PTFN
02377 M00S02128.tafrec +++| NZ X6,PTF7 IF FATAL ERRORS
02378 M00S02129.tafrec +++| ZR X1,PTF7 IF NO *K.* ERRORS
02379 M00S02130.tafrec +++| SA6 PTFU CLEAR *K-DISPLAY* STATUS FLAG
02380 M00S02131.tafrec +++| RJ SKD DISPLAY
02381 M00S02132.tafrec +++| PTF7 WRITEW R,PTFY,B1 BLANK LINE
02382 M00S02133.tafrec +++| SA3 PTFN ERROR COUNT
| Line S02134 Modification History |
M01 (Removed by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02383 M01S02134.ns2094 ---| SA2 PTFU *K-DISPLAY* STATUS
| Line S00001 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02384 M01S00001.ns2094 +++| SA2 PTFAA MUST HAVE A *USER* COMMAND
02385 M00S02135.tafrec +++| SA4 PTFO CHECK MATCH OF *NETWORK* AND *RECOVER*
02386 M00S02136.tafrec +++| IX6 X4+X3
| Line S00002 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02387 M01S00002.ns2094 +++| IX6 X6+X2
02388 M01S00003.ns2094 +++| SA2 PTFU
02389 M00S02137.tafrec +++| SA1 PTFR *TAFNAM* MUST HAVE A *NETWORK* DIRECTIVE
02390 M00S02138.tafrec +++| IX6 X6+X1
02391 M00S02139.tafrec +++| SA5 PTFS RECOVERY MUST HAVE A *RECOVER* DIRECTIVE
02392 M00S02140.tafrec +++| IX6 X6+X5
02393 M00S02141.tafrec +++| ZR X6,PTFX IF NO ERRORS
02394 M00S02142.tafrec +++| ZR X1,PTF8 IF *NETWORK* DIRECTIVE PRESENT
02395 M00S02143.tafrec +++| SA0 X4 SAVE X4
02396 M00S02144.tafrec +++| SB2 B1+B1
02397 M00S02145.tafrec +++| RJ ALC ADVANCE LINE COUNT
02398 M00S02146.tafrec +++| WRITEC R,PTFV *NETWORK* DIRECTIVE(S) REQUIRED
02399 M00S02147.tafrec +++| SX4 A0 RESTORE X4
| Line S02148 Modification History |
M01 (Removed by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02400 M01S02148.ns2094 ---| PTF8 ZR X5,PTF9 IF *RECOVER* DIRECTIVE PRESENT
| Line S00004 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02401 M01S00004.ns2094 +++| PTF8 ZR X5,PTF8.1 IF *RECOVER* DIRECTIVE PRESENT
02402 M00S02149.tafrec +++| BX5 X4 SAVE X4
02403 M00S02150.tafrec +++| SB2 B1+B1
02404 M00S02151.tafrec +++| RJ ALC ADVANCE LINE COUNT
02405 M00S02152.tafrec +++| WRITEC R,PTFW *RECOVER* DIRECTIVE(S) REQUIRED
02406 M00S02153.tafrec +++| BX4 X5 RESTORE X4
| Line S00005 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02407 M01S00005.ns2094 +++| PTF8.1 SA2 PTFAA
02408 M01S00006.ns2094 +++| ZR X2,PTF9 IF *USER* COMMAND PRESENT
02409 M01S00007.ns2094 +++| BX5 X4 SAVE *PTFO* FLAGS FOR *NETWORK/RECOVER*
02410 M01S00008.ns2094 +++| SB2 B1+B1
02411 M01S00009.ns2094 +++| RJ ALC ADVANCE LINE COUNT
02412 M01S00010.ns2094 +++| WRITEC R,PTFAC * USER COMMAND REQUIRED.*
02413 M01S00011.ns2094 +++| BX4 X5 RESTORE *PTFO* FLAGS FOR *NETWORK/RECOVER*
02414 M00S02154.tafrec +++| PTF9 ZR X4,PTF10 IF *RECOVER* AND *NETWORK* ID-S MATCH
02415 M00S02155.tafrec +++| SB2 B1+B1
02416 M00S02156.tafrec +++| RJ ALC ADVANCE LINE COUNT
02417 M00S02157.tafrec +++| WRITEC R,PTFP *RECOVER* AND *NETWORK* ID-S DO NOT MATCH
02418 M00S02158.tafrec +++|
02419 M00S02159.tafrec +++|
02420 M00S02160.tafrec +++| PTF10 SB5 PTFF
| Line S02161 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02421 M01S02161.v23l617 ---| EQ ERR ERROR - INVALID TCF ENTRIES
| Line S00019 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02422 M01S00019.v23l617 +++| EQ ERR ERROR - INCORRECT TCF ENTRIES
02423 M00S02162.tafrec +++|
02424 M00S02163.tafrec +++|* PROCESS *DISPLAY*.
02425 M00S02164.tafrec +++|
02426 M00S02165.tafrec +++| PTF11 SA1 PTFC+1 GET PARAMETER
02427 M00S02166.tafrec +++| RJ DSP PROCESS *DISPLAY* DIRECTIVE
02428 M00S02167.tafrec +++| SA0 PTFI
02429 M00S02168.tafrec +++| NZ X3,PTF5 IF ERROR IN DIRECTIVE
02430 M00S02169.tafrec +++| SA6 PTFU INDICATE *K-DISPLAY* STATUS
02431 M00S02170.tafrec +++| MX6 12
02432 M00S02171.tafrec +++| SA6 PTFA INHIBIT MORE *DISPLAY* DIRECTIVES
02433 M00S02172.tafrec +++| EQ PTF2 PROCESS NEXT DIRECTIVE
02434 M00S02173.tafrec +++|
02435 M00S02174.tafrec +++|* PROCESS *NETWORK*.
02436 M00S02175.tafrec +++|
02437 M00S02176.tafrec +++| PTF12 SB4 B6-1 ARGUMENT COUNT
02438 M00S02177.tafrec +++| SA4 PTFC+1 FIRST ARGUMENT
02439 M00S02178.tafrec +++| RJ NET PROCESS *NETWORK* DIRECTIVE
02440 M00S02179.tafrec +++| SB4 A0
02441 M00S02180.tafrec +++| NE B4,PTF5 IF DIRECTIVE ERROR
02442 M00S02181.tafrec +++| BX6 X6-X6
02443 M00S02182.tafrec +++| SA6 PTFR INDICATE *NETWORK* DIRECTIVE PRESENT
02444 M00S02183.tafrec +++| SX1 IPTAR
02445 M00S02184.tafrec +++| ZR X1,PTF2 IF AUTO RECOVERY NOT ENABLED
02446 M00S02185.tafrec +++| SA1 PTFO
02447 M00S02186.tafrec +++| SX2 B1
02448 M00S02187.tafrec +++| LX2 X2,B5
02449 M00S02188.tafrec +++| BX6 X1-X2 SET/CLEAR BIT FOR THIS *ID*
02450 M00S02189.tafrec +++| SA6 A1
02451 M00S02190.tafrec +++| EQ PTF2 PROCESS NEXT DIRECTIVE
02452 M00S02191.tafrec +++|
02453 M00S02192.tafrec +++|* PROCESS *RECOVER*.
02454 M00S02193.tafrec +++|
02455 M00S02194.tafrec +++| PTF13 SX1 IPTAR-1
02456 M00S02195.tafrec +++| SA0 PTFK * RECOVERY DISABLED.*
| Line S02196 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02457 M01S02196.v23l617 ---| NZ X1,PTF5 IF *RECOVER* INVALID
| Line S00020 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02458 M01S00020.v23l617 +++| NZ X1,PTF5 IF *RECOVER* INCORRECT
02459 M00S02197.tafrec +++| SA4 PTFC+1 FIRST ARGUMENT
02460 M00S02198.tafrec +++| SB4 B6-1 ARGUMENT COUNT
02461 M00S02199.tafrec +++| RJ RCV PROCESS *RECOVER* DIRECTIVE
02462 M00S02200.tafrec +++| SB4 A0+
02463 M00S02201.tafrec +++| NE B4,PTF5 IF DIRECTIVE ERROR
02464 M00S02202.tafrec +++| SA1 PTFO
02465 M00S02203.tafrec +++| SX2 B1
02466 M00S02204.tafrec +++| LX2 X2,B6
02467 M00S02205.tafrec +++| BX6 X1-X2 SET/CLEAR BIT FOR THIS ID
02468 M00S02206.tafrec +++| SA6 A1
02469 M00S02207.tafrec +++| SX6 B0+
02470 M00S02208.tafrec +++| SA6 PTFS INDICATE *RECOVER* DIRECTIVE PRESENT
02471 M00S02209.tafrec +++| EQ PTF2 PROCESS NEXT DIRECTIVE
02472 M00S02210.tafrec +++|
02473 M00S02211.tafrec +++|* PROCESS *DMS*.
02474 M00S02212.tafrec +++|
02475 M00S02213.tafrec +++| PTF14 SA1 PTFC FWA OF UNPACKED DIRECTIVE BUFFER
02476 M00S02214.tafrec +++| RJ DMS PROCESS *DMS*
02477 M00S02215.tafrec +++| SA0 PTFI * PARAMETER ERROR.*
02478 M00S02216.tafrec +++| NZ X5,PTF5 IF ERROR
02479 M00S02217.tafrec +++| EQ PTF2 PROCESS NEXT DIRECTIVE
02480 M00S02218.tafrec +++|
02481 M00S02219.tafrec +++|* PROCESS BATCH CONCURRENCY COMMAND *TBCON,N.*
02482 M00S02220.tafrec +++|
02483 M00S02221.tafrec +++| PTF15 SA5 PTFC+B1 NUMBER OF BATCH CONCURRENCY JOBS
02484 M00S02222.tafrec +++| SA0 PTFI *PARAMETER ERROR*
02485 M00S02223.tafrec +++| RJ DXB CONVERT NUMBER
02486 M00S02224.tafrec +++| NZ X4,PTF5 IF CONVERSION ERROR
02487 M00S02225.tafrec +++| EQ PTF2 PROCESS NEXT DIRECTIVE
02488 M00S02226.tafrec +++|
02489 M00S02227.tafrec +++|* PROCESS *K.COMMAND*
02490 M00S02228.tafrec +++|
02491 M00S02229.tafrec +++| PTF16 SA1 B0
02492 M00S02230.tafrec +++| LX1 59-8 POSITION TO SENSE SWITCH 3
02493 M00S02231.tafrec +++| NG X1,PTF2 IF RECOVERY MODE SELECTED
02494 M00S02232.tafrec +++| SA1 PTFB FIRST PARAMETER
02495 M00S02233.tafrec +++| SX6 B1 SET *K.COMMAND* MODE
02496 M00S02234.tafrec +++| SA6 KCOF
02497 M00S02235.tafrec +++| RJ SKD PROCESS *K.COMMAND*
02498 M00S02236.tafrec +++|
02499 M00S02237.tafrec +++|* ENTRY POINT FROM *SKD*.
02500 M00S02238.tafrec +++|
02501 M00S02239.tafrec +++| PTF17 ZR X2,PTF2 IF NO ERROR
02502 M00S02240.tafrec +++| SA1 PTFZ *K.* ERROR COUNT
02503 M00S02241.tafrec +++| SX6 X1+B1 INCREMENT ERROR COUNT
02504 M00S02242.tafrec +++| SA6 A1
02505 M00S02243.tafrec +++| EQ PTF5 RECORD COUNT ERROR IN REPORT
| Line S00012 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02506 M01S00012.ns2094 +++|
02507 M01S00013.ns2094 +++|* PROCESS *USER* COMMAND.
02508 M01S00014.ns2094 +++|
02509 M01S00015.ns2094 +++| PTF18 SA5 PTFAA MUST HAVE ONLY ONE *USER* COMMAND
02510 M01S00016.ns2094 +++| SA0 PTFAD
02511 M01S00017.ns2094 +++| SB2 X5
02512 M01S00018.ns2094 +++| NE B1,B2,PTF5 IF NOT FIRST *USER* COMMAND
02513 M01S00019.ns2094 +++| SX6 B0 INDICATE AT LEAST ONE *USER* COMMAND
02514 M01S00020.ns2094 +++| SA6 A5
02515 M01S00021.ns2094 +++| RJ USR PROCESS *USER* COMMAND
02516 M01S00022.ns2094 +++| SX6 A0
02517 M01S00023.ns2094 +++| NZ X6,PTF5 IF ERROR OCCURRED
02518 M01S00024.ns2094 +++| EQ PTF2 PROCESS NEXT COMMAND
02519 M00S02244.tafrec +++|
02520 M00S02245.tafrec +++|* TABLE OF VALID DIRECTIVE KEYWORDS.
02521 M00S02246.tafrec +++|
02522 M00S02247.tafrec +++| PTFA VFD 42/0LDISPLAY,18/PTF11
02523 M00S02248.tafrec +++| VFD 42/0LNETWORK,18/PTF12
02524 M00S02249.tafrec +++| VFD 42/0LRECOVER,18/PTF13
02525 M00S02250.tafrec +++| VFD 42/0LDMS,18/PTF14
02526 M00S02251.tafrec +++| VFD 42/0LK,18/PTF16
02527 M00S02252.tafrec +++| VFD 42/0LTBCON,18/PTF15
| Line S00025 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02528 M01S00025.ns2094 +++| VFD 42/0LACCOUNT,18/PTF18 *ACCOUNT* COMMAND
02529 M01S00026.ns2094 +++| VFD 42/0LUSER,18/PTF18 *USER* COMMAND
02530 M00S02253.tafrec +++| CON 0 TABLE TERMINATOR
02531 M00S02254.tafrec +++|
02532 M00S02255.tafrec +++| PTFB BSSZ 16 BUFFER FOR DIRECTIVE IMAGE
02533 M00S02256.tafrec +++| PTFC BSSZ 80 BUFFER FOR UNPACKED DIRECTIVE
02534 M00S02257.tafrec +++|
02535 M00S02258.tafrec +++| PTFD DATA C* FILE TCF NOT FOUND.*
02536 M00S02259.tafrec +++| PTFE DATA C* TCF FILE EMPTY.*
| Line S02260 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02537 M01S02260.v23l617 ---| PTFF DATA C* INVALID TCF ENTRY.*
| Line S00021 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02538 M01S00021.v23l617 +++| PTFF DATA C* INCORRECT TCF ENTRY.*
02539 M00S02261.tafrec +++|
02540 M00S02262.tafrec +++| PTFG DATA 40H *** ERROR IN ABOVE DIRECTIVE ***
02541 M00S02263.tafrec +++| PTFGL EQU *-PTFG
02542 M00S02264.tafrec +++| PTFH DATA C* UNKNOWN DIRECTIVE.*
02543 M00S02265.tafrec +++| PTFI DATA C* PARAMETER ERROR.*
02544 M00S02266.tafrec +++| PTFK DATA C* RECOVERY DISABLED.*
02545 M00S02267.tafrec +++| PTFL DATA C* DUPLICATE RECOVER ID.*
02546 M00S02268.tafrec +++| PTFM DATA C* DUPLICATE NETWORK ID.*
02547 M00S02269.tafrec +++|
02548 M00S02270.tafrec +++| PTFN CON 0 NUMBER OF DIRECTIVE ERRORS
02549 M00S02271.tafrec +++| PTFO CON 0 FLAGS FOR *NETWORK*/*RECOVER* DIRECTIVES
02550 M00S02272.tafrec +++| PTFP DATA 10H
02551 M00S02273.tafrec +++| DATA C* NONMATCHING NETWORK AND RECOVER ID-S*
02552 M00S02274.tafrec +++| PTFQ DATA 20H
02553 M00S02275.tafrec +++| DATA C*TAF CONFIGURATION FILE*
02554 M00S02276.tafrec +++| DATA 1L
02555 M00S02277.tafrec +++| PTFQL EQU *-PTFQ
| Line S02278 Modification History |
M01 (Removed by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02556 M01S02278.ns2094 ---| .A IFC EQ,/"PROD"/TAFNAM/
02557 M00S02279.tafrec +++| PTFR CON 1 MUST BE AT LEAST ONE *NETWORK* DIRECTIVE
| Line S02280 Modification History |
M01 (Removed by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02558 M01S02280.ns2094 ---| .A ELSE
02559 M01S02281.ns2094 ---| PTFR CON 0 NO *NETWORK* DIRECTIVES FOR TAFTS
02560 M01S02282.ns2094 ---| .A ENDIF
02561 M00S02283.tafrec +++| .A IFEQ IPTAR,1
02562 M00S02284.tafrec +++| PTFS CON 1 MUST BE AT LEAST ONE *RECOVER* DIRECTIVE
02563 M00S02285.tafrec +++| .A ELSE
02564 M00S02286.tafrec +++| PTFS CON 0 NO *RECOVER* DIRECTIVES
02565 M00S02287.tafrec +++| .A ENDIF
02566 M00S02288.tafrec +++| PTFU CON 0 SET *K-DISPLAY* IF NONZERO
02567 M00S02289.tafrec +++| PTFV DATA 10H
02568 M00S02290.tafrec +++| DATA C* NETWORK DIRECTIVE(S) REQUIRED.*
02569 M00S02291.tafrec +++| PTFW DATA 10H
02570 M00S02292.tafrec +++| DATA C* RECOVER DIRECTIVE(S) REQUIRED.*
02571 M00S02293.tafrec +++| PTFY DATA 1L
02572 M00S02294.tafrec +++| PTFZ CON 0 *K-COMMAND* ERROR COUNT
| Line S00027 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02573 M01S00027.ns2094 +++| PTFAA CON 1 MUST BE ONLY ONE *USER* COMMAND
02574 M01S00028.ns2094 +++| PTFAB DATA C* USER COMMAND NOT VALID ON FAMILY.*
02575 M01S00029.ns2094 +++| PTFAC DATA C* USER COMMAND DOES NOT APPEAR IN TCF.*
02576 M01S00030.ns2094 +++| PTFAD DATA C* MORE THAN ONE USER COMMAND IN TCF.*
02577 M00S02295.tafrec +++| DSP SPACE 4,10
02578 M00S02296.tafrec +++|** DSP - PROCESS *DISPLAY* DIRECTIVE.
02579 M00S02297.tafrec +++|*
02580 M00S02298.tafrec +++|* ENTRY (X1) = DISPLAY STATUS.
02581 M00S02299.tafrec +++|*
02582 M00S02300.tafrec +++|* EXIT (X6) = NONZERO IF *K-DISPLAY* TO BE SET.
02583 M00S02301.tafrec +++|* (X3) = 0 IF NO ERROR IN DIRECTIVE.
02584 M00S02302.tafrec +++|*
02585 M00S02303.tafrec +++|* USES X - 2, 3, 6.
02586 M00S02304.tafrec +++|* A - 2.
02587 M00S02305.tafrec +++|
02588 M00S02306.tafrec +++|
02589 M00S02307.tafrec +++| DSP SUBR ENTRY/EXIT
02590 M00S02308.tafrec +++| BX6 X6-X6 PRESET DISPLAY OFF
02591 M00S02309.tafrec +++| SA2 DSPA
02592 M00S02310.tafrec +++| BX3 X2-X1
02593 M00S02311.tafrec +++| ZR X3,DSPX IF *OFF*
02594 M00S02312.tafrec +++| SA2 A2+B1
02595 M00S02313.tafrec +++| BX3 X2-X1
02596 M00S02314.tafrec +++| NZ X3,DSPX IF NOT *ON*
02597 M00S02315.tafrec +++| SX6 DSP
02598 M00S02316.tafrec +++| EQ DSPX RETURN
02599 M00S02317.tafrec +++|
02600 M00S02318.tafrec +++|* TABLE OF VALID DISPLAY STATUSES.
02601 M00S02319.tafrec +++|
02602 M00S02320.tafrec +++| DSPA VFD 42/0LOFF,18/0
02603 M00S02321.tafrec +++| VFD 42/0LON,18/0
02604 M00S02322.tafrec +++| DSP SPACE 4,20
02605 M00S02323.tafrec +++|** NET - PROCESS *NETWORK* DIRECTIVE.
02606 M00S02324.tafrec +++|*
02607 M00S02325.tafrec +++|* ENTRY (A4) = ADDRESS OF FIRST ARGUMENT.
02608 M00S02326.tafrec +++|* (B4) = ARGUMENT COUNT.
02609 M00S02327.tafrec +++|*
02610 M00S02328.tafrec +++|* EXIT (A0) = FWA OF ERROR MESSAGE IF ERROR.
02611 M00S02329.tafrec +++|* = 0 IF NO ERROR.
02612 M00S02330.tafrec +++|* (B5) = NETWORK ID.
02613 M00S02331.tafrec +++|*
02614 M00S02332.tafrec +++|* USES X - 1, 2, 5, 6, 7.
02615 M00S02333.tafrec +++|* A - 0, 1, 2, 5, 7.
02616 M00S02334.tafrec +++|* B - 5, 6, 7.
02617 M00S02335.tafrec +++|*
02618 M00S02336.tafrec +++|* CALLS ARG, DXB.
02619 M00S02337.tafrec +++|*
02620 M00S02338.tafrec +++|* MACROS SYSTEM.
02621 M00S02339.tafrec +++|
02622 M00S02340.tafrec +++|
02623 M00S02341.tafrec +++| NET SUBR ENTRY/EXIT
02624 M00S02342.tafrec +++| SA0 PTFI * PARAMETER ERROR.*
02625 M00S02343.tafrec +++| SB5 NETA ARGUMENT TABLE
02626 M00S02344.tafrec +++| RJ ARG PROCESS ARGUMENTS
02627 M00S02345.tafrec +++| NZ X1,NETX IF ERRORS
02628 M00S02346.tafrec +++| SA5 ID
02629 M00S02347.tafrec +++| SB7 B1+
02630 M00S02348.tafrec +++| RJ DXB DISPLAY TO BINARY
| Line S02349 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02631 M01S02349.v23l617 ---| NZ X4,NETX IF INVALID ID
| Line S00022 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02632 M01S00022.v23l617 +++| NZ X4,NETX IF INCORRECT ID
02633 M00S02350.tafrec +++| SX7 X6-MAXNF
| Line S02351 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02634 M01S02351.v23l617 ---| PL X7,NETX IF INVALID ID
| Line S00023 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02635 M01S00023.v23l617 +++| PL X7,NETX IF INCORRECT ID
02636 M00S02352.tafrec +++| SB5 X6
02637 M00S02353.tafrec +++| SX7 B1+B1
02638 M00S02354.tafrec +++| IX6 X7*X6
02639 M00S02355.tafrec +++| SA1 TFAM+X6+1
02640 M00S02356.tafrec +++| SA0 PTFM * DUPLICATE NETWORK ID.*
02641 M00S02357.tafrec +++| NZ X1,NETX IF ID ALREADY USED
02642 M00S02358.tafrec +++| SB6 X6+
| Line S02359 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02643 M01S02359.ns21000 ---| SYSTEM CPM,R,UN,56B*100B VALIDATE FAMILY/USER NAME
| Line S00009 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
02644 M01S00009.ns21000 +++| SYSTEM CPM,R,FM,56B*100B VALIDATE FAMILY/USER NAME
02645 M00S02360.tafrec +++| SA1 UN
| Line S02361 Modification History |
M01 (Removed by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02646 M01S02361.ns2094 ---| SA0 PTFI * PARAMETER ERROR.*
| Line S00031 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02647 M01S00031.ns2094 +++| SA0 PTFAB * USER NOT VALID ON FAMILY.*
| Line S02362 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02648 M01S02362.ns22000 ---| SX1 X1+
02649 M01S02363.ns22000 ---| ZR X1,NETX IF INVALID FAMILY/USER NAME
| Line S00042 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02650 M01S00042.ns22000 +++| SX6 X1+
| Line S00043 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02651 M02S00043.v23l617 ---| ZR X6,NETX IF INVALID FAMILY/ USER NAME
| Line S00024 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02652 M01S00024.v23l617 +++| ZR X6,NETX IF INCORRECT FAMILY/ USER NAME
02653 M00S02364.tafrec +++| SA2 FM SAVE FAMILY NAME
02654 M00S02365.tafrec +++| BX7 X2
02655 M00S02366.tafrec +++| SA0 B0 INDICATE NO ERROR
02656 M00S02367.tafrec +++| SA7 TFAM+B6
| Line S02368 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02657 M01S02368.ns22000 ---| SX7 X1+
| Line S00044 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02658 M01S00044.ns22000 +++| BX7 X1
02659 M00S02369.tafrec +++| SA7 A7+1 SAVE USER INDEX
02660 M00S02370.tafrec +++| EQ NETX RETURN
02661 M00S02371.tafrec +++|
02662 M00S02372.tafrec +++|* ARGUMENT TABLE FOR *NETWORK* DIRECTIVE.
02663 M00S02373.tafrec +++|
02664 M00S02374.tafrec +++| NETA BSS 0
02665 M00S02375.tafrec +++| ID ARG NETB,ID,400B
02666 M00S02376.tafrec +++| FM ARG NETB,FM
02667 M00S02377.tafrec +++| UN ARG NETB,UN
02668 M00S02378.tafrec +++| CON 0 TABLE TERMINATOR
02669 M00S02379.tafrec +++|
02670 M00S02380.tafrec +++| NETB CON 0 FLAG NONEQUIVALENCED PARAMETERS
02671 M00S02381.tafrec +++| RCV SPACE 4,15
02672 M00S02382.tafrec +++|** RCV - PROCESS *RECOVER* DIRECTIVE.
02673 M00S02383.tafrec +++|*
02674 M00S02384.tafrec +++|* ENTRY (A4) = ADDRESS OF FIRST ARGUMENT.
02675 M00S02385.tafrec +++|* (B4) = ARGUMENT COUNT.
02676 M00S02386.tafrec +++|*
02677 M00S02387.tafrec +++|* EXIT (A0) = FWA OF ERROR MESSAGE IF ERROR.
02678 M00S02388.tafrec +++|* = 0 IF NO ERROR.
02679 M00S02389.tafrec +++|* (B6) = RECOVER ID.
02680 M00S02390.tafrec +++|*
02681 M00S02391.tafrec +++|* USES X - 1, 4, 5, 6, 7.
02682 M00S02392.tafrec +++|* A - 0, 1, 5, 6.
02683 M00S02393.tafrec +++|* B - 5, 6, 7.
02684 M00S02394.tafrec +++|*
02685 M00S02395.tafrec +++|* CALLS ARG, DXB.
02686 M00S02396.tafrec +++|
02687 M00S02397.tafrec +++|
02688 M00S02398.tafrec +++| RCV SUBR ENTRY/EXIT
02689 M00S02399.tafrec +++| SA0 PTFI * PARAMETER ERROR.*
02690 M00S02400.tafrec +++| SB5 RCVA ARGUMENT TABLE
02691 M00S02401.tafrec +++| RJ ARG PROCESS ARGUMENTS
02692 M00S02402.tafrec +++| NZ X1,RCVX IF ERRORS
02693 M00S02403.tafrec +++| SA5 ID
02694 M00S02404.tafrec +++| SB7 B1
02695 M00S02405.tafrec +++| RJ DXB DISPLAY TO BINARY
02696 M00S02406.tafrec +++| SB6 X6
| Line S02407 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02697 M01S02407.v23l617 ---| NZ X4,RCVX IF INVALID ID
| Line S00025 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02698 M01S00025.v23l617 +++| NZ X4,RCVX IF INCORRECT ID
02699 M00S02408.tafrec +++| SX7 X6-MAXRC
| Line S02409 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02700 M01S02409.v23l617 ---| PL X7,RCVX IF INVALID ID
| Line S00026 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02701 M01S00026.v23l617 +++| PL X7,RCVX IF INCORRECT ID
02702 M00S02410.tafrec +++| SA5 NM
02703 M00S02411.tafrec +++| RJ DXB DISPLAY TO BINARY
| Line S02412 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02704 M01S02412.v23l617 ---| NZ X4,RCVX IF INVALID *NM*
| Line S00027 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02705 M01S00027.v23l617 +++| NZ X4,RCVX IF INCORRECT *NM*
02706 M00S02413.tafrec +++| SX7 X6-TRMM-1
| Line S02414 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02707 M01S02414.v23l617 ---| PL X7,RCVX IF INVALID *NM*
| Line S00028 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02708 M01S00028.v23l617 +++| PL X7,RCVX IF INCORRECT *NM*
02709 M00S02415.tafrec +++| SA1 TREC+B6
02710 M00S02416.tafrec +++| SA0 PTFL * DUPLICATE RECOVER ID.*
02711 M00S02417.tafrec +++| NZ X1,RCVX IF ID ALREADY USED
02712 M00S02418.tafrec +++| LX6 24
02713 M00S02419.tafrec +++| BX6 X6+X1
02714 M00S02420.tafrec +++| SA6 A1+ SAVE NUMBER OF USER MESSAGES
02715 M00S02421.tafrec +++| SA5 MS
02716 M00S02422.tafrec +++| RJ DXB DISPLAY TO BINARY
02717 M00S02423.tafrec +++| SA0 PTFI * PARAMETER ERROR.*
| Line S02424 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02718 M01S02424.v23l617 ---| NZ X4,RCVX IF INVALID *MS*
| Line S00029 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02719 M01S00029.v23l617 +++| NZ X4,RCVX IF INCORRECT *MS*
02720 M00S02425.tafrec +++| SX7 X6-MAXMS
| Line S02426 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02721 M01S02426.v23l617 ---| PL X7,RCVX IF INVALID *MS*
| Line S00030 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02722 M01S00030.v23l617 +++| PL X7,RCVX IF INCORRECT *MS*
02723 M00S02427.tafrec +++| SA1 TREC+B6
02724 M00S02428.tafrec +++| SX4 X6+TRMWL+77B
02725 M00S02429.tafrec +++| AX4 6 PRU-S PER MESSAGE RECORD
02726 M00S02430.tafrec +++| LX4 36
02727 M00S02431.tafrec +++| LX6 12
02728 M00S02432.tafrec +++| BX6 X6+X1
02729 M00S02433.tafrec +++| BX6 X6+X4
02730 M00S02434.tafrec +++| SA6 A1 SAVE MAXIMUM MESSAGE SIZE
02731 M00S02435.tafrec +++| SA0 B0+ SET NO ERROR
02732 M00S02436.tafrec +++| EQ RCVX RETURN
02733 M00S02437.tafrec +++|
02734 M00S02438.tafrec +++|* ARGUMENT TABLE FOR *RECOVER* DIRECTIVE.
02735 M00S02439.tafrec +++|
02736 M00S02440.tafrec +++| RCVA BSS 0
02737 M00S02441.tafrec +++| ID ARG RCVB,ID,400B
02738 M00S02442.tafrec +++| NM ARG RCVB,NM
02739 M00S02443.tafrec +++| MS ARG RCVB,MS
02740 M00S02444.tafrec +++| CON 0 TABLE TERMINATOR
02741 M00S02445.tafrec +++|
02742 M00S02446.tafrec +++| RCVB CON 0 FLAG NON EQUIVALENCED PARAMETERS
02743 M00S02447.tafrec +++| DMS SPACE 4,10
02744 M00S02448.tafrec +++|** DMS - PROCESS *DMS* DIRECTIVE.
02745 M00S02449.tafrec +++|*
02746 M00S02450.tafrec +++|* ENTRY (A1) = FWA OF UNPACKED DIRECTIVE BUFFER.
02747 M00S02451.tafrec +++|*
02748 M00S02452.tafrec +++|* EXIT (X5) = 0 IF NO ERROR.
02749 M00S02453.tafrec +++|* TO *ERR* IF DB-NAME ERROR.
02750 M00S02454.tafrec +++|*
02751 M00S02455.tafrec +++|* USES X - 0, 1, 2, 4, 5.
02752 M00S02456.tafrec +++|* A - 1, 2.
02753 M00S02457.tafrec +++|* B - 5.
02754 M00S02458.tafrec +++|
02755 M00S02459.tafrec +++|
02756 M00S02460.tafrec +++| DMS SUBR ENTRY/EXIT
02757 M00S02461.tafrec +++| MX0 42 MASK FOR PARAMETERS
02758 M00S02462.tafrec +++| SA1 A1+B1
02759 M00S02463.tafrec +++| SA2 DMSA
| Line S02464 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02760 M01S02464.v23l617 ---| DMS1 ZR X2,DMSX IF INVALID DATA MANAGER
| Line S00031 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02761 M01S00031.v23l617 +++| DMS1 ZR X2,DMSX IF INCORRECT DATA MANAGER
02762 M00S02465.tafrec +++| BX4 X1-X2
02763 M00S02466.tafrec +++| SA2 A2+B1
02764 M00S02467.tafrec +++| BX5 X0*X4
02765 M00S02468.tafrec +++| NZ X5,DMS1 IF NO MATCH
02766 M00S02469.tafrec +++| SA1 A1+B1 SECOND ARGUMENT (DATA MANAGER STATUS)
02767 M00S02470.tafrec +++| SA2 DMSB
| Line S02471 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02768 M01S02471.v23l617 ---| DMS2 ZR X2,DMSX IF INVALID STATUS
| Line S00032 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02769 M01S00032.v23l617 +++| DMS2 ZR X2,DMSX IF INCORRECT STATUS
02770 M00S02472.tafrec +++| BX4 X1-X2
02771 M00S02473.tafrec +++| SA2 A2+B1
02772 M00S02474.tafrec +++| BX5 X0*X4
02773 M00S02475.tafrec +++| NZ X5,DMS2 IF NO MATCH
02774 M00S02476.tafrec +++| MX0 6
02775 M00S02477.tafrec +++| SX2 1RZ
02776 M00S02478.tafrec +++| LX2 -6
02777 M00S02479.tafrec +++| DMS3 SA1 A1+B1
02778 M00S02480.tafrec +++| SX5 B0
02779 M00S02481.tafrec +++| ZR X1,DMSX IF END OF STATEMENT
02780 M00S02482.tafrec +++| BX4 X0*X1
02781 M00S02483.tafrec +++| BX5 X4-X2
02782 M00S02484.tafrec +++| NZ X5,DMS3 IF *DB-NAME* DOES NOT START WITH *Z*
02783 M00S02485.tafrec +++| SB5 MZDB ISSUE ERROR MESSAGE
02784 M00S02486.tafrec +++| EQ ERR PROCESS ERROR
02785 M00S02487.tafrec +++|
02786 M00S02488.tafrec +++|* TABLE OF VALID DATA MANAGERS.
02787 M00S02489.tafrec +++|
02788 M00S02490.tafrec +++| DMSA VFD 42/0LCRM,18/0
02789 M00S02491.tafrec +++| VFD 42/0LTOTAL,18/0
02790 M00S02492.tafrec +++| VFD 42/0LOTHER,18/0
02791 M00S02493.tafrec +++| CON 0 TABLE TERMINATOR
02792 M00S02494.tafrec +++|
02793 M00S02495.tafrec +++|* TABLE OF VALID STATUS SWITCHES.
02794 M00S02496.tafrec +++|
02795 M00S02497.tafrec +++| DMSB VFD 42/0LOFF,18/0
02796 M00S02498.tafrec +++| VFD 42/0LON,18/0
02797 M00S02499.tafrec +++| CON 0 TABLE TERMINATOR
| Line S00032 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02798 M01S00032.ns2094 +++| USR SPACE 4,25
02799 M01S00033.ns2094 +++|** USR - PROCESS *USER* COMMAND.
02800 M01S00034.ns2094 +++|*
02801 M01S00035.ns2094 +++|* THE *USER* COMMAND IS USED TO INDICATE WHICH USER NAME
02802 M01S00036.ns2094 +++|* TAF IS TO RUN UNDER. THIS USER NAME MUST BE ASSIGNED THE
02803 M01S00037.ns2094 +++|* USER INDEX SPECIFIED BY *TRUI*.
02804 M01S00038.ns2094 +++|*
02805 M01S00039.ns2094 +++|* USER(UN,PW,FM)
02806 M01S00040.ns2094 +++|* ACCOUNT(UN,PW,FM)
02807 M01S00041.ns2094 +++|*
02808 M01S00042.ns2094 +++|* WHERE UN = USER NAME.
02809 M01S00043.ns2094 +++|* PW = PASSWORD.
02810 M01S00044.ns2094 +++|* FM = FAMILY.
02811 M01S00045.ns2094 +++|*
02812 M01S00046.ns2094 +++|* ENTRY (A1) = FWA OF PARAMETER TO CHECK.
02813 M01S00047.ns2094 +++|*
02814 M01S00048.ns2094 +++|* EXIT (A0) = 0, IF NO ERROR.
02815 M01S00049.ns2094 +++|* = FWA OF ERROR MESSAGE, IF ERROR.
02816 M01S00050.ns2094 +++|*
02817 M01S00051.ns2094 +++|* USES X - 1, 3, 7.
02818 M01S00052.ns2094 +++|* A - 0, 1, 7.
02819 M01S00053.ns2094 +++|* B - 3, 4.
02820 M01S00054.ns2094 +++|*
| Line S00055 Modification History |
M01 (Added by) | ns2094 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02821 M02S00055.ns22000 ---|* MACROS ENFAM, SYSTEM.
| Line S00045 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02822 M01S00045.ns22000 +++|* MACROS SETPFP, SYSTEM.
| Line S00056 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02823 M01S00056.ns2094 +++|
02824 M01S00057.ns2094 +++|
02825 M01S00058.ns2094 +++| USR SUBR ENTRY/EXIT
02826 M01S00059.ns2094 +++| MX3 42 MASK FOR PARAMETER
| Line S00060 Modification History |
M01 (Added by) | ns2094 |
M02 (Removed by) | ns2614 |
Seq # *Modification Id* Act
----------------------------+
02827 M02S00060.ns2614 ---| SA1 A1+B1 USER NAME
| Line S00001 Modification History |
M01 (Added by) | ns2614 |
Seq # *Modification Id* Act
----------------------------+
02828 M01S00001.ns2614 +++| SA1 A1+1 USER NAME
| Line S00061 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02829 M01S00061.ns2094 +++| BX7 X3*X1
02830 M01S00062.ns2094 +++| SA7 VUSN
02831 M01S00063.ns2094 +++| SA7 USRC
02832 M01S00064.ns2094 +++| SA7 UN
02833 M01S00065.ns2094 +++| SA1 A1+B1 PASSWORD
02834 M01S00066.ns2094 +++| BX7 X3*X1
| Line S00067 Modification History |
M01 (Added by) | ns2094 |
M02 (Removed by) | ns2614 |
Seq # *Modification Id* Act
----------------------------+
02835 M02S00067.ns2614 ---| SA7 VPWD
| Line S00068 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02836 M01S00068.ns2094 +++| SA7 USRB
| Line S00069 Modification History |
M01 (Added by) | ns2094 |
M02 (Removed by) | ns2614 |
Seq # *Modification Id* Act
----------------------------+
02837 M02S00069.ns2614 ---| SA1 A1+1 FAMILY NAME
| Line S00002 Modification History |
M01 (Added by) | ns2614 |
Seq # *Modification Id* Act
----------------------------+
02838 M01S00002.ns2614 +++| SA1 A1+B1 FAMILY NAME
| Line S00070 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02839 M01S00070.ns2094 +++| BX7 X3*X1
02840 M01S00071.ns2094 +++| SA7 VFMN
02841 M01S00072.ns2094 +++| SA7 USRA
02842 M01S00073.ns2094 +++| SA7 FM
02843 M01S00074.ns2094 +++|
02844 M01S00075.ns2094 +++|* VALIDATE USER.
02845 M01S00076.ns2094 +++|
02846 M01S00077.ns2094 +++| SYSTEM CPM,R,USRA,56B*100B VALIDATE USER NAME
02847 M01S00078.ns2094 +++| SA1 USRC GET USER INDEX
02848 M01S00079.ns2094 +++| SB3 X1+
02849 M01S00080.ns2094 +++| SB4 TRUI USER INDEX TAF MUST RUN UNDER
02850 M01S00081.ns2094 +++| SA0 PTFAB *USER* NOT VALID ON FAMILY
| Line S00082 Modification History |
M01 (Added by) | ns2094 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02851 M02S00082.v23l617 ---| ZR B3,USRX IF INVALID USER
| Line S00033 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02852 M01S00033.v23l617 +++| ZR B3,USRX IF INCORRECT USER
| Line S00083 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02853 M01S00083.ns2094 +++| SA1 VFMN RESET FAMILY NAME
02854 M01S00084.ns2094 +++| BX7 X1
02855 M01S00085.ns2094 +++| SA7 USRA
| Line S00086 Modification History |
M01 (Added by) | ns2094 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02856 M02S00086.ns22000 ---| ENFAM USRA SET FAMILY
| Line S00046 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02857 M01S00046.ns22000 +++| SX0 10B *SETPFP* FLAGS
02858 M01S00047.ns22000 +++| BX7 X0+X7
02859 M01S00048.ns22000 +++| SA7 PFPA *SETPFP* CALL BLOCK
02860 M01S00049.ns22000 +++| SETPFP PFPA SET FAMILY
| Line S00087 Modification History |
M01 (Added by) | ns2094 |
Seq # *Modification Id* Act
----------------------------+
02861 M01S00087.ns2094 +++| SA0 B0 NO ERRORS
02862 M01S00088.ns2094 +++| EQ USRX EXIT
02863 M01S00089.ns2094 +++|
02864 M01S00090.ns2094 +++|
02865 M01S00091.ns2094 +++| USRA VFD 42/0,18/0 FAMILY NAME
02866 M01S00092.ns2094 +++| USRB VFD 42/0,18/0 PASSWORD
02867 M01S00093.ns2094 +++| USRC VFD 42/0,18/0 USER NAME
| Line S00094 Modification History |
M01 (Added by) | ns2094 |
M02 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02868 M02S00094.ns22000 ---| BSSZ 6 RETURN PARAMETERS
| Line S00050 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02869 M02S00050.v23l617 ---| BSSZ 8 PARAMETERS
| Line S00034 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02870 M01S00034.v23l617 +++| BSSZ 10 PARAMETERS
02871 M00S02500.tafrec +++| PNF SPACE 4,25
02872 M00S02501.tafrec +++|** PNF - PROCESS NETWORK FILE.
02873 M00S02502.tafrec +++|*
02874 M00S02503.tafrec +++|* READ THE NETWORK DESCRIPTION FILE AND BUILD THE TST.
02875 M00S02504.tafrec +++|* TERMINALS ENTRIES REMAIN IN THE ORDER THEY APPEAR IN THE
02876 M00S02505.tafrec +++|* NETWORK FILE. FOR MULTIPLE NETWORK FILES, THE TERMINALS
02877 M00S02506.tafrec +++|* WILL BE GROUPED BY NETWORK FILE.
02878 M00S02507.tafrec +++|*
02879 M00S02508.tafrec +++|* REFERENCE TO RECOVERY IN THIS ROUTINE DOES NOT RELATE
02880 M00S02509.tafrec +++|* TO AUTOMATIC RECOVERY, BUT RATHER TO THE *K.REC* COMMAND.
02881 M00S02510.tafrec +++|*
02882 M00S02511.tafrec +++|* ENTRY (CUID) = CURRENT ID.
02883 M00S02512.tafrec +++|*
02884 M00S02513.tafrec +++|* EXIT (B5) = FWA OF ERROR MESSAGE.
02885 M00S02514.tafrec +++|* TST BUILT FOR THE NETWORK FILE.
02886 M00S02515.tafrec +++|* TO *ERR* IF ERRORS IN TERMINAL DESCRIPTIONS.
02887 M00S02516.tafrec +++|*
02888 M00S02517.tafrec +++|* USES X - ALL.
02889 M00S02518.tafrec +++|* A - 0, 1, 2, 3, 4, 6, 7.
02890 M00S02519.tafrec +++|* B - 2, 3, 4, 5, 7.
02891 M00S02520.tafrec +++|*
02892 M00S02521.tafrec +++|* CALLS ANF, ATD, SNM, STB.
02893 M00S02522.tafrec +++|*
02894 M00S02523.tafrec +++|* MACROS MESSAGE, READ, RETURN.
02895 M00S02524.tafrec +++|
02896 M00S02525.tafrec +++|
02897 M00S02526.tafrec +++| PNF SUBR ENTRY/EXIT
02898 M00S02527.tafrec +++| RJ ANF ATTACH NETWORK FILE
02899 M00S02528.tafrec +++| BX6 X1
02900 M00S02529.tafrec +++| SA6 PNFG SAVE NETWORK FILE NAME
02901 M00S02530.tafrec +++| READ N INITIATE READ
02902 M00S02531.tafrec +++| PNF1 SX5 N FET ADDRESS
02903 M00S02532.tafrec +++| SA0 PNFA SCRATCH TABLE POINTER
02904 M00S02533.tafrec +++| RJ ATD ASSEMBLE TERMINAL DESCRIPTION
02905 M00S02534.tafrec +++| SA3 PNFF ADDRESS OF NEXT ENTRY
02906 M00S02535.tafrec +++| SA0 X3+
02907 M00S02536.tafrec +++| ZR X1,PNF3 IF NO ERROR
02908 M00S02537.tafrec +++| NG X4,PNF6 IF EOR/EOF ENCOUNTERED
02909 M00S02538.tafrec +++| SX5 X2+
02910 M00S02539.tafrec +++| NZ X4,PNF2 IF NOT NULL FILE
02911 M00S02540.tafrec +++| SX5 PNFC * NULL DESCRIPTION FILE.*
02912 M00S02541.tafrec +++| PNF2 SB2 1RX
02913 M00S02542.tafrec +++| SB5 PNFB * FORMAT ERROR IN NETWORK FILE.*
02914 M00S02543.tafrec +++| SA1 PNFG
02915 M00S02544.tafrec +++| RJ SNM SET NAME IN MESSAGE
02916 M00S02545.tafrec +++| MESSAGE PNFB FORMAT ERROR IN TERMINAL DESCRIPTION FILE
02917 M00S02546.tafrec +++| SB5 X5
02918 M00S02547.tafrec +++| EQ ERR PROCESS ERROR
02919 M00S02548.tafrec +++|
02920 M00S02549.tafrec +++|* BUILD TERMINAL STATUS TABLE FROM NETWORK FILE.
02921 M00S02550.tafrec +++|
02922 M00S02551.tafrec +++| PNF3 SA1 /COMCRTN/TT. TERMINAL TYPE
02923 M00S02552.tafrec +++| SA3 /COMCRTN/DB. DATA BASE NAME
02924 M00S02553.tafrec +++| SX2 1RZ
02925 M00S02554.tafrec +++| MX0 6
02926 M00S02555.tafrec +++| LX2 -6
02927 M00S02556.tafrec +++| BX4 X0*X3
02928 M00S02557.tafrec +++| BX6 X4-X2
02929 M00S02558.tafrec +++| NZ X6,PNF5 IF VALID *DB-NAME*
02930 M00S02559.tafrec +++| SB5 MZDB ISSUE ERROR MESSAGE
02931 M00S02560.tafrec +++| EQ ERR PROCESS ERROR
02932 M00S02561.tafrec +++|
02933 M00S02562.tafrec +++| PNF5 LX1 59-11
02934 M00S02563.tafrec +++| PL X1,PNF1 IF NOT A TRANSACTION TERMINAL
02935 M00S02564.tafrec +++| LX3 TSDBS-59
02936 M00S02565.tafrec +++| SA1 /COMCRTN/RS. DATA BASE READ SECURITY LEVEL
02937 M00S02566.tafrec +++| SA2 /COMCRTN/US. DATA BASE UPDATE SECURITY LEVEL
02938 M00S02567.tafrec +++| LX1 TSRSS-TSRSN+1
02939 M00S02568.tafrec +++| SA4 /COMCRTN/TN. TERMINAL NAME
02940 M00S02569.tafrec +++| BX1 X1+X3
02941 M00S02570.tafrec +++| BX6 X4
02942 M00S02571.tafrec +++| SA3 /COMCRTN/UA. USER ARGUMENTS
02943 M00S02572.tafrec +++| LX2 TSUSS-TSUSN+1
02944 M00S02573.tafrec +++| BX7 X1+X2
02945 M00S02574.tafrec +++| SA6 A0+1 SECOND WORD OF TST ENTRY
02946 M00S02575.tafrec +++| BX7 X7+X3
02947 M00S02576.tafrec +++| SA1 /COMCRTN/IS. ON/OFF
02948 M00S02577.tafrec +++| LX1 TSTOS-TSTON+1
02949 M00S02578.tafrec +++| BX7 X7+X1
02950 M00S02579.tafrec +++| SX6 A0+TSTLLE ADVANCE TST POINTER
02951 M00S02580.tafrec +++| SA6 PNFF
02952 M00S02581.tafrec +++| SA1 PRSA
02953 M00S02582.tafrec +++| SA2 VREC *K-DISPLAY* RECOVERY
02954 M00S02583.tafrec +++| MX6 -1
02955 M00S02584.tafrec +++| BX6 -X6*X2
02956 M00S02585.tafrec +++| LX6 TSRBS-0 SET USER RECOVERY BIT IN TST
02957 M00S02586.tafrec +++| BX7 X7+X6
02958 M00S02587.tafrec +++| SA7 A0+
02959 M00S02588.tafrec +++| LX1 59-0
02960 M00S02589.tafrec +++| LX2 59-0
02961 M00S02590.tafrec +++| NG X1,PNF1 IF SENSE SWITCH 3 IS SET
02962 M00S02591.tafrec +++| NG X2,PNF1 IF RECOVERY MODE SELECTED
02963 M00S02592.tafrec +++| SA1 PNFI
02964 M00S02593.tafrec +++| SX6 X1+B1 INCREMENT NUMBER OF ENTRIES
02965 M00S02594.tafrec +++| SA6 A1
02966 M00S02595.tafrec +++| SX6 X6-IPTST-1
02967 M00S02596.tafrec +++| NG X6,PNF1 IF MAXIMUM NOT EXCEEDED
02968 M00S02597.tafrec +++| SB5 PNFJ * MAXIMUM TERMINALS EXCEEDED.*
02969 M00S02598.tafrec +++| EQ ERR PROCESS ERROR
02970 M00S02599.tafrec +++|
02971 M00S02600.tafrec +++|* SORT TST ON MUX CHANNEL/EQUIPMENT/PORT KEY FOR *TAFTS*.
02972 M00S02601.tafrec +++|
02973 M00S02602.tafrec +++| PNF6 RETURN N RETURN NETWORK FILE
02974 M00S02603.tafrec +++| SA1 PNFE
02975 M00S02604.tafrec +++| SX6 A0
02976 M00S02605.tafrec +++| SA6 A1 SET FWA OF TST FOR NEXT NETWORK FILE
02977 M00S02606.tafrec +++| IX7 X6-X1 LENGTH OF TST
02978 M00S02607.tafrec +++| SA1 TSTLW
02979 M00S02608.tafrec +++| IX6 X7+X1
02980 M00S02609.tafrec +++| SA6 A1 ADJUST CUMULATIVE LENGTH
02981 M00S02610.tafrec +++| SX2 TSTLLE
02982 M00S02611.tafrec +++| IX7 X7/X2 NUMBER OF TST ENTRIES
02983 M00S02612.tafrec +++| SA3 PNFH
02984 M00S02613.tafrec +++| IX7 X3+X7 UPDATE HIGHEST ORDINAL
02985 M00S02614.tafrec +++| SA7 A3
02986 M00S02615.tafrec +++| LX7 48
02987 M00S02616.tafrec +++| SA1 CUID ID
02988 M00S02617.tafrec +++| SX2 TTFTE
02989 M00S02618.tafrec +++| IX1 X2*X1
02990 M00S02619.tafrec +++| SA7 TSTHD+X1
02991 M00S02620.tafrec +++| SX6 B0+
02992 M00S02621.tafrec +++| SA6 /COMCRTN/ST CLEAR COMCRTN FLAGS FOR NEXT NETWORK FILE
02993 M00S02622.tafrec +++| SA6 /COMCRTN/ATDA
02994 M00S02623.tafrec +++| NZ X7,PNFX IF TRANSACTION TERMINALS DEFINED
02995 M00S02624.tafrec +++| SB2 1RX
02996 M00S02625.tafrec +++| SB5 PNFD * NO TERMINALS IN NETWORK FILE.*
02997 M00S02626.tafrec +++| SA1 PNFG
02998 M00S02627.tafrec +++| RJ SNM SET NAME IN MESSAGE
02999 M00S02628.tafrec +++| EQ ERR PROCESS ERROR
03000 M00S02629.tafrec +++|
03001 M00S02630.tafrec +++| PNFA VFD 12/0,18/BRTNL,30/BRTN SCRATCH TABLE POINTER
03002 M00S02631.tafrec +++| PNFB DATA C* FORMAT ERROR IN NETWORK FILE - XXXXXXX.*
03003 M00S02632.tafrec +++| PNFC DATA C* NULL DESCRIPTION FILE.*
03004 M00S02633.tafrec +++| PNFD DATA C* NO TERMINALS IN NETWORK FILE - XXXXXXX.*
03005 M00S02634.tafrec +++| PNFE CON TST INITIAL TST ENTRY
03006 M00S02635.tafrec +++| PNFF CON TST+TSTLLE CURRENT TST ENTRY
03007 M00S02636.tafrec +++| PNFG CON 0 NETWORK FILE NAME
03008 M00S02637.tafrec +++| PNFH CON -1 CURRENT HIGHEST TST ORDINAL
03009 M00S02638.tafrec +++| PNFI CON 0 NUMBER OF TERMINAL ENTRIES
03010 M00S02639.tafrec +++| PNFJ DATA C* MAXIMUM TERMINALS EXCEEDED.*
03011 M00S02640.tafrec +++| PNFK DATA C* NO DATA BASE NAME TERMINAL - XXXXXXX.*
03012 M00S02641.tafrec +++| ANF SPACE 4,30
03013 M00S02642.tafrec +++|** ANF - ATTACH NETWORK DESCRIPTOR FILE.
03014 M00S02643.tafrec +++|*
03015 M00S02644.tafrec +++|* THIS ROUTINE ATTACHES THE NETWORK DESCRIPTION FILE *NCTFI*
03016 M00S02645.tafrec +++|* WHERE THE *I* WAS SPECIFIED BY THE *ID* PARAMETER ON THE
03017 M00S02646.tafrec +++|* *NETWORK* STATEMENT. THE FILE RESIDES UNDER THE FAMILY AND
03018 M00S02647.tafrec +++|* USER NAME SPECIFIED ON THIS *NETWORK* STATEMENT.
03019 M00S02648.tafrec +++|*
03020 M00S02649.tafrec +++|* ENTRY (CUID) = CURRENT ID.
03021 M00S02650.tafrec +++|*
03022 M00S02651.tafrec +++|* EXIT (X1) = NETWORK FILE NAME.