cdc:nos2.source:opl.opl871:deck:dmrec.006
Deck DMREC Part 006
25 Modifications
Listing Sections
- Deck DMREC Start
- Deck DMREC Part 1 (Line 1753)
- Deck DMREC Part 2 (Line 3308)
- Deck DMREC Part 3 (Line 5077)
- Deck DMREC Part 4 (Line 6930)
- Deck DMREC Part 5 (Line 8588)
- Deck DMREC Part 6 (Line 10535)
- Deck DMREC Part 7 (Line 12352)
Source
Seq # *Modification Id* Act ----------------------------+ 10535 M00S09278.dmrec +++|* 10536 M00S09279.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 10537 M00S09280.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 10538 M00S09281.dmrec +++|* (X6) = OPERATION FLAG (VALIDATE PARAMETERS). 10539 M00S09282.dmrec +++|* 10540 M00S09283.dmrec +++|* EXIT EXIT TO LOD1 FOR LOAD/UPDATE PROCESSOR. 10541 M00S09284.dmrec +++|* 10542 M00S09285.dmrec +++|* USES X - 1, 2, 3, 4, 6, 7. 10543 M00S09286.dmrec +++|* A - 1, 2, 3, 4, 6, 7. 10544 M00S09287.dmrec +++|* B - 5. 10545 M00S09288.dmrec +++|* 10546 M00S09289.dmrec +++|* CALLS SPR, BRT, RAF. 10547 M00S09290.dmrec +++|* 10548 M00S09291.dmrec +++| 10549 M00S09292.dmrec +++| 10550 M00S09293.dmrec +++| REC BSS 0 ENTRY 10551 M00S09294.dmrec +++| RJ SPR GET PARAMETERS 10552 M00S09295.dmrec +++| SB5 B5-2 10553 M00S09296.dmrec +++| NE B5,B0,LOD9 IF MORE THAN ONE FILE 10554 M00S09297.dmrec +++| SA3 TDFN GET FN 10555 M00S09298.dmrec +++| SA1 LMASK MASK 10556 M00S09299.dmrec +++| BX3 X1*X3 10557 M00S09300.dmrec +++| SA2 LWORD 10558 M00S09301.dmrec +++| BX7 X2-X3
| Line S09302 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10559 M01S09302.ns2023 ---| ZR X7,REC1 IF *QRF* RECOVERY
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10560 M01S00152.ns2023 +++| ZR X7,REC1 IF *BRF* RECOVERY 10561 M00S09303.dmrec +++| SX6 B1
| Line S09304 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10562 M01S09304.ns2023 ---| SA6 QRFFLG
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10563 M01S00153.ns2023 +++| SA6 BRFFLG 10564 M01S00154.ns2023 +++| SX7 2 10565 M01S00155.ns2023 +++| SA7 TTFLG SET TAF *DB* RECOVERY FLAG 10566 M00S09305.dmrec +++| EQ REC10 CONTINUE 10567 M00S09306.dmrec +++|
| Line S09307 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10568 M01S09307.ns2023 ---| REC1 MX6 1 FILE RECORERY
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10569 M01S00156.ns2023 +++| REC1 SX7 3 10570 M01S00157.ns2023 +++| SA7 TTFLG SET TAF *BRF* RECOVERY FLAG
| Line S09308 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10571 M01S09308.dmrec2 ---| SA6 QRFFLG
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10572 M01S00120.dmrec2 +++| SA2 DBNAME
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10573 M02S00121.ns2023 ---| BX7 X2
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10574 M01S00158.ns2023 +++| MX6 1 10575 M01S00159.ns2023 +++| BX7 X2
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmrec17 |
Seq # *Modification Id* Act ----------------------------+ 10576 M01S00001.dmrec17 +++| SA6 BRFFLG SET FLAG FOR BRF RECOVERY
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 10577 M02S00160.dmrec7 ---| SA6 BRFFLG SET FLAG FOR *BRF* RECOVERY
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 10578 M01S00154.dmrec7 +++| SA2 XXPFN2
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10579 M02S00122.ns2023 ---| SA6 QRFFLG
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10580 M01S00123.dmrec2 +++| SA7 XXPFN 10581 M00S09309.dmrec +++| RJ BRT BUILD RECOVERY TABLES 10582 M00S09310.dmrec +++| NZ X1,REC11 IF ERROR
| Line S09311 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10583 M01S09311.dmrec2 ---| REC2 SX3 FTAB 10584 M01S09312.dmrec2 ---| SX4 B0 10585 M01S09313.dmrec2 ---| REC3 SA1 X3 10586 M01S09314.dmrec2 ---| NG X1,REC7 IF END OF FTAB 10587 M01S09315.dmrec2 ---| ZR X1,REC5 IF EMPTY ENTRY 10588 M01S09316.dmrec2 ---| NZ X4,REC6 IF FN ALREADY FOUND 10589 M01S09317.dmrec2 ---| SA4 X3 FN + B/C 10590 M01S09318.dmrec2 ---| REC4 SX6 B0 10591 M01S09319.dmrec2 ---| SA6 A4 ZERO FN ENTRY 10592 M01S09320.dmrec2 ---| REC5 SX3 X3+2 10593 M01S09321.dmrec2 ---| EQ REC3 NEXT 10594 M01S09322.dmrec2 ---| 10595 M01S09323.dmrec2 ---| REC6 SA1 X3 10596 M01S09324.dmrec2 ---| BX6 X3-X1 10597 M01S09325.dmrec2 ---| ZR X6,REC4 IF SAME FN 10598 M01S09326.dmrec2 ---| EQ REC5 GO INCREMENT 10599 M01S09327.dmrec2 ---| 10600 M01S09328.dmrec2 ---| REC7 ZR X4,REC8 IF DONE WITH QRF RECOVERY 10601 M01S09329.dmrec2 ---| BX6 X4 10602 M01S09330.dmrec2 ---| SA6 TDFN RECOVER THIS FN 10603 M01S09331.dmrec2 ---| SX7 B0 10604 M01S09332.dmrec2 ---| SA7 DATE LATEST DATE 10605 M01S09333.dmrec2 ---| SA7 TIME LATEST TIME 10606 M01S09334.dmrec2 ---| EQ REC10 RECOVER FN 10607 M01S09335.dmrec2 ---|
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10608 M01S00124.dmrec2 +++| SX6 TTIG 10609 M01S00125.dmrec2 +++| REC2 SA6 ITIT 10610 M01S00126.dmrec2 +++| BX7 X7-X7 10611 M01S00127.dmrec2 +++| SA1 X6
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10612 M02S00128.ns2023 ---| NG X1,REC8 IF END OF TABLE
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10613 M01S00161.ns2023 +++| ZR X1,REC8 IF END OF TABLE
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10614 M01S00129.dmrec2 +++| SA7 TT ZERO OUT TT SO TAF WILL NOT BRING UP DB 10615 M01S00130.dmrec2 +++| MX0 30 10616 M01S00131.dmrec2 +++| BX1 X1*X0
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10617 M01S00162.ns2023 +++| LX1 30
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10618 M01S00132.dmrec2 +++| RJ COD OCTAL TO DISPLAY CONVERSION 10619 M01S00133.dmrec2 +++| MX2 48
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10620 M02S00134.ns2023 ---| MX0 30
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10621 M01S00163.ns2023 +++| BX1 X2*X4
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10622 M01S00135.dmrec2 +++| SB2 1RZ REPLACEMENT CHARACTER 10623 M01S00136.dmrec2 +++| SB5 -RECA 10624 M01S00137.dmrec2 +++| SB3 RECD 10625 M01S00138.dmrec2 +++| RJ SNM SET NAME 10626 M01S00139.dmrec2 +++| SA2 ITIT 10627 M01S00140.dmrec2 +++| SA1 X2+1 10628 M01S00141.dmrec2 +++| LX1 30 10629 M01S00142.dmrec2 +++| MX0 30 10630 M01S00143.dmrec2 +++| BX1 X0*X1 10631 M01S00144.dmrec2 +++| SB2 1RX 10632 M01S00145.dmrec2 +++| SB5 RECD 10633 M01S00146.dmrec2 +++| RJ SNM 10634 M01S00147.dmrec2 +++| MESSAGE RECD,3 ISSUE DAYFILE MESSAGE 10635 M01S00148.dmrec2 +++| SA2 ITIT 10636 M01S00149.dmrec2 +++| SX6 X2+2 INCREMENT POINTER TO TTIG 10637 M01S00150.dmrec2 +++| EQ REC2 PROCESS NEXT ENTRY 10638 M01S00151.dmrec2 +++|
| Line S09336 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10639 M01S09336.dmrec2 ---| REC8 SX6 TTQRF
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | dmrec16 |
Seq # *Modification Id* Act ----------------------------+ 10640 M02S00152.dmrec16 ---| REC8 SA5 RECB
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmrec16 |
Seq # *Modification Id* Act ----------------------------+ 10641 M01S00001.dmrec16 +++| REC8 SA1 TT 10642 M01S00002.dmrec16 +++| NZ X1,REC8.1 IF NO IGNORE TABLE ENTRIES 10643 M01S00003.dmrec16 +++| SA5 RECB
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10644 M01S00153.dmrec2 +++| SX6 B0 10645 M01S00154.dmrec2 +++| SA6 RQTREQ 10646 M01S00155.dmrec2 +++| RJ NOP NOTIFY OPERATOR
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10647 M02S00156.ns2023 ---| SX6 TTQRF
| Line S09337 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10648 M01S09337.ns2023 ---| SA6 IIQRF INITIALIZE QRF TABLE SEARCH
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Removed by) | dmrec16 |
Seq # *Modification Id* Act ----------------------------+ 10649 M02S00164.dmrec16 ---| SX6 TTBRF
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dmrec16 |
Seq # *Modification Id* Act ----------------------------+ 10650 M01S00004.dmrec16 +++| REC8.1 SX6 TTBRF
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10651 M01S00165.ns2023 +++| SA6 IIBRF INITIALIZE *BRF* TABLE SEARCH 10652 M00S09338.dmrec +++| REC9 SX7 B0 10653 M00S09339.dmrec +++| SA7 LENGTH USE DEFAULT LENGTH
| Line S09340 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10654 M01S09340.ns2023 ---| SA1 IIQRF 10655 M01S09341.ns2023 ---| SA2 X1 GET *QRF*
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10656 M01S00166.ns2023 +++| SA1 IIBRF 10657 M01S00167.ns2023 +++| SA2 X1 GET *BRF* 10658 M00S09342.dmrec +++| ZR X2,REC11 IF NO MORE ENTRIES - EXIT 10659 M00S09343.dmrec +++| SX6 X1+1
| Line S09344 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10660 M01S09344.ns2023 ---| SA6 A1 INCREMENT *QRF* POINTER
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10661 M01S00168.ns2023 +++| SA6 A1 INCREMENT *BRF* POINTER 10662 M00S09345.dmrec +++| BX6 X2
| Line S09346 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10663 M01S09346.ns2023 ---| SA6 TDFN STORE *QRF* NAME 10664 M01S09347.ns2023 ---| EQ CRT1 GO ALLOCATE THIS *QRF* AND RETURN
| Line S00169 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10665 M01S00169.ns2023 +++| SA6 TDFN STORE *BRF* NAME 10666 M01S00170.ns2023 +++| EQ CRT1 GO ALLOCATE THIS *BRF* AND RETURN 10667 M00S09348.dmrec +++| 10668 M00S09349.dmrec +++| REC10 SA2 DATE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 10669 M01S00007.dmrec6 +++| SA3 TVSN 10670 M00S09350.dmrec +++| BX6 X2 10671 M00S09351.dmrec +++| SA6 DATE1 STORE AS END DATE
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 10672 M01S00008.dmrec6 +++| BX6 X3 10673 M01S00009.dmrec6 +++| SA6 RECE SAVE VSN FROM DIRECTIVE 10674 M00S09352.dmrec +++| SA3 TIME 10675 M00S09353.dmrec +++| BX6 X3 10676 M00S09354.dmrec +++| SA6 TIME1 STORE AS END TIME 10677 M00S09355.dmrec +++| SX6 B0 10678 M00S09356.dmrec +++| SA6 A2 ZERO BEGIN DATE 10679 M00S09357.dmrec +++| SA6 A3 ZERO BEGIN TIME 10680 M00S09358.dmrec +++| EQ LOD1 GO RECOVER FILE 10681 M00S09359.dmrec +++| 10682 M00S09360.dmrec +++| REC11 CLOSEM DFIT,U RETURN CRM FILES 10683 M00S09361.dmrec +++| RJ RAF RETURN ALL FILES 10684 M00S09362.dmrec +++| EQ DMR3 RETURN
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10685 M01S00157.dmrec2 +++| 10686 M01S00158.dmrec2 +++| RECA DATA C* TRAN. SEQ. ZZZZZZZZB WITH ID XXXXX MIGHT BE BAD.* 10687 M01S00159.dmrec2 +++| RECB DATA C* INFORM DATA BASE ADMN. OF BRF DISK ERROR.* 10688 M01S00160.dmrec2 +++| RECD BSS 5
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 10689 M02S00161.dmrec6 ---|
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 10690 M01S00010.dmrec6 +++| RECE BSSZ 1 VSN FROM DIRECTIVE 10691 M00S09363.dmrec +++| RQT SPACE 4,25 10692 M00S09364.dmrec +++|** RQT - REQUEST TAPE FOR DMREC DUMP/LOAD OPERATIONS. 10693 M00S09365.dmrec +++|* 10694 M00S09366.dmrec +++|* *RQT* REQUESTS A TAPE FOR *DMREC* DUMP/LOADS. 10695 M00S09367.dmrec +++|* IF THE FILE NAME IS ALREADY ASSIGNED, THE REQUEST 10696 M00S09368.dmrec +++|* IS IGNORED AND THE RETURNING VSN SET TO SPACES. 10697 M00S09369.dmrec +++|* IF THE FILE IS ASSIGNED TO DISK THE RETURNING VSN 10698 M00S09370.dmrec +++|* IS SET TO *DISK*. 10699 M00S09371.dmrec +++|* 10700 M00S09372.dmrec +++|* ENTRY (B7) = ADDRESS OF FET. 10701 M00S09373.dmrec +++|* (X6) = VSN REQUESTED. 10702 M00S09374.dmrec +++|* 0, IF NEW VSN HAS TO BE ASSIGNED. 10703 M00S09375.dmrec +++|* (X5) = 0, IF READ MODE. 10704 M00S09376.dmrec +++|* .NE. 0 - IF WRITE MODE. 10705 M00S09377.dmrec +++|* 10706 M00S09378.dmrec +++|* EXIT (X6) = VSN OF TAPE LOADED. 10707 M00S09379.dmrec +++|* = 6L - IF LFN PREVIOUSLY ASSIGNED. 10708 M00S09380.dmrec +++|* = 6LDISK - IF ASSIGNED TO DISK. 10709 M00S09381.dmrec +++|* 10710 M00S09382.dmrec +++|* USES X - 0, 1, 2, 6, 7. 10711 M00S09383.dmrec +++|* A - 1, 6, 7. 10712 M00S09384.dmrec +++|* B - 2, 5. 10713 M00S09385.dmrec +++|* 10714 M00S09386.dmrec +++|* CALLS CER, NOP, SFN, SNM. 10715 M00S09387.dmrec +++|* 10716 M00S09388.dmrec +++|* MACROS ERROR, LABEL, OPEN, STATUS. 10717 M00S09389.dmrec +++| 10718 M00S09390.dmrec +++| 10719 M00S09391.dmrec +++| RQT SUBR ENTRY/EXIT 10720 M00S09392.dmrec +++| SX7 B1 10721 M00S09393.dmrec +++| SX2 B0+ 10722 M00S09394.dmrec +++| LX7 39-0 10723 M00S09395.dmrec +++| ZR X5,RQT1 IF READ MODE 10724 M00S09396.dmrec +++| MX2 1 WRITE 10725 M00S09397.dmrec +++| LX7 40-39 RING IN 10726 M00S09398.dmrec +++| RQT1 BX2 X2+X7 10727 M00S09399.dmrec +++| BX7 X2 10728 M00S09400.dmrec +++| SA7 RQTC SAVE (X2) 10729 M00S09401.dmrec +++| ZR X6,RQT2 IF NO VSN SPECIFIED 10730 M00S09402.dmrec +++| BX1 X6 10731 M00S09403.dmrec +++| RJ SFN SPACE FILL 10732 M00S09404.dmrec +++| MX0 36 10733 M00S09405.dmrec +++| BX6 X0*X6 10734 M00S09406.dmrec +++| EQ RQT2.1 REQUEST TAPE 10735 M00S09407.dmrec +++| 10736 M00S09408.dmrec +++| RQT2 SA1 TT 10737 M00S09409.dmrec +++| ZR X1,RQT2.1 IF *TT* NOT SPECIFIED 10738 M00S09410.dmrec +++| MX7 1 10739 M00S09411.dmrec +++| SA7 RQTREQ SET FLAG FOR *NOP* 10740 M00S09412.dmrec +++| SA1 DBNAME GET DATA BASE NAME 10741 M00S09413.dmrec +++| SB5 RQTB 10742 M00S09414.dmrec +++| SB2 1RX 10743 M00S09415.dmrec +++| RJ SNM SET DATA BASE NAME IN MESSAGE 10744 M00S09416.dmrec +++| SA5 RQTB ADDRESS OF OPERATOR MESSAGE 10745 M00S09417.dmrec +++| RJ NOP NOTIFY OPERATOR 10746 M00S09418.dmrec +++| RQT2.1 SX7 TDTR 10747 M00S09419.dmrec +++| SA2 RQTC RESTORE (X2)
| Line S09420 Modification History | |
|---|---|
M01 (Removed by) | dmrec22 |
Seq # *Modification Id* Act ----------------------------+ 10748 M01S09420.dmrec22 ---| LX7 53
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dmrec22 |
Seq # *Modification Id* Act ----------------------------+ 10749 M01S00002.dmrec22 +++| LX7 51 10750 M00S09421.dmrec +++| BX7 X7+X2 10751 M00S09422.dmrec +++| SA7 B7+8 10752 M00S09423.dmrec +++| SX2 1RA 10753 M00S09424.dmrec +++| LX2 18 10754 M00S09425.dmrec +++| BX6 X6+X2 10755 M00S09426.dmrec +++| SA6 A7+B1 STORE VSN, FILE ACCESSABILITY 10756 M00S09427.dmrec +++| SA1 LBLAA GET HDR1 LABEL 10757 M00S09428.dmrec +++| BX6 X1 10758 M00S09429.dmrec +++| SA6 A6+B1 STORE FIRST PART OF LABEL 10759 M00S09430.dmrec +++| SA1 A1+B1 10760 M00S09431.dmrec +++| BX6 X1 10761 M00S09432.dmrec +++| SA6 A6+B1 STORE SECOND PART OF LABEL 10762 M00S09433.dmrec +++| MX6 0 CLEAR REST OF FIELDS 10763 M00S09434.dmrec +++| SA6 A6+B1 10764 M00S09435.dmrec +++| SA6 A6+B1 10765 M00S09436.dmrec +++| 10766 M00S09437.dmrec +++|* CHECK IF FILE IS ASSIGNED. 10767 M00S09438.dmrec +++| 10768 M00S09439.dmrec +++| STATUS B7 10769 M00S09440.dmrec +++| SA1 B7 10770 M00S09441.dmrec +++| MX0 11 10771 M00S09442.dmrec +++| LX1 59-11 10772 M00S09443.dmrec +++| BX1 X0*X1 10773 M00S09444.dmrec +++| ZR X1,RQT3 IF FILE NOT PRE-ASSIGNED 10774 M00S09445.dmrec +++| SA1 =6L SET VSN TO BLANKS 10775 M00S09446.dmrec +++| BX6 X1 10776 M00S09447.dmrec +++| EQ RQTX RETURN WITH PRE-ASSIGNED FILE 10777 M00S09448.dmrec +++| 10778 M00S09449.dmrec +++| RQT3 LABEL B7 10779 M00S09450.dmrec +++| 10780 M00S09451.dmrec +++|* SET UP EXTENDED LABEL BUFFER FOR OPEN PROCESSING. 10781 M00S09452.dmrec +++| 10782 M00S09453.dmrec +++| SX6 10 LENGTH OF LABEL BUFFER 10783 M00S09454.dmrec +++| SX7 RQTA ADRESS OF LABEL BUFFER 10784 M00S09455.dmrec +++| LX6 18 10785 M00S09456.dmrec +++| BX6 X6+X7 10786 M00S09457.dmrec +++| SA6 B7+9 10787 M00S09458.dmrec +++| SA1 =0LVOL1 SET VOL1 LABEL 10788 M00S09459.dmrec +++| SX7 80 10789 M00S09460.dmrec +++| SA7 RQTA CHARACTER IN LABEL 10790 M00S09461.dmrec +++| SX6 B0 10791 M00S09462.dmrec +++| SA6 A7+9 SET ZERO TERMINATOR 10792 M00S09463.dmrec +++| BX6 X1 10793 M00S09464.dmrec +++| SA6 A7+B1 10794 M00S09465.dmrec +++| 10795 M00S09466.dmrec +++| OPEN B7,ALTER,R 10796 M00S09467.dmrec +++| 10797 M00S09468.dmrec +++| SA1 B7+B1 10798 M00S09469.dmrec +++| PL X1,RQT4 IF FILE ASSIGNED TO DISK 10799 M00S09470.dmrec +++| SA1 RQTA+1 GET VSN 10800 M00S09471.dmrec +++| MX6 36 10801 M00S09472.dmrec +++| LX1 24 10802 M00S09473.dmrec +++| BX6 X1*X6 10803 M00S09474.dmrec +++| EQ RQTX RETURN 10804 M00S09475.dmrec +++| RQT4 SA1 =6LDISK SHOW DISK ASSIGNEMENT 10805 M00S09476.dmrec +++| BX6 X1 10806 M00S09477.dmrec +++| EQ RQTX RETURN 10807 M00S09478.dmrec +++| 10808 M00S09479.dmrec +++| RQTA BSSZ 10 LABEL BUFFER 10809 M00S09480.dmrec +++| 10810 M00S09481.dmrec +++| RQTB DATA C*$TAF TAPE REQUEST DB=XX DUMP.* 10811 M00S09482.dmrec +++| 10812 M00S09483.dmrec +++| RQTC BSSZ 1 REGISTER X2 SAVE AREA
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 10813 M01S00155.dmrec7 +++| SPACE 4,15 10814 M01S00156.dmrec7 +++|** RRE - READ RECORD ERROR. 10815 M01S00157.dmrec7 +++|* 10816 M01S00158.dmrec7 +++|* THIS SUBROUTINE IS CALLED WHEN A READ ERROR HAS OCCURRED 10817 M01S00159.dmrec7 +++|* DURING RECOVER PROCESSING (ARF ONLY). *RRE* CHECKS FOR 10818 M01S00160.dmrec7 +++|* MULTIPLE DUMPS OF THE ARF VIA THE INSTALLATION PARAMETER 10819 M01S00161.dmrec7 +++|* *NUMARF*. IF MULTIPLE COPIES EXIST THE DUPLICATE TAPE WILL 10820 M01S00162.dmrec7 +++|* BE REQUESTED AND CORRECTLY POSITIONED FOR RETURN TO THE 10821 M01S00163.dmrec7 +++|* CALLER. 10822 M01S00164.dmrec7 +++|* 10823 M01S00165.dmrec7 +++|* ENTRY (NUMARF) - NUMBER OF DUPLICATE COPIES OF ARF-S. 10824 M01S00166.dmrec7 +++|* (TAPERR) - NUMBER OF SAME ERROR TAPES. 10825 M01S00167.dmrec7 +++|* (IVSN) - POINTER TO NEXT VSN IN TVSN TABLE. 10826 M01S00168.dmrec7 +++|* (XXPFN) - CURRENT PERMANENT FILE NAME. 10827 M01S00169.dmrec7 +++|* (EORCNT) - COUNT OF CORRECTLY APPLIED EOR-S. 10828 M01S00170.dmrec7 +++|* (PREC) - POINTER TO CURRENT FIRST TAPE ARF. 10829 M01S00171.dmrec7 +++|* 10830 M01S00172.dmrec7 +++|* EXIT NEW ARF TAPE MOUNTED AND CORRECTLY POSITIONED. 10831 M01S00173.dmrec7 +++|* 10832 M01S00174.dmrec7 +++|* USES X - ALL. 10833 M01S00175.dmrec7 +++|* A - 1, 2, 3, 4, 5, 6, 7. 10834 M01S00176.dmrec7 +++|* B - 2, 3, 4, 5, 6, 7. 10835 M01S00177.dmrec7 +++|* 10836 M01S00178.dmrec7 +++|* CALLS ACF, CDD, FER, RQT, SVK. 10837 M01S00179.dmrec7 +++|* 10838 M01S00180.dmrec7 +++|* MACROS ERROR, GETN, FETCH, MOVE, RMGET, RETURN, SKIPF. 10839 M01S00181.dmrec7 +++| 10840 M01S00182.dmrec7 +++| 10841 M01S00183.dmrec7 +++| RRE SUBR ENTRY EXIT 10842 M01S00184.dmrec7 +++| RETURN TP RETURN BAD TAPE 10843 M01S00185.dmrec7 +++| SX1 NUMARF 10844 M01S00186.dmrec7 +++| SA2 TAPERR 10845 M01S00187.dmrec7 +++| IX1 X2-X1 10846 M01S00188.dmrec7 +++| PL X1,RRE15 IF ANOTHER ARF DUMP TAPE IS NOT AVAILABLE 10847 M01S00189.dmrec7 +++| SX6 X2+B1 10848 M01S00190.dmrec7 +++| SA6 A2 INCREMENT TAPE ERROR COUNT 10849 M01S00191.dmrec7 +++| SA3 EORCNT 10850 M01S00192.dmrec7 +++| BX6 X3 10851 M01S00193.dmrec7 +++| SA6 RREB SAVE EOR COUNT 10852 M01S00194.dmrec7 +++| RJ ACF ATTACH DIRECTORY 10853 M01S00195.dmrec7 +++| SA1 IVSN 10854 M01S00196.dmrec7 +++| SX1 X1-1 DECREMENT VSN POINTER 10855 M01S00197.dmrec7 +++| SA2 X1+ GET VSN OF BAD TAPE FROM TVSN TABLE 10856 M01S00198.dmrec7 +++| MX0 36 10857 M01S00199.dmrec7 +++| BX7 X0*X2 10858 M01S00200.dmrec7 +++| SA1 XXPFN 10859 M01S00201.dmrec7 +++| SA5 =3R 1 10860 M01S00202.dmrec7 +++| BX6 X5+X1 10861 M01S00203.dmrec7 +++| SA6 TEMPO SET KEY 10862 M01S00204.dmrec7 +++| RRE1 RMGET DIRR,XXBUF,0,,TEMPO GET AFTER IMAGE LOG DUMP ENTRY 10863 M01S00205.dmrec7 +++| RJ FER CHECK *FIT* ERROR 10864 M01S00206.dmrec7 +++| NZ X1,RREX IF ERROR 10865 M01S00207.dmrec7 +++| RRE2 SA1 XXBUF+2 GET VSN OF DUMP TAPE 10866 M01S00208.dmrec7 +++| SA2 PREC 10867 M01S00209.dmrec7 +++| SA3 X2 10868 M01S00210.dmrec7 +++| IX1 X1-X3 COMPARE VSN-S 10869 M01S00211.dmrec7 +++| ZR X1,RRE3 IF VSN-S MATCH 10870 M01S00212.dmrec7 +++| GETN DIRR,XXBUF,,SKEY GET NEXT AFTER IMAGE ENTRY 10871 M01S00213.dmrec7 +++| FETCH DIRR,ES,X2 10872 M01S00214.dmrec7 +++| SX2 X2-100 10873 M01S00215.dmrec7 +++| SX1 B1 10874 M01S00216.dmrec7 +++| ZR X2,RRE15 IF EOF 10875 M01S00217.dmrec7 +++| SA2 SKEY 10876 M01S00218.dmrec7 +++| SA3 TEMPO 10877 M01S00219.dmrec7 +++| BX2 X2-X3 10878 M01S00220.dmrec7 +++| ZR X2,RRE2 IF MORE ENTRIES 10879 M01S00221.dmrec7 +++| EQ RRE16 ERROR - NO MORE ENTRIES 10880 M01S00222.dmrec7 +++| 10881 M01S00223.dmrec7 +++| RRE3 SA1 XXBUF+B1 PACKED DATE AND TIME 10882 M01S00224.dmrec7 +++| BX6 X1 10883 M01S00225.dmrec7 +++| SA6 TKY2 10884 M01S00226.dmrec7 +++| SA1 TAPERR 10885 M01S00227.dmrec7 +++| RJ CDD CONVERT DECIMAL TO DISPLAY 10886 M01S00228.dmrec7 +++| MX0 -18 10887 M01S00229.dmrec7 +++| BX6 -X0*X6 10888 M01S00230.dmrec7 +++| SA2 XXPFN 10889 M01S00231.dmrec7 +++| BX6 X2+X6 10890 M01S00232.dmrec7 +++| SA6 TKY1 SET KEY 10891 M01S00233.dmrec7 +++| RMGET DIRR,XXBUF,0,,TKY1 AFTER IMAGE LOG DUMP ENTRY 10892 M01S00234.dmrec7 +++| RJ FER CHECK FIT ERROR 10893 M01S00235.dmrec7 +++| NZ X1,RREX IF ERROR 10894 M01S00236.dmrec7 +++| SA1 XXBUF+2 GET VSN 10895 M01S00237.dmrec7 +++| BX7 X1 10896 M01S00238.dmrec7 +++| SA7 RREA SAVE REPLACEMENT VSN 10897 M01S00239.dmrec7 +++| SX6 RRED 10898 M01S00240.dmrec7 +++| SA6 RREF INITIALIZE POINTER 10899 M01S00241.dmrec7 +++| RRE4 SA2 RREF 10900 M01S00242.dmrec7 +++| BX7 X1 10901 M01S00243.dmrec7 +++| SA7 X2 ENTER VSN INTO TABLE 10902 M01S00244.dmrec7 +++| SX6 X2+B1 10903 M01S00245.dmrec7 +++| SA6 A2 INCREMENT POINTER 10904 M01S00246.dmrec7 +++| RJ SVK SET VSN KEY 10905 M01S00247.dmrec7 +++| RMGET DIRR,WSAB,0,,VKY1 GET VSN ENTRY 10906 M01S00248.dmrec7 +++| RJ FER CHECK *FIT* ERROR 10907 M01S00249.dmrec7 +++| NZ X1,RREX IF ERROR 10908 M01S00250.dmrec7 +++| SA1 WSAB+2 VSN OF MULTI FILE DUMP 10909 M01S00251.dmrec7 +++| NZ X1,RRE4 IF VSN PRESENT 10910 M01S00252.dmrec7 +++| REWIND DIRR,R REWIND THE DIRECTORY 10911 M01S00253.dmrec7 +++| 10912 M01S00254.dmrec7 +++|* SEARCH VSN ENTRIES FOR CORRECT TAPE BY CHECKING EOR-S 10913 M01S00255.dmrec7 +++| 10914 M01S00256.dmrec7 +++| SA1 XXBUF+2 GET VSN 10915 M01S00257.dmrec7 +++| RRE5 RJ SVK SET VSN KEY 10916 M01S00258.dmrec7 +++| RMGET DIRR,WSAB,0,,VKY1 GET VSN ENTRY 10917 M01S00259.dmrec7 +++| RJ FER CHECK FIT ERROR 10918 M01S00260.dmrec7 +++| NZ X1,RREX IF ERROR 10919 M01S00261.dmrec7 +++| SA3 RREB 10920 M01S00262.dmrec7 +++| SA2 WSAB+3 EOR-S ON TAPE 10921 M01S00263.dmrec7 +++| IX6 X3-X2 10922 M01S00264.dmrec7 +++| NG X6,RRE6 IF CORRECT TAPE COUNT 10923 M01S00265.dmrec7 +++| SA6 RREB DECREMENT EOR COUNT 10924 M01S00266.dmrec7 +++| SA1 WSAB+2 VSN OF MULTI FILE DUMP 10925 M01S00267.dmrec7 +++| NZ X1,RRE5 IF VSN PRESENT 10926 M01S00268.dmrec7 +++| MX1 1 10927 M01S00269.dmrec7 +++| EQ RRE17 ERROR INCORRECT EOR COUNT 10928 M01S00270.dmrec7 +++| 10929 M01S00271.dmrec7 +++| RRE6 SB7 TP 10930 M01S00272.dmrec7 +++| SA1 WSAB GET VSN TO BE REQUESTED 10931 M01S00273.dmrec7 +++| SX5 B0 READ MODE 10932 M01S00274.dmrec7 +++| MX0 36 10933 M01S00275.dmrec7 +++| LX1 59-35 10934 M01S00276.dmrec7 +++| BX6 X0*X1 10935 M01S00277.dmrec7 +++| RJ RQT REQUEST TAPE 10936 M01S00278.dmrec7 +++| SA1 RREB 10937 M01S00279.dmrec7 +++| SKIPF TP,X1,R SKIP RECORDS FORWARD 10938 M01S00280.dmrec7 +++| SA2 TP 10939 M01S00281.dmrec7 +++| MX0 -9 10940 M01S00282.dmrec7 +++| BX2 -X0*X2 10941 M01S00283.dmrec7 +++| SX2 X2-271B CHECK STATUS FOR EOF 10942 M01S00284.dmrec7 +++| ZR X2,RRE17 IF EOF 10943 M01S00285.dmrec7 +++| READEI A2,R 10944 M01S00286.dmrec7 +++| MOVE 40,TVSN,RREG MOVE TVSN TABLE TO ALTERNATE WORK AREA 10945 M01S00287.dmrec7 +++| SA1 PREC POINTER TO TABLE OF FIRST REEL ARF-S 10946 M01S00288.dmrec7 +++| SA3 X1+ CURRENT ARF DUMP SET 10947 M01S00289.dmrec7 +++| SA2 X1+B1 NEXT ARF DUMP SET 10948 M01S00290.dmrec7 +++| BX6 X2 10949 M01S00291.dmrec7 +++| SA6 RREC SAVE VSN OF NEXT DUMP SET 10950 M01S00292.dmrec7 +++| SB2 TVSN INITIALIZE TVSN POINTER 10951 M01S00293.dmrec7 +++| SB5 0 INITIALIZE COUNT OF VSN-S 10952 M01S00294.dmrec7 +++| RRE7 SA4 B2 10953 M01S00295.dmrec7 +++| MX0 36 10954 M01S00296.dmrec7 +++| BX4 X0*X4 10955 M01S00297.dmrec7 +++| IX5 X4-X3 COMPARE VSN-S 10956 M01S00298.dmrec7 +++| ZR X5,RRE8 IF FIRST TAPE OF FAULTY DUMP SET 10957 M01S00299.dmrec7 +++| SB5 B5+B1 INCREMENT COUNT OF VSN-S 10958 M01S00300.dmrec7 +++| SB2 B2+B1 INCREMENT TVSN POINTER 10959 M01S00301.dmrec7 +++| EQ RRE7 PROCESS NEXT VSN ENTRY 10960 M01S00302.dmrec7 +++| 10961 M01S00303.dmrec7 +++| RRE8 SB3 B2+ SAVE BEGINNING OF DELETED ENTRIES 10962 M01S00304.dmrec7 +++| SX7 0 10963 M01S00305.dmrec7 +++| RRE9 SA7 B2 ZERO OUT TVSN ENTRY 10964 M01S00306.dmrec7 +++| ZR X2,RRE10 IF LAST ARF DUMP SET 10965 M01S00307.dmrec7 +++| SB2 B2+B1 10966 M01S00308.dmrec7 +++| SA4 B2 10967 M01S00309.dmrec7 +++| IX5 X4-X2 COMPARE VSN-S 10968 M01S00310.dmrec7 +++| ZR X5,RRE10 IF BEGINNING OF NEXT ARF DUMP SET 10969 M01S00311.dmrec7 +++| EQ RRE9 PROCESS VSN ENTRY 10970 M01S00312.dmrec7 +++| 10971 M01S00313.dmrec7 +++| RRE10 SB6 RRED INITIALIZE REPLACEMENT POINTER 10972 M01S00314.dmrec7 +++| RRE11 SA2 B6 10973 M01S00315.dmrec7 +++| ZR X2,RRE12 IF NO MORE REPLACEMENT VSN-S 10974 M01S00316.dmrec7 +++| BX6 X2 10975 M01S00317.dmrec7 +++| SA6 B3 REPLACE VSN IN TVSN TABLE 10976 M01S00318.dmrec7 +++| SB3 B3+B1 INCREMENT TVSN POINTER 10977 M01S00319.dmrec7 +++| SB6 B6+B1 INCREMENT REPLACEMENT POINTER 10978 M01S00320.dmrec7 +++| SB5 B5+B1 INCREMENT VSN COUNT 10979 M01S00321.dmrec7 +++| EQ RRE11 PROCESS NEXT REPLACEMENT VSN 10980 M01S00322.dmrec7 +++| 10981 M01S00323.dmrec7 +++| RRE12 SB2 RREG INITIALIZE ALTERNATE TVSN TABLE POINTER 10982 M01S00324.dmrec7 +++| SA1 RREC VSN OF NEXT DUMP SET 10983 M01S00325.dmrec7 +++| RRE13 SA2 B2+ 10984 M01S00326.dmrec7 +++| BX2 X0*X2 10985 M01S00327.dmrec7 +++| IX3 X1-X2 COMPARE VSN-S 10986 M01S00328.dmrec7 +++| ZR X3,RRE14 IF VSN-S MATCH 10987 M01S00329.dmrec7 +++| SB2 B2+1 10988 M01S00330.dmrec7 +++| EQ RRE13 PROCESS NEXT VSN 10989 M01S00331.dmrec7 +++| 10990 M01S00332.dmrec7 +++| RRE14 SB7 TVSNL HOW MANY VSN ENTRIES AVAILABLE 10991 M01S00333.dmrec7 +++| SB7 B7-B5 10992 M01S00334.dmrec7 +++| MOVE B7,B2,B3 MOVE ALTERNATE TABLE ENTRIES TO TVSN TABLE 10993 M01S00335.dmrec7 +++| SA3 BVSN BUFFER FOR END OF TVSN TABLE 10994 M01S00336.dmrec7 +++| NZ X3,RRE18 IF ERROR VSN TABLE OVERFLOW 10995 M01S00337.dmrec7 +++| SA2 PREC 10996 M01S00338.dmrec7 +++| SA3 RREA REPLACEMENT VSN 10997 M01S00339.dmrec7 +++| BX6 X3 10998 M01S00340.dmrec7 +++| SA6 X2+ REPLACE BAD DUMP SET-S FIRST VSN 10999 M01S00341.dmrec7 +++| MX1 0 11000 M01S00342.dmrec7 +++| EQ RREX RETURN NO ERRORS 11001 M01S00343.dmrec7 +++| 11002 M01S00344.dmrec7 +++| RRE15 ERROR RREH,,,RREX,,E PARITY ERROR ON ARF DUMP TAPE 11003 M01S00345.dmrec7 +++| RRE16 ERROR RTFA,,,RREX,,E END OF VSN TABLE 11004 M01S00346.dmrec7 +++| RRE17 ERROR RREI,,,RREX,,E RECORD POSITION ERROR 11005 M01S00347.dmrec7 +++| RRE18 ERROR BVTC,,,RREX,,E TVSN TABLE OVERFLOW 11006 M01S00348.dmrec7 +++| 11007 M01S00349.dmrec7 +++| RREA BSSZ 1 REPLACEMENT VSN 11008 M01S00350.dmrec7 +++| RREB BSSZ 1 EOR COUNT 11009 M01S00351.dmrec7 +++| RREC BSSZ 1 VSN OF NEXT DUMP SET 11010 M01S00352.dmrec7 +++| RRED BSSZ 10 TABLE OF REPLACEMENT VSN-S 11011 M01S00353.dmrec7 +++| RREF BSSZ 1 POINTER TO REPLACEMENT TABLE OF VSN-S 11012 M01S00354.dmrec7 +++| RREG BSSZ TVSNL ALTERNATE TABLE OF VSN-S 11013 M01S00355.dmrec7 +++| RREH DATA 20H ***** 11014 M01S00356.dmrec7 +++| DATA C*PARITY ERROR ON ARF DUMP TAPE.* 11015 M01S00357.dmrec7 +++| RREHL EQU *-RREH 11016 M01S00358.dmrec7 +++| RREI DATA 20H ***** 11017 M01S00359.dmrec7 +++| DATA C*TAPE FILE POSITION ERROR.* 11018 M01S00360.dmrec7 +++| RREIL EQU *-RREI 11019 M00S09484.dmrec +++| RSC SPACE 4,20 11020 M00S09485.dmrec +++|** RSC - REMOVE EXTRA SPACES AND COMMAS. 11021 M00S09486.dmrec +++|* 11022 M00S09487.dmrec +++|* *RSC* REMOVES EXTRA SPACES AND COMMAS FROM AN
| Line S09488 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11023 M01S09488.v23l617 ---|* INPUT STRING AND CHECKS FOR ILLEGAL CHARACTERS.
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11024 M01S00066.v23l617 +++|* INPUT STRING AND CHECKS FOR INCORRECT CHARACTERS. 11025 M00S09489.dmrec +++|* THE INPUT STRING HAS TO BE ONE CHARACTER PER 11026 M00S09490.dmrec +++|* WORD, RIGHT-JUSTIFIED WITH ZERO FILL. 11027 M00S09491.dmrec +++|* 11028 M00S09492.dmrec +++|* ENTRY (B6) = START OF INPUT BUFFER. 11029 M00S09493.dmrec +++|* (B7) = LWA+1 OF INPUT BUFFER. 11030 M00S09494.dmrec +++|* 11031 M00S09495.dmrec +++|* EXIT (B7) = LWA OF DIRECTIVES IN INPUT BUFFER. 11032 M00S09496.dmrec +++|* (B3) = NUMBER OF PARAMETERS ON CARD. 11033 M00S09497.dmrec +++|* 11034 M00S09498.dmrec +++|* ALL DOUBLE SPACE/COMMA COMBINATIONS REMOVED FROM 11035 M00S09499.dmrec +++|* INPUT BUFFER, SPACES WILL BE CHANGED TO COMMAS. 11036 M00S09500.dmrec +++|* 11037 M00S09501.dmrec +++|* USES X - 1, 2, 3, 6. 11038 M00S09502.dmrec +++|* A - 1, 2, 6. 11039 M00S09503.dmrec +++|* B - 3, 4, 6, 7. 11040 M00S09504.dmrec +++| 11041 M00S09505.dmrec +++| 11042 M00S09506.dmrec +++| RSC0 SB7 B4+B3 SET LEGAL LWA 11043 M00S09507.dmrec +++| 11044 M00S09508.dmrec +++| RSC SUBR ENTRY/EXIT 11045 M00S09509.dmrec +++| SB4 B6 SAVE FWA OF BUFFER 11046 M00S09510.dmrec +++| SB3 B0 11047 M00S09511.dmrec +++| RSC1 SA1 B6 11048 M00S09512.dmrec +++| RSC2 SB6 B6+B1 11049 M00S09513.dmrec +++| EQ B6,B7,RSC0 IF END OF BUFFER 11050 M00S09514.dmrec +++| SA2 B6 11051 M00S09515.dmrec +++| SX3 X1-1R 11052 M00S09516.dmrec +++| NZ X3,RSC3 IF (BUFFER) NOT = SPACE 11053 M00S09517.dmrec +++| SX1 1R, CHANGE SPACE TO COMMA 11054 M00S09518.dmrec +++| EQ RSC4 CONTINUE 11055 M00S09519.dmrec +++| RSC3 SX3 X1-1R, 11056 M00S09520.dmrec +++| NZ X3,RSC5 IF (BUFFER) NOT = *,* 11057 M00S09521.dmrec +++| RSC4 ZR B3,RSC1 IF LEADING BLANKS OR COMMAS 11058 M00S09522.dmrec +++| SX3 X2-1R 11059 M00S09523.dmrec +++| ZR X3,RSC2 IF (BUFFER+1)=SPACE 11060 M00S09524.dmrec +++| SX3 X2-1R, 11061 M00S09525.dmrec +++| ZR X3,RSC2 IF (BUFFER+1)=*,* 11062 M00S09526.dmrec +++| SX3 X2-1R= 11063 M00S09527.dmrec +++| ZR X3,RSC2 IF (BUFFER+1) = *=* 11064 M00S09528.dmrec +++| SX3 X2-1R/ 11065 M00S09529.dmrec +++| ZR X3,RSC2 IF (BUFFER+1) = */* 11066 M00S09530.dmrec +++| RSC5 BX6 X1 11067 M00S09531.dmrec +++| SA6 B4+B3 11068 M00S09532.dmrec +++| SB3 B3+B1 11069 M00S09533.dmrec +++| EQ RSC1 PROCESS NEXT CHARACTER 11070 M00S09534.dmrec +++| SPACE 4,10 11071 M00S09535.dmrec +++|** RTE - RETURN TAPE ERROR ON DUMP PROCESSING. 11072 M00S09536.dmrec +++|* 11073 M00S09537.dmrec +++|* THIS SUBROUTINE IS CALLED WHEN A TAPE ERROR OCCURS ON A DUMP. 11074 M00S09538.dmrec +++|* THE FAULTY TAPE IS RETURNED AND ERROR MESSAGES ARE SENT TO 11075 M00S09539.dmrec +++|* THE OPERATOR AND THE JOB-S DAYFILE. THE TABLE, *TVSN*, WILL 11076 M00S09540.dmrec +++|* BE ALTERED TO DELETE THE BAD TAPE AND MOVE ALL REMAINING 11077 M00S09541.dmrec +++|* VSN-S DOWN. 11078 M00S09542.dmrec +++|* 11079 M00S09543.dmrec +++|* ENTRY (B1) = 1. 11080 M00S09544.dmrec +++|* (TP) = FIRST WORD OF TAPE FET. 11081 M00S09545.dmrec +++|* VSN OF NEXT TAPE. 11082 M00S09546.dmrec +++|* 11083 M00S09547.dmrec +++|* EXIT (IVSN) = TABLE TVSN RECONSTRUCTED. 11084 M00S09548.dmrec +++|* 11085 M00S09549.dmrec +++|* USES X - 1, 2, 3, 6, 7. 11086 M00S09550.dmrec +++|* B - 2, 3, 5. 11087 M00S09551.dmrec +++|* A - 1, 2, 3, 5, 6, 7. 11088 M00S09552.dmrec +++|* 11089 M00S09553.dmrec +++|* CALLS NOP, SNM. 11090 M00S09554.dmrec +++|* 11091 M00S09555.dmrec +++|* MACROS MESSAGE, RETURN. 11092 M00S09556.dmrec +++| 11093 M00S09557.dmrec +++| RTE SUBR ENTRY/EXIT 11094 M00S09558.dmrec +++| RETURN TP 11095 M00S09559.dmrec +++| SA1 IVSN 11096 M00S09560.dmrec +++| SX2 X1-1 DECREMENT POINTER TO CURRENT VSN 11097 M00S09561.dmrec +++| SA3 X2 11098 M00S09562.dmrec +++| BX6 X3 11099 M00S09563.dmrec +++| SA6 RTEA SAVE BAD VSN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmrec18 |
Seq # *Modification Id* Act ----------------------------+ 11100 M01S00001.dmrec18 +++| SA6 RQTREQ SET FLAG SO WE DO NOT CLEAR *TT* 11101 M00S09564.dmrec +++| SX6 B0 11102 M00S09565.dmrec +++| SA6 X2 ZERO OUT BAD VSN 11103 M00S09566.dmrec +++| RTE1 SA3 X1 11104 M00S09567.dmrec +++| ZR X3,RTE2 IF NO MORE VSN-S 11105 M00S09568.dmrec +++| BX7 X3 11106 M00S09569.dmrec +++| SA7 X2 REPLACE VSN WITH NEXT VSN 11107 M00S09570.dmrec +++| SX2 X2+B1 11108 M00S09571.dmrec +++| SX1 X1+B1 INCREMENT IVSN 11109 M00S09572.dmrec +++| EQ RTE1 PROCESS NEXT VSN 11110 M00S09573.dmrec +++| 11111 M00S09574.dmrec +++| RTE2 SA1 RTEA GET BAD VSN 11112 M00S09575.dmrec +++| SA6 X2 ZERO OUT LAST VSN 11113 M00S09576.dmrec +++| SB2 1RX SUBSTITUTE CHARACTER 11114 M00S09577.dmrec +++| SB5 -RTEB 11115 M00S09578.dmrec +++| SB3 RTEB ADDRESS OF ASSEMBLY AREA 11116 M00S09579.dmrec +++| RJ SNM SET NAME 11117 M00S09580.dmrec +++| MESSAGE RTEB,3 11118 M00S09581.dmrec +++| MESSAGE RTEC,3 11119 M00S09582.dmrec +++| SA1 RTEA GET BAD VSN 11120 M00S09583.dmrec +++| SB2 1RX SUBSTITUTE CHARACTER 11121 M00S09584.dmrec +++| SB5 -RTED 11122 M00S09585.dmrec +++| SB3 RTED ADDRESS OF ASSEMBLY AREA 11123 M00S09586.dmrec +++| RJ SNM SET NAME 11124 M00S09587.dmrec +++| SA5 RTED 11125 M00S09588.dmrec +++| RJ NOP NOTIFY OPERATOR 11126 M00S09589.dmrec +++| MX6 0 11127 M00S09590.dmrec +++| SA6 ERROR CLEAR ERROR STATUS BIT 11128 M00S09591.dmrec +++| EQ RTEX RETURN 11129 M00S09592.dmrec +++| 11130 M00S09593.dmrec +++| RTEA BSSZ 1 CURRENT VSN 11131 M00S09594.dmrec +++| 11132 M00S09595.dmrec +++| RTEB DATA C*PARITY ERROR IN TAPE WITH VSN = XXXXXX.* 11133 M00S09596.dmrec +++| 11134 M00S09597.dmrec +++| RTEC DATA C*DUMP WILL START OVER.* 11135 M00S09598.dmrec +++| 11136 M00S09599.dmrec +++| RTED DATA C*TAPE VSN = XXXXXX IS BAD, PLEASE REPLACE.* 11137 M00S09600.dmrec +++| 11138 M00S09601.dmrec +++| RTF SPACE 4,30 11139 M00S09602.dmrec +++|** RTF - REQUEST TAPE FILE. 11140 M00S09603.dmrec +++|* 11141 M00S09604.dmrec +++|* REQUEST THE NEXT TAPE CANDIDATE FOR THE OPERATION 11142 M00S09605.dmrec +++|* SPECIFIED. IF THE REQUEST IS FOR A READ THE NEXT 11143 M00S09606.dmrec +++|* ENTRY IN *TVSN* WILL BE REQUESTED AND *X1* WILL INDICATE 11144 M00S09607.dmrec +++|* THE END OF THE ENTRIES. ON A WRITE, THE NEXT *TVSN* 11145 M00S09608.dmrec +++|* ENTRY IS ALSO REQUESTED BUT IF NO MORE *TVSN* ENTRIES 11146 M00S09609.dmrec +++|* EXIST, A BLANK LABELED TAPE IS REQUESTED AND ADDED TO 11147 M00S09610.dmrec +++|* *TVSN*, ROOM PERMITTING. 11148 M00S09611.dmrec +++|* 11149 M00S09612.dmrec +++|* ENTRY (B7) = FET ADDRESS. 11150 M00S09613.dmrec +++|* (IVSN) = ADDRESS OF CURRENT VSN CANDIDATE. 11151 M00S09614.dmrec +++|* (X5) = 0 - READ. 11152 M00S09615.dmrec +++|* .NE. 0 - WRITE. 11153 M00S09616.dmrec +++|* 11154 M00S09617.dmrec +++|* EXIT (X1) = 0 NO ERROR. 11155 M00S09618.dmrec +++|* (X1) .NE. 0, IF READ (END OF VSN-S). 11156 M00S09619.dmrec +++|* IF WRITE (TVSN OVERFLOW). 11157 M00S09620.dmrec +++|* (IVSN) = ADDRESS OF NEXT CANDIDATE. 11158 M00S09621.dmrec +++|* 11159 M00S09622.dmrec +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 11160 M00S09623.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 11161 M00S09624.dmrec +++|* B - 2, 5, 7. 11162 M00S09625.dmrec +++|* 11163 M00S09626.dmrec +++|* MACROS FETCH, MESSAGE, OPENM, RETURN, RMGET. 11164 M00S09627.dmrec +++|* 11165 M00S09628.dmrec +++|* CALLS ACF, RQT. 11166 M00S09629.dmrec +++| 11167 M00S09630.dmrec +++| 11168 M00S09631.dmrec +++| RTF SUBR 11169 M00S09632.dmrec +++| SX7 B7 11170 M00S09633.dmrec +++| SA2 XXPFN 11171 M00S09634.dmrec +++| BX6 X2 11172 M00S09635.dmrec +++| SA6 HOLD6 SAVE XXPFN 11173 M00S09636.dmrec +++| SA7 HOLD4 SAVE (B7) 11174 M00S09637.dmrec +++| BX7 X5 11175 M00S09638.dmrec +++| SA7 HOLD5 SAVE READ/WRITE INDICATOR 11176 M00S09639.dmrec +++| SA3 IVSN CHECK FOR LAST ENTRY 11177 M00S09640.dmrec +++| SA4 X3 11178 M00S09641.dmrec +++| BX6 X4 11179 M00S09642.dmrec +++| SA6 RTFC SET LAST VSN FLAG 11180 M00S09643.dmrec +++| RTF1 SA4 IVSN 11181 M00S09644.dmrec +++| SA3 X4 GET VSN 11182 M00S09645.dmrec +++| BX6 X3 11183 M00S09646.dmrec +++| NZ X5,RTF3 IF WRITE REQUESTED 11184 M00S09647.dmrec +++| NZ X3,RTF2 IF READ VSN GIVEN 11185 M00S09648.dmrec +++| EQ RTF10 ERROR - END OF *TVSN* 11186 M00S09649.dmrec +++| 11187 M00S09650.dmrec +++| RTF2 RJ RQT REQUEST TAPE 11188 M00S09651.dmrec +++| EQ RTF8 CONTINUE 11189 M00S09652.dmrec +++| 11190 M00S09653.dmrec +++| RTF3 ZR X6,RTF4 IF END OF TVSN ON WRITE 11191 M00S09654.dmrec +++| RJ RQT REQUEST TAPE 11192 M00S09655.dmrec +++| EQ RTF5 CHECK FOR DUPLICATE VSN 11193 M00S09656.dmrec +++| 11194 M00S09657.dmrec +++| RTF4 SX4 TVSN+TVSNL 11195 M00S09658.dmrec +++| IX7 X4-X3 11196 M00S09659.dmrec +++| NG X7,RTF9 IF *TVSN* OVERFLOW 11197 M00S09660.dmrec +++| RJ RQT REQUEST TAPE 11198 M00S09661.dmrec +++| SA3 IVSN 11199 M00S09662.dmrec +++| SA6 X3 STORE VSN 11200 M00S09663.dmrec +++| RTF5 SA3 TDFN GET DB 11201 M00S09664.dmrec +++| SA4 DMPFLG 11202 M00S09665.dmrec +++| NZ X4,RTF6 IF DATA BASE FILE 11203 M00S09666.dmrec +++| LX3 12 11204 M00S09667.dmrec +++| RTF6 BX6 X3 11205 M00S09668.dmrec +++| SA6 XXPFN SAVE FOR *ACF* 11206 M00S09669.dmrec +++| RJ ACF ATTACH DIRECTORY 11207 M00S09670.dmrec +++| SA5 IVSN 11208 M00S09671.dmrec +++| SA1 X5 11209 M00S09672.dmrec +++| SB5 RTFB 11210 M00S09673.dmrec +++| SB2 1RX 11211 M00S09674.dmrec +++| RJ SNM SET NAME 11212 M00S09675.dmrec +++| SA3 X5 GET VSN 11213 M00S09676.dmrec +++| LX3 36 11214 M00S09677.dmrec +++| SA1 FILLER 11215 M00S09678.dmrec +++| BX6 X3+X1 11216 M00S09679.dmrec +++| SA6 EVSN KEY 11217 M00S09680.dmrec +++| RMGET DIRR,XXBUF,0,,EVSN 11218 M00S09681.dmrec +++| RJ FER CHECK FIT ERROR 11219 M00S09682.dmrec +++| NZ X1,RTF7 IF ERROR 11220 M00S09683.dmrec +++| SA3 IVSN 11221 M00S09684.dmrec +++| BX6 X1 11222 M00S09685.dmrec +++| SA6 X3 ZERO TVSN ENTRY 11223 M00S09686.dmrec +++| RETURN TP,R 11224 M00S09687.dmrec +++| MESSAGE RTFB,,R 11225 M00S09688.dmrec +++| SA2 HOLD4 11226 M00S09689.dmrec +++| SB7 X2 11227 M00S09690.dmrec +++| SA5 HOLD5 11228 M00S09691.dmrec +++| EQ RTF1 TRY AGAIN 11229 M00S09692.dmrec +++| 11230 M00S09693.dmrec +++| RTF7 SA1 NUMV 11231 M00S09694.dmrec +++| SX7 X1+1 11232 M00S09695.dmrec +++| SA7 A1 INCREMENT VSN COUNT 11233 M00S09696.dmrec +++| SA3 RTFC 11234 M00S09697.dmrec +++| NZ X3,RTF7.1 IF NOT LAST VSN ENTRY IN TVSN 11235 M00S09698.dmrec +++| SA3 IVSN ZERO NEXT ENTRY 11236 M00S09699.dmrec +++| SX7 B0 11237 M00S09700.dmrec +++| SA7 X3+1 11238 M00S09701.dmrec +++| RTF7.1 SA1 HOLD6 RESTORE XXPFN 11239 M00S09702.dmrec +++| BX6 X1 11240 M00S09703.dmrec +++| SA6 XXPFN 11241 M00S09704.dmrec +++| RTF8 SA3 IVSN ADVANCE IVSN POINTER 11242 M00S09705.dmrec +++| SX7 X3+1 11243 M00S09706.dmrec +++| SA7 A3 11244 M00S09707.dmrec +++| CLOSEM DIRR,U 11245 M00S09708.dmrec +++| SX1 B0 11246 M00S09709.dmrec +++| EQ RTFX RETURN 11247 M00S09710.dmrec +++| 11248 M00S09711.dmrec +++| RTF9 ERROR BVTC,,,RTFX,,E VSN TABLE OVERFLOW 11249 M00S09712.dmrec +++| 11250 M00S09713.dmrec +++| RTF10 ERROR RTFA,,,RTFX,,E END OF VSN TABLE 11251 M00S09714.dmrec +++| 11252 M00S09715.dmrec +++| RTFA DATA 20H0 ***** 11253 M00S09716.dmrec +++| DATA C*END OF VSN TABLE.* 11254 M00S09717.dmrec +++| RTFAL EQU *-RTFA 11255 M00S09718.dmrec +++| 11256 M00S09719.dmrec +++| RTFB DATA C* VSN - XXXXXX ALREADY IN DIRECTORY.* 11257 M00S09720.dmrec +++| 11258 M00S09721.dmrec +++| RTFC BSSZ 1 LAST VSN FLAG 11259 M00S09722.dmrec +++| RVE SPACE 4,15 11260 M00S09723.dmrec +++|** RVE - READ VSN ENTRY. 11261 M00S09724.dmrec +++|* 11262 M00S09725.dmrec +++|* ENTRY (DIRR) = FWA OF BACKUP DIRECTORY FIT. 11263 M00S09726.dmrec +++|* 11264 M00S09727.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 11265 M00S09728.dmrec +++|* 1, IF END OF FILE. 11266 M00S09729.dmrec +++|* (PLIN) = FWA OF FORMATTED LINE. 11267 M00S09730.dmrec +++|* 11268 M00S09731.dmrec +++|* USES X - 0, 1, 2, 6, 7. 11269 M00S09732.dmrec +++|* A - 1, 2, 6, 7. 11270 M00S09733.dmrec +++|* B - NONE. 11271 M00S09734.dmrec +++|* 11272 M00S09735.dmrec +++|* CALLS BFL, CDD, FER, SFN. 11273 M00S09736.dmrec +++|* 11274 M00S09737.dmrec +++|* MACROS ERROR, GETN. 11275 M00S09738.dmrec +++| 11276 M00S09739.dmrec +++| 11277 M00S09740.dmrec +++| RVE SUBR ENTRY/EXIT 11278 M00S09741.dmrec +++| GETN DIRR,WSAB READ NEXT VSN ENTRY 11279 M00S09742.dmrec +++| RJ FER FIT ERROR STATUS 11280 M00S09743.dmrec +++| SX6 X1-3 END OF FILE 11281 M00S09744.dmrec +++| SX1 B1 11282 M00S09745.dmrec +++| ZR X6,RVEX IF END OF FILE 11283 M00S09746.dmrec +++| RJ BFL BLANK FILL LINE 11284 M00S09747.dmrec +++| SA1 WSAB+1 SECOND WORD OF VSN KEY 11285 M00S09748.dmrec +++| SA2 VSNK ALL ASTERISKS 11286 M00S09749.dmrec +++| BX6 X1-X2 11287 M00S09750.dmrec +++| NZ X6,RVE4 IF NOT VSN TYPE 11288 M00S09751.dmrec +++| MX0 -36 11289 M00S09752.dmrec +++| SA1 WSAB VSN NUMBER 11290 M00S09753.dmrec +++| BX1 -X0*X1 11291 M00S09754.dmrec +++| LX1 59-35 11292 M00S09755.dmrec +++| RJ SFN SPACE FILL 11293 M00S09756.dmrec +++| LX6 35-59 11294 M00S09757.dmrec +++| SA6 PLIN+2 11295 M00S09758.dmrec +++| SA1 WSAB+2 CONTINUATION VSN 11296 M00S09759.dmrec +++| ZR X1,RVE1 IF NO CONTINUATION VSN 11297 M00S09760.dmrec +++| MX0 36 11298 M00S09761.dmrec +++| BX1 X0*X1 11299 M00S09762.dmrec +++| RJ SFN SPACE FILL 11300 M00S09763.dmrec +++| LX6 47-59 11301 M00S09764.dmrec +++| SA6 PLIN+3 11302 M00S09765.dmrec +++| RVE1 SA1 WSAB+3 NUMBER OF FILES 11303 M00S09766.dmrec +++| SA2 VSNK CHECK FOR ALL ASTRICKS 11304 M00S09767.dmrec +++| BX2 X1-X2 11305 M00S09768.dmrec +++| NZ X2,RVE2 IF NOT LOG FILE VSN ENTRY 11306 M00S09769.dmrec +++| SA1 RVEB 11307 M00S09770.dmrec +++| BX6 X1
| Line S09771 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 11308 M01S09771.ns2023 ---| EQ RVE3 STORE *LRF*
| Line S00171 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 11309 M01S00171.ns2023 +++| EQ RVE3 STORE *ARF* 11310 M00S09772.dmrec +++| 11311 M00S09773.dmrec +++| RVE2 RJ CDD CONVERT TO DISPLAY CODE 11312 M00S09774.dmrec +++| LX6 24 11313 M00S09775.dmrec +++| RVE3 SA6 PLIN+4 11314 M00S09776.dmrec +++| SA1 WSAB+4 NUMBER OF ACTIVE FILES 11315 M00S09777.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 11316 M00S09778.dmrec +++| LX6 24 11317 M00S09779.dmrec +++| SA6 PLIN+5
| Line S09780 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 11318 M01S09780.ns2023 ---| SA1 WSAB+5 NEXT *LRF* VSN
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 11319 M01S00172.ns2023 +++| SA1 WSAB+5 NEXT *ARF* VSN 11320 M00S09781.dmrec +++| MX0 36 11321 M00S09782.dmrec +++| BX1 X0*X1 11322 M00S09783.dmrec +++| RJ SFN SET FILE NAME 11323 M00S09784.dmrec +++| LX6 47-59 11324 M00S09785.dmrec +++| SA6 PLIN+6 11325 M00S09786.dmrec +++| MX1 0 11326 M00S09787.dmrec +++| MX7 0 11327 M00S09788.dmrec +++| SA7 PLIN+8 11328 M00S09789.dmrec +++| EQ RVEX RETURN 11329 M00S09790.dmrec +++| 11330 M00S09791.dmrec +++| RVE4 ERROR RVEA,,,RVEX,,E NOT VSN TYPE ENTRY 11331 M00S09792.dmrec +++| 11332 M00S09793.dmrec +++| RVEA DATA 20H0 ***** 11333 M00S09794.dmrec +++| DATA C*WRONG ENTRY WHILE READING VSN ENTRIES.* 11334 M00S09795.dmrec +++| RVEAL EQU *-RVEA 11335 M00S09796.dmrec +++| 11336 M00S09797.dmrec +++| RVEB VFD 60/10L *ARF* 11337 M00S09798.dmrec +++| RXJ SPACE 4,55 11338 M00S09799.dmrec +++|** RXJ - READ *XXJ* FILE ENTRIES (XX=DATA BASE). 11339 M00S09800.dmrec +++|* 11340 M00S09801.dmrec +++|* *RXJ* PROCESSES *CRM* AND *IXN* CARDS ON THE *XXJ* FILE 11341 M00S09802.dmrec +++|* THE FOLLOWING FIELDS ARE PROCESSED: 11342 M00S09803.dmrec +++|*
| Line S09804 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11343 M01S09804.v23l617 ---|* *CRM* CARD -
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11344 M01S00067.v23l617 +++|* *CRM* STATEMENT - 11345 M00S09805.dmrec +++|* 11346 M00S09806.dmrec +++|* XXPF PERMANENT FILE NAME. 11347 M00S09807.dmrec +++|* TY FILE TYPE. 11348 M00S09808.dmrec +++|* KL PRIMARY KEY LENGTH. 11349 M00S09809.dmrec +++|* MRL MAXIMUM RECORD LENGTH. 11350 M00S09810.dmrec +++|* HASH HASHING ROUTINE NAME. 11351 M00S09811.dmrec +++|* PACKNAM PACK NAME. 11352 M00S09812.dmrec +++|* DEV DEVICE FILE IS RESIDING ON. 11353 M00S09813.dmrec +++|*
| Line S09814 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11354 M01S09814.v23l617 ---|* *IXN* CARD -
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11355 M01S00068.v23l617 +++|* *IXN* STATEMENT - 11356 M00S09815.dmrec +++|* 11357 M00S09816.dmrec +++|* XXPF PERMANENT FILE NAME. 11358 M00S09817.dmrec +++|* NAKY NUMBER OF ALTERNATE KEYS. 11359 M00S09818.dmrec +++|* PACKNAME PACK NAME. 11360 M00S09819.dmrec +++|* DEV DEVICE FILE IS RESIDING ON. 11361 M00S09820.dmrec +++|* 11362 M00S09821.dmrec +++|* ENTRY (X5) = PERMANENT FILE NAME. 11363 M00S09822.dmrec +++|* (X5) = 1, IF INITIAL CALL. 11364 M00S09823.dmrec +++|* (X5) = 0, IF NOT INITIAL CALL. 11365 M00S09824.dmrec +++|* 11366 M00S09825.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 11367 M00S09826.dmrec +++|* (X1) = 1, IF ERRORS ENCOUNTERED. 11368 M00S09827.dmrec +++|* (X1) = NEGATIVE, IF ALL FILES PROCESSED. 11369 M00S09828.dmrec +++|* (X2) = 0, IF NO MORE FILES 11370 M00S09829.dmrec +++|* (X2) = 1, IF *XXPFN* CONTAINS LAST ENTRY. 11371 M00S09830.dmrec +++|* (XXPFN) = FILE NAME OF DATA FILE. 11372 M00S09831.dmrec +++|* (XXTY) = FILE TYPE. 11373 M00S09832.dmrec +++|* (XXACC) = ACCESS MODE 11374 M00S09833.dmrec +++|* (XXRL) = RECORD LENGTH. 11375 M00S09834.dmrec +++|* (XXKL) = KEY LENGTH. 11376 M00S09835.dmrec +++|* (XXHASH) = HASHING ROUTINE. 11377 M00S09836.dmrec +++|* (XXREC) = RECOVERY INDICATOR. 11378 M00S09837.dmrec +++|* (XXFWI) = FORCE WRITE INDICATOR. 11379 M00S09838.dmrec +++|* (XXPACK) = PACK NAME. 11380 M00S09839.dmrec +++|* (XXDEV) = DEVICE. 11381 M00S09840.dmrec +++|* (XXIXN) = INDEX FILE NAME. 11382 M00S09841.dmrec +++|* (XXNAKY) = NUMBER OF ALTERNATE KEYS. 11383 M00S09842.dmrec +++|* (XXIXP) = INDEX PACK NAME. 11384 M00S09843.dmrec +++|* (XXIDEV) = INDEX DEVICE. 11385 M00S09844.dmrec +++|* 11386 M00S09845.dmrec +++|* USES X - ALL. 11387 M00S09846.dmrec +++|* A - 1, 2, 3, 5, 6, 7. 11388 M00S09847.dmrec +++|* B - 6, 7. 11389 M00S09848.dmrec +++|* 11390 M00S09849.dmrec +++|* CALLS DXB, UPC, SNM. 11391 M00S09850.dmrec +++|* 11392 M00S09851.dmrec +++|* MACROS ERROR, READ, READC, REWIND, WRITEW. 11393 M00S09852.dmrec +++| 11394 M00S09853.dmrec +++| 11395 M00S09854.dmrec +++| RXJ SUBR ENTRY/EXIT 11396 M00S09855.dmrec +++| BX6 X5 11397 M00S09856.dmrec +++| SA6 XXPFN STORE (X5) 11398 M00S09857.dmrec +++| MX7 0 CLEAR PREVIOUS ENTRIES 11399 M00S09858.dmrec +++| SX6 B0+ CLEAR PREVIOUS ENTRIES 11400 M00S09859.dmrec +++| SA7 XXTY 11401 M00S09860.dmrec +++| SA6 XXRL 11402 M00S09861.dmrec +++| SA7 XXKL 11403 M00S09862.dmrec +++| SA6 XXHASH 11404 M00S09863.dmrec +++| SA7 XXFWI 11405 M00S09864.dmrec +++| SA6 XXREC 11406 M00S09865.dmrec +++| SA7 XXPACK 11407 M00S09866.dmrec +++| SA6 XXDEV 11408 M00S09867.dmrec +++| SA7 XXIXN 11409 M00S09868.dmrec +++| SA6 XXNAKY 11410 M00S09869.dmrec +++| SA7 XXIXP 11411 M00S09870.dmrec +++| SA6 XXIDEV 11412 M00S09871.dmrec +++| ZR X5,RXJ2 IF NOT INITIAL CALL 11413 M00S09872.dmrec +++| REWIND XXJ,R 11414 M00S09873.dmrec +++| READ XXJ SET READ FUNCTION 11415 M00S09874.dmrec +++| RXJ1 READC XXJ,GXJA,8 11416 M00S09875.dmrec +++| ZR X1,RXJ2 IF MORE CARDS TO CHECK 11417 M00S09876.dmrec +++| SA5 XXPFN 11418 M00S09877.dmrec +++| ZR X5,RXJ10 IF NOT SINGLE FILE SEARCH 11419 M00S09878.dmrec +++| SX5 X5-1 11420 M00S09879.dmrec +++| NZ X5,RXJ11.1 IF SINGLE FILE NOT FOUND 11421 M00S09880.dmrec +++| EQ RXJ10 IF NOT SINGLE FILE SEARCH 11422 M00S09881.dmrec +++| 11423 M00S09882.dmrec +++| RXJ2 SA5 GXJA 11424 M00S09883.dmrec +++| SX3 3RCRM SEARCH FOR CRM CARD 11425 M00S09884.dmrec +++| MX0 18 11426 M00S09885.dmrec +++| LX3 59-17 11427 M00S09886.dmrec +++| BX3 X3-X5 11428 M00S09887.dmrec +++| BX3 X0*X3 11429 M00S09888.dmrec +++| ZR X3,RXJ3 IF CRM CARD 11430 M00S09889.dmrec +++| EQ RXJ1 LOOP 11431 M00S09890.dmrec +++| 11432 M00S09891.dmrec +++|* PROCESS CRM STATEMENT. 11433 M00S09892.dmrec +++| 11434 M00S09893.dmrec +++| RXJ3 SB7 GXJP FIRST WORD TO UNPACK 11435 M00S09894.dmrec +++| RJ UPC UNPACK CARD 11436 M00S09895.dmrec +++| MX0 42 11437 M00S09896.dmrec +++| SA2 B7+1 GET FILE NAME FROM CRM CARD 11438 M00S09897.dmrec +++| BX2 X0*X2 11439 M00S09898.dmrec +++| SA3 XXPFN 11440 M00S09899.dmrec +++| ZR X3,RXJ4 IF ALL FILES TO PROCESS 11441 M00S09900.dmrec +++| SX4 X3-1 11442 M00S09901.dmrec +++| ZR X4,RXJ4 IF ALL FILES TO PROCESS 11443 M00S09902.dmrec +++| BX3 X0*X3 11444 M00S09903.dmrec +++| IX4 X2-X3 11445 M00S09904.dmrec +++| NZ X4,RXJ1 IF FILE NAME NOT FOUND 11446 M00S09905.dmrec +++| 11447 M00S09906.dmrec +++|* FILE NAME FOUND. 11448 M00S09907.dmrec +++| 11449 M00S09908.dmrec +++| RXJ4 BX6 X2 11450 M00S09909.dmrec +++| SA6 A3 STORE FILE NAME 11451 M00S09910.dmrec +++| SA2 A2+B1 PROCESS FILE TYPE 11452 M00S09911.dmrec +++| LX2 11-59 RIGHT JUSTIFY FILE TYPE 11453 M00S09912.dmrec +++| SX3 X2-2RIS 11454 M00S09913.dmrec +++| ZR X3,RXJ5 IF *IS* 11455 M00S09914.dmrec +++| SX3 X2-2RDA 11456 M00S09915.dmrec +++| ZR X3,RXJ5 IF *DA* 11457 M00S09916.dmrec +++| SX3 X2-2RAK 11458 M00S09917.dmrec +++| NZ X3,RXJ13 IF NOT *AK* 11459 M00S09918.dmrec +++| RXJ5 BX6 X2 11460 M00S09919.dmrec +++| SA6 XXTY STORE FILE TYPE 11461 M00S09920.dmrec +++| SB6 B6-7 11462 M00S09921.dmrec +++| SA5 A2+B1 11463 M00S09922.dmrec +++| BX6 X5 11464 M00S09923.dmrec +++| SA6 XXACC 11465 M00S09924.dmrec +++| SA5 A5+3 11466 M00S09925.dmrec +++| RJ DXB DISPLAY TO BINARY 11467 M00S09926.dmrec +++| SA6 XXRL STORE MAXIMUM RECORD LENGTH 11468 M00S09927.dmrec +++| SB6 B6-B1 11469 M00S09928.dmrec +++| SA5 A5+B1 KEY LENGTH 11470 M00S09929.dmrec +++| RJ DXB CONVERT TO BINARY 11471 M00S09930.dmrec +++| SA6 XXKL STORE KEY LENGTH 11472 M00S09931.dmrec +++| SB6 B6-B1 11473 M00S09932.dmrec +++| SA5 A5+B1 PROCESS HASHING ROUTINE 11474 M00S09933.dmrec +++| LT B6,RXJ6 IF NO MORE PARAMETERS 11475 M00S09934.dmrec +++| BX6 X5 11476 M00S09935.dmrec +++| SB6 B6-B1 11477 M00S09936.dmrec +++| SA6 XXHASH STORE HASHING ROUTINE 11478 M00S09937.dmrec +++| LT B6,RXJ6 IF NO MORE PARAMETERS 11479 M00S09938.dmrec +++| SA5 A5+B1 PROCESS RECOVERY INDECATOR 11480 M00S09939.dmrec +++| BX6 X5 11481 M00S09940.dmrec +++| SA6 XXREC STORE RECOVERY INDECATOR 11482 M00S09941.dmrec +++| SB6 B6-B1 11483 M00S09942.dmrec +++| LT B6,RXJ6 IF NO MORE PARAMETERS 11484 M00S09943.dmrec +++| SA5 A5+B1 PROCESS FORCE WRITE INDECATOR 11485 M00S09944.dmrec +++| BX6 X5 11486 M00S09945.dmrec +++| SA6 XXFWI STORE FORCE WRITE INDECATOR 11487 M00S09946.dmrec +++| SB6 B6-B1 11488 M00S09947.dmrec +++| LT B6,RXJ6 IF NO MORE PARAMETERS 11489 M00S09948.dmrec +++| SA5 A5+B1 PROCESS PACKNAME 11490 M00S09949.dmrec +++| BX6 X5 11491 M00S09950.dmrec +++| SA6 XXPACK STORE PACKNAME 11492 M00S09951.dmrec +++| SB6 B6-B1 11493 M00S09952.dmrec +++| BX6 X5 11494 M00S09953.dmrec +++| LT B6,RXJ6 IF NO MORE PARAMETERS 11495 M00S09954.dmrec +++| SA6 XXDEV STORE DEVICE 11496 M00S09955.dmrec +++| 11497 M00S09956.dmrec +++|* CHECK FOR MIPPED FILE 11498 M00S09957.dmrec +++| 11499 M00S09958.dmrec +++| RXJ6 READC XXJ,GXJA,8 11500 M00S09959.dmrec +++| ZR X1,RXJ7 IF MORE XXJ ENTRIES 11501 M00S09960.dmrec +++| SX2 B1 ONE LAST ENTRY 11502 M00S09961.dmrec +++| EQ RXJ11 RETURN 11503 M00S09962.dmrec +++| 11504 M00S09963.dmrec +++| RXJ7 SX3 3RIXN 11505 M00S09964.dmrec +++| SA5 GXJA 11506 M00S09965.dmrec +++| LX3 59-17 11507 M00S09966.dmrec +++| BX3 X3-X5 11508 M00S09967.dmrec +++| MX0 18 11509 M00S09968.dmrec +++| BX3 X0*X3 11510 M00S09969.dmrec +++| ZR X3,RXJ8 IF GOT IXN CARD 11511 M00S09970.dmrec +++| EQ RXJ9 CATCH EOF ON NEXT TURN 11512 M00S09971.dmrec +++| 11513 M00S09972.dmrec +++|* PROCESS IXN STATEMENT. 11514 M00S09973.dmrec +++| 11515 M00S09974.dmrec +++| RXJ8 SB7 GXJP FWA TO UNPACK CARD 11516 M00S09975.dmrec +++| RJ UPC UNPACK CARD 11517 M00S09976.dmrec +++| SA2 B7+B1 GET FILE NAME 11518 M00S09977.dmrec +++| SB6 B6-2 11519 M00S09978.dmrec +++| NZ X6,RXJ14 IF ERRORS IN ARGUMENTS 11520 M00S09979.dmrec +++| LT B6,RXJ15 IF NO FILE NAME ON IXN CARD 11521 M00S09980.dmrec +++| SA1 XXJ 11522 M00S09981.dmrec +++| MX6 12 MASK FOR DATA BASE 11523 M00S09982.dmrec +++| BX1 X6*X1 DATA BASE 11524 M00S09983.dmrec +++| BX3 X6*X2 DATA BASE OF IXN CARD 11525 M00S09984.dmrec +++| IX3 X3-X1
| Line S09985 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11526 M01S09985.v23l617 ---| NZ X3,RXJ11.2 IF ILLEGAL DATA BASE
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11527 M01S00069.v23l617 +++| NZ X3,RXJ11.2 IF INCORRECT DATA BASE 11528 M00S09986.dmrec +++| BX6 X2 11529 M00S09987.dmrec +++| SA5 A2+B1 PROCESS NUMBER OF ALTERNATE KEYS 11530 M00S09988.dmrec +++| SA6 XXIXN STORE INDEX FILE NAME 11531 M00S09989.dmrec +++| SB6 B6-1 11532 M00S09990.dmrec +++| LT B6,RXJ17 IF NO ALTERNATE KEYS 11533 M00S09991.dmrec +++| RJ DXB CONVERT TO BINARY
| Line S09992 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11534 M01S09992.v23l617 ---| NZ X4,RXJ18 IF ILLEGAL NUMBER
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11535 M01S00070.v23l617 +++| NZ X4,RXJ18 IF INCORRECT NUMBER 11536 M00S09993.dmrec +++| ZR X6,RXJ18 IF ZERO ALTERNATE KEYS 11537 M00S09994.dmrec +++| SA6 XXNAKY STORE NUMBER OF ALTERNATE KEYS 11538 M00S09995.dmrec +++| SA5 A5+B1 PROCESS PACKNAME 11539 M00S09996.dmrec +++| SB6 B6-B1 11540 M00S09997.dmrec +++| LT B6,RXJ9 IF NO MORE PARAMETERS 11541 M00S09998.dmrec +++| BX6 X5 11542 M00S09999.dmrec +++| SA6 XXIXP STORE PACKNAME 11543 M00S10000.dmrec +++| SA5 A5+B1 PROCESS DEVICE 11544 M00S10001.dmrec +++| SB6 B6-B1 11545 M00S10002.dmrec +++| LT B6,RXJ9 IF NO MORE PARAMETERS 11546 M00S10003.dmrec +++| BX6 X5 11547 M00S10004.dmrec +++| SA6 XXIDEV STORE DEVICE 11548 M00S10005.dmrec +++| RXJ9 MX1 0 SET NO ERRORS 11549 M00S10006.dmrec +++| EQ RXJX RETURN 11550 M00S10007.dmrec +++| 11551 M00S10008.dmrec +++| RXJ10 MX2 0 11552 M00S10009.dmrec +++| RXJ11 MX1 1 SET EOF ENCOUNTERED 11553 M00S10010.dmrec +++| EQ RXJX RETURN 11554 M00S10011.dmrec +++| 11555 M00S10012.dmrec +++| RXJ11.1 SA1 XXJ GET NAME OF *XXJ* FILE 11556 M00S10013.dmrec +++| MX0 18 11557 M00S10014.dmrec +++| BX1 X1*X0 11558 M00S10015.dmrec +++| SB2 1RZ SUBSTITUTE CHARACTER 11559 M00S10016.dmrec +++| SB5 -RXJAH 11560 M00S10017.dmrec +++| SB3 RXJAH ADDRESS OF ASSEMBLY AREA 11561 M00S10018.dmrec +++| RJ SNM SET NAME IN MESSAGE 11562 M00S10019.dmrec +++| SA1 XXPFN 11563 M00S10020.dmrec +++| MX0 -18 11564 M00S10021.dmrec +++| BX1 X1*X0 11565 M00S10022.dmrec +++| SB2 1RX SUBSTITUTE CHARACTER 11566 M00S10023.dmrec +++| SB5 -RXJAH 11567 M00S10024.dmrec +++| SB3 RXJAH ADDRESS OF ASSEMBLY AREA 11568 M00S10025.dmrec +++| RJ SNM SET NAME 11569 M00S10026.dmrec +++| EQ RXJ12 JUMP TO ERROR PROCESSING 11570 M00S10027.dmrec +++| 11571 M00S10028.dmrec +++| RXJ11.2 SA1 XXJ GET NAME OF *XXJ* FILE 11572 M00S10029.dmrec +++| MX0 18 11573 M00S10030.dmrec +++| BX1 X1*X0 11574 M00S10031.dmrec +++| SB2 1RZ SUBSTITUTE CHARACTER 11575 M00S10032.dmrec +++| SB5 -RXJEH 11576 M00S10033.dmrec +++| SB3 RXJEH ADDRESS OF ASSEMBLY AREA 11577 M00S10034.dmrec +++| RJ SNM SET NAME 11578 M00S10035.dmrec +++| EQ RXJ16 JUMP TO ERROR PROCESSING 11579 M00S10036.dmrec +++| 11580 M00S10037.dmrec +++|* ERROR PROCESSING. 11581 M00S10038.dmrec +++| 11582 M00S10039.dmrec +++| RXJ12 ERROR RXJA,XXPFN,,RXJX,,E *PF XXXXXXX - NOT ON ZZJ FILE* 11583 M00S10040.dmrec +++| 11584 M00S10041.dmrec +++| RXJ13 ERROR RXJB,,GXJA,RXJX,,E *FILE ORGANIZATION IS NOT IS DA AK 11585 M00S10042.dmrec +++|
| Line S10043 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11586 M01S10043.v23l617 ---| RXJ14 ERROR RXJC,,GXJA,RXJX,,E *ERROR IN IXN CARD ARGUMENTS*
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11587 M01S00071.v23l617 +++| RXJ14 ERROR RXJC,,GXJA,RXJX,,E *ERROR IN IXN STATEMENT ARGUMENTS* 11588 M00S10044.dmrec +++| 11589 M00S10045.dmrec +++| RXJ15 ERROR RXJD,,GXJA,RXJX,,E *NO FILE NAME SPECIFIED ON IXN* 11590 M00S10046.dmrec +++| 11591 M00S10047.dmrec +++| RXJ16 ERROR RXJE,,GXJA,RXJX,,E *DATA BASE NAME IN IXN FILE NAME* 11592 M00S10048.dmrec +++| 11593 M00S10049.dmrec +++| RXJ17 ERROR RXJF,,GXJA,RXJX,,E *NO ALTERNATE KEY SPECIFIED ON IXN 11594 M00S10050.dmrec +++| 11595 M00S10051.dmrec +++| RXJ18 ERROR RXJG,,GXJA,RXJX,,E *NAKY PARAMETER NOT ON IXN CARD* 11596 M00S10052.dmrec +++| 11597 M00S10053.dmrec +++|* ERROR MESSAGES. 11598 M00S10054.dmrec +++| 11599 M00S10055.dmrec +++| RXJA DATA 20H0 ***** 11600 M00S10056.dmrec +++| RXJAH DATA C*PF XXXXXXX - NOT ON ZZZ FILE.* 11601 M00S10057.dmrec +++| RXJAL EQU *-RXJA 11602 M00S10058.dmrec +++| RXJB DATA 20H0 ***** 11603 M00S10059.dmrec +++| DATA C*FILE ORGANIZATION IS NOT IS, DA OR AK.* 11604 M00S10060.dmrec +++| RXJBL EQU *-RXJB 11605 M00S10061.dmrec +++| RXJC DATA 20H0 *****
| Line S10062 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11606 M01S10062.v23l617 ---| DATA C*ERROR IN IXN CARD ARGUMENTS.*
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11607 M01S00072.v23l617 +++| DATA C*ERROR IN IXN STATEMENT ARGUMENTS.* 11608 M00S10063.dmrec +++| RXJCL EQU *-RXJC 11609 M00S10064.dmrec +++| RXJD DATA 20H0 ***** 11610 M00S10065.dmrec +++| DATA C*NO FILE NAME SPECIFIED ON IXN CARD.* 11611 M00S10066.dmrec +++| RXJDL EQU *-RXJD 11612 M00S10067.dmrec +++| RXJE DATA 20H0 ***** 11613 M00S10068.dmrec +++| RXJEH DATA C*DATA BASE NAME IN IXN FILE NAME DOES NOT MATCH ZZZ.* 11614 M00S10069.dmrec +++| RXJEL EQU *-RXJE 11615 M00S10070.dmrec +++| RXJF DATA 20H0 ***** 11616 M00S10071.dmrec +++| DATA C*NO ALTERNATE KEY SPECIFIED ON IXN CARD.* 11617 M00S10072.dmrec +++| RXJFL EQU *-RXJF 11618 M00S10073.dmrec +++| RXJG DATA 20H0 *****
| Line S10074 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11619 M01S10074.v23l617 ---| DATA C*NAKY PARAMETER ON IXN CARD NOT SPECIFIED PROPERLY.*
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 11620 M01S00073.v23l617 +++| DATA C*NAKY PARAMETER ON IXN STATEMENT NOT SPECIFIED PROPERL 11621 M01S00074.v23l617 +++|,Y.* 11622 M00S10075.dmrec +++| RXJGL EQU *-RXJG 11623 M00S10076.dmrec +++| SDT SPACE 4,20 11624 M00S10077.dmrec +++|** SDT - SET DATE AND TIME. 11625 M00S10078.dmrec +++|* 11626 M00S10079.dmrec +++|* CHECK AND PRESET DATE/TIME INTO CORRECT FORMATS. 11627 M00S10080.dmrec +++|* 11628 M00S10081.dmrec +++|* ENTRY (DATE) = YYMMDD OR 0. 11629 M00S10082.dmrec +++|* (TIME) = HHMMSS OR 0. 11630 M00S10083.dmrec +++|* 11631 M00S10084.dmrec +++|* EXIT (DATE) = YY/MM/DD. 11632 M00S10085.dmrec +++|* (TIME) = HH.MM.SS. 11633 M00S10086.dmrec +++|* (LSTC) = 0, LIST ALL ENTRIES. 11634 M00S10087.dmrec +++|* 1, LIST BEFORE DATE/TIME. 11635 M00S10088.dmrec +++|* 11636 M00S10089.dmrec +++|* USES X - 1, 2, 3, 7. 11637 M00S10090.dmrec +++|* A - 2, 3, 6, 7. 11638 M00S10091.dmrec +++|* B - NONE. 11639 M00S10092.dmrec +++|* 11640 M00S10093.dmrec +++|* MACROS DATE. 11641 M00S10094.dmrec +++| 11642 M00S10095.dmrec +++| 11643 M00S10096.dmrec +++| SDT SUBR ENTRY/EXIT 11644 M00S10097.dmrec +++| SA2 DATE 11645 M00S10098.dmrec +++| ZR X2,SDT1 IF NO DATE - USE TODAYS DATE 11646 M00S10099.dmrec +++| SX1 B0 SET DATE REFORMAT 11647 M00S10100.dmrec +++| RJ RDT REFORMAT DATE/TIME 11648 M00S10101.dmrec +++| SA6 DATE 11649 M00S10102.dmrec +++| SA3 TIME 11650 M00S10103.dmrec +++| NZ X3,SDT3 IF TIME SPECIFIED 11651 M00S10104.dmrec +++| SA2 MTIM MIDNIGHT TIME 11652 M00S10105.dmrec +++| BX7 X2 11653 M00S10106.dmrec +++| SA7 TIME SET TIME 11654 M00S10107.dmrec +++| EQ SDT4 SET LIST CONTROL 11655 M00S10108.dmrec +++| 11656 M00S10109.dmrec +++| SDT1 SA3 TIME 11657 M00S10110.dmrec +++| NZ X3,SDT2 IF TIME SPECIFIED 11658 M00S10111.dmrec +++| SX7 B0 11659 M00S10112.dmrec +++| SA7 LSTC LIST ALL ENTRIES 11660 M00S10113.dmrec +++| EQ SDTX RETURN 11661 M00S10114.dmrec +++| 11662 M00S10115.dmrec +++| SDT2 DATE DATE SET TODAYS DATE 11663 M00S10116.dmrec +++| SDT3 SX1 B1 SET TIME REFORMAT 11664 M00S10117.dmrec +++| RJ RDT REFORMAT DATE/TIME 11665 M00S10118.dmrec +++| SA6 TIME UNPACKED TIME 11666 M00S10119.dmrec +++| SDT4 SX7 B1 11667 M00S10120.dmrec +++| SA7 LSTC LIST BEFORE DATE/TIME 11668 M00S10121.dmrec +++| EQ SDTX RETURN 11669 M00S10122.dmrec +++| SHT SPACE 4,15 11670 M00S10123.dmrec +++|** SHT - SET HEADER TYPE. 11671 M00S10124.dmrec +++|* 11672 M00S10125.dmrec +++|* ENTRY (X3) = HEADER TYPE CODE. 11673 M00S10126.dmrec +++|* 11674 M00S10127.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 11675 M00S10128.dmrec +++|* 1, IF UNRECOGNIZABLE CODE. 11676 M00S10129.dmrec +++|* HEADER TYPE INSERTED INTO LINE BUFFER. 11677 M00S10130.dmrec +++|* 11678 M00S10131.dmrec +++|* USES X - 0, 1, 2, 4, 5, 6. 11679 M00S10132.dmrec +++|* A - 4, 5, 6. 11680 M00S10133.dmrec +++|* B - 2. 11681 M00S10134.dmrec +++|* 11682 M00S10135.dmrec +++|* MACROS ERROR. 11683 M00S10136.dmrec +++| 11684 M00S10137.dmrec +++| 11685 M00S10138.dmrec +++| SHT SUBR ENTRY/EXIT 11686 M00S10139.dmrec +++| MX0 -12 11687 M00S10140.dmrec +++| SB2 THTYL HEADER TABLE LENGTH 11688 M00S10141.dmrec +++| SA5 THTY FWA OF HEADER TABLE 11689 M00S10142.dmrec +++| SHT1 BX2 -X0*X5 HEADER CODE 11690 M00S10143.dmrec +++| BX5 X0*X5 HEADER TYPE 11691 M00S10144.dmrec +++| IX4 X2-X3 COMPARE CODES 11692 M00S10145.dmrec +++| NZ X4,SHT2 IF CODES DO NOT MATCH 11693 M00S10146.dmrec +++| SA4 PLIN+4 BEGIN INDICATOR 11694 M00S10147.dmrec +++| BX4 -X0*X4 11695 M00S10148.dmrec +++| BX6 X4+X5 HEADER TYPE AND BEGIN INDICATOR 11696 M00S10149.dmrec +++| SA6 A4 11697 M00S10150.dmrec +++| MX1 0 11698 M00S10151.dmrec +++| EQ SHTX RETURN 11699 M00S10152.dmrec +++| 11700 M00S10153.dmrec +++| SHT2 SA5 A5+B1 NEXT HEADER TABLE ENTRY 11701 M00S10154.dmrec +++| SB2 B2-B1 11702 M00S10155.dmrec +++| NE B2,B0,SHT1 IF NOT END OF TABLE 11703 M00S10156.dmrec +++| SX1 B1 11704 M00S10157.dmrec +++| 11705 M00S10158.dmrec +++| ERROR SHTA,,,SHTX,,E UNRECOGNIZABLE CODE 11706 M00S10159.dmrec +++| 11707 M00S10160.dmrec +++| SHTA DATA 20H0 ***** 11708 M00S10161.dmrec +++| DATA C*UNRECOGNIZABLE HEADER TYPE.* 11709 M00S10162.dmrec +++| SHTAL EQU *-SHTA 11710 M00S10163.dmrec +++| 11711 M00S10164.dmrec +++| 11712 M00S10165.dmrec +++|** THTY - TABLE OF HEADER TYPES. 11713 M00S10166.dmrec +++|* 11714 M00S10167.dmrec +++|*T, THTY 48/TYPE,12/CODE.
Figure THTY
11715 M00S10168.dmrec +++|* 11716 M00S10169.dmrec +++|* TYPE - HEADER TYPE. 11717 M00S10170.dmrec +++|* CODE - HEADER CODE. 11718 M00S10171.dmrec +++| 11719 M00S10172.dmrec +++| 11720 M00S10173.dmrec +++| THTY BSS 0 11721 M00S10174.dmrec +++| VFD 48/8L COMMIT,12/0 11722 M00S10175.dmrec +++| VFD 48/8L DELETE,12/TRDE 11723 M00S10176.dmrec +++| VFD 48/8L WRITE,12/TRWR 11724 M00S10177.dmrec +++| VFD 48/8LBRF DOWN,12/XLQD 11725 M00S10178.dmrec +++| VFD 48/8L REWRITE,12/TRRW 11726 M00S10179.dmrec +++| VFD 48/8L FREE,12/TRDF 11727 M00S10180.dmrec +++| VFD 48/8L CEASE,12/DMCC 11728 M00S10181.dmrec +++| THTYL EQU *-THTY 11729 M00S10182.dmrec +++| SPR SPACE 4,35 11730 M00S10183.dmrec +++|** SPR - STORE PARAMETERS FROM DIRECTIVES. 11731 M00S10184.dmrec +++|* 11732 M00S10185.dmrec +++|* *SPR* STORES PARAMETERS FROM A *DMREC* DIRECTIVE CARD. 11733 M00S10186.dmrec +++|* CAUTION - *SPR* READS AHEAD IN THE DIRECTIVE CARDS. 11734 M00S10187.dmrec +++|* 11735 M00S10188.dmrec +++|* ENTRY (A2) = ADRESS OF NEXT WORD IN STRING BUFFER. 11736 M00S10189.dmrec +++|* (X2) = NEXT WORD IN STRING BUFFER. 11737 M00S10190.dmrec +++|* (B7) = LWA+1 OF STRING BUFFER. 11738 M00S10191.dmrec +++|* (X6) = OPERATION FLAG - VALIDATES PARAMETERS. 11739 M00S10192.dmrec +++|* 11740 M00S10193.dmrec +++|* EXIT (X1) = 0 IF NO ERRORS. 11741 M00S10194.dmrec +++|* (X1) = 1 IF ERRORS ENCOUNTERED. 11742 M00S10195.dmrec +++|* (B5) = NUMBER OF ENTRIES IN *TDFN* TABLE. 11743 M00S10196.dmrec +++|* (NUMV) = NUMBER OF ENTRIES IN *TVSN* TABLE. 11744 M00S10197.dmrec +++|* (TVSN) = TABLE OF VSN S FROM DIRECTIVE. 11745 M00S10198.dmrec +++|* (DATE) = CURRENT DATE FROM DIRECTIVE CARD. 11746 M00S10199.dmrec +++|* (TIME) = CURRENT TIME FROM DIRECTIVE CARD. 11747 M00S10200.dmrec +++|* (TDFN) = TABLE OF FILE NAMES FROM DIRECTIVE CARD. 11748 M00S10201.dmrec +++|* (TVSN) = VSN OF FIRST VSN PARAMETER STRING. 11749 M00S10202.dmrec +++|* (TN) = TASK NAME. 11750 M00S10203.dmrec +++|* (TS) = TASK SEQUENCE NUMBER. 11751 M00S10204.dmrec +++|* (LENGTH) = LENGTH OF FILE. 11752 M00S10205.dmrec +++|* (PERCENT) = EXPANSION PERCENTAGE. 11753 M00S10206.dmrec +++|* (CYCL) = CYCLE NUMBER. 11754 M00S10207.dmrec +++|* (DBNAME) = DATA BASE NAME. 11755 M00S10208.dmrec +++|* 11756 M00S10209.dmrec +++|* SCANNING STOPS IF EITHER THE BUFFER IS EXHAUSTED OR A 11757 M00S10210.dmrec +++|* TERMINATOR ENCOUNTERED. 11758 M00S10211.dmrec +++|* 11759 M00S10212.dmrec +++|* USES X - ALL. 11760 M00S10213.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 11761 M00S10214.dmrec +++|* B - 2, 4, 5, 6. 11762 M00S10215.dmrec +++|* 11763 M00S10216.dmrec +++|* CALLS CTD, GPR, RDD. 11764 M00S10217.dmrec +++|* 11765 M00S10218.dmrec +++|* MACROS ERROR. 11766 M00S10219.dmrec +++| 11767 M00S10220.dmrec +++| 11768 M00S10221.dmrec +++| SPR SUBR ENTRY/EXIT 11769 M00S10222.dmrec +++| SA6 OPFLG SAVE OPERATION FLAG 11770 M00S10223.dmrec +++| SB5 B0 11771 M00S10224.dmrec +++| MX6 0 11772 M00S10225.dmrec +++| BX7 X7-X7 11773 M00S10226.dmrec +++| SA6 NUMV 11774 M00S10227.dmrec +++| SA7 TVSN CLEAR PREVIOUS ENTRIES 11775 M00S10228.dmrec +++| SA6 DATE 11776 M00S10229.dmrec +++| SA7 TIME 11777 M00S10230.dmrec +++| SA6 DATE1 11778 M00S10231.dmrec +++| SA7 TIME1 11779 M00S10232.dmrec +++| SA6 TN 11780 M00S10233.dmrec +++| SA7 TS 11781 M00S10234.dmrec +++| SA6 LENGTH 11782 M00S10235.dmrec +++| SA7 PERCENT 11783 M00S10236.dmrec +++| SA7 CYCL
| Line S10237 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 11784 M01S10237.ns2023 ---| SA6 QRFFLG ASSUME NOT *QRF* DUMP
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 11785 M01S00173.ns2023 +++| SA6 BRFFLG ASSUME NOT *BRF* DUMP 11786 M00S10238.dmrec +++| MX7 1
| Line S10239 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 11787 M01S10239.ns2023 ---| SA7 DMPFLG ASSUME NOT *LRF* DUMP
| Line S00174 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 11788 M01S00174.ns2023 +++| SA7 DMPFLG ASSUME NOT *ARF* DUMP 11789 M00S10240.dmrec +++| SX7 2 11790 M00S10241.dmrec +++| SA7 ALCB INITIAL PAGE COUNT 11791 M00S10242.dmrec +++| SX7 3 11792 M00S10243.dmrec +++| SA7 ALCA INITIAL LINE COUNT 11793 M00S10244.dmrec +++| SPR1 RJ GPR GET NEXT PARAMETER 11794 M00S10245.dmrec +++| GT B2,SPR38 IF ERROR 11795 M00S10246.dmrec +++| NZ B2,SPR31 IF END OF BUFFER 11796 M00S10247.dmrec +++| SX3 X5-1R/ 11797 M00S10248.dmrec +++| NZ X3,SPR9 IF NO */* DELIMITER 11798 M00S10249.dmrec +++| SA3 OPFLG 11799 M00S10250.dmrec +++| LX3 59-TDMFS 11800 M00S10251.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 11801 M00S10252.dmrec +++| MX0 42 11802 M00S10253.dmrec +++| BX6 X5*X0 11803 M00S10254.dmrec +++| RJ GPR GET PARAMETER 11804 M00S10255.dmrec +++| GT B2,SPR38 IF ERROR 11805 M00S10256.dmrec +++| MX0 42 11806 M00S10257.dmrec +++| BX3 -X0*X5 11807 M00S10258.dmrec +++| NZ X3,SPR39 IF BAD DELIMITER 11808 M00S10259.dmrec +++| BX5 X0*X5 11809 M00S10260.dmrec +++| SA3 SPRA BLOCK 11810 M00S10261.dmrec +++| SA4 SPRB RECORD 11811 M00S10262.dmrec +++| BX3 X5-X3 11812 M00S10263.dmrec +++| BX4 X5-X4 11813 M00S10264.dmrec +++| NZ X3,SPR4 IF NOT *BLOCK* 11814 M00S10265.dmrec +++| SX3 1RB 11815 M00S10266.dmrec +++| LX3 12 11816 M00S10267.dmrec +++| BX6 X6+X3 11817 M00S10268.dmrec +++| EQ SPR5 GO STORE VALUE 11818 M00S10269.dmrec +++| 11819 M00S10270.dmrec +++| SPR4 NZ X4,SPR36 IF NOT *RECORD* 11820 M00S10271.dmrec +++| SX4 1RR 11821 M00S10272.dmrec +++| LX4 12 11822 M00S10273.dmrec +++| BX6 X6+X4 11823 M00S10274.dmrec +++| 11824 M00S10275.dmrec +++|* JUST SAVED FILE NAME. 11825 M00S10276.dmrec +++| 11826 M00S10277.dmrec +++| SPR5 MX0 12 GET DATA BASE NAME 11827 M00S10278.dmrec +++| SX4 2RZZ 11828 M00S10279.dmrec +++| BX7 X0*X6 11829 M00S10280.dmrec +++| LX4 48 11830 M00S10281.dmrec +++| IX4 X7-X4 11831 M00S10282.dmrec +++| NZ X4,SPR5.1 IF NOT *ARF* OR *BRF* 11832 M00S10283.dmrec +++| LX0 -12 11833 M00S10284.dmrec +++| BX7 X0*X6 11834 M00S10285.dmrec +++| LX7 12 11835 M00S10286.dmrec +++| SPR5.1 SA7 DBNAME SAVE DATA BASE NAME FOR *TT* OPTION 11836 M00S10287.dmrec +++| MX0 42 11837 M00S10288.dmrec +++| SB6 B0-2 11838 M00S10289.dmrec +++| SB4 B5-2 11839 M00S10290.dmrec +++| SPR6 SB6 B6+2 11840 M00S10291.dmrec +++| EQ B5,B0,SPR7 IF FIRST FILE NAME 11841 M00S10292.dmrec +++| SA3 TDFN+B6 11842 M00S10293.dmrec +++| BX4 X0*X3 11843 M00S10294.dmrec +++| BX3 X0*X6 11844 M00S10295.dmrec +++| BX3 X4-X3 11845 M00S10296.dmrec +++| ZR X3,SPR42 IF DUPLICATE FILE NAME 11846 M00S10297.dmrec +++| NE B6,B4,SPR6 IF MORE ENTRIES TO CHECK 11847 M00S10298.dmrec +++| SPR7 SA6 TDFN+B5 11848 M00S10299.dmrec +++| MX6 0 11849 M00S10300.dmrec +++| SA6 A6+B1 ZERO INDEX NAME 11850 M00S10301.dmrec +++| SB5 B5+2 INCREASE TABLE ENTRY 11851 M00S10302.dmrec +++| SB6 TDFNL 11852 M00S10303.dmrec +++| GT B5,B6,SPR37 IF TOO MANY FILES 11853 M00S10304.dmrec +++| NG X1,SPR34 IF ANOTHER ENTRY 11854 M00S10305.dmrec +++| EQ SPR1 LOOP FOR NEXT PARAMETER 11855 M00S10306.dmrec +++| 11856 M00S10307.dmrec +++| SPR9 SX3 X5-1R= 11857 M00S10308.dmrec +++| ZR X3,SPR10 IF *=* DELIMITER 11858 M00S10309.dmrec +++| BX6 X5 11859 M00S10310.dmrec +++| EQ SPR5 GO STORE VALUE 11860 M00S10311.dmrec +++| 11861 M00S10312.dmrec +++| SPR10 BX6 X5 SAVE DIRECTIVE 11862 M00S10313.dmrec +++| RJ GPR GET PARAMETER 11863 M00S10314.dmrec +++| GT B2,SPR38 IF ERROR 11864 M00S10315.dmrec +++| MX0 42 11865 M00S10316.dmrec +++| BX6 X0*X6 11866 M00S10317.dmrec +++| SA1 SPRC 11867 M00S10318.dmrec +++| SA3 SPRD TIME 11868 M00S10319.dmrec +++| SA4 SPRE VSN 11869 M00S10320.dmrec +++| BX1 X6-X1 11870 M00S10321.dmrec +++| BX3 X6-X3 11871 M00S10322.dmrec +++| BX4 X6-X4 11872 M00S10323.dmrec +++| NZ X1,SPR14 IF NOT *DATE* 11873 M00S10324.dmrec +++| SA3 OPFLG 11874 M00S10325.dmrec +++| LX3 59-TDMDS 11875 M00S10326.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 11876 M00S10327.dmrec +++| SA3 DATE 11877 M00S10328.dmrec +++| NZ X3,SPR42 IF *DATE* ALREADY SET 11878 M00S10329.dmrec +++| SA3 DATE1 11879 M00S10330.dmrec +++| NZ X3,SPR42 IF *DATE1* ALREADY SET 11880 M00S10331.dmrec +++| BX6 X0*X5 11881 M00S10332.dmrec +++| SA6 DATE STORE DATE PARAMETER 11882 M00S10333.dmrec +++| SX1 X5-1R/ 11883 M00S10334.dmrec +++| NZ X1,SPR16 IF NO END DATE 11884 M00S10335.dmrec +++| RJ GPR GET PARAMETER 11885 M00S10336.dmrec +++| GT B2,SPR43 IF ERROR 11886 M00S10337.dmrec +++| BX6 X0*X5 11887 M00S10338.dmrec +++| SA6 DATE1 SAVE END DATE 11888 M00S10339.dmrec +++| EQ SPR16 CONTINUE 11889 M00S10340.dmrec +++| 11890 M00S10341.dmrec +++| SPR14 NZ X3,SPR17 IF NOT *TIME* 11891 M00S10342.dmrec +++| SA3 OPFLG 11892 M00S10343.dmrec +++| LX3 59-TDMCS 11893 M00S10344.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 11894 M00S10345.dmrec +++| SA3 TIME 11895 M00S10346.dmrec +++| NZ X3,SPR42 IF *TIME* ALREADY SET 11896 M00S10347.dmrec +++| SA3 TIME1 11897 M00S10348.dmrec +++| NZ X3,SPR42 IF *TIME1* ALREADY SET 11898 M00S10349.dmrec +++| BX6 X0*X5 11899 M00S10350.dmrec +++| SA6 TIME STORE TIME 11900 M00S10351.dmrec +++| SX1 X5-1R/ 11901 M00S10352.dmrec +++| NZ X1,SPR16 IF NO END TIME 11902 M00S10353.dmrec +++| RJ GPR GET PARAMETER 11903 M00S10354.dmrec +++| GT B2,SPR43 IF ERROR 11904 M00S10355.dmrec +++| BX6 X0*X5 11905 M00S10356.dmrec +++| SA6 TIME1 11906 M00S10357.dmrec +++| SPR16 NG B2,SPR34 IF END OF DIRECTIVE 11907 M00S10358.dmrec +++| EQ SPR1 LOOP FOR NEXT PARAMETER 11908 M00S10359.dmrec +++| 11909 M00S10360.dmrec +++| SPR17 NZ X4,SPR23 IF NOT *VSN* 11910 M00S10361.dmrec +++| SA3 OPFLG 11911 M00S10362.dmrec +++| LX3 59-TDMES 11912 M00S10363.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 11913 M00S10364.dmrec +++| SA3 TVSN 11914 M00S10365.dmrec +++| NZ X3,SPR42 IF *VSN* ALREADY SET 11915 M00S10366.dmrec +++| MX1 6 11916 M00S10367.dmrec +++| LX1 24 MASK FOR 7TH CHARACTER 11917 M00S10368.dmrec +++| BX1 X1*X5 11918 M00S10369.dmrec +++| NZ X1,SPR38 IF TOO MANY CHARACTERS 11919 M00S10370.dmrec +++| SPR18 BX1 X0*X5 11920 M00S10371.dmrec +++| RJ SFN SPACE FILL 11921 M00S10372.dmrec +++| MX1 36 11922 M00S10373.dmrec +++| BX6 X1*X6 11923 M00S10374.dmrec +++| SA1 NUMV INDEX TO TVSN 11924 M00S10375.dmrec +++| ZR X1,SPR20 IF FIRST VSN - NO CONFLICTING FN 11925 M00S10376.dmrec +++| SB6 B0-B1 11926 M00S10377.dmrec +++| SB2 X1-1 11927 M00S10378.dmrec +++| SPR19 SB6 B6+B1 11928 M00S10379.dmrec +++| SA3 TVSN+B6 CHECK THIS FN 11929 M00S10380.dmrec +++| BX4 X0*X3 11930 M00S10381.dmrec +++| BX3 X4-X6 11931 M00S10382.dmrec +++| ZR X3,SPR42 IF DUPLICATE VSN 11932 M00S10383.dmrec +++| NE B6,B2,SPR19 IF MORE TO CHECK 11933 M00S10384.dmrec +++| SPR20 SB6 TVSNL-1 11934 M00S10385.dmrec +++| SX1 X5-1R/ 11935 M00S10386.dmrec +++| ZR X1,SPR21 IF */* 11936 M00S10387.dmrec +++| SX3 B2 11937 M00S10388.dmrec +++| LX3 59 11938 M00S10389.dmrec +++| EQ SPR22 GET LAST VSN 11939 M00S10390.dmrec +++| 11940 M00S10391.dmrec +++| SPR21 SA5 NUMV 11941 M00S10392.dmrec +++| SB4 X5 11942 M00S10393.dmrec +++| GE B4,B6,SPR37 IF ERROR 11943 M00S10394.dmrec +++| SA6 TVSN+B4 11944 M00S10395.dmrec +++| SX6 X5+1 11945 M00S10396.dmrec +++| SA6 A5 11946 M00S10397.dmrec +++| RJ GPR GET PARAMETER 11947 M00S10398.dmrec +++| GT B2,SPR43 IF ERROR 11948 M00S10399.dmrec +++| EQ SPR18 LOOP 11949 M00S10400.dmrec +++| 11950 M00S10401.dmrec +++| SPR22 SA5 NUMV 11951 M00S10402.dmrec +++| SB4 X5 11952 M00S10403.dmrec +++| SA6 TVSN+B4 11953 M00S10404.dmrec +++| SX6 X5+1 11954 M00S10405.dmrec +++| SA6 A5 11955 M00S10406.dmrec +++| EQ SPR1 CONTINUE 11956 M00S10407.dmrec +++| 11957 M00S10408.dmrec +++| SPR23 SA1 SPRN TN 11958 M00S10409.dmrec +++| SA3 SPRO TS 11959 M00S10410.dmrec +++| SA4 SPRP LENGTH 11960 M00S10411.dmrec +++| BX1 X6-X1 11961 M00S10412.dmrec +++| BX3 X6-X3 11962 M00S10413.dmrec +++| BX4 X6-X4 11963 M00S10414.dmrec +++| NZ X1,SPR27 IF NOT *TN* 11964 M00S10415.dmrec +++| SA3 OPFLG 11965 M00S10416.dmrec +++| LX3 59-TDMGS 11966 M00S10417.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 11967 M00S10418.dmrec +++| SA3 TN 11968 M00S10419.dmrec +++| NZ X3,SPR42 IF TN ALREADY SET 11969 M00S10420.dmrec +++| SX7 TN SAVE ADDRESS FOR TN REPEAT CHECK 11970 M00S10421.dmrec +++| SX6 2RTN 11971 M00S10422.dmrec +++| SA6 TEMPP SAVE TYPE - TN/TS 11972 M00S10423.dmrec +++| SPR24 SA4 TEMPP GET TYPE 11973 M00S10424.dmrec +++| MX1 48 11974 M00S10425.dmrec +++| BX6 X1*X5 11975 M00S10426.dmrec +++| ZR X6,SPR39 IF ERROR 11976 M00S10427.dmrec +++| SX1 X5-1R/ 11977 M00S10428.dmrec +++| ZR X1,SPR25 IF MORE PARAMETERS 11978 M00S10429.dmrec +++| SA3 ITIT 11979 M00S10430.dmrec +++| BX6 X6+X4 INCLUDE ID 11980 M00S10431.dmrec +++| SA6 X3 STORE ENTRY 11981 M00S10432.dmrec +++| SA6 X7 SET TN/TS NON ZERO FOR REPEAT CHECK 11982 M00S10433.dmrec +++| SX6 B0 11983 M00S10434.dmrec +++| SA6 X3+1 ZERO BID 11984 M00S10435.dmrec +++| SA6 X3+2 END LIST 11985 M00S10436.dmrec +++| SX6 X3+2 11986 M00S10437.dmrec +++| SA6 A3 INCREMENT ITIT 11987 M00S10438.dmrec +++| EQ SPR16 CHECK EOB 11988 M00S10439.dmrec +++| 11989 M00S10440.dmrec +++| SPR25 SX1 TTIG+TTIGL-1 11990 M00S10441.dmrec +++| SA3 ITIT 11991 M00S10442.dmrec +++| IX1 X1-X3 11992 M00S10443.dmrec +++| ZR X1,SPR40 IF ERROR ( EXCEEDED LIMIT ) 11993 M00S10444.dmrec +++| BX6 X6+X4 INCLUDE ID 11994 M00S10445.dmrec +++| SA6 X3 11995 M00S10446.dmrec +++| SX6 B0 11996 M00S10447.dmrec +++| SA6 A6+B1 ZERO BID 11997 M00S10448.dmrec +++| SX6 X3+2 11998 M00S10449.dmrec +++| SA6 A3 INCREMENT ITIT 11999 M00S10450.dmrec +++| RJ GPR GET PARAMETER 12000 M00S10451.dmrec +++| GT B2,SPR38 IF ERROR 12001 M00S10452.dmrec +++| EQ SPR24 SAVE LAST ENTRY 12002 M00S10453.dmrec +++| 12003 M00S10454.dmrec +++| 12004 M00S10455.dmrec +++| SPR27 NZ X3,SPR28 IF NOT *TS* 12005 M00S10456.dmrec +++| SA3 OPFLG 12006 M00S10457.dmrec +++| LX3 59-TDMHS 12007 M00S10458.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 12008 M00S10459.dmrec +++| SA3 TS 12009 M00S10460.dmrec +++| NZ X3,SPR42 IF TS ALREADY SET 12010 M00S10461.dmrec +++| SX7 TS ADDRESS FOR TS REPEAT CHECK 12011 M00S10462.dmrec +++| SX6 2RTS 12012 M00S10463.dmrec +++| SA6 TEMPP SAVE TYPE - TN/TS 12013 M00S10464.dmrec +++| EQ SPR24 STORE TS PARAMETERS 12014 M00S10465.dmrec +++| 12015 M00S10466.dmrec +++| SPR28 NZ X4,SPR29 IF NOT *LENGTH* 12016 M00S10467.dmrec +++| SA3 OPFLG 12017 M00S10468.dmrec +++| LX3 59-TDMIS 12018 M00S10469.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 12019 M00S10470.dmrec +++| SA3 LENGTH 12020 M00S10471.dmrec +++| NZ X3,SPR42 IF LENGTH ALREADY SET 12021 M00S10472.dmrec +++| BX6 X5 12022 M00S10473.dmrec +++| SA6 LENGTH 12023 M00S10474.dmrec +++| EQ SPR16 LOOP 12024 M00S10475.dmrec +++| 12025 M00S10476.dmrec +++| SPR29 SA1 SPRQ 12026 M00S10477.dmrec +++| BX1 X6-X1 12027 M00S10478.dmrec +++| NZ X1,SPR30 IF NOT *PERCENT* 12028 M00S10479.dmrec +++| SA3 OPFLG 12029 M00S10480.dmrec +++| LX3 59-TDMJS 12030 M00S10481.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 12031 M00S10482.dmrec +++| SA3 PERCENT 12032 M00S10483.dmrec +++| NZ X3,SPR42 IF ALREADY SET 12033 M00S10484.dmrec +++| BX6 X5 12034 M00S10485.dmrec +++| SA6 PERCENT 12035 M00S10486.dmrec +++| EQ SPR16 LOOP 12036 M00S10487.dmrec +++| 12037 M00S10488.dmrec +++| SPR30 SA1 SPRR 12038 M00S10489.dmrec +++| BX1 X6-X1
| Line S10490 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12039 M01S10490.v23l617 ---| NZ X1,SPR41 IF ILLEGAL KEYWORD
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12040 M01S00075.v23l617 +++| NZ X1,SPR41 IF INCORRECT KEYWORD 12041 M00S10491.dmrec +++| SA3 OPFLG 12042 M00S10492.dmrec +++| LX3 59-TDMKS 12043 M00S10493.dmrec +++| PL X3,SPR44 IF PARAMETER NOT VALID 12044 M00S10494.dmrec +++| SA3 CYCL 12045 M00S10495.dmrec +++| NZ X3,SPR42 IF ALREADY SET 12046 M00S10496.dmrec +++| BX6 X5 12047 M00S10497.dmrec +++| SA6 A3 SET CYCLE 12048 M00S10498.dmrec +++| EQ SPR16 LOOP 12049 M00S10499.dmrec +++| 12050 M00S10500.dmrec +++| 12051 M00S10501.dmrec +++|* END OF BUFFER DETECTED. 12052 M00S10502.dmrec +++| 12053 M00S10503.dmrec +++| SPR31 MX0 42 12054 M00S10504.dmrec +++| BX1 X0*X5 12055 M00S10505.dmrec +++| ZR X1,SPR34 IF EOB 12056 M00S10506.dmrec +++| SB6 B0-2 12057 M00S10507.dmrec +++| SB4 B5-2 12058 M00S10508.dmrec +++| SPR32 SB6 B6+2 12059 M00S10509.dmrec +++| EQ B5,B0,SPR33 IF NONE 12060 M00S10510.dmrec +++| SA3 TDFN+B6 12061 M00S10511.dmrec +++| BX4 X0*X3 12062 M00S10512.dmrec +++| BX3 X4-X1 12063 M00S10513.dmrec +++| ZR X3,SPR42 IF DUPLICATE FN 12064 M00S10514.dmrec +++| NE B6,B4,SPR32 IF MORE ENTRIES 12065 M00S10515.dmrec +++| SPR33 MX0 12 12066 M00S10516.dmrec +++| SX6 2RZZ 12067 M00S10517.dmrec +++| BX7 X0*X5 12068 M00S10518.dmrec +++| LX6 48 12069 M00S10519.dmrec +++| IX6 X7-X6 12070 M00S10520.dmrec +++| NZ X6,SPR33.1 IF NOT *ARF* OR *BRF* 12071 M00S10521.dmrec +++| LX0 -12 12072 M00S10522.dmrec +++| BX7 X0*X5 12073 M00S10523.dmrec +++| LX7 12 12074 M00S10524.dmrec +++| SPR33.1 SA7 DBNAME SAVE DATA BASE NAME FOR *TT* OPTION 12075 M00S10525.dmrec +++| BX6 X1 12076 M00S10526.dmrec +++| SA6 TDFN+B5 12077 M00S10527.dmrec +++| MX6 0 12078 M00S10528.dmrec +++| SA6 A6+B1 ZERO INDEX NAME 12079 M00S10529.dmrec +++| SB5 B5+2 12080 M00S10530.dmrec +++| SPR34 SX6 B5 12081 M00S10531.dmrec +++| SA6 TEMPP 12082 M00S10532.dmrec +++| RJ CTD CHECK TIME/DATE 12083 M00S10533.dmrec +++| NZ X1,SPR45 IF ERROR 12084 M00S10534.dmrec +++| RJ RDD READ DIRECTIVE 12085 M00S10535.dmrec +++| SA3 TEMPP 12086 M00S10536.dmrec +++| SB5 X3 12087 M00S10537.dmrec +++| NZ X1,SPR35 IF EOF ENCOUNTERED 12088 M00S10538.dmrec +++| SA2 DIR 12089 M00S10539.dmrec +++| SX3 X2-1R* 12090 M00S10540.dmrec +++| NZ X3,SPR1 IF NOT CONTINUATION CARD 12091 M00S10541.dmrec +++| SPR35 MX1 0 SET NO ERRORS 12092 M00S10542.dmrec +++| BX6 X1 SET END OF BUFFER 12093 M00S10543.dmrec +++| SA6 TDFN+B5 12094 M00S10544.dmrec +++| SA3 NUMV 12095 M00S10545.dmrec +++| SB6 X3 12096 M00S10546.dmrec +++| SA6 TVSN+B6 12097 M00S10547.dmrec +++| EQ SPRX RETURN 12098 M00S10548.dmrec +++| 12099 M00S10549.dmrec +++| SPR36 ERROR SPRG,,,DMR3,R,E ONLY *BLOCK* OR *RECORD* MODE ALLOWED 12100 M00S10550.dmrec +++| 12101 M00S10551.dmrec +++| SPR37 ERROR SPRH,,,DMR3,R,E TOO MANY FILE NAMES OR VSN-S 12102 M00S10552.dmrec +++| 12103 M00S10553.dmrec +++| SPR38 ERROR SPRF,,,DMR3,R,E PARAMETER FORMAT ERROR 12104 M00S10554.dmrec +++| 12105 M00S10555.dmrec +++| SPR39 ERROR SPRI,,,DMR3,R,E DELIMITER WAS NOT RECOGNIZED 12106 M00S10556.dmrec +++| 12107 M00S10557.dmrec +++| SPR40 ERROR BRTF,,,DMR3,R,E IGNORE TABLE OVERFLOW 12108 M00S10558.dmrec +++| 12109 M00S10559.dmrec +++| SPR41 ERROR SPRJ,,,DMR3,R,E DIRECTIVE KEYWORD NOT VALID 12110 M00S10560.dmrec +++| 12111 M00S10561.dmrec +++| SPR42 ERROR SPRK,,,DMR3,R,E DUPLICATE PARAMETER 12112 M00S10562.dmrec +++| 12113 M00S10563.dmrec +++| SPR43 ERROR SPRL,,,DMR3,R,E INCOMPLETE PARAMETER 12114 M00S10564.dmrec +++|
| Line S10565 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12115 M01S10565.v23l617 ---| SPR44 ERROR SPRM,,,DMR3,R,E KEYWORD IS ILLEGAL FOR THIS FUNCTION
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12116 M01S00076.v23l617 +++| SPR44 ERROR SPRM,,,DMR3,R,E KEYWORD IS INCORRECT FOR FUNCTION 12117 M00S10566.dmrec +++|
| Line S10567 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12118 M01S10567.v23l617 ---| SPR45 ERROR SPRS,,,DMR3,R,E DIRECTIVE CONTAINS AN ILLEGAL DATE
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12119 M01S00077.v23l617 +++| SPR45 ERROR SPRS,,,DMR3,R,E DIRECTIVE CONTAINS AN INCORRECT DATE 12120 M00S10568.dmrec +++| 12121 M00S10569.dmrec +++| 12122 M00S10570.dmrec +++| SPRA DATA 0LBLOCK 12123 M00S10571.dmrec +++| SPRB DATA 0LRECORD 12124 M00S10572.dmrec +++| SPRC DATA 0LDATE 12125 M00S10573.dmrec +++| SPRD DATA 0LTIME 12126 M00S10574.dmrec +++| SPRE DATA 0LVSN 12127 M00S10575.dmrec +++| SPRN DATA 0LTN 12128 M00S10576.dmrec +++| SPRO DATA 0LTS 12129 M00S10577.dmrec +++| SPRP DATA 0LLENGTH 12130 M00S10578.dmrec +++| SPRQ DATA 0LPERCENT 12131 M00S10579.dmrec +++| SPRR DATA 0LCYCL 12132 M00S10580.dmrec +++| 12133 M00S10581.dmrec +++|* ERROR MESSAGES. 12134 M00S10582.dmrec +++| 12135 M00S10583.dmrec +++| SPRF DATA 20H0 ***** 12136 M00S10584.dmrec +++| DATA C*PARAMETER FORMAT ERROR.* 12137 M00S10585.dmrec +++| SPRFL EQU *-SPRF 12138 M00S10586.dmrec +++| SPRG DATA 20H0 ***** 12139 M00S10587.dmrec +++| DATA C/ONLY *BLOCK* OR *RECORD* CAN FOLLOW FILE NAME./ 12140 M00S10588.dmrec +++| SPRGL EQU *-SPRG 12141 M00S10589.dmrec +++| SPRH DATA 20H0 ***** 12142 M00S10590.dmrec +++| DATA C*TOO MANY FILE NAMES OR VSN-S SPECIFIED.* 12143 M00S10591.dmrec +++| SPRHL EQU *-SPRH 12144 M00S10592.dmrec +++| SPRI DATA 20H0 ***** 12145 M00S10593.dmrec +++| DATA C*DELIMITER WAS NOT RECOGNIZED.* 12146 M00S10594.dmrec +++| SPRIL EQU *-SPRI 12147 M00S10595.dmrec +++| SPRJ DATA 20H0 ***** 12148 M00S10596.dmrec +++| DATA C*DIRECTIVE KEYWORD NOT VALID.* 12149 M00S10597.dmrec +++| SPRJL EQU *-SPRJ 12150 M00S10598.dmrec +++| SPRK DATA 20H0 ***** 12151 M00S10599.dmrec +++| DATA C*DUPLICATE PARAMETER.* 12152 M00S10600.dmrec +++| SPRKL EQU *-SPRK 12153 M00S10601.dmrec +++| SPRL DATA 20H0 ***** 12154 M00S10602.dmrec +++| DATA C*INCOMPLETE PARAMETER.* 12155 M00S10603.dmrec +++| SPRLL EQU *-SPRL 12156 M00S10604.dmrec +++| SPRM DATA 20H0 *****
| Line S10605 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12157 M01S10605.v23l617 ---| DATA C*KEYWORD IS ILLEGAL FOR THIS FUNCTION.*
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12158 M01S00078.v23l617 +++| DATA C*KEYWORD IS INCORRECT FOR THIS FUNCTION.* 12159 M00S10606.dmrec +++| SPRML EQU *-SPRM 12160 M00S10607.dmrec +++| SPRS DATA 20H0 *****
| Line S10608 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12161 M01S10608.v23l617 ---| DATA C*DIRECTIVE CONTAINS AN ILLEGAL DATE/TIME.*
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 12162 M01S00079.v23l617 +++| DATA C*DIRECTIVE CONTAINS AN INCORRECT DATE/TIME.* 12163 M00S10609.dmrec +++| SPRSL EQU *-SPRS 12164 M00S10610.dmrec +++| STL SPACE 4,20 12165 M00S10611.dmrec +++|** STL - SET TITLE LINE FOR OUTPUT PAGE. 12166 M00S10612.dmrec +++|* 12167 M00S10613.dmrec +++|* *STL* WRITES THE TITLE LINE ONTO THE OUTPUT FILE, AND ADJUSTS 12168 M00S10614.dmrec +++|* THE LINE COUNT ACCORDINGLY. 12169 M00S10615.dmrec +++|* 12170 M00S10616.dmrec +++|* ENTRY - JOBORG = 0 IF INTERACTIVE ORIGIN. 12171 M00S10617.dmrec +++|* 12172 M00S10618.dmrec +++|* EXIT - TITLE LINE WRITTEN TO OUTPUT. 12173 M00S10619.dmrec +++|* 12174 M00S10620.dmrec +++|* USES X - 1, 2, 3, 6, 7. 12175 M00S10621.dmrec +++|* A - 1, 2, 6, 7. 12176 M00S10622.dmrec +++|* B - NONE. 12177 M00S10623.dmrec +++|* 12178 M00S10624.dmrec +++|* MACROS WRITEW. 12179 M00S10625.dmrec +++|* 12180 M00S10626.dmrec +++|* CALLS LPH. 12181 M00S10627.dmrec +++| 12182 M00S10628.dmrec +++| 12183 M00S10629.dmrec +++| STL SUBR ENTRY/EXIT 12184 M00S10630.dmrec +++| SX3 STLAL 12185 M00S10631.dmrec +++| SA1 JOBORG 12186 M00S10632.dmrec +++| SA2 STLB BATCH 12187 M00S10633.dmrec +++| NZ X1,STL1 IF NOT INTERACTIVE ORIGIN 12188 M00S10634.dmrec +++| SA2 STLC INTERACTIVE 12189 M00S10635.dmrec +++| SA1 BLINE 12190 M00S10636.dmrec +++| BX6 X1 12191 M00S10637.dmrec +++| SA6 STLAB 12192 M00S10638.dmrec +++| SX3 STLAL-7 12193 M00S10639.dmrec +++| STL1 BX6 X2 12194 M00S10640.dmrec +++| SA6 STLA 12195 M00S10641.dmrec +++| WRITEW O,STLA,X3 12196 M00S10642.dmrec +++| SX7 3 12197 M00S10643.dmrec +++| SA7 ALCA SET LINE COUNT 12198 M00S10644.dmrec +++| SA1 LHDR LAST HEADER 12199 M00S10645.dmrec +++| ZR X1,STLX IF NONE REQUIRED 12200 M00S10646.dmrec +++| SX6 X1 12201 M00S10647.dmrec +++| RJ LPH LIST PAGE HEADER 12202 M00S10648.dmrec +++| EQ STLX RETURN 12203 M00S10649.dmrec +++| 12204 M00S10650.dmrec +++| STLA CON 10H1 DMREC 12205 M00S10651.dmrec +++| CON 10H- TAF/CRM 12206 M00S10652.dmrec +++| CON 10HBATCH RECO 12207 M00S10653.dmrec +++| CON 10HVERY PROGR 12208 M00S10654.dmrec +++| CON 10HAM. 12209 M00S10655.dmrec +++| STLAB DATA 20H 12210 M00S10656.dmrec +++| STLAT DATA 10H 12211 M00S10657.dmrec +++| STDATE DATA 10H BEGIN DATE 12212 M00S10658.dmrec +++| STTIME DATA 10H BEGIN TIME 12213 M00S10659.dmrec +++| STLAP CON 10H PAGE 1 12214 M00S10660.dmrec +++| BLINE CON 8L 12215 M00S10661.dmrec +++| CON 8L 12216 M00S10662.dmrec +++| STLAL EQU *-STLA 12217 M00S10663.dmrec +++| 12218 M00S10664.dmrec +++| STLB CON 10H1 DMREC 12219 M00S10665.dmrec +++| STLC CON 10H DMREC 12220 M00S10666.dmrec +++| SVK SPACE 4,10 12221 M00S10667.dmrec +++|** SVK - SET VSN KEY. 12222 M00S10668.dmrec +++|* 12223 M00S10669.dmrec +++|* ENTRY (X1) = VSN NUMBER. 12224 M00S10670.dmrec +++|* 12225 M00S10671.dmrec +++|* EXIT (VKY1) = FIRST WORD OF KEY. 12226 M00S10672.dmrec +++|* (VKY2) = SECOND WORD OF KEY. 12227 M00S10673.dmrec +++|* 12228 M00S10674.dmrec +++|* USES X - 0, 1, 2, 3, 6, 7. 12229 M00S10675.dmrec +++|* A - 2, 6, 7. 12230 M00S10676.dmrec +++|* B - NONE. 12231 M00S10677.dmrec +++| 12232 M00S10678.dmrec +++| 12233 M00S10679.dmrec +++| SVK SUBR ENTRY/EXIT 12234 M00S10680.dmrec +++| MX0 36 12235 M00S10681.dmrec +++| BX1 X0*X1 12236 M00S10682.dmrec +++| LX1 35-59 12237 M00S10683.dmrec +++| SA2 VSNK ALL ASTERISKS 12238 M00S10684.dmrec +++| MX0 24 12239 M00S10685.dmrec +++| BX3 X0*X2 12240 M00S10686.dmrec +++| BX6 X1+X3 12241 M00S10687.dmrec +++| SA6 VKY1 WORD ONE OF KEY 12242 M00S10688.dmrec +++| BX7 X2 12243 M00S10689.dmrec +++| SA7 VKY2 WORD TWO OF KEY 12244 M00S10690.dmrec +++| EQ SVKX RETURN 12245 M00S10691.dmrec +++| THDR SPACE 4,10 12246 M00S10692.dmrec +++|** THDR - TABLE OF LISTING HEADERS. 12247 M00S10693.dmrec +++|* 12248 M00S10694.dmrec +++|*T, THDR 6/LB,6/LA,12/ALC,18/HDRL,18/HDRA
Figure THDR
12249 M00S10695.dmrec +++|* 12250 M00S10696.dmrec +++|* LB - SPACE LINES BEFORE PRINT. 12251 M00S10697.dmrec +++|* LA - SPACE LINES AFTER PRINT. 12252 M00S10698.dmrec +++|* ALC - ADVANCE LINE COUNT. 12253 M00S10699.dmrec +++|* HDRL - HEADER LENGTH. 12254 M00S10700.dmrec +++|* HDRA - HEADER ADDRESS. 12255 M00S10701.dmrec +++| 12256 M00S10702.dmrec +++| 12257 M00S10703.dmrec +++| THDR BSS 0 12258 M00S10704.dmrec +++| VFD 6/1,6/0,12/3,18/HDR1L,18/HDR1 LISTING HEADER 12259 M00S10705.dmrec +++| VFD 6/1,6/0,12/3,18/HDR2L,18/HDR2 DIRECTORY HDR - FIRST 12260 M00S10706.dmrec +++| VFD 6/0,6/1,12/2,18/HDR3L,18/HDR3 DIRECTORY HDR - SECOND 12261 M00S10707.dmrec +++| VFD 6/1,6/1,12/4,18/HDR4L,18/HDR4 FILE HEADER 12262 M00S10708.dmrec +++| VFD 6/1,6/1,12/4,18/HDR5L,18/HDR5 FILE ENTRY HEADER 12263 M00S10709.dmrec +++| VFD 6/1,6/1,12/4,18/HDR6L,18/HDR6 VSN ENTRY HEADER 12264 M00S10710.dmrec +++| VFD 6/1,6/0,12/3,18/HDR7L,18/HDR7 SORTED LIST HEADER 12265 M00S10711.dmrec +++| VFD 6/1,6/1,12/4,18/HDR8L,18/HDR8 SORTED ENTRY HEADER 12266 M00S10712.dmrec +++| VFD 6/1,6/0,12/3,18/HDR9L,18/HDR9 A-I LISTING HEADER 12267 M00S10713.dmrec +++| VFD 6/1,6/1,12/4,18/HDR10L,18/HDR10 A-I ENTRY HEADER 12268 M00S10714.dmrec +++| 12269 M00S10715.dmrec +++| HDR1 DATA C*0 PARTIAL LIST OF THE BACKUP DIRECTORY FOR TH 12270 M00S10716.dmrec +++|,E DATA BASE - XX* 12271 M00S10717.dmrec +++| HDR1L EQU *-HDR1 12272 M00S10718.dmrec +++| HDR2 DATA C/0 CREATION BRF UNUSABLE BRF 12273 M00S10719.dmrec +++|,-S PREA. BACKUP FIRST ARF / 12274 M00S10720.dmrec +++| HDR2L EQU *-HDR2 12275 M00S10721.dmrec +++| HDR3 DATA C* DATE TIME DATE TIME DOW 12276 M00S10722.dmrec +++|,N PERC. DUMPS VSN * 12277 M00S10723.dmrec +++| HDR3L EQU *-HDR3 12278 M00S10724.dmrec +++| HDR4 DATA C*0 FILE HEADER : FILE PREALLOCATION BACKUP 12279 M00S10725.dmrec +++|, DUMPS* 12280 M00S10726.dmrec +++| HDR4L EQU *-HDR4 12281 M00S10727.dmrec +++| HDR5 DATA C*0 FILE TYPE DATE TIME FMT ORD IND 12282 M00S10728.dmrec +++|,EX ORD AI RECS VSN * 12283 M00S10729.dmrec +++| HDR5L EQU *-HDR5 12284 M00S10730.dmrec +++| HDR6 DATA C*0 VSN ENTRIES : VSN NEXT VSN FILES ACT 12285 M00S10731.dmrec +++|,.FILES NEXT ARF * 12286 M00S10732.dmrec +++| HDR6L EQU *-HDR6 12287 M00S10733.dmrec +++| HDR7 DATA C*0 CHRONOLOGICAL LIST OF THE DUMPS TAKEN* 12288 M00S10734.dmrec +++| HDR7L EQU *-HDR7 12289 M00S10735.dmrec +++| HDR8 DATA C*0 DATE TIME FILE TYPE 12290 M00S10736.dmrec +++|,VSN FMT * 12291 M00S10737.dmrec +++| HDR8L EQU *-HDR8 12292 M00S10738.dmrec +++| HDR9 DATA C*0 LIST OF AFTER IMAGE LOG HEADERS* 12293 M00S10739.dmrec +++| HDR9L EQU *-HDR9 12294 M00S10740.dmrec +++| HDR10 DATA C*0 REC FILE TSN TASK TYPE 12295 M00S10741.dmrec +++|,DATE TIME RL KL* 12296 M00S10742.dmrec +++| HDR10L EQU *-HDR10 12297 M00S10743.dmrec +++| TKL SPACE 4,15 12298 M00S10744.dmrec +++|** TKL - TERMINATE KEY LIST. 12299 M00S10745.dmrec +++|* 12300 M00S10746.dmrec +++|* ENTRY (A0) = NUMBER OF WORDS IN BUFFER. 12301 M00S10747.dmrec +++|* 12302 M00S10748.dmrec +++|* EXIT (X1) = 0 IF NO LIMITS EXCEEDED. 12303 M00S10749.dmrec +++|* 12304 M00S10750.dmrec +++|* USES X - 0, 1, 2, 4, 6. 12305 M00S10751.dmrec +++|* A - 0, 1, 2, 4, 6. 12306 M00S10752.dmrec +++|* B - NONE. 12307 M00S10753.dmrec +++|* 12308 M00S10754.dmrec +++|* CALLS ALC, FML, WBL. 12309 M00S10755.dmrec +++| 12310 M00S10756.dmrec +++| 12311 M00S10757.dmrec +++| TKL SUBR ENTRY/EXIT 12312 M00S10758.dmrec +++| SA1 RPCT 12313 M00S10759.dmrec +++| SX2 X1-3 12314 M00S10760.dmrec +++| AX1 1 12315 M00S10761.dmrec +++| BX6 X6-X6 12316 M00S10762.dmrec +++| SA6 A1 CLEAR REPEAT 12317 M00S10763.dmrec +++| ZR X1,TKL3 IF NOT REPEAT (SUPPRESSING) 12318 M00S10764.dmrec +++| PL X2,TKL1 IF MORE THAN TWO LINES 12319 M00S10765.dmrec +++| SX6 A0 12320 M00S10766.dmrec +++| ZR X6,TKL2 IF NO WORDS 12321 M00S10767.dmrec +++| TKL1 WRITEC O,MALR WRITE REPEAT MESSAGE 12322 M00S10768.dmrec +++| SX2 B1 12323 M00S10769.dmrec +++| RJ ALC ADVANCE LINE COUNT 12324 M00S10770.dmrec +++| RJ WBL WRITE BLANK LINE 12325 M00S10771.dmrec +++| SX6 A0 12326 M00S10772.dmrec +++| NZ X6,TKL3 IF WORDS IN BUFFER 12327 M00S10773.dmrec +++| TKL2 SA4 JOBORG SET WORDS/LINE FOR FILE TYPE 12328 M00S10774.dmrec +++| SA2 X4+WPLT 12329 M00S10775.dmrec +++| SA1 WCBL 12330 M00S10776.dmrec +++| IX6 X1-X2 12331 M00S10777.dmrec +++| SA6 A1 12332 M00S10778.dmrec +++| SA0 X2 12333 M00S10779.dmrec +++| TKL3 RJ FML FORMAT PRINT LINES 12334 M00S10780.dmrec +++| BX6 X6-X6 12335 M00S10781.dmrec +++| SA6 WCBL ZERO BEGIN LINE WORD COUNT 12336 M00S10782.dmrec +++| EQ TKLX RETURN 12337 M00S10783.dmrec +++| UDT SPACE 4,20 12338 M00S10784.dmrec +++|** UDT - UNPACK DATE AND TIME. 12339 M00S10785.dmrec +++|* 12340 M00S10786.dmrec +++|* *UDT* WILL CONVERT A PACKED DATE/TIME INTO A FORMAT 12341 M00S10787.dmrec +++|* COMPATIBLE TO DIRECTIVE PARAMETERS. 12342 M00S10788.dmrec +++|* 12343 M00S10789.dmrec +++|* ENTRY (A5) = ADDRESS OF PACKED DATE/TIME 12344 M00S10790.dmrec +++|* (X5) = PACKED DATE/TIME 12345 M00S10791.dmrec +++|* 12346 M00S10792.dmrec +++|* EXIT (X6) = DATE - 10LYYMMDD 12347 M00S10793.dmrec +++|* (X7) = TIME - 10LHHMMSS 12348 M00S10794.dmrec +++|* 12349 M00S10795.dmrec +++|* USES X - 0, 3, 4, 5, 6. 12350 M00S10796.dmrec +++|* A - 3. 12351 M00S10797.dmrec +++|* B - NONE
Proceed to Part 7
cdc/nos2.source/opl.opl871/deck/dmrec.006.txt · Last modified: (external edit)