cdc:nos2.source:opl.opl871:deck:tafrec.001
Deck TAFREC Part 001
13 Modifications
Listing Sections
- Deck TAFREC Start
- Deck TAFREC Part 1 (Line 1366)
- Deck TAFREC Part 2 (Line 3023)
Source
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.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/tafrec.001.txt · Last modified: (external edit)