cdc:nos2.source:opl.opl871:deck:dmrec.005
Deck DMREC Part 005
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 ----------------------------+
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 08588 M01S00015.dmrec15 +++| BX2 -X5*X2 08589 M00S07417.dmrec +++| SA3 TBUF+1 08590 M00S07418.dmrec +++| BX5 X3-X2 08591 M00S07419.dmrec +++| NZ X5,LOD10 IF FORMAT MISMATCH 08592 M00S07420.dmrec +++| ZR X3,LOD5 IF BLOCK FORMAT 08593 M00S07421.dmrec +++| 08594 M00S07422.dmrec +++|* LOAD RECORD FORMAT. 08595 M00S07423.dmrec +++| 08596 M00S07424.dmrec +++| RJ LRD LOAD RECORD FORMAT 08597 M00S07425.dmrec +++| NZ X1,LOD8 IF ERROR 08598 M00S07426.dmrec +++| SA3 XXIXN 08599 M00S07427.dmrec +++| ZR X3,LOD6 IF NO INDEX FILE TO LOAD 08600 M00S07428.dmrec +++| RJ BIF BUILD INDEX FILE 08601 M00S07429.dmrec +++| NZ X1,LOD8 IF ERROR IN BIF 08602 M00S07430.dmrec +++| EQ LOD7 CONTINUE 08603 M00S07431.dmrec +++| 08604 M00S07432.dmrec +++| LOD5 SA1 TP+B1 08605 M00S07433.dmrec +++| SX6 X1 08606 M00S07434.dmrec +++| SA6 A1+B1 RESET FET POINTERS 08607 M00S07435.dmrec +++| SA6 A6+B1 08608 M00S07436.dmrec +++| SX4 DF FET ADDRESS 08609 M00S07437.dmrec +++| RJ LBL LOAD BLOCK 08610 M00S07438.dmrec +++| NZ X1,LOD8 IF ERROR 08611 M00S07439.dmrec +++| SA5 YYBUF+3 GET INDEX FN 08612 M00S07440.dmrec +++| ZR X5,LOD6 IF NO INDEX FILE 08613 M00S07441.dmrec +++| LOD5.1 READ TP,R READ EOF 08614 M00S07442.dmrec +++| RJ DER DETECT END OF REEL 08615 M00S07443.dmrec +++| NG X1,LOD5.1 IF END OF REEL 08616 M00S07444.dmrec +++| NZ X1,LOD8 IF ERROR 08617 M00S07445.dmrec +++| LOD5.2 READ TP,R 08618 M00S07446.dmrec +++| READW TP,WBUF,WBUFL READ INDEX FILE HEADER 08619 M00S07447.dmrec +++| RJ DER DETECT END OF REEL 08620 M00S07448.dmrec +++| NG X1,LOD5.2 IF END OF REEL 08621 M00S07449.dmrec +++| NZ X1,LOD8 IF ERROR 08622 M00S07450.dmrec +++| SA5 YYBUF+3 INDEX FN FROM DIRECTORY RECORD 08623 M00S07451.dmrec +++| MX0 42 08624 M00S07452.dmrec +++| BX6 X0*X5 08625 M00S07453.dmrec +++| SA6 XXPFN SAVE PFN FOR *LBL* 08626 M00S07454.dmrec +++| SA2 WBUF INDEX FN FROM DUMP TAPE 08627 M00S07455.dmrec +++| BX2 X2-X6 08628 M00S07456.dmrec +++| NZ X2,LOD10 IF ERROR - FN MISMATCH 08629 M00S07457.dmrec +++| SA1 TP+B1 RESET FET POINTERS 08630 M00S07458.dmrec +++| SX6 X1 08631 M00S07459.dmrec +++| SA6 A1+B1 08632 M00S07460.dmrec +++| SA6 A6+B1 08633 M00S07461.dmrec +++| SX4 IF 08634 M00S07462.dmrec +++| SA3 TBUF+1 08635 M00S07463.dmrec +++| ZR X3,LOD5.3 IF BLOCK FORMAT 08636 M00S07464.dmrec +++| 08637 M00S07465.dmrec +++|* LOAD INDEX FILE IN RECORD FORMAT. 08638 M00S07466.dmrec +++| 08639 M00S07467.dmrec +++| RJ LRD LOAD INDEX FILE IN RECORD FORMAT 08640 M00S07468.dmrec +++| NZ X1,LOD8 IF ERROR IN LOADING INDEX FILE 08641 M00S07469.dmrec +++| EQ LOD6 CLOSE DATA FILE 08642 M00S07470.dmrec +++| 08643 M00S07471.dmrec +++|* LOAD INDEX FILE IN BLOCK FORMAT. 08644 M00S07472.dmrec +++| 08645 M00S07473.dmrec +++| LOD5.3 RJ LBL LOAD INDEX FILE IN BLOCK FORMAT 08646 M00S07474.dmrec +++| NZ X1,LOD8 IF ERROR 08647 M00S07475.dmrec +++| LOD6 CLOSEM DFIT,U 08648 M00S07476.dmrec +++| LOD7 RJ RAF RETURN ALL FILES
| Line S07477 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 08649 M01S07477.ns2023 ---| SA2 QRFFLG
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 08650 M01S00147.ns2023 +++| SA2 BRFFLG 08651 M00S07478.dmrec +++| ZR X2,DMR3 IF SUBCODE NOT SET - MUST BE LOAD ONLY 08652 M00S07479.dmrec +++| 08653 M00S07480.dmrec +++|* THIS IS THE FIRST PART OF A RECOVERY. GO CALL THE UPDATE 08654 M00S07481.dmrec +++|* PROCESSOR LESS PARAMETER CRACKING. 08655 M00S07482.dmrec +++|
| Line S07483 Modification History | |
|---|---|
M01 (Removed by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 08656 M01S07483.dmrec6 ---| SX6 B0
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dmrec6 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 08657 M02S00005.v23l617 ---| SA1 RECE VSN ON DIRECTIVE CARD IF USED
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 08658 M01S00061.v23l617 +++| SA1 RECE VSN ON DIRECTIVE STATEMENT IF USED
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 08659 M01S00006.dmrec6 +++| BX6 X1 08660 M00S07484.dmrec +++| SA6 TVSN ZERO TVSN FOR UPDATE PROCESSOR
| Line S07485 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 08661 M01S07485.ns2023 ---| NG X2,UPD2 IF THIS IS PART OF A QRF RECOVERY
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 08662 M01S00148.ns2023 +++| NG X2,UPD2 IF THIS IS PART OF A *BRF* RECOVERY 08663 M00S07486.dmrec +++| EQ UPD1 UPDATE FILE JUST LOADED. 08664 M00S07487.dmrec +++| 08665 M00S07488.dmrec +++| LOD8 CLOSEM DFIT,U 08666 M00S07489.dmrec +++| RJ RAF RETURN ALL FILES 08667 M00S07490.dmrec +++| EQ DMR3 RETURN 08668 M00S07491.dmrec +++| 08669 M00S07492.dmrec +++| LOD9 ERROR DMRA,,,LOD8,,E DIRECTIVE ERROR 08670 M00S07493.dmrec +++| 08671 M00S07494.dmrec +++| 08672 M00S07495.dmrec +++| LOD10 ERROR LODD,,,LOD8,,E BLOCK LOAD ERROR 08673 M00S07496.dmrec +++| 08674 M00S07497.dmrec +++| LODD DATA 20H0 ***** 08675 M00S07498.dmrec +++| DATA C*BLOCK LOAD ERROR.* 08676 M00S07499.dmrec +++| LODDL EQU *-LODD 08677 M00S07500.dmrec +++| LDH SPACE 4,15 08678 M00S07501.dmrec +++|** LPH - LIST PAGE HEADER. 08679 M00S07502.dmrec +++|* 08680 M00S07503.dmrec +++|* ENTRY (X6) = HEADER NUMBER. 08681 M00S07504.dmrec +++|* (JOBORG) = 0, IF INTERACTIVE ORIGIN. 08682 M00S07505.dmrec +++|* 08683 M00S07506.dmrec +++|* EXIT HEADER LISTED. 08684 M00S07507.dmrec +++|* 08685 M00S07508.dmrec +++|* USES X - 0, 1, 2, 5, 6. 08686 M00S07509.dmrec +++|* A - 1, 2, 6. 08687 M00S07510.dmrec +++|* B - NONE. 08688 M00S07511.dmrec +++|* 08689 M00S07512.dmrec +++|* CALLS ALC. 08690 M00S07513.dmrec +++|* 08691 M00S07514.dmrec +++|* MACROS WRITEC, WRITEH. 08692 M00S07515.dmrec +++| 08693 M00S07516.dmrec +++| 08694 M00S07517.dmrec +++| LPH SUBR ENTRY/EXIT 08695 M00S07518.dmrec +++| SA6 LHDR SAVE LAST HEADER CODE 08696 M00S07519.dmrec +++| SA1 THDR+X6 HEADER CONTROL WORD 08697 M00S07520.dmrec +++| SX2 X1 HEADER ADDRESS 08698 M00S07521.dmrec +++| AX1 18 08699 M00S07522.dmrec +++| SX5 X1 HEADER LENGTH 08700 M00S07523.dmrec +++| AX1 18 08701 M00S07524.dmrec +++| MX0 -12 08702 M00S07525.dmrec +++| BX6 -X0*X1 LINES ADVANCE COUNT 08703 M00S07526.dmrec +++| SA6 LPHA 08704 M00S07527.dmrec +++| AX1 12 08705 M00S07528.dmrec +++| MX0 -6 08706 M00S07529.dmrec +++| BX6 -X0*X1 SPACE LINES AFTER PRINT 08707 M00S07530.dmrec +++| SA6 LPHB 08708 M00S07531.dmrec +++| AX1 6 08709 M00S07532.dmrec +++| SX6 X1 SPACE LINES BEFORE PRINT 08710 M00S07533.dmrec +++| SA6 LPHC 08711 M00S07534.dmrec +++| SX0 X2 08712 M00S07535.dmrec +++| SA1 JOBORG JOB ORIGIN 08713 M00S07536.dmrec +++| NZ X1,LPH1 IF NOT INTERACTIVE ORIGIN 08714 M00S07537.dmrec +++| SX0 X0+1 SKIP CARRIAGE CONTROL WORD 08715 M00S07538.dmrec +++| SX5 X5-1 ADJUST LINE LENGTH 08716 M00S07539.dmrec +++| SA1 LPHC 08717 M00S07540.dmrec +++| ZR X1,LPH1 IF NO SPACE BEFORE PRINT - INTERACTIVE 08718 M00S07541.dmrec +++| WRITEC O,BLKL SPACE LINE 08719 M00S07542.dmrec +++| EQ LPH2 CONTINUE 08720 M00S07543.dmrec +++| LPH1 SA1 LPHC 08721 M00S07544.dmrec +++| ZR X1,LPH2 IF NO SPACE BEFORE PRINT - BATCH 08722 M00S07545.dmrec +++| WRITEC O,BLKL SPACE LINE 08723 M00S07546.dmrec +++| LPH2 WRITEH O,X0,X5 08724 M00S07547.dmrec +++| SA1 LPHB 08725 M00S07548.dmrec +++| ZR X1,LPH3 IF NO SPACE AFTER PRINT 08726 M00S07549.dmrec +++| WRITEC O,BLKL SPACE LINE 08727 M00S07550.dmrec +++| LPH3 SA2 LPHA LINES ADVANCE COUNT 08728 M00S07551.dmrec +++| RJ ALC ADJUST LINE COUNT 08729 M00S07552.dmrec +++| EQ LPHX RETURN 08730 M00S07553.dmrec +++| 08731 M00S07554.dmrec +++| LPHA BSSZ 1 LINES ADVANCE COUNT 08732 M00S07555.dmrec +++| LPHB BSSZ 1 LINES AFTER PRINT 08733 M00S07556.dmrec +++| LPHC BSSZ 1 LINES BEFORE PRINT 08734 M00S07557.dmrec +++| LRD SPACE 4,20 08735 M00S07558.dmrec +++|** LRD - LOAD RECORD. 08736 M00S07559.dmrec +++|* 08737 M00S07560.dmrec +++|* *LRD* RECONSTRUCTS *IS*, *DA* AND *AK* *CRM* FILES 08738 M00S07561.dmrec +++|* FROM DUMPS GENERATED BY *DMREC*. THESE FILES CAN 08739 M00S07562.dmrec +++|* CONTAIN MULTIPLE INDICES, IN WHICH CASE THE INDEX 08740 M00S07563.dmrec +++|* FILE IS ALSO REBUILT. 08741 M00S07564.dmrec +++|* 08742 M00S07565.dmrec +++|* ENTRY DUMP TAPE *TP* IS OPENED AND POSITIONED. 08743 M00S07566.dmrec +++|* (YYBUF) = FIRST WORD OF FILE DUMP RECORD. 08744 M00S07567.dmrec +++|* 08745 M00S07568.dmrec +++|* EXIT (X1) = 0 - IF NO ERRORS. 08746 M00S07569.dmrec +++|* 08747 M00S07570.dmrec +++|* USES X - ALL. 08748 M00S07571.dmrec +++|* A - 1, 2, 3, 4, 6, 7. 08749 M00S07572.dmrec +++|* B - 1. 08750 M00S07573.dmrec +++|* 08751 M00S07574.dmrec +++|* CALLS CER, DER, PRD. 08752 M00S07575.dmrec +++|* 08753 M00S07576.dmrec +++|* MACROS DEFINE, ERROR, GET, LDREQ, LOADER, MOVE, OPENM, 08754 M00S07577.dmrec +++|* PURGE, READ, READW, RETURN, STORE. 08755 M00S07578.dmrec +++| 08756 M00S07579.dmrec +++| 08757 M00S07580.dmrec +++| LRD SUBR ENTRY/EXIT 08758 M00S07581.dmrec +++| SA1 TP+B1 INITIALIZE BUFFER 08759 M00S07582.dmrec +++| SX6 X1 08760 M00S07583.dmrec +++| SA6 A1+B1 IN 08761 M00S07584.dmrec +++| SA6 A6+B1 OUT 08762 M00S07585.dmrec +++| 08763 M00S07586.dmrec +++|* READ FSTT 08764 M00S07587.dmrec +++| 08765 M00S07588.dmrec +++| LRD1 READ TP,R 08766 M00S07589.dmrec +++| LRD2 READW TP,WBUF,WBUFL 08767 M00S07590.dmrec +++| BX6 X1 08768 M00S07591.dmrec +++| SA6 HOLD1 SAVE STATUS 08769 M00S07592.dmrec +++| RJ DER DETECT END OF REEL 08770 M00S07593.dmrec +++| NG X1,LRD1 IF END OF TAPE 08771 M00S07594.dmrec +++| NZ X1,LRDX IF ERROR 08772 M00S07595.dmrec +++| SA1 HOLD1 RESTORE STATUS 08773 M00S07596.dmrec +++| NG X1,LRD25 IF EOF/EOI 08774 M00S07597.dmrec +++| ZR X1,LRD25 IF NO EOR - ERROR 08775 M00S07598.dmrec +++| 08776 M00S07599.dmrec +++|* END OF RECORD - FSTT JUST READ, BUILD 08777 M00S07600.dmrec +++|* A FIT FROM OLD FSTT PARAMETERS. 08778 M00S07601.dmrec +++| 08779 M00S07602.dmrec +++| PURGE ZZZDATA,,,XXPACK,XXDEV 08780 M00S07603.dmrec +++| RETURN ZZZDATA,R 08781 M00S07604.dmrec +++| DEFINE ZZZDATA,XXPFN,,,XXDEV,,,XXPACK 08782 M00S07605.dmrec +++| PURGE ZZINDEX,,,XXIXP,XXIDEV 08783 M00S07606.dmrec +++| RETURN ZZINDEX,R 08784 M00S07607.dmrec +++| DEFINE ZZINDEX,XXIXN,,,XXIDEV,,,XXIXP 08785 M00S07608.dmrec +++| STORE DFIT,PD=NEW 08786 M00S07609.dmrec +++| GET ZZZZZDG GET CRM FILE DEFINITIONS 08787 M00S07610.dmrec +++| SX2 ZZZZZDG SET FET ADDRESS 08788 M00S07611.dmrec +++| RJ CER IF ERROR ENCOUNTERED - CLEAR STATUS
| Line S07612 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08789 M01S07612.ns2056 ---| SA2 WBUF+FSTT1 08790 M01S07613.ns2056 ---| AX2 18 08791 M01S07614.ns2056 ---| MX0 48
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08792 M01S00155.ns2056 +++| SA2 WBUF+FSTT100 08793 M01S00156.ns2056 +++| AX2 35 08794 M01S00157.ns2056 +++| MX0 -3 08795 M00S07615.dmrec +++| BX6 -X0*X2
| Line S07616 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08796 M01S07616.ns2056 ---| SX2 X6-2RIS
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08797 M01S00158.ns2056 +++| SX2 X6-#IS# 08798 M00S07617.dmrec +++| NZ X2,LRD3 IF NOT *IS* 08799 M00S07618.dmrec +++| SX6 #IS# 08800 M00S07619.dmrec +++| EQ LRD5 SET FO 08801 M00S07620.dmrec +++|
| Line S07621 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08802 M01S07621.ns2056 ---| LRD3 SX2 X6-2RDA
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08803 M01S00159.ns2056 +++| LRD3 SX2 X6-#DA# 08804 M00S07622.dmrec +++| NZ X2,LRD4 IF NOT *DA* 08805 M00S07623.dmrec +++| SX6 #DA# 08806 M00S07624.dmrec +++| EQ LRD5 SET FO 08807 M00S07625.dmrec +++| 08808 M00S07626.dmrec +++| LRD4 SX6 #AK# 08809 M00S07627.dmrec +++| LRD5 SA6 LRDFO SAVE FO 08810 M00S07628.dmrec +++| STORE DFIT,FO=X6 08811 M00S07629.dmrec +++| STORE DFIT,ORG=NEW
| Line S07630 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08812 M01S07630.ns2056 ---| SA2 WBUF+FSTT16
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08813 M01S00160.ns2056 +++| SA2 WBUF+FSTT21 08814 M00S07631.dmrec +++| MX0 -18 08815 M00S07632.dmrec +++| BX6 -X0*X2 08816 M00S07633.dmrec +++| SA6 LRDMNR SAVE MINIMUM RECORD LENGTH 08817 M00S07634.dmrec +++| STORE DFIT,MNR=X6
| Line S07635 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08818 M01S07635.ns2056 ---| SA2 WBUF+FSTT16
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08819 M01S00161.ns2056 +++| SA2 WBUF+FSTT21 08820 M00S07636.dmrec +++| MX0 -18 08821 M00S07637.dmrec +++| AX2 18 08822 M00S07638.dmrec +++| BX6 -X0*X2 08823 M00S07639.dmrec +++| SA6 LRDMRL SAVE MAXIMUN RECORD LENGTH 08824 M00S07640.dmrec +++| STORE DFIT,MRL=X6
| Line S07641 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08825 M01S07641.ns2056 ---| SA2 WBUF+B1 08826 M01S07642.ns2056 ---| AX2 18 08827 M01S07643.ns2056 ---| MX0 -12
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08828 M01S00162.ns2056 +++| SA2 WBUF+FSTT100 08829 M01S00163.ns2056 +++| AX2 35 08830 M01S00164.ns2056 +++| MX0 -3 08831 M00S07644.dmrec +++| BX3 -X0*X2
| Line S07645 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08832 M01S07645.ns2056 ---| SX4 X3-2RIS
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08833 M01S00165.ns2056 +++| SX4 X3-#IS# 08834 M00S07646.dmrec +++| NZ X4,LRD9 IF NOT *IS* FILE 08835 M00S07647.dmrec +++| 08836 M00S07648.dmrec +++|* PROCESS *IS* FILE. 08837 M00S07649.dmrec +++|
| Line S07650 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08838 M01S07650.ns2056 ---| SA2 WBUF+FSTT75
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08839 M01S00166.ns2056 +++| SA2 WBUF+FSTT100 08840 M00S07651.dmrec +++| AX2 32 08841 M00S07652.dmrec +++| MX0 60-3 08842 M00S07653.dmrec +++| BX2 -X0*X2 08843 M00S07654.dmrec +++| SX3 X2-#SKT# 08844 M00S07655.dmrec +++| NZ X3,LRD6 IF NOT SYMBOLIC KEY 08845 M00S07656.dmrec +++| MOVE 20B,WBUF+43B,LCOLL 08846 M00S07657.dmrec +++| SX6 #SKT# 08847 M00S07658.dmrec +++| EQ LRD8 STORE KEY TYPE 08848 M00S07659.dmrec +++| 08849 M00S07660.dmrec +++| LRD6 SX3 X2-#IKT# 08850 M00S07661.dmrec +++| NZ X3,LRD7 IF NOT INTEGER KEY 08851 M00S07662.dmrec +++| SX6 #IKT# 08852 M00S07663.dmrec +++| EQ LRD8 KT INTEGER 08853 M00S07664.dmrec +++| 08854 M00S07665.dmrec +++| LRD7 SX6 #UKT# 08855 M00S07666.dmrec +++| LRD8 SA6 LRDKT SAVE KEY TYPE 08856 M00S07667.dmrec +++| STORE DFIT,KT=X6 08857 M00S07668.dmrec +++| EQ LRD10 CONTINUE 08858 M00S07669.dmrec +++|
| Line S07670 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08859 M01S07670.ns2056 ---| LRD9 SX4 X3-2RDA
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08860 M01S00167.ns2056 +++| LRD9 SX4 X3-#DA# 08861 M00S07671.dmrec +++| NZ X4,LRD10 IF NOT *DA* FILE 08862 M00S07672.dmrec +++| 08863 M00S07673.dmrec +++|* PROCESS *DA* FILE. 08864 M00S07674.dmrec +++|
| Line S07675 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08865 M01S07675.ns2056 ---| SA2 WBUF+FSTT53
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08866 M01S00168.ns2056 +++| SA2 WBUF+FSTT56 08867 M00S07676.dmrec +++| MX0 30 08868 M00S07677.dmrec +++| BX6 -X0*X2 08869 M00S07678.dmrec +++| SA6 LRDHMB SAVE HMB 08870 M00S07679.dmrec +++| STORE DFIT,HMB=X6 08871 M00S07680.dmrec +++| SA1 XXHASH HASH FILE NAME 08872 M00S07681.dmrec +++| ZR X1,LRD10 IF NO OWNCODE 08873 M00S07682.dmrec +++| 08874 M00S07683.dmrec +++|* LOAD HASHING ROUTINE - OWNCODE ROUTINE READ INTO 08875 M00S07684.dmrec +++|* A FIXED BUFFER. 08876 M00S07685.dmrec +++| 08877 M00S07686.dmrec +++| SX2 3 REWIND FILE 08878 M00S07687.dmrec +++| BX7 X1+X2 08879 M00S07688.dmrec +++| BX6 X1 08880 M00S07689.dmrec +++| SA7 LRDI+1 SET FILE NAME IN LOAD REQUEST 08881 M00S07690.dmrec +++| SA6 LRDJ+1 SET ENTRY POINT IN REQUEST 08882 M00S07691.dmrec +++| LOADER LRDH,CMM LOAD HASHING ROUTINE 08883 M00S07692.dmrec +++| 08884 M00S07693.dmrec +++|* CHECK FOR LOADER ERRORS ON HASHING ROUTINE. 08885 M00S07694.dmrec +++| 08886 M00S07695.dmrec +++| SB1 1 08887 M00S07696.dmrec +++| SA1 LRDH+2 LOAD STATUS 08888 M00S07697.dmrec +++| MX0 2 08889 M00S07698.dmrec +++| BX2 X0*X1 08890 M00S07699.dmrec +++| NZ X2,LRD27 IF HASHING LOADER ERROR 08891 M00S07700.dmrec +++| SA3 LRDJ+1 GET FWA OF HASH ENTRY POINT 08892 M00S07701.dmrec +++| ZR X3,LRD27 IF ENTRY POINT NOT FOUND 08893 M00S07702.dmrec +++| 08894 M00S07703.dmrec +++|* SET HASH ROUTINE ADDRESS IN FIT. 08895 M00S07704.dmrec +++| 08896 M00S07705.dmrec +++| STORE DFIT,HRL=X3 08897 M00S07706.dmrec +++| 08898 M00S07707.dmrec +++|* READ DATA BLOCK FROM TAPE AND EXTRACT RECORDS 08899 M00S07708.dmrec +++|* FOR REBUILDING FILE. 08900 M00S07709.dmrec +++|
| Line S07710 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08901 M01S07710.ns2056 ---| LRD10 SA2 WBUF+FSTT15
| Line S00169 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08902 M01S00169.ns2056 +++| LRD10 SA2 WBUF+FSTT20 08903 M00S07711.dmrec +++| AX2 30 08904 M00S07712.dmrec +++| MX0 54 08905 M00S07713.dmrec +++| BX6 -X0*X2 EXTRACT SYSCOMP (S - C) 08906 M00S07714.dmrec +++| SX2 X6-2 08907 M00S07715.dmrec +++| PL X2,LRD28 IF NOT LEGAL COMPRESSION 08908 M00S07716.dmrec +++| STORE DFIT,CPA=X6 SET COMPRESSION ADDRESS
| Line S07717 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08909 M01S07717.ns2056 ---| SA2 WBUF+FSTT75
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 08910 M01S00170.ns2056 +++| SA2 WBUF+FSTT100 08911 M01S00171.ns2056 +++| 08912 M00S07718.dmrec +++| MX0 -18 08913 M00S07719.dmrec +++| BX6 -X0*X2 08914 M00S07720.dmrec +++| SA6 LKS SAVE KEY SIZE 08915 M00S07721.dmrec +++| STORE DFIT,KL=X6 STORE KEY LENGTH 08916 M00S07722.dmrec +++| AX2 18 08917 M00S07723.dmrec +++| MX0 60-14 08918 M00S07724.dmrec +++| BX6 -X0*X2 08919 M00S07725.dmrec +++| SA6 LKLOC SAVE KEY LOCATION 08920 M00S07726.dmrec +++| AX2 20 GET KP 08921 M00S07727.dmrec +++| MX0 60-4 08922 M00S07728.dmrec +++| BX6 -X0*X2 08923 M00S07729.dmrec +++| SA6 LKP SAVE KEY POSITION 08924 M00S07730.dmrec +++| SX5 X6-10 08925 M00S07731.dmrec +++| ZR X5,LRD11 IF NON - EMBEDDED KEY 08926 M00S07732.dmrec +++| STORE DFIT,RKP=X6 08927 M00S07733.dmrec +++| SA1 LKLOC 08928 M00S07734.dmrec +++| STORE DFIT,RKW=X1 08929 M00S07735.dmrec +++| STORE DFIT,EMK=YES 08930 M00S07736.dmrec +++| EQ LRD12 CONTINUE 08931 M00S07737.dmrec +++| 08932 M00S07738.dmrec +++| LRD11 STORE DFIT,EMK=NO 08933 M00S07739.dmrec +++| LRD12 OPENM DFIT,NEW 08934 M00S07740.dmrec +++| LRD13 READ TP,R 08935 M00S07741.dmrec +++| READW TP,WBUF,WBUFL 08936 M00S07742.dmrec +++| BX6 X1 08937 M00S07743.dmrec +++| SA6 HOLD1 SAVE STATUS 08938 M00S07744.dmrec +++| RJ DER DETECT END OF TAPE 08939 M00S07745.dmrec +++| NG X1,LRD13 IF END OF TAPE 08940 M00S07746.dmrec +++| NZ X1,LRDX IF ERROR 08941 M00S07747.dmrec +++| SA1 HOLD1 GET STATUS 08942 M00S07748.dmrec +++| SX6 X1-WBUF-1 08943 M00S07749.dmrec +++| NZ X6,LRD14 IF NOT ONE WORD RECORD 08944 M00S07750.dmrec +++| SX6 3REND 08945 M00S07751.dmrec +++| SA4 XXPFN 08946 M00S07752.dmrec +++| BX6 X4+X6 08947 M00S07753.dmrec +++| SA4 WBUF GET ONE WORD RECORD 08948 M00S07754.dmrec +++| BX6 X4-X6 08949 M00S07755.dmrec +++| ZR X6,LRD23 IF TRAILER RECORD FOUND 08950 M00S07756.dmrec +++| LRD14 ZR X1,LRD26 IF ERROR 08951 M00S07757.dmrec +++| NG X1,LRD24 IF EOF/EOI - NO TRAILER RECORD FOUND 08952 M00S07758.dmrec +++| 08953 M00S07759.dmrec +++|* EOR ENCOUNTERED - SCAN BLOCK FOR RECORDS. 08954 M00S07760.dmrec +++| 08955 M00S07761.dmrec +++| SX6 X1-1 08956 M00S07762.dmrec +++| SA6 LRDWRD 08957 M00S07763.dmrec +++| BX7 X7-X7 08958 M00S07764.dmrec +++| SA7 LRDLG INITIAL RECORD POINTER 08959 M00S07765.dmrec +++| SA7 LRDPT INITIAL COUNTER 08960 M00S07766.dmrec +++| SA7 LLGN INITIAL LENGTH 08961 M00S07767.dmrec +++| SA7 LRDNREC 08962 M00S07768.dmrec +++| SA7 LRDPOS 08963 M00S07769.dmrec +++| SX6 WBUF+2 08964 M00S07770.dmrec +++| SA6 LFWA 08965 M00S07771.dmrec +++| SA3 WBUF+B1 08966 M00S07772.dmrec +++| MX0 1 08967 M00S07773.dmrec +++| BX6 X0*X3 08968 M00S07774.dmrec +++| ZR X6,LRD17 IF RECORDS ARE VARIABLE LENGTH 08969 M00S07775.dmrec +++| 08970 M00S07776.dmrec +++|* LOAD FIXED LENGTH RECORDS. 08971 M00S07777.dmrec +++| 08972 M00S07778.dmrec +++| SA2 X1-1 GET LAST WORD OF BLOCK 08973 M00S07779.dmrec +++| MX0 60-13 08974 M00S07780.dmrec +++| BX6 -X0*X2 08975 M00S07781.dmrec +++| SA6 LLGN SAVE FIXED RECORD LENGTH 08976 M00S07782.dmrec +++| AX3 38 GET RC - RECORD COUNT (WORDS) 08977 M00S07783.dmrec +++| BX6 -X0*X3 08978 M00S07784.dmrec +++| SA6 LRDRC SAVE RECORD COUNT 08979 M00S07785.dmrec +++| LX2 30+4 (X2) = NEGATIVE IF RECORD COMPRESSED 08980 M00S07786.dmrec +++| BX6 X2 08981 M00S07787.dmrec +++| SA6 LCOMP SAVE COMPRESSION FLAG 08982 M00S07788.dmrec +++| MX0 60-4 08983 M00S07789.dmrec +++| BX6 -X0*X2 08984 M00S07790.dmrec +++| SA6 LUCC SAVE UNUSED CARACTER COUNT 08985 M00S07791.dmrec +++| LRD15 SA1 LRDNREC 08986 M00S07792.dmrec +++| SX7 X1+B1 08987 M00S07793.dmrec +++| SA7 A1 INCREMENT NUMBER OF RECORDS 08988 M00S07794.dmrec +++| SA3 LRDRC RECORD COUNT 08989 M00S07795.dmrec +++| IX4 X3-X7 REDUCE TOTAL RECORD COUNT 08990 M00S07796.dmrec +++| NG X4,LRD13 IF ALL RECORD ACCOUNTED FOR 08991 M00S07797.dmrec +++| SA2 LUCC UNUSED CHARACTER COUNT 08992 M00S07798.dmrec +++| SX6 X2-17B 08993 M00S07799.dmrec +++| ZR X6,LRD16 IF *IS* OR *DA* DEAD RECORD 08994 M00S07800.dmrec +++| 08995 M00S07801.dmrec +++|* PUT RECORD INTO DATA FILE. 08996 M00S07802.dmrec +++| 08997 M00S07803.dmrec +++| RJ PRD PUT RECORD 08998 M00S07804.dmrec +++| NZ X1,LRDX IF ERROR 08999 M00S07805.dmrec +++| LRD16 SA1 LFWA 09000 M00S07806.dmrec +++| SA2 LLGN 09001 M00S07807.dmrec +++| IX6 X1+X2 09002 M00S07808.dmrec +++| SA6 A1 RESET FWA 09003 M00S07809.dmrec +++| EQ LRD15 GET NEXT RECORD 09004 M00S07810.dmrec +++| 09005 M00S07811.dmrec +++|* RECORDS ARE VARIABLE IN LENGTH. 09006 M00S07812.dmrec +++| 09007 M00S07813.dmrec +++| LRD17 MX0 60-13 09008 M00S07814.dmrec +++| SA3 WBUF+B1 09009 M00S07815.dmrec +++| AX3 38 09010 M00S07816.dmrec +++| BX6 -X0*X3 09011 M00S07817.dmrec +++| SA6 LRDRC SAVE RECORD COUNT 09012 M00S07818.dmrec +++| SX6 WBUF+2 09013 M00S07819.dmrec +++| SA6 LRDFWA FWA FOR VARIABLE RECORD LENGTH 09014 M00S07820.dmrec +++| LRD18 SA2 LRDWRD 09015 M00S07821.dmrec +++| SA2 X2 09016 M00S07822.dmrec +++| SA3 LRDPOS 09017 M00S07823.dmrec +++| MX0 30 09018 M00S07824.dmrec +++| MX5 60-13 09019 M00S07825.dmrec +++| ZR X3,LRD19 IF LOWER POINTER 09020 M00S07826.dmrec +++| LX2 30 09021 M00S07827.dmrec +++| BX7 X7-X7 09022 M00S07828.dmrec +++| EQ LRD20 CONTINUE 09023 M00S07829.dmrec +++| 09024 M00S07830.dmrec +++| LRD19 SX7 B1 09025 M00S07831.dmrec +++| LRD20 SA7 A3 09026 M00S07832.dmrec +++| BX6 -X0*X2 09027 M00S07833.dmrec +++| BX7 -X5*X6 09028 M00S07834.dmrec +++| SA7 LRDLG SAVE RECORD POINTER 09029 M00S07835.dmrec +++| LX6 30+4 09030 M00S07836.dmrec +++| SA6 LCOMP LCOMP NEGATIVE IF COMPRESSED 09031 M00S07837.dmrec +++| MX0 60-4 09032 M00S07838.dmrec +++| BX6 -X0*X6 09033 M00S07839.dmrec +++| SA6 LUCC SAVE UNUSED CHARACTER COUNT 09034 M00S07840.dmrec +++| SA1 LRDNREC 09035 M00S07841.dmrec +++| SX7 X1+B1 09036 M00S07842.dmrec +++| SA7 A1 INCREMENT NUMBER OF RECORDS 09037 M00S07843.dmrec +++| SA3 LRDRC 09038 M00S07844.dmrec +++| IX4 X3-X7 09039 M00S07845.dmrec +++| NG X4,LRD13 IF END OF BLOCK 09040 M00S07846.dmrec +++| SA1 LRDFWA 09041 M00S07847.dmrec +++| SA2 LRDPT 09042 M00S07848.dmrec +++| IX6 X1+X2 09043 M00S07849.dmrec +++| SA6 LFWA SAVE FWA 09044 M00S07850.dmrec +++| SA1 LRDLG GET LENGTH 09045 M00S07851.dmrec +++| IX6 X1-X2 09046 M00S07852.dmrec +++| MX0 -4 09047 M00S07853.dmrec +++| SA6 LLGN SAVE RECORD LENGTH 09048 M00S07854.dmrec +++| IX6 X6+X2 09049 M00S07855.dmrec +++| SA6 A2 BUMP LRDPT 09050 M00S07856.dmrec +++| SA2 LUCC 09051 M00S07857.dmrec +++| SX2 X2-10 09052 M00S07858.dmrec +++| NG X2,LRD21 IF UNUSED CHARACTER COUNT UNDER 10 09053 M00S07859.dmrec +++| SX2 X2-3 09054 M00S07860.dmrec +++| ZR X2,LRD22 IF *AK* POINTER - IGNORE 09055 M00S07861.dmrec +++| SX2 X2-1 09056 M00S07862.dmrec +++| NZ X2,LRD22 IF .GE. 15 - MUST BE DEAD RECORD 09057 M00S07863.dmrec +++| SA2 LFWA GET FIRST WORD 09058 M00S07864.dmrec +++| SA3 X2 09059 M00S07865.dmrec +++| LX3 4 09060 M00S07866.dmrec +++| SX7 X2+1 09061 M00S07867.dmrec +++| BX6 -X0*X3 09062 M00S07868.dmrec +++| SA6 LUCC SAVE LUCC FOR *AK* ALIEN RECORD 09063 M00S07869.dmrec +++| SA7 A2 EXCLUDE POINTER FROM RECORD 09064 M00S07870.dmrec +++| 09065 M00S07871.dmrec +++|* PUT RECORD INTO DATA FILE. 09066 M00S07872.dmrec +++| 09067 M00S07873.dmrec +++| LRD21 RJ PRD PUT RECORD 09068 M00S07874.dmrec +++| NZ X1,LRDX IF ERROR 09069 M00S07875.dmrec +++| LRD22 SA2 LRDPOS 09070 M00S07876.dmrec +++| NZ X2,LRD18 IF NEXT POINTER WORD NEEDED 09071 M00S07877.dmrec +++| SA3 LRDWRD 09072 M00S07878.dmrec +++| SA2 X3-1 09073 M00S07879.dmrec +++| SX6 A2 09074 M00S07880.dmrec +++| SA6 A3 DECREMENT POINTER WORD 09075 M00S07881.dmrec +++| EQ LRD18 GET NEXT POINTER WORD 09076 M00S07882.dmrec +++| 09077 M00S07883.dmrec +++| LRD23 SX1 B0 09078 M00S07884.dmrec +++| EQ LRDX EXIT NORMAL 09079 M00S07885.dmrec +++| 09080 M00S07886.dmrec +++| LRD24 ERROR LRDA,,,LRDX,,E TAPE NOT READABLE 09081 M00S07887.dmrec +++| 09082 M00S07888.dmrec +++| LRD25 ERROR LRDD,,,LRDX,,E FSTT READ ERROR 09083 M00S07889.dmrec +++| 09084 M00S07890.dmrec +++| LRD26 ERROR LRDE,,,LRDX,,E BLOCK BUFFER OVERFLOW 09085 M00S07891.dmrec +++| 09086 M00S07892.dmrec +++| LRD27 ERROR LRDF,,,LRDX,,E LOAD ERROR IN HASHING ROUTING 09087 M00S07893.dmrec +++| 09088 M00S07894.dmrec +++| LRD28 ERROR LRDG,,,LRDX,,E NON-STANDARD COMPRESSION 09089 M00S07895.dmrec +++| 09090 M00S07896.dmrec +++| LRDA DATA 20H0 ***** 09091 M00S07897.dmrec +++| DATA C*TAPE NOT READABLE.* 09092 M00S07898.dmrec +++| LRDAL EQU *-LRDA 09093 M00S07899.dmrec +++| 09094 M00S07900.dmrec +++| LRDD DATA 20H0 ***** 09095 M00S07901.dmrec +++| DATA C*FSTT READ ERROR.* 09096 M00S07902.dmrec +++| LRDDL EQU *-LRDD 09097 M00S07903.dmrec +++| 09098 M00S07904.dmrec +++| LRDE DATA 20H0 ***** 09099 M00S07905.dmrec +++| DATA C*BLOCK BUFFER OVERFLOW.* 09100 M00S07906.dmrec +++| LRDEL EQU *-LRDE 09101 M00S07907.dmrec +++| 09102 M00S07908.dmrec +++| LRDF DATA 20H0 ***** 09103 M00S07909.dmrec +++| DATA C*LOAD ERROR IN HASHING ROUTINE.* 09104 M00S07910.dmrec +++| LRDFL EQU *-LRDF 09105 M00S07911.dmrec +++| 09106 M00S07912.dmrec +++| LRDG DATA 20H0 ***** 09107 M00S07913.dmrec +++| DATA C*DUMP TAPE SPECIFIES NON-STANDARD COMPRESSION.* 09108 M00S07914.dmrec +++| LRDGL EQU *-LRDG 09109 M00S07915.dmrec +++| 09110 M00S07916.dmrec +++| LRDH LDREQ BEGIN,0,0,0,0 09111 M00S07917.dmrec +++| LDREQ MAP,BSEX,MAP 09112 M00S07918.dmrec +++| LRDI LDREQ LOAD,(HASH/R) 09113 M00S07919.dmrec +++| LDREQ SATISFY 09114 M00S07920.dmrec +++| LRDJ LDREQ ENTRY,(HASH) HASH ENTRY POINT 09115 M00S07921.dmrec +++| LDREQ END 09116 M00S07922.dmrec +++| 09117 M00S07923.dmrec +++| 09118 M00S07924.dmrec +++| LRDNREC BSSZ 1 NUMBER OF RECORDS 09119 M00S07925.dmrec +++| LRDLG BSSZ 1 POINTER 09120 M00S07926.dmrec +++| LRDPT BSSZ 1 COUNTER 09121 M00S07927.dmrec +++| LRDPOS BSSZ 1 RECORD POSITION 09122 M00S07928.dmrec +++| LRDSLWA BSSZ 1 SAVED LWA 09123 M00S07929.dmrec +++| LRDRC BSSZ 1 RECORD COUNT 09124 M00S07930.dmrec +++| LRDFWA BSSZ 1 RECORD FWA 09125 M00S07931.dmrec +++| LRDWRD BSSZ 1 POINTER WORD 09126 M00S07932.dmrec +++| LRDFO BSSZ 1 FILE ORGANIZATION 09127 M00S07933.dmrec +++| LRDMRL BSSZ 1 MAXIMUM RECORD LENGTH 09128 M00S07934.dmrec +++| LRDKT BSSZ 1 KEY TYPE 09129 M00S07935.dmrec +++| LRDMNR BSSZ 1 MINIMUM RECORD LENGTH 09130 M00S07936.dmrec +++| LRDHMB BSSZ 1 NUMBER OF HOME BLOCKS 09131 M00S07937.dmrec +++| LST SPACE 4,25 09132 M00S07938.dmrec +++|** LST - LIST BACKUP DIRECTORY AND AFTER IMAGE LOG HEADERS. 09133 M00S07939.dmrec +++|* 09134 M00S07940.dmrec +++|* THIS ROUTINE GENERATES LISTING OF THE CONTENTS OF THE 09135 M00S07941.dmrec +++|* BACKUP DIRECTORY FOR EITHER AN ENTIRE DATA BASE OR ONE 09136 M00S07942.dmrec +++|* OR MORE FILES WITHIN A DATA BASE. THIS INCLUDES DUMPS 09137 M00S07943.dmrec +++|* OF DATA BASE FILES AND DUMPS OF *AFTER IMAGE* LOG FILES. 09138 M00S07944.dmrec +++|* IT ALSO GENERATES A LISTING OF THE CONTENTS OF THE *AFTER 09139 M00S07945.dmrec +++|* IMAGE* LOG RECORD HEADERS FROM THE DUMP TAPE. 09140 M00S07946.dmrec +++|* 09141 M00S07947.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 09142 M00S07948.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 09143 M00S07949.dmrec +++|* (X6) = OPERATION CODE. 09144 M00S07950.dmrec +++|* 09145 M00S07951.dmrec +++|* EXIT TO *DMR3* IF NO ERRORS. 09146 M00S07952.dmrec +++|* ABORT IF ERRORS. 09147 M00S07953.dmrec +++|* 09148 M00S07954.dmrec +++|* USES X - 3. 09149 M00S07955.dmrec +++|* A - 3, 6. 09150 M00S07956.dmrec +++|* B - NONE. 09151 M00S07957.dmrec +++|* 09152 M00S07958.dmrec +++|* CALL GAL, GFL, GPL, IFV, RAF, SDT, SPR. 09153 M00S07959.dmrec +++|* 09154 M00S07960.dmrec +++|* MACROS ERROR. 09155 M00S07961.dmrec +++| 09156 M00S07962.dmrec +++| 09157 M00S07963.dmrec +++| LST BSS 0 ENTRY 09158 M00S07964.dmrec +++| SB1 1 09159 M00S07965.dmrec +++| SA6 OPFLG SAVE OPERATION FLAG 09160 M00S07966.dmrec +++| RJ SPR SET PARAMETERS 09161 M00S07967.dmrec +++| RJ SDT SET DATE AND TIME 09162 M00S07968.dmrec +++| RJ IFV INITIALIZE FILES AND VARIABLES 09163 M00S07969.dmrec +++| NZ X1,LST5 IF ERRORS 09164 M00S07970.dmrec +++| SA3 LFNC FILE CONTROL INDICATOR 09165 M00S07971.dmrec +++| ZR X3,LST1 IF DATA BASE PARAMETER SPECIFIED 09166 M00S07972.dmrec +++| RJ GPL GENERATE PARTIAL LISTING 09167 M00S07973.dmrec +++| NZ X1,LST5 IF ERRORS 09168 M00S07974.dmrec +++| EQ LST4 COMPLETE 09169 M00S07975.dmrec +++| 09170 M00S07976.dmrec +++| LST1 SA3 TVSN 09171 M00S07977.dmrec +++| ZR X3,LST2 IF NO VSN PARAMETER 09172 M00S07978.dmrec +++| RJ GAL GENERATE AFTER IMAGE HEADERS LISTING 09173 M00S07979.dmrec +++| NZ X1,LST5 IF ERRORS 09174 M00S07980.dmrec +++| EQ LST4 COMPLETE 09175 M00S07981.dmrec +++| 09176 M00S07982.dmrec +++| LST2 SA3 LSTC LIST CONTROL INDICATOR 09177 M00S07983.dmrec +++| ZR X3,LST3 IF NO DATE/TIME - FULL LISTING 09178 M00S07984.dmrec +++| RJ GPL GENERATE PARTIAL LISTING 09179 M00S07985.dmrec +++| NZ X1,LST5 IF ERRORS 09180 M00S07986.dmrec +++| EQ LST4 COMPLETE 09181 M00S07987.dmrec +++| 09182 M00S07988.dmrec +++| LST3 RJ GFL GENERATE FULL LISTING 09183 M00S07989.dmrec +++| NZ X1,LST5 IF ERRORS 09184 M00S07990.dmrec +++| LST4 RJ RAF RETURN ALL FILES 09185 M00S07991.dmrec +++| EQ LST7 NORMAL TERMINATION 09186 M00S07992.dmrec +++| 09187 M00S07993.dmrec +++| LST5 RJ RAF RETURN ALL FILES 09188 M00S07994.dmrec +++| EQ LST8 ABNORMAL TERMINATION 09189 M00S07995.dmrec +++| 09190 M00S07996.dmrec +++| LST6 RJ RAF RETURN ALL FILES 09191 M00S07997.dmrec +++| EQ DMR2 RETURN 09192 M00S07998.dmrec +++| 09193 M00S07999.dmrec +++| LST7 ERROR LSTA,,,DMR3 LIST COMPLETE, READ NEXT DIRECTIVE 09194 M00S08000.dmrec +++| 09195 M00S08001.dmrec +++| LST8 ERROR LSTB,,,LST6,,E ERROR IN LIST PROCESSING 09196 M00S08002.dmrec +++| 09197 M00S08003.dmrec +++| LSTA DATA 20H0 09198 M00S08004.dmrec +++| DATA C*LIST COMPLETE.* 09199 M00S08005.dmrec +++| LSTAL EQU *-LSTA 09200 M00S08006.dmrec +++| 09201 M00S08007.dmrec +++| LSTB DATA 20H0 ***** 09202 M00S08008.dmrec +++| DATA C*ERROR IN LIST PROCESSING.* 09203 M00S08009.dmrec +++| LSTBL EQU *-LSTB 09204 M00S08010.dmrec +++| MDI SPACE 4,20 09205 M00S08011.dmrec +++|** MDI - MODIFY DIRECTORY. 09206 M00S08012.dmrec +++|* 09207 M00S08013.dmrec +++|* *MDI* DELETES OR ADDS ALL DUMP AND VSN ENTRIES BELONGING 09208 M00S08014.dmrec +++|* TO A GIVEN VSN NUMBER. 09209 M00S08015.dmrec +++|* 09210 M00S08016.dmrec +++|* ENTRY (TVSN) = VSN NUMBER. 09211 M00S08017.dmrec +++|* (ADDF) = 0, DELETE ENTRIES. 09212 M00S08018.dmrec +++|* 1, ADD ENTRIES. 09213 M00S08019.dmrec +++|* (FITA) = FWA OF AUXILARY FIT TABLE. 09214 M00S08020.dmrec +++|* 09215 M00S08021.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS 09216 M00S08022.dmrec +++|* 09217 M00S08023.dmrec +++|* USES X - 0, 1, 2, 3, 6. 09218 M00S08024.dmrec +++|* A - 0, 1, 2, 3, 6. 09219 M00S08025.dmrec +++|* B - 5. 09220 M00S08026.dmrec +++|* 09221 M00S08027.dmrec +++|* CALLS CVN, FER, PDE, SVK. 09222 M00S08028.dmrec +++|* 09223 M00S08029.dmrec +++|* MACROS DELETE, ERROR, FETCH, GETN, PUT, REWIND, RMGET. 09224 M00S08030.dmrec +++| 09225 M00S08031.dmrec +++| 09226 M00S08032.dmrec +++| MDI SUBR ENTRY/EXIT 09227 M00S08033.dmrec +++| RJ CVN CHECK VSN ENTRY 09228 M00S08034.dmrec +++| NZ X1,MDIX IF ERROR, RETURN 09229 M00S08035.dmrec +++| MDI1 SA6 MDIF SAVE NUMBER OF ACTIVE FILES 09230 M00S08036.dmrec +++| MDI2 SA1 ADDF ADD FLAG 09231 M00S08037.dmrec +++| ZR X1,MDI3 IF DELETE 09232 M00S08038.dmrec +++| PUT DIRR,WSAB,WSAL,,VKY1 INSERT INTO DIRECTORY 09233 M00S08039.dmrec +++| RJ FER FIT ERROR STATUS 09234 M00S08040.dmrec +++| NZ X1,MDI12 IF ERROR, RETURN 09235 M00S08041.dmrec +++| SA0 FITA RESET *A0* 09236 M00S08042.dmrec +++| SB5 B1 09237 M00S08043.dmrec +++| RJ PDE PRINT ADDED ENTRY 09238 M00S08044.dmrec +++| SA0 FITA RESET *A0* 09239 M00S08045.dmrec +++| EQ MDI4 NEXT ENTRY 09240 M00S08046.dmrec +++| 09241 M00S08047.dmrec +++| MDI3 DELETE A0,,VKY1 DELETE VSN ENTRY 09242 M00S08048.dmrec +++| SB5 B1 09243 M00S08049.dmrec +++| RJ PDE PRINT DELETED ENTRY 09244 M00S08050.dmrec +++| MDI4 SA1 WSAB+2 CONTINUATION VSN 09245 M00S08051.dmrec +++| ZR X1,MDI5 IF NO CONTINUATION VSN 09246 M00S08052.dmrec +++| RJ SVK SET VSN KEY 09247 M00S08053.dmrec +++| RMGET A0,WSAB,0,,VKY1 READ VSN ENTRY 09248 M00S08054.dmrec +++| FETCH A0,ES,X1 09249 M00S08055.dmrec +++| NZ X1,MDI11 IF ERROR, RETURN 09250 M00S08056.dmrec +++| EQ MDI2 PROCESS ENTRY 09251 M00S08057.dmrec +++| 09252 M00S08058.dmrec +++| MDI5 REWINDM A0 09253 M00S08059.dmrec +++| GETN A0,WSAB,,TKY1 DIRECTORY HEADER 09254 M00S08060.dmrec +++| MDI6 GETN A0,WSAB,,TKY1 NEXT DIRECTORY ENTRY 09255 M00S08061.dmrec +++| FETCH A0,FP,X3 09256 M00S08062.dmrec +++| MX1 0 09257 M00S08063.dmrec +++| SX2 X3-EOFF END OF FILE 09258 M00S08064.dmrec +++| ZR X2,MDIX IF END OF FILE 09259 M00S08065.dmrec +++| SA2 TKY2 SECOND WORD OF KEY 09260 M00S08066.dmrec +++| SA3 VSNK ALL ASTERISKS 09261 M00S08067.dmrec +++| BX1 X2-X3 COMPARE 09262 M00S08068.dmrec +++| ZR X1,MDI10 IF VSN TYPE ENTRY 09263 M00S08069.dmrec +++| SA1 WSAB+2 VSN FROM DUMP ENTRY 09264 M00S08070.dmrec +++| MX0 36 09265 M00S08071.dmrec +++| BX1 X0*X1 09266 M00S08072.dmrec +++| SA2 TVSN 09267 M00S08073.dmrec +++| BX1 X1-X2 COMPARE VSN NUMBERS 09268 M00S08074.dmrec +++| NZ X1,MDI6 IF NOT EQUAL, NEXT ENTRY 09269 M00S08075.dmrec +++| SA1 RECC RECORD COUNT 09270 M00S08076.dmrec +++| SX6 X1+B1 INCREMENT COUNT 09271 M00S08077.dmrec +++| SA2 WSAB+3 INDEX FILE 09272 M00S08078.dmrec +++| ZR X2,MDI7 IF NO INDEX FILE 09273 M00S08079.dmrec +++| SX6 X6+B1 INCREMENT COUNT 09274 M00S08080.dmrec +++| MDI7 SA6 RECC REPLACE COUNT 09275 M00S08081.dmrec +++| SA1 ADDF ADD FLAG 09276 M00S08082.dmrec +++| ZR X1,MDI8 IF DELETE 09277 M00S08083.dmrec +++| PUT DIRR,WSAB,WSAL,,TKY1 INSERT INTO DIRECTORY 09278 M00S08084.dmrec +++| RJ FER FIT ERROR STATUS 09279 M00S08085.dmrec +++| NZ X1,MDI12 IF ERROR, RETURN 09280 M00S08086.dmrec +++| SA0 FITA RESET *A0* 09281 M00S08087.dmrec +++| EQ MDI9 CONTINUE 09282 M00S08088.dmrec +++| 09283 M00S08089.dmrec +++| MDI8 DELETE A0,,TKY1 DELETE ENTRY 09284 M00S08090.dmrec +++| MDI9 SB5 B0 09285 M00S08091.dmrec +++| RJ PDE PRINT ENTRY ADDED/DELETED 09286 M00S08092.dmrec +++| EQ MDI6 PROCESS NEXT ENTRY 09287 M00S08093.dmrec +++| 09288 M00S08094.dmrec +++| MDI10 SA2 MDIF NUMBER OF ACTIVE FILES 09289 M00S08095.dmrec +++| SA3 RECC NUMBER OF ADDED/DELETED ENTRIES 09290 M00S08096.dmrec +++| IX1 X2-X3 09291 M00S08097.dmrec +++| NZ X1,MDI13 IF NUMBERS DO NOT MATCH 09292 M00S08098.dmrec +++| EQ MDIX NORMAL RETURN 09293 M00S08099.dmrec +++| 09294 M00S08100.dmrec +++| MDI11 ERROR CVNA,,,MDIX,,E VSN DOES NOT EXIST 09295 M00S08101.dmrec +++| 09296 M00S08102.dmrec +++| MDI12 ERROR MDIB,,,MDIX,,E DUPLICATE ENTER ON ADD 09297 M00S08103.dmrec +++| 09298 M00S08104.dmrec +++| MDI13 ERROR MDIC,,,MDIX,,E ERROR IN ADD/DELETE VSN 09299 M00S08105.dmrec +++| 09300 M00S08106.dmrec +++| MDIB DATA 20H0 ***** 09301 M00S08107.dmrec +++| DATA C*DUPLICATE ENTRY ON ADD.* 09302 M00S08108.dmrec +++| MDIBL EQU *-MDIB 09303 M00S08109.dmrec +++| 09304 M00S08110.dmrec +++| MDIC DATA 20H0 ***** 09305 M00S08111.dmrec +++| DATA C*ERROR IN ADD/DELETE VSN.* 09306 M00S08112.dmrec +++| MDICL EQU *-MDIC 09307 M00S08113.dmrec +++| 09308 M00S08114.dmrec +++| MDIF BSSZ 1 NUMBER OF ACTIVE FILES 09309 M00S08115.dmrec +++| MDS SPACE 4,20 09310 M00S08116.dmrec +++|** MDS - MODIFY DIRECTORY SELECTIVELY. 09311 M00S08117.dmrec +++|* 09312 M00S08118.dmrec +++|* *MDS* DELETES OR ADDS DUMP AND VSN ENTRIES BELONGING 09313 M00S08119.dmrec +++|* TO GIVEN VSN NUMBER FOR SELECTED FILE. 09314 M00S08120.dmrec +++|* 09315 M00S08121.dmrec +++|* ENTRY (TVSN) = VSN NUMBER. 09316 M00S08122.dmrec +++|* (ADDF) = 0, DELETE ENTRY. 09317 M00S08123.dmrec +++|* 1, ADD ENTRY. 09318 M00S08124.dmrec +++|* (FITA) = FWA OF AUXILARY FIT TABLE. 09319 M00S08125.dmrec +++|* 09320 M00S08126.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 09321 M00S08127.dmrec +++|* 09322 M00S08128.dmrec +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 09323 M00S08129.dmrec +++|* A - 0, 1, 2, 3, 6, 7. 09324 M00S08130.dmrec +++|* B - 5. 09325 M00S08131.dmrec +++|* 09326 M00S08132.dmrec +++|* CALLS CVN, FER, PDE, SFN, SVK. 09327 M00S08133.dmrec +++|* 09328 M00S08134.dmrec +++|* MACROS DELETE, ERROR, FETCH, GETN, PUT, RMGET, RMREP. 09329 M00S08135.dmrec +++| 09330 M00S08136.dmrec +++| 09331 M00S08137.dmrec +++| MDS SUBR ENTRY/EXIT 09332 M00S08138.dmrec +++| SX6 -2 09333 M00S08139.dmrec +++| SA6 LFNP PRESET FILE NAME POINTER 09334 M00S08140.dmrec +++| RJ CVN CHECK VSN NUMBER 09335 M00S08141.dmrec +++| SX6 A0 09336 M00S08142.dmrec +++| SA6 MDSE SAVE *A0* 09337 M00S08143.dmrec +++| NZ X1,MDSX IF ERROR, RETURN 09338 M00S08144.dmrec +++| MDS1 SA1 LFNP FILE POINTER IN *TDFS* TABLE 09339 M00S08145.dmrec +++| SX6 X1+2 INCREMENT POINTER 09340 M00S08146.dmrec +++| SA6 A1 REPLACE POINTER 09341 M00S08147.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFS* TABLE 09342 M00S08148.dmrec +++| LX1 1 MULTIPLY BY TWO 09343 M00S08149.dmrec +++| IX2 X6-X1 09344 M00S08150.dmrec +++| MX1 0 09345 M00S08151.dmrec +++| ZR X2,MDSX IF END OF TABLE, NORMAL RETURN 09346 M00S08152.dmrec +++| SA1 TDFS+X6 SELECTIVE FILE NAME 09347 M00S08153.dmrec +++| MX0 42 09348 M00S08154.dmrec +++| BX6 X0*X1 09349 M00S08155.dmrec +++| SX2 3RAAA FILE HEADER 09350 M00S08156.dmrec +++| BX6 X2+X6 09351 M00S08157.dmrec +++| SA6 CKY1 KEY WORD ONE 09352 M00S08158.dmrec +++| MX7 0 09353 M00S08159.dmrec +++| SA7 CKY2 KEY WORD TWO 09354 M00S08160.dmrec +++| SA1 MDSE 09355 M00S08161.dmrec +++| SA0 X1 RESTORE *A0* 09356 M00S08162.dmrec +++| RMGET A0,WSAB,0,,CKY1 READ FILE HEADER 09357 M00S08163.dmrec +++| FETCH A0,ES,X2 FIT ERROR STATUS 09358 M00S08164.dmrec +++| SX1 B1 09359 M00S08165.dmrec +++| NZ X2,MDS7 IF FILE DOES NOT EXIST 09360 M00S08166.dmrec +++| MDS2 GETN A0,WSAB,,TKY1 NEXT FILE ENTRY 09361 M00S08167.dmrec +++| FETCH A0,FP,X2 FILE POSITION 09362 M00S08168.dmrec +++| MX1 0 09363 M00S08169.dmrec +++| SX2 X2-EOFF 09364 M00S08170.dmrec +++| ZR X2,MDS1 IF END OF FILE, NEXT SELECTIVE FILE 09365 M00S08171.dmrec +++| SA2 CKY1 ORIGINAL FILE NAME 09366 M00S08172.dmrec +++| MX0 42 09367 M00S08173.dmrec +++| BX2 X0*X2 09368 M00S08174.dmrec +++| SA3 TKY1 FILE NAME OF CURRENT ENTRY 09369 M00S08175.dmrec +++| BX3 X0*X3 09370 M00S08176.dmrec +++| BX4 X2-X3 09371 M00S08177.dmrec +++| NZ X4,MDS1 IF NEW FILE NAME 09372 M00S08178.dmrec +++| SA1 WSAB+2 VSN FROM DUMP ENTRY 09373 M00S08179.dmrec +++| MX0 36 09374 M00S08180.dmrec +++| BX1 X0*X1 09375 M00S08181.dmrec +++| SA2 TVSN 09376 M00S08182.dmrec +++| BX3 X1-X2 09377 M00S08183.dmrec +++| NZ X3,MDS2 IF VSNS NOT EQUAL, NEXT ENTRY 09378 M00S08184.dmrec +++| SA1 ADDF ADD/DELETE FLAG 09379 M00S08185.dmrec +++| NZ X1,MDS3 IF ADD PROCESS 09380 M00S08186.dmrec +++| SB5 B0 FILE DUMP ENTRY 09381 M00S08187.dmrec +++| RJ PDE PRINT DELETED ENTRY 09382 M00S08188.dmrec +++| RJ PVE PROCESS VSN ENTRY 09383 M00S08189.dmrec +++| NZ X1,MDSX IF ERROR, RETURN 09384 M00S08190.dmrec +++| DELETE DIRR,,TKY1 DELETE FILE DUMP ENTRY 09385 M00S08191.dmrec +++| EQ MDS1 NEXT SELECTIVE FILE 09386 M00S08192.dmrec +++| 09387 M00S08193.dmrec +++| MDS3 PUT DIRR,WSAB,WSAL,,TKY1 INSERT INTO DIRECTORY 09388 M00S08194.dmrec +++| RJ FER FIT ERROR STATUS 09389 M00S08195.dmrec +++| NZ X1,MDS8 IF DUPLICATE DUMP ENTRY 09390 M00S08196.dmrec +++| SB5 B0 09391 M00S08197.dmrec +++| RJ PDE PRINT ADDED ENTRY 09392 M00S08198.dmrec +++| SX6 B1 FILES IN ENTRY 09393 M00S08199.dmrec +++| SA1 WSAB+3 INDEX FILE 09394 M00S08200.dmrec +++| ZR X1,MDS4 IF NO INDEX FILE 09395 M00S08201.dmrec +++| SX6 X6+B1 09396 M00S08202.dmrec +++| MDS4 SA6 MDSA SAVE COUNT OF FILES 09397 M00S08203.dmrec +++| SA1 TVSN 09398 M00S08204.dmrec +++| RJ SVK SET VSN KEY 09399 M00S08205.dmrec +++| RMGET DIRR,WSAB,0,,VKY1 READ VSN ENTRY 09400 M00S08206.dmrec +++| RJ FER FIT ERROR STATUS 09401 M00S08207.dmrec +++| NZ X1,MDS5 IF VSN ENTRY NOT FOUND 09402 M00S08208.dmrec +++| SA2 MDSA ACTIVE FILES ON DUMP ENTRY 09403 M00S08209.dmrec +++| SA3 WSAB+4 ACTIVE FILES FROM VSN ENTRY 09404 M00S08210.dmrec +++| IX6 X2+X3 UPDATE COUNT 09405 M00S08211.dmrec +++| SA6 A3 09406 M00S08212.dmrec +++| RMREP DIRR,WSAB,WSAL,,VKY1 REPLACE VSN ENTRY 09407 M00S08213.dmrec +++| RJ FER FIT ERROR STATUS 09408 M00S08214.dmrec +++| NZ X1,MDSX IF ERROR, RETURN 09409 M00S08215.dmrec +++| EQ MDS1 NEXT SELECTIVE FILE 09410 M00S08216.dmrec +++| 09411 M00S08217.dmrec +++| MDS5 RMGET FITA,WSAB,0,,VKY1 READ VSN ENTRY FROM AUXILARY FIT 09412 M00S08218.dmrec +++| SA2 MDSA COUNT OF FILES ON DUMP ENTRY 09413 M00S08219.dmrec +++| BX6 X2 09414 M00S08220.dmrec +++| SA6 WSAB+4 INITIAL COUNT 09415 M00S08221.dmrec +++| MDS6 PUT DIRR,WSAB,WSAL,,VKY1 INSERT INTO DIRECTORY 09416 M00S08222.dmrec +++| RJ FER FIT ERROR STATUS 09417 M00S08223.dmrec +++| NZ X1,MDS9 IF DUPLICATE VSN ENTRY 09418 M00S08224.dmrec +++| SB5 B1 09419 M00S08225.dmrec +++| RJ PDE PRINT ADDED VSN ENTRY 09420 M00S08226.dmrec +++| SA1 WSAB+2 CONTINUATION VSN 09421 M00S08227.dmrec +++| ZR X1,MDS1 IF NO CONTINUATION VSN, SELECTIVE FILE 09422 M00S08228.dmrec +++| RJ SVK SET VSN KEY 09423 M00S08229.dmrec +++| RMGET FITA,WSAB,0,,VKY1 READ VSN FORM AUXILARY FIT 09424 M00S08230.dmrec +++| EQ MDS6 CONTINUE 09425 M00S08231.dmrec +++| 09426 M00S08232.dmrec +++| MDS7 SA1 CKY1 FILE NAME 09427 M00S08233.dmrec +++| MX0 42 09428 M00S08234.dmrec +++| BX1 X0*X1 09429 M00S08235.dmrec +++| RJ SFN SPACE FILL NAME 09430 M00S08236.dmrec +++| SA6 MDSB+2 09431 M00S08237.dmrec +++| ERROR MDSB,,,MDS1 FILE NOT FOUND 09432 M00S08238.dmrec +++| 09433 M00S08239.dmrec +++| MDS8 ERROR MDSC,,,MDSX,,E DUPLICATE DUMP ENTRY ON ADD 09434 M00S08240.dmrec +++| 09435 M00S08241.dmrec +++| MDS9 ERROR MDSD,,,MDSX,,E DUPLICATE VSN ENTRY ON ADD 09436 M00S08242.dmrec +++| 09437 M00S08243.dmrec +++| MDSA BSSZ 1 COUNT OF FILES IN DUMP ENTRY 09438 M00S08244.dmrec +++| 09439 M00S08245.dmrec +++| MDSB DATA 20H0 ***** 09440 M00S08246.dmrec +++| DATA C*XXXXXXX NOT FOUND IN DIRECTORY.* 09441 M00S08247.dmrec +++| MDSBL EQU *-MDSB 09442 M00S08248.dmrec +++| 09443 M00S08249.dmrec +++| MDSC DATA 20H0 ***** 09444 M00S08250.dmrec +++| DATA C*DUPLICATE DUMP ENTRY ON ADD.* 09445 M00S08251.dmrec +++| MDSCL EQU *-MDSC 09446 M00S08252.dmrec +++| 09447 M00S08253.dmrec +++| MDSD DATA 20H0 ***** 09448 M00S08254.dmrec +++| DATA C*DUPLICATE VSN ENTRY ON ADD.* 09449 M00S08255.dmrec +++| MDSDL EQU *-MDSD 09450 M00S08256.dmrec +++| 09451 M00S08257.dmrec +++| MDSE BSSZ 1 SAVE *A0* 09452 M00S08258.dmrec +++| NOP SPACE 4,15 09453 M00S08259.dmrec +++|** NOP - NOTIFY OPERATOR. 09454 M00S08260.dmrec +++|* 09455 M00S08261.dmrec +++|* *NOP* WILL NOTIFY THE OPERATOR AND PUT A MESSAGE INTO 09456 M00S08262.dmrec +++|* THE JOB-S DAYFILE. IF THIS JOB WAS SUBMITTED BY TAF, 09457 M00S08263.dmrec +++|* THE TAF IDENTIFIER (TT) WILL BE CLEARED SO TAF 09458 M00S08264.dmrec +++|* WILL NOT BE NOTIFIED OF SUCCESSFUL COMPLETION. THIS 09459 M00S08265.dmrec +++|* ROUTINE IS ALSO USED TO INFORM THE OPERATOR OF AN 09460 M00S08266.dmrec +++|* IMPENDING TAPE REQUEST FROM A TAF SUBMITTED JOB. 09461 M00S08267.dmrec +++|* 09462 M00S08268.dmrec +++|* ENTRY (A5) = MESSAGE ADDRESS. 09463 M00S08269.dmrec +++|* (TT) = TAF IDENTIFIER. 09464 M00S08270.dmrec +++|* (RQTREQ) .NE. 0, IF REQUEST FROM *RQT*. 09465 M00S08271.dmrec +++|* 09466 M00S08272.dmrec +++|* EXIT (TT) = 0, IF REQUEST NOT FROM *RQT* (DONT NOTIFY TAF). 09467 M00S08273.dmrec +++|* (TT) UNCHANGED, IF REQUEST FROM *RQT*. 09468 M00S08274.dmrec +++|* 09469 M00S08275.dmrec +++|* USES X - 1, 6. 09470 M00S08276.dmrec +++|* A - 1, 6. 09471 M00S08277.dmrec +++|* 09472 M00S08278.dmrec +++|* MACROS MESSAGE, RECALL. 09473 M00S08279.dmrec +++| 09474 M00S08280.dmrec +++| 09475 M00S08281.dmrec +++| NOP3 SA1 RQTREQ 09476 M00S08282.dmrec +++| NZ X1,NOPX IF REQUEST NOT FROM *RQT*, RETURN 09477 M00S08283.dmrec +++| SA6 TT 09478 M00S08284.dmrec +++| 09479 M00S08285.dmrec +++| NOP SUBR ENTRY/EXIT 09480 M00S08286.dmrec +++| NOP1 SA1 B0 GET RA+0 09481 M00S08287.dmrec +++| SX6 5 09482 M00S08288.dmrec +++| LX6 12 09483 M00S08289.dmrec +++| BX6 X6+X1 SET CFO AND PAUSE BITS 09484 M00S08290.dmrec +++| SA6 A1 09485 M00S08291.dmrec +++| SA1 RQTREQ 09486 M00S08292.dmrec +++| ZR X1,NOP1.1 IF REQUEST NOT FROM *RQT* 09487 M00S08293.dmrec +++| MESSAGE A5,2 09488 M00S08294.dmrec +++| EQ NOP2 GO INTO RECALL UNTIL RESPONSE 09489 M00S08295.dmrec +++| 09490 M00S08296.dmrec +++| NOP1.1 MESSAGE A5,3 09491 M00S08297.dmrec +++| MESSAGE NOPA,2 09492 M00S08298.dmrec +++| MESSAGE NOPB,3 09493 M00S08299.dmrec +++| NOP2 RECALL 09494 M00S08300.dmrec +++| SA1 B0 CHECK CFO BIT IN RA+0 09495 M00S08301.dmrec +++| LX1 59-14 09496 M00S08302.dmrec +++| NG X1,NOP2 IF NO RESPONSE 09497 M00S08303.dmrec +++| MESSAGE NOPC,2 09498 M00S08304.dmrec +++| SA1 70B GET RESPONSE FROM RA+70B 09499 M00S08305.dmrec +++| AX1 48 09500 M00S08306.dmrec +++| SX6 X1-2RGO CHECK FOR *GO* RESPONSE 09501 M00S08307.dmrec +++| ZR X6,NOP3 IF RESPONSE .EQ. *GO*, RETURN
| Line S08308 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 09502 M01S08308.v23l617 ---| EQ NOP1 RE-ISSUE MESSAGE ON INVALID RESPONSE
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 09503 M01S00062.v23l617 +++| EQ NOP1 RE-ISSUE MESSAGE ON INCORRECT RESPONSE 09504 M00S08309.dmrec +++| 09505 M00S08310.dmrec +++| NOPA DATA C*$SEE JOB DAYFILE.* 09506 M00S08311.dmrec +++| 09507 M00S08312.dmrec +++| NOPB DATA C* NOTE FAILURE, THEN TYPE IN CFO,JSN.GO.* 09508 M00S08313.dmrec +++| 09509 M00S08314.dmrec +++| NOPC BSSZ 1 ZERO WORD 09510 M00S08315.dmrec +++| NTF SPACE 4,20 09511 M00S08316.dmrec +++|** NTF - NOTIFY TAF. 09512 M00S08317.dmrec +++|* 09513 M00S08318.dmrec +++|* *NTF* WILL ISSUE A *SIC* REQUEST TO NOTIFY TAF THAT 09514 M00S08319.dmrec +++|* THE PRESENT *DMREC* FUNCTION HAS COMPLETED. 09515 M00S08320.dmrec +++|* 09516 M00S08321.dmrec +++|* ENTRY (TT) = TAF IDENTIFIER 09517 M00S08322.dmrec +++|* (XXPFN) = PFN OF DATA FILE OR LOG FILE.
| Line S08323 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 09518 M01S08323.ns2023 ---|* (TTFLG) = 1 - IF *LRF* DUMP.
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 09519 M01S00149.ns2023 +++|* (TTFLG) = 1 - IF *ARF* DUMP. 09520 M00S08324.dmrec +++|* 2 - IF RECOVER *DB* FILE (UPDATE PROCESSOR).
| Line S08325 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 09521 M01S08325.ns2023 ---|* 3 - IF *QRF* DOWN (UPDATE PROCESSOR).
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 09522 M01S00150.ns2023 +++|* 3 - IF *BRF* DOWN (UPDATE PROCESSOR). 09523 M00S08326.dmrec +++|* 09524 M00S08327.dmrec +++|* EXIT *SIC* REQUEST ISSUED TO TAF. 09525 M00S08328.dmrec +++|* 09526 M00S08329.dmrec +++|* USES X - 0, 1, 2, 5, 6. 09527 M00S08330.dmrec +++|* A - 1, 2, 5, 6. 09528 M00S08331.dmrec +++|* B - 7. 09529 M00S08332.dmrec +++|* 09530 M00S08333.dmrec +++|* MACROS SYSTEM. 09531 M00S08334.dmrec +++| 09532 M00S08335.dmrec +++| 09533 M00S08336.dmrec +++| NTF SUBR ENTRY/EXIT 09534 M00S08337.dmrec +++| SA5 TT 09535 M00S08338.dmrec +++| ZR X5,NTFX IF TT NOT SPECIFIED 09536 M00S08339.dmrec +++| SB7 B1 09537 M00S08340.dmrec +++| RJ DXB CONVERT TO BINARY 09538 M00S08341.dmrec +++| SA1 TDFN 09539 M00S08342.dmrec +++| MX0 42 09540 M00S08343.dmrec +++| BX1 X0*X1 09541 M00S08344.dmrec +++| NTF1 BX6 X6+X1 09542 M00S08345.dmrec +++| SA6 NTFB SET PFN/ID 09543 M00S08346.dmrec +++| SA2 TTFLG TELL TAF FLAG 09544 M00S08347.dmrec +++| BX6 X2 09545 M00S08348.dmrec +++| SA6 NTFC STORE FUNCTION CODE IN *SIC* REQUEST 09546 M00S08349.dmrec +++| 09547 M00S08350.dmrec +++| SYSTEM SIC,R,NTFA,NTFA+1 09548 M00S08351.dmrec +++| 09549 M00S08352.dmrec +++| EQ NTFX RETURN 09550 M00S08353.dmrec +++| 09551 M00S08354.dmrec +++| NTFA VFD 18/0,12//SSD/TRSI,30/0 09552 M00S08355.dmrec +++| VFD 12/2007B,30/0,18/4 09553 M00S08356.dmrec +++| VFD 42/6LCRMSIC,18/0 09554 M00S08357.dmrec +++| NTFB VFD 42/0,18/0 09555 M00S08358.dmrec +++| NTFC VFD 42/0,18/0 09556 M00S08359.dmrec +++| VFD 60/0
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09557 M01S00172.ns2056 +++| PAC SPACE 4,10 09558 M01S00173.ns2056 +++|** PAC - PACK CONTROL CARD. 09559 M01S00174.ns2056 +++|* 09560 M01S00175.ns2056 +++|* *PAC* - REPACKS A PARAMETER BUFFER INTO A CONTROL CARD 09561 M01S00176.ns2056 +++|* FORMAT. THE PARAMETER BUFFER MUST BE LEFT JUSTIFIED ZERO 09562 M01S00177.ns2056 +++|* FILLED WITH NO SEPERATORS. THE PARAMETERS WILL BE PACKED 09563 M01S00178.ns2056 +++|* WITH COMMA SEPERATORS AND END WITH A PERIOD. 09564 M01S00179.ns2056 +++|* 09565 M01S00180.ns2056 +++|* ENTRY (B5) - ADDRESS OF CONTROL WORD BUFFER. 09566 M01S00181.ns2056 +++|* (B6) - PARAMETER COUNT. 09567 M01S00182.ns2056 +++|* (B7) - ADDRESS OF PAREMETER BUFFER. 09568 M01S00183.ns2056 +++|* 09569 M01S00184.ns2056 +++|* EXIT (B2) - NUMBER OF WORDS IN CONTROL CARD. 09570 M01S00185.ns2056 +++|* 09571 M01S00186.ns2056 +++|* USES X - 0, 1, 2, 3, 6. 09572 M01S00187.ns2056 +++|* A - 1, 2, 6. 09573 M01S00188.ns2056 +++|* B - 2, 3, 6. 09574 M01S00189.ns2056 +++| 09575 M01S00190.ns2056 +++| 09576 M01S00191.ns2056 +++| PAC SUBR ENTRY/EXIT 09577 M01S00192.ns2056 +++| MX0 6 CHARACTER MASK 09578 M01S00193.ns2056 +++| SB2 B0 REPLACEMENT WORD COUNT 09579 M01S00194.ns2056 +++| SB3 60 PARAMETER LOCATION POINTER 09580 M01S00195.ns2056 +++| SA2 B5+ 09581 M01S00196.ns2056 +++| SA1 B7+ 09582 M01S00197.ns2056 +++| PAC1 BX3 X0*X1 09583 M01S00198.ns2056 +++| ZR X3,PAC3 IF NO MORE CHARACTERS 09584 M01S00199.ns2056 +++| LX3 B3 09585 M01S00200.ns2056 +++| BX2 X2+X3 09586 M01S00201.ns2056 +++| SB3 B3-6 09587 M01S00202.ns2056 +++| LX1 6 09588 M01S00203.ns2056 +++| PAC2 NE B3,B0,PAC1 IF REPLACEMENT WORD NOT FULL 09589 M01S00204.ns2056 +++| BX6 X2 09590 M01S00205.ns2056 +++| SA6 A2 REPLACE REPLACEMENT WORD 09591 M01S00206.ns2056 +++| SA2 A2+1 09592 M01S00207.ns2056 +++| SB2 B2+B1 09593 M01S00208.ns2056 +++| MX2 0 ZERO OUT WORD 09594 M01S00209.ns2056 +++| SB3 60 09595 M01S00210.ns2056 +++| EQ PAC1 CONTINUE 09596 M01S00211.ns2056 +++| 09597 M01S00212.ns2056 +++| PAC3 SB3 B3-6 09598 M01S00213.ns2056 +++| SB6 B6-1 DECREMENT PARAMETER COUNT 09599 M01S00214.ns2056 +++| ZR B6,PAC4 IF LAST PARAMETER 09600 M01S00215.ns2056 +++| SX3 1R, 09601 M01S00216.ns2056 +++| LX3 B3 POSITION COMMA 09602 M01S00217.ns2056 +++| BX2 X2+X3 09603 M01S00218.ns2056 +++| SA1 A1+1 09604 M01S00219.ns2056 +++| EQ PAC2 CONTINUE 09605 M01S00220.ns2056 +++| 09606 M01S00221.ns2056 +++| PAC4 SX3 1R) 09607 M01S00222.ns2056 +++| LX3 B3 09608 M01S00223.ns2056 +++| BX6 X2+X3 09609 M01S00224.ns2056 +++| SA6 A2 09610 M01S00225.ns2056 +++| SB2 B2+B1 INCREMENT PACKED WORD COUNT 09611 M01S00226.ns2056 +++| EQ PACX RETURN 09612 M00S08360.dmrec +++| PDE SPACE 4,20 09613 M00S08361.dmrec +++|** PDE - PRINT DELETED ENTRY. 09614 M00S08362.dmrec +++|* 09615 M00S08363.dmrec +++|* ENTRY (B5) = 0, IF DUMP ENTRY. 09616 M00S08364.dmrec +++|* 1, IF VSN ENTRY. 09617 M00S08365.dmrec +++|* (ADDF) = 0, DELETE ENTRY. 09618 M00S08366.dmrec +++|* 1, ADD ENTRY. 09619 M00S08367.dmrec +++|* (WSAB) = FWA OF DELETED ENTRY. 09620 M00S08368.dmrec +++|* 09621 M00S08369.dmrec +++|* EXIT ENTRY PRINTED. 09622 M00S08370.dmrec +++|* 09623 M00S08371.dmrec +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 09624 M00S08372.dmrec +++|* A - 1, 2, 3, 5, 6, 7. 09625 M00S08373.dmrec +++|* B - NONE. 09626 M00S08374.dmrec +++|* 09627 M00S08375.dmrec +++|* CALLS BFL, LDE, SFN. 09628 M00S08376.dmrec +++|* 09629 M00S08377.dmrec +++|* MACROS EDATE, ETIME. 09630 M00S08378.dmrec +++| 09631 M00S08379.dmrec +++| 09632 M00S08380.dmrec +++| PDE SUBR ENTRY/EXIT 09633 M00S08381.dmrec +++| RJ BFL BLANK FILL LINE 09634 M00S08382.dmrec +++| SA1 PDEA 09635 M00S08383.dmrec +++| SA2 ADDF ADD FLAG 09636 M00S08384.dmrec +++| ZR X2,PDE1 IF ENTRY DELETED 09637 M00S08385.dmrec +++| SA1 PDEC 09638 M00S08386.dmrec +++| PDE1 BX6 X1 09639 M00S08387.dmrec +++| SA6 PLIN+1 09640 M00S08388.dmrec +++| EQ B5,B1,PDE4 IF VSN ENTRY 09641 M00S08389.dmrec +++| SA2 WSAB FILE NAME 09642 M00S08390.dmrec +++| MX0 -18 09643 M00S08391.dmrec +++| BX1 -X0*X2 COPY NUMBER 09644 M00S08392.dmrec +++| SX3 3RBBB FILE DUMP ENTRY 09645 M00S08393.dmrec +++| BX3 X1-X3 09646 M00S08394.dmrec +++| ZR X3,PDE2 IF FILE DUMP ENTRY 09647 M00S08395.dmrec +++| SA3 LOGT AFTER IMAGE LOG TYPE 09648 M00S08396.dmrec +++| BX3 X0*X3 09649 M00S08397.dmrec +++| BX6 X1+X3 09650 M00S08398.dmrec +++| EQ PDE3 CONTINUE 09651 M00S08399.dmrec +++| 09652 M00S08400.dmrec +++| PDE2 SA1 TFIL FILE DUMP TYPE 09653 M00S08401.dmrec +++| BX6 X1 09654 M00S08402.dmrec +++| PDE3 SA6 PLIN+2 09655 M00S08403.dmrec +++| BX1 X0*X2 FILE NAME 09656 M00S08404.dmrec +++| RJ SFN SPACE FILL NAME 09657 M00S08405.dmrec +++| LX6 53-59 09658 M00S08406.dmrec +++| SA6 PLIN+3 09659 M00S08407.dmrec +++| SA5 WSAB+1 PACKED DATE/TIME 09660 M00S08408.dmrec +++| ETIME X5 UNPACK TIME 09661 M00S08409.dmrec +++| SA6 PLIN+5 09662 M00S08410.dmrec +++| AX5 18 09663 M00S08411.dmrec +++| EDATE X5 UNPACK DATE 09664 M00S08412.dmrec +++| SA6 PLIN+4 09665 M00S08413.dmrec +++| SA1 WSAB+2 VSN NUMBER 09666 M00S08414.dmrec +++| MX0 36 09667 M00S08415.dmrec +++| BX1 X0*X1 09668 M00S08416.dmrec +++| RJ SFN SPACE FILL NAME 09669 M00S08417.dmrec +++| LX6 47-59 09670 M00S08418.dmrec +++| SA6 PLIN+6 09671 M00S08419.dmrec +++| MX7 0 09672 M00S08420.dmrec +++| SA7 PLIN+8 TERMINATE LINE 09673 M00S08421.dmrec +++| EQ PDE5 PRINT THE LINE 09674 M00S08422.dmrec +++| 09675 M00S08423.dmrec +++| PDE4 SA2 WSAB VSN NUMBER 09676 M00S08424.dmrec +++| LX2 59-35 09677 M00S08425.dmrec +++| MX0 36 09678 M00S08426.dmrec +++| BX1 X0*X2 09679 M00S08427.dmrec +++| RJ SFN SET FILE NAME 09680 M00S08428.dmrec +++| SA6 PLIN+3 09681 M00S08429.dmrec +++| SA2 PDEB 09682 M00S08430.dmrec +++| BX7 X2 09683 M00S08431.dmrec +++| SA7 PLIN+2 09684 M00S08432.dmrec +++| MX6 0 09685 M00S08433.dmrec +++| SA6 PLIN+4 TERMINATE LINE 09686 M00S08434.dmrec +++| PDE5 RJ LDE PRINT ENTRY 09687 M00S08435.dmrec +++| EQ PDEX RETURN 09688 M00S08436.dmrec +++| 09689 M00S08437.dmrec +++| PDEA DATA 10HDELETED - 09690 M00S08438.dmrec +++| PDEB DATA 10H VSN = 09691 M00S08439.dmrec +++| PDEC DATA 10H ADDED - 09692 M00S08440.dmrec +++| PDT SPACE 4,20 09693 M00S08441.dmrec +++|** PDT - PACK DATE AND TIME. 09694 M00S08442.dmrec +++|* 09695 M00S08443.dmrec +++|* *PDT* GENERATES A PACKED DATE AND TIME FROM DATE/TIME 09696 M00S08444.dmrec +++|* IN THE FORMAT OF THE INPUT PARAMETERS. 09697 M00S08445.dmrec +++|* 09698 M00S08446.dmrec +++|* ENTRY (X2) = DATE - 6LYYMMDD 09699 M00S08447.dmrec +++|* (X3) = TIME - 6LHHMMSS 09700 M00S08448.dmrec +++|* 09701 M00S08449.dmrec +++|* EXIT (X1) = 0 IF NO ERRORS 09702 M00S08450.dmrec +++|* (X6) = PACKED DATE/TIME 09703 M00S08451.dmrec +++|* 09704 M00S08452.dmrec +++|* USES A - 2, 6. 09705 M00S08453.dmrec +++|* X - 0, 1, 2, 5, 6. 09706 M00S08454.dmrec +++|* B - 7. 09707 M00S08455.dmrec +++|* 09708 M00S08456.dmrec +++|* CALLS DXB. 09709 M00S08457.dmrec +++|* 09710 M00S08458.dmrec +++|* MACROS ERROR. 09711 M00S08459.dmrec +++| 09712 M00S08460.dmrec +++| 09713 M00S08461.dmrec +++| PDT SUBR ENTRY/EXIT 09714 M00S08462.dmrec +++| SB7 B1 09715 M00S08463.dmrec +++| BX6 X2 09716 M00S08464.dmrec +++| SA6 TEMP1 SAVE DATE 09717 M00S08465.dmrec +++| BX6 X3 09718 M00S08466.dmrec +++| SA6 TEMP2 SAVE TIME 09719 M00S08467.dmrec +++| MX0 12 09720 M00S08468.dmrec +++| BX5 X0*X2 09721 M00S08469.dmrec +++| RJ =XDXB YEAR 09722 M00S08470.dmrec +++| NZ X4,PDT1 IF ERROR 09723 M00S08471.dmrec +++| SX6 X6-70D 09724 M00S08472.dmrec +++| LX6 6 09725 M00S08473.dmrec +++| SA6 DAT XXXXY0 09726 M00S08474.dmrec +++| SA2 TEMP1 09727 M00S08475.dmrec +++| LX2 12 09728 M00S08476.dmrec +++| MX0 12 09729 M00S08477.dmrec +++| BX5 X0*X2 09730 M00S08478.dmrec +++| RJ =XDXB 09731 M00S08479.dmrec +++| NZ X4,PDT1 IF ERROR 09732 M00S08480.dmrec +++| SA2 DAT 09733 M00S08481.dmrec +++| BX6 X6+X2 09734 M00S08482.dmrec +++| LX6 6 09735 M00S08483.dmrec +++| SA6 A2 XXXYM0 09736 M00S08484.dmrec +++| SA2 TEMP1 09737 M00S08485.dmrec +++| LX2 24 09738 M00S08486.dmrec +++| MX0 12 09739 M00S08487.dmrec +++| BX5 X0*X2 09740 M00S08488.dmrec +++| RJ =XDXB DAY 09741 M00S08489.dmrec +++| NZ X4,PDT1 IF ERROR 09742 M00S08490.dmrec +++| SA2 DAT 09743 M00S08491.dmrec +++| BX6 X6+X2 09744 M00S08492.dmrec +++| LX6 6 09745 M00S08493.dmrec +++| SA6 A2 XXYMD0 09746 M00S08494.dmrec +++| SA2 TEMP2 09747 M00S08495.dmrec +++| MX0 12 09748 M00S08496.dmrec +++| BX5 X0*X2 09749 M00S08497.dmrec +++| RJ =XDXB HOUR 09750 M00S08498.dmrec +++| NZ X4,PDT1 IF ERROR 09751 M00S08499.dmrec +++| SA2 DAT 09752 M00S08500.dmrec +++| BX6 X6+X2 09753 M00S08501.dmrec +++| LX6 6 09754 M00S08502.dmrec +++| SA6 A2 XYMDH0 09755 M00S08503.dmrec +++| SA2 TEMP2 09756 M00S08504.dmrec +++| MX0 12 09757 M00S08505.dmrec +++| LX2 12 09758 M00S08506.dmrec +++| BX5 X0*X2 09759 M00S08507.dmrec +++| RJ =XDXB MINUTE 09760 M00S08508.dmrec +++| NZ X4,PDT1 IF ERROR 09761 M00S08509.dmrec +++| SA2 DAT 09762 M00S08510.dmrec +++| BX6 X6+X2 09763 M00S08511.dmrec +++| LX6 6 09764 M00S08512.dmrec +++| SA6 A2 YMDHM0 09765 M00S08513.dmrec +++| SA2 TEMP2 09766 M00S08514.dmrec +++| MX0 12 09767 M00S08515.dmrec +++| LX2 24 09768 M00S08516.dmrec +++| BX5 X0*X2 09769 M00S08517.dmrec +++| RJ =XDXB SECOND 09770 M00S08518.dmrec +++| NZ X4,PDT1 IF ERROR 09771 M00S08519.dmrec +++| SA2 DAT 09772 M00S08520.dmrec +++| BX6 X6+X2 09773 M00S08521.dmrec +++| SA6 A2 YMDHMS 09774 M00S08522.dmrec +++| SX1 B0 09775 M00S08523.dmrec +++| EQ PDTX EXIT NORMAL 09776 M00S08524.dmrec +++| 09777 M00S08525.dmrec +++| PDT1 ERROR PDTA,,,PDTX,,E PACKED DATE/TIME CONVERSION ERROR 09778 M00S08526.dmrec +++| 09779 M00S08527.dmrec +++| PDTA DATA 20H0 ***** 09780 M00S08528.dmrec +++| DATA C*PACKED DATE/TIME CONVERSION ERROR.* 09781 M00S08529.dmrec +++| PDTAL EQU *-PDTA
| Line S08530 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09782 M01S08530.ns2056 ---| PPS SPACE 4,25 09783 M01S08531.ns2056 ---|** PPS - PACK PARAMETER STRING. 09784 M01S08532.ns2056 ---|* 09785 M01S08533.ns2056 ---|* THIS SUBROUTINE PACKS A SET OF PARAMETERS RESIDING IN 09786 M01S08534.ns2056 ---|* CONTIGUOUS WORDS INTO A CHARACTER STRING. IF SPECIFIED 09787 M01S08535.ns2056 ---|* BY THE CALLER, A DELIMITER WILL BE INSERTED BETWEEN 09788 M01S08536.ns2056 ---|* EACH PARAMETER. THE TERMINATOR SPECIFIED BY THE 09789 M01S08537.ns2056 ---|* CALLER WILL BE APPENDED TO THE LAST PARAMETER. 09790 M01S08538.ns2056 ---|* BEFORE THE PARAMETERS ARE PACKED, EIGHT WORDS 09791 M01S08539.ns2056 ---|* OF THE RECEIVING AREA ARE PADDED WITH BLANKS. 09792 M01S08540.ns2056 ---|* UPON ENTRY, THE PARAMETERS MUST BE LEFT-JUSTIFIED IN A 09793 M01S08541.ns2056 ---|* WORD, ZERO-FILLED. 09794 M01S08542.ns2056 ---|* 09795 M01S08543.ns2056 ---|* ENTRY (X1) = FIRST PARAMETER, LEFT-JUSTIFIED. 09796 M01S08544.ns2056 ---|* (X2) = TERMINATOR, RIGHT-JUSTIFIED. 09797 M01S08545.ns2056 ---|* (X3) = DELIMITER, RIGHT-JUSTIFIED (IF ANY). 09798 M01S08546.ns2056 ---|* = ZERO, IF NO DELIMITER TO BE INSERTED. 09799 M01S08547.ns2056 ---|* (A1) = FWA OF THE PARAMETER AREA. 09800 M01S08548.ns2056 ---|* (B5) = NUMBER OF PARAMETER WORDS TO PROCESS. 09801 M01S08549.ns2056 ---|* (PPSA) = FWA OF EIGHT WORD DESTINATION AREA. 09802 M01S08550.ns2056 ---|* 09803 M01S08551.ns2056 ---|* EXIT (A6) = ADDRESS OF LAST WORD STORED IN DESTINATION 09804 M01S08552.ns2056 ---|* AREA. 09805 M01S08553.ns2056 ---|* 09806 M01S08554.ns2056 ---|* USES X - 1, 2, 4, 6, 7. 09807 M01S08555.ns2056 ---|* A - 1, 4, 6. 09808 M01S08556.ns2056 ---|* B - 2, 5, 6, 7. 09809 M01S08557.ns2056 ---| 09810 M01S08558.ns2056 ---| 09811 M01S08559.ns2056 ---| PPS SUBR ENTRY/EXIT 09812 M01S08560.ns2056 ---| SB6 8-1 COUNT 8 WORDS 09813 M01S08561.ns2056 ---| SA4 PPSA DESTINATION ADDRESS 09814 M01S08562.ns2056 ---| MX7 -6 RIGHT CHARACTER MASK 09815 M01S08563.ns2056 ---| SB7 A4+2 09816 M01S08564.ns2056 ---| SA4 X4+B1 BLANKS 09817 M01S08565.ns2056 ---| BX6 X4 09818 M01S08566.ns2056 ---| PPS1 SA6 B7+B6 BLANK FILL DESTINATION AREA 09819 M01S08567.ns2056 ---| SB6 B6-B1 09820 M01S08568.ns2056 ---| PL B6,PPS1 IF MORE WORDS 09821 M01S08569.ns2056 ---| SX6 B0 09822 M01S08570.ns2056 ---| SB6 10 09823 M01S08571.ns2056 ---| SB5 B5-B1 DECREMENT WORD COUNT 09824 M01S08572.ns2056 ---| PPS2 LX1 6 RIGHT JUSTIFY CHARACTER 09825 M01S08573.ns2056 ---| BX4 -X7*X1 09826 M01S08574.ns2056 ---| ZR X4,PPS3 IF NO CHARACTER 09827 M01S08575.ns2056 ---| LX6 6 09828 M01S08576.ns2056 ---| BX6 X6+X4 COPY CHARACTER 09829 M01S08577.ns2056 ---| SB6 B6-B1 DECREMENT CHARACTER COUNT 09830 M01S08578.ns2056 ---| BX1 X7*X1 CLEAR COPIED CHARACTER 09831 M01S08579.ns2056 ---| NZ B6,PPS2 IF NOT 10 CHARACTERS 09832 M01S08580.ns2056 ---| SA6 B7 STORE WORD 09833 M01S08581.ns2056 ---| SB7 B7+B1 INCREMENT DESTINATION ADDRESS 09834 M01S08582.ns2056 ---| SX6 0 09835 M01S08583.ns2056 ---| SB6 10 09836 M01S08584.ns2056 ---| EQ PPS2 CONTINUE PACKING 09837 M01S08585.ns2056 ---| 09838 M01S08586.ns2056 ---| PPS3 ZR B5,PPS7 IF NO WORDS REMAIN 09839 M01S08587.ns2056 ---| ZR X3,PPS4 IF NO DELIMITER TO BE INSERTED 09840 M01S08588.ns2056 ---| LX6 6 09841 M01S08589.ns2056 ---| BX6 X6+X3 ADD DELIMITER TO CHARACTER STRING 09842 M01S08590.ns2056 ---| SB6 B6-1 DECREMENT CHARACTER COUNT 09843 M01S08591.ns2056 ---| NZ B6,PPS4 IF NOT 10 CHARACTERS 09844 M01S08592.ns2056 ---| SA6 B7 STORE WORD 09845 M01S08593.ns2056 ---| SB7 B7+B1 INCREMENT DESTINATION ADDRESS 09846 M01S08594.ns2056 ---| SX6 0 09847 M01S08595.ns2056 ---| SB6 10 09848 M01S08596.ns2056 ---| PPS4 SB5 B5-B1 DECREMENT WORD COUNT 09849 M01S08597.ns2056 ---| SA1 A1+B1 GET NEXT WORD 09850 M01S08598.ns2056 ---| EQ PPS2 PROCESS NEXT WORD 09851 M01S08599.ns2056 ---| 09852 M01S08600.ns2056 ---|* ADD TERMINATOR TO CHARACTER STRING. 09853 M01S08601.ns2056 ---| 09854 M01S08602.ns2056 ---| PPS7 SB2 B6-B1 09855 M01S08603.ns2056 ---| PPS5 LX6 6 09856 M01S08604.ns2056 ---| BX6 X6+X2 ADD TERMINATOR TO CHARACTER STRING 09857 M01S08605.ns2056 ---| SB6 B6-1 DECREMENT CHARACTER COUNT 09858 M01S08606.ns2056 ---| SX2 B0 ZERO FILL REMAINDER OF WORD 09859 M01S08607.ns2056 ---| NZ B6,PPS5 IF NOT 10 CHARACTERS 09860 M01S08608.ns2056 ---| PPS6 SA6 B7 STORE LAST WORD 09861 M01S08609.ns2056 ---| EQ PPSX RETURN 09862 M01S08610.ns2056 ---| 09863 M01S08611.ns2056 ---| PPSA BSSZ 1 BUFFER 09864 M01S08612.ns2056 ---| CON 10H 09865 M01S08613.ns2056 ---| BSSZ 8 DESTINATION BUFFER 09866 M00S08614.dmrec +++| PRD SPACE 4,30 09867 M00S08615.dmrec +++|** PRD - PUT RECORD. 09868 M00S08616.dmrec +++|* 09869 M00S08617.dmrec +++|* *PRD* BUILDS *CRM* FILES FROM RECORDS EXTRACTED FROM 09870 M00S08618.dmrec +++|* A *DMREC* DUMP TAPE. THIS ROUTINE ACCOMMODATES 09871 M00S08619.dmrec +++|* COMPRESSED AND NON-COMPRESSED RECORDS WITH OR WITHOUT 09872 M00S08620.dmrec +++|* EMBEDDED KEYS. 09873 M00S08621.dmrec +++|* 09874 M00S08622.dmrec +++|* ENTRY (LFWA) = FWA OF ENTIRE RECORD. 09875 M00S08623.dmrec +++|* (LLGN) = LENGTH OF RECORD IN WORDS (INCLUDES 09876 M00S08624.dmrec +++|* NON-EMBEDDED KEY) 09877 M00S08625.dmrec +++|* (LCOMP) = COMPRESSION FLAG - NG. IF COMPRESSED. 09878 M00S08626.dmrec +++|* (LUCC) = NUMBER OF UNUSED CHARACTERS IN RECORD. 09879 M00S08627.dmrec +++|* (LKLOC) = WORD POSITION FOR KEY. 09880 M00S08628.dmrec +++|* = 0 - IF NON-EMBEDDED KEY. 09881 M00S08629.dmrec +++|* (LKP) = POSITION OF KEY IN WORD. 09882 M00S08630.dmrec +++|* = 10 - IF NON-EMBEDDED KEY. 09883 M00S08631.dmrec +++|* (LKS) = KEY SIZE IN CHARACTERS. 09884 M00S08632.dmrec +++|* 09885 M00S08633.dmrec +++|* EXIT (X1) = 0 - IF NO ERRORS. 09886 M00S08634.dmrec +++|* 09887 M00S08635.dmrec +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 09888 M00S08636.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 09889 M00S08637.dmrec +++|* B - NONE. 09890 M00S08638.dmrec +++|* 09891 M00S08639.dmrec +++|* CALLS DCK, DCR. 09892 M00S08640.dmrec +++|* 09893 M00S08641.dmrec +++|* MACROS ERROR, FETCH, PUT, STORE. 09894 M00S08642.dmrec +++| 09895 M00S08643.dmrec +++| 09896 M00S08644.dmrec +++| PRD SUBR ENTRY/EXIT 09897 M00S08645.dmrec +++| SA1 LFWA FWA OF RECORD 09898 M00S08646.dmrec +++| BX6 X1 09899 M00S08647.dmrec +++| SA6 PRDA WSA FOR *PUT* 09900 M00S08648.dmrec +++| SA2 LLGN LENGTH OF RECORD 09901 M00S08649.dmrec +++| SX5 10 09902 M00S08650.dmrec +++| SA4 LUCC GET UNUSED CHARACTER COUNT 09903 M00S08651.dmrec +++| IX6 X5*X2 09904 M00S08652.dmrec +++| IX6 X6-X4 09905 M00S08653.dmrec +++| SA6 PRDA+1 RL FOR *PUT* 09906 M00S08654.dmrec +++| SA1 LCOMP COMPRESSION FLAG 09907 M00S08655.dmrec +++| NG X1,PRD3 IF RECORD COMPRESSED 09908 M00S08656.dmrec +++| 09909 M00S08657.dmrec +++|* SET *PUT* PARAMETERS FOR UNCOMPRESSED RECORDS. 09910 M00S08658.dmrec +++| 09911 M00S08659.dmrec +++| SA3 LKP 09912 M00S08660.dmrec +++| SX3 X3-10 09913 M00S08661.dmrec +++| ZR X3,PRD1 IF KEY NON-EMBEDDED 09914 M00S08662.dmrec +++| SA3 LKLOC WORD POSITION OF KEY 09915 M00S08663.dmrec +++| SA1 LFWA 09916 M00S08664.dmrec +++| SA4 LKP KEY POSITION 09917 M00S08665.dmrec +++| IX6 X1+X3 ABSOLUTE KEY ADDRESS 09918 M00S08666.dmrec +++| SA6 PRDA+2 ABSOLUTE KA FOR *PUT* AND DECOLLATION 09919 M00S08667.dmrec +++| BX6 X4 09920 M00S08668.dmrec +++| SA6 PRDA+3 KP FOR *PUT* 09921 M00S08669.dmrec +++| EQ PRD7 CHECK FOR COLLATED KEY 09922 M00S08670.dmrec +++| 09923 M00S08671.dmrec +++|* SET *PUT* PARAMETERS FOR UNCOMPRESSED RECORDS 09924 M00S08672.dmrec +++|* WITH NON-EMBEDDED KEYS. 09925 M00S08673.dmrec +++| 09926 M00S08674.dmrec +++| PRD1 SX7 B0 09927 M00S08675.dmrec +++| SA7 PRDA+3 KP FOR *PUT* 09928 M00S08676.dmrec +++| SA2 LFWA 09929 M00S08677.dmrec +++| BX7 X2 09930 M00S08678.dmrec +++| SA7 PRDA+2 KA FOR *PUT* 09931 M00S08679.dmrec +++| SA2 XXTY FILE TYPE 09932 M00S08680.dmrec +++| SX1 X2-2RAK 09933 M00S08681.dmrec +++| NZ X1,PRD2 IF NOT *AK* FILE 09934 M00S08682.dmrec +++| 09935 M00S08683.dmrec +++|* PROCESS *AK* FILE. 09936 M00S08684.dmrec +++| 09937 M00S08685.dmrec +++| SA3 LFWA 09938 M00S08686.dmrec +++| BX6 X3 09939 M00S08687.dmrec +++| SA6 PRDA WSA FOR *PUT* 09940 M00S08688.dmrec +++| SA2 LLGN RL 09941 M00S08689.dmrec +++| SX3 10 09942 M00S08690.dmrec +++| IX6 X2*X3 09943 M00S08691.dmrec +++| SA4 LUCC UNUSED CHARACTERS 09944 M00S08692.dmrec +++| IX7 X6-X4 09945 M00S08693.dmrec +++| SA7 PRDA+1 RL FOR *PUT* 09946 M00S08694.dmrec +++| EQ PRD7 CHECK FOR COLLATED KEY 09947 M00S08695.dmrec +++| 09948 M00S08696.dmrec +++| PRD2 SA3 LKS *IS* OR *DA* FILE (KEY SIZE) 09949 M00S08697.dmrec +++| SX3 X3+9 09950 M00S08698.dmrec +++| SX4 10 09951 M00S08699.dmrec +++| IX5 X3/X4 WORDS IN KEY 09952 M00S08700.dmrec +++| SX4 10 09953 M00S08701.dmrec +++| SA2 LFWA 09954 M00S08702.dmrec +++| IX6 X2+X5 09955 M00S08703.dmrec +++| SA6 PRDA WSA FOR *PUT* 09956 M00S08704.dmrec +++| SA3 LLGN RL 09957 M00S08705.dmrec +++| IX6 X3-X5 09958 M00S08706.dmrec +++| IX7 X6*X4 09959 M00S08707.dmrec +++| SA5 LUCC UNUSED CHARACTERS 09960 M00S08708.dmrec +++| IX6 X7-X5 09961 M00S08709.dmrec +++| SA6 A6+B1 RL FOR *PUT* 09962 M00S08710.dmrec +++| EQ PRD7 CHECK FOR COLLATED KEY 09963 M00S08711.dmrec +++| 09964 M00S08712.dmrec +++|* RECORD IS COMPRESSED - SET-UP DECOMPRESSION VECTOR. 09965 M00S08713.dmrec +++| 09966 M00S08714.dmrec +++| PRD3 SA1 LKP 09967 M00S08715.dmrec +++| SX1 X1-10 09968 M00S08716.dmrec +++| ZR X1,PRD4 IF KEY NON-EMBEDDED 09969 M00S08717.dmrec +++| SA2 PRDA FWA OF RECORD 09970 M00S08718.dmrec +++| BX6 X2 09971 M00S08719.dmrec +++| SA6 PRDL FWA 09972 M00S08720.dmrec +++| SA3 PRDA+1 RL 09973 M00S08721.dmrec +++| BX6 X3 09974 M00S08722.dmrec +++| SA6 PRDM RL IN CHARACTERS 09975 M00S08723.dmrec +++| SA3 LKS KS 09976 M00S08724.dmrec +++| BX6 X3 09977 M00S08725.dmrec +++| SA6 PRDN KS IN CHARACTERS 09978 M00S08726.dmrec +++| SX6 B0 09979 M00S08727.dmrec +++| SA6 PRDK 09980 M00S08728.dmrec +++| SA6 PRDP 09981 M00S08729.dmrec +++| EQ PRD6 GO DECOMPRESS 09982 M00S08730.dmrec +++| 09983 M00S08731.dmrec +++|* RECORD IS COMPRESSED AND CONTAINS A NON-EMBEDDED KEY. 09984 M00S08732.dmrec +++| 09985 M00S08733.dmrec +++| PRD4 SX7 B0 09986 M00S08734.dmrec +++| SA7 PRDN KS = 0 09987 M00S08735.dmrec +++| SA7 PRDK KA = 0 09988 M00S08736.dmrec +++| SA7 PRDP KP = 0 09989 M00S08737.dmrec +++| SA3 XXTY FILE TYPE 09990 M00S08738.dmrec +++| SX4 X3-2RAK 09991 M00S08739.dmrec +++| PRD5 SA1 PRDA+1 09992 M00S08740.dmrec +++| BX6 X1 09993 M00S08741.dmrec +++| SA6 PRDM RL 09994 M00S08742.dmrec +++| SA2 PRDA 09995 M00S08743.dmrec +++| BX6 X2 09996 M00S08744.dmrec +++| SA6 PRDL FWA 09997 M00S08745.dmrec +++| 09998 M00S08746.dmrec +++|* DECOMPRESS RECORD USING THE DECOMPRESSION VECTOR 09999 M00S08747.dmrec +++|* ALREADY SET-UP. 10000 M00S08748.dmrec +++| 10001 M00S08749.dmrec +++| PRD6 SA1 PRDB VECTOR 10002 M00S08750.dmrec +++| RJ DCR DECOMPRESS RECORD 10003 M00S08751.dmrec +++| SA1 PRDO 10004 M00S08752.dmrec +++| NG X1,PRD9 IF ERROR IN DECOMPRESSION 10005 M00S08753.dmrec +++| 10006 M00S08754.dmrec +++|* BUILD *PUT* PARAMETERS FOR COMPRESSED RECORDS. 10007 M00S08755.dmrec +++| 10008 M00S08756.dmrec +++| SX7 CBUF DECOMPRESSION BUFFER 10009 M00S08757.dmrec +++| SA7 PRDA WSA FOR *PUT* 10010 M00S08758.dmrec +++| SA2 PRDO RETURNED RL 10011 M00S08759.dmrec +++| BX6 X2 10012 M00S08760.dmrec +++| SA6 A7+B1 RL FOR *PUT* 10013 M00S08761.dmrec +++| SX6 B0 10014 M00S08762.dmrec +++| SA6 A6+2 KP FOR *PUT* 10015 M00S08763.dmrec +++| SA1 LKP 10016 M00S08764.dmrec +++| SX1 X1-10 10017 M00S08765.dmrec +++| ZR X1,PRD7 IF NON - EMBEDDED KEY 10018 M00S08766.dmrec +++| SX6 CBUF 10019 M00S08767.dmrec +++| SA6 PRDA+2 SAVE NEW *KA* 10020 M00S08768.dmrec +++| 10021 M00S08769.dmrec +++|* CHECK FOR COLLATED KEY - IF KEY IS IN A *IS* 10022 M00S08770.dmrec +++|* FILE, IT MUST BE DECOLLATED. SET-UP VECTOR AND 10023 M00S08771.dmrec +++|* DECOLLATE. 10024 M00S08772.dmrec +++| 10025 M00S08773.dmrec +++| PRD7 SA1 XXTY FILE TYPE 10026 M00S08774.dmrec +++| SX3 X1-2RAK 10027 M00S08775.dmrec +++| NZ X3,PRD7.1 IF NOT AK FILE 10028 M00S08776.dmrec +++| SA2 LKP 10029 M00S08777.dmrec +++| SX6 X2-10 10030 M00S08778.dmrec +++| NZ X6,PRD7.1 IF EMBEDDED KEYS 10031 M00S08779.dmrec +++| SA6 PRDU ZERO KEY 10032 M00S08780.dmrec +++| SX7 A6 10033 M00S08781.dmrec +++| SA7 PRDA+2 RESET KA 10034 M00S08782.dmrec +++| EQ PRD8 CONTINUE PUT RECORDS 10035 M00S08783.dmrec +++| 10036 M00S08784.dmrec +++| PRD7.1 SX2 X1-2RIS 10037 M00S08785.dmrec +++| NZ X2,PRD8 IF FILE IS NOT *IS* 10038 M00S08786.dmrec +++| FETCH DFIT,KT,X2 10039 M00S08787.dmrec +++| SX2 X2-#SKT# 10040 M00S08788.dmrec +++| NZ X2,PRD8 IF NOT SYMBOLIC KT 10041 M00S08789.dmrec +++| 10042 M00S08790.dmrec +++|* DECOLLATE KEY. 10043 M00S08791.dmrec +++| 10044 M00S08792.dmrec +++| SA1 PRDC VECTOR 10045 M00S08793.dmrec +++| RJ DCK DECOLLATE KEY 10046 M00S08794.dmrec +++| 10047 M00S08795.dmrec +++|* PUT RECORDS USING *PUT* PARAMETERS. 10048 M00S08796.dmrec +++| 10049 M00S08797.dmrec +++| PRD8 SA1 PRDA WSA 10050 M00S08798.dmrec +++| SA2 A1+B1 RL 10051 M00S08799.dmrec +++| SA3 A2+B1 KA 10052 M00S08800.dmrec +++| SA4 A3+B1 KP 10053 M00S08801.dmrec +++| 10054 M00S08802.dmrec +++| PUT DFIT,X1,X2,,X3,X4 10055 M00S08803.dmrec +++| FETCH DFIT,ES,X1 10056 M00S08804.dmrec +++| ZR X1,PRDX IF NORMAL EXIT 10057 M00S08805.dmrec +++| SX1 X1-446B 10058 M00S08806.dmrec +++| NZ X1,PRD9 IF CRM ERROR 10059 M00S08807.dmrec +++| STORE DFIT,ES=0 DUPLICATE KEY FOUND - IGNORE ERROR 10060 M00S08808.dmrec +++| SX1 B0 10061 M00S08809.dmrec +++| EQ PRDX EXIT NORMALLY 10062 M00S08810.dmrec +++| 10063 M00S08811.dmrec +++| PRD9 ERROR PRDR,,,PRDX,,E ERROR IN CRM -PUT- 10064 M00S08812.dmrec +++| 10065 M00S08813.dmrec +++| PRDR DATA 20H0 ***** 10066 M00S08814.dmrec +++| DATA C*ERROR IN CRM -PUT- (RECORD LOAD).* 10067 M00S08815.dmrec +++| PRDRL EQU *-PRDR 10068 M00S08816.dmrec +++| 10069 M00S08817.dmrec +++| PRDA BSS 4 *PUT* PARAMETERS - WSA, RL, KA, KP 10070 M00S08818.dmrec +++| PRDB VFD 60/PRDL FWA OF RECORD 10071 M00S08819.dmrec +++| VFD 60/PRDM RECORD LENGTH IN CHARACTERS 10072 M00S08820.dmrec +++| VFD 60/PRDK KEY ADDRESS 10073 M00S08821.dmrec +++| VFD 60/PRDP KEY POSITION WITHIN WORD 10074 M00S08822.dmrec +++| VFD 60/PRDN KEY SIZE IN CHARACTERS 10075 M00S08823.dmrec +++| VFD 60/PRDT DESTINATION BUFFER 10076 M00S08824.dmrec +++| VFD 60/PRDJ LENGTH OF DESTINATION BUFFER IN CHARACTERS 10077 M00S08825.dmrec +++| VFD 60/PRDO RETURN RL IN CHARACTERS OR .NG. IF ERROR 10078 M00S08826.dmrec +++| 10079 M00S08827.dmrec +++| PRDC VFD 60/PRDA+2 ABSOLUTE KEY ADDRESS 10080 M00S08828.dmrec +++| VFD 60/PRDA+3 KEY POSITION 10081 M00S08829.dmrec +++| VFD 60/LKS KEY SIZE 10082 M00S08830.dmrec +++| VFD 60/PRDQ DECOLLATION TABLE ADDRESS 10083 M00S08831.dmrec +++| 10084 M00S08832.dmrec +++| PRDJ VFD 60/CBUFL*10 10085 M00S08833.dmrec +++| PRDK VFD 60/0 ZERO WORD FOR KA 10086 M00S08834.dmrec +++| PRDL BSSZ 1 FWA OF RECORD 10087 M00S08835.dmrec +++| PRDM BSSZ 1 RL 10088 M00S08836.dmrec +++| PRDN BSSZ 1 KS 10089 M00S08837.dmrec +++| PRDO BSSZ 1 RETURNED RL 10090 M00S08838.dmrec +++| PRDP BSSZ 1 KP 10091 M00S08839.dmrec +++| PRDQ VFD 60/LCOLL+10B 10092 M00S08840.dmrec +++| PRDT VFD 60/CBUF DESTINATION BUFFER ADDRESS 10093 M00S08841.dmrec +++| PRDU BSSZ 1 KEY ADDRESS FOR AK FILES - EMK=NO 10094 M00S08842.dmrec +++| PRS SPACE 4,30 10095 M00S08843.dmrec +++|** PRS - PRESET ROUTINE. 10096 M00S08844.dmrec +++|*
| Line S08845 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10097 M01S08845.v23l617 ---|* *PRS* CRACKS THE *DMREC* CONTROL CARD AND SETS UP FOR
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10098 M01S00063.v23l617 +++|* *PRS* CRACKS THE *DMREC* COMMAND AND SETS UP FOR 10099 M00S08846.dmrec +++|* THE MAIN PROGRAM. ERROR CHECKING IS PERFORMED ON
| Line S08847 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10100 M01S08847.v23l617 ---|* CONTROL CARD PARAMETERS.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10101 M01S00064.v23l617 +++|* COMMAND PARAMETERS. 10102 M00S08848.dmrec +++|* 10103 M00S08849.dmrec +++|* ENTRY DMREC(P1,P2,...PN) 10104 M00S08850.dmrec +++|* 10105 M00S08851.dmrec +++|* EXIT INPUT AND OUTPUT FILE INITIALIZED. 10106 M00S08852.dmrec +++|* (STDTIM) = PACKED START DATE AND TIME. 10107 M00S08853.dmrec +++|* (STDATE) = START DATE. 10108 M00S08854.dmrec +++|* (STTIME) = START TIME. 10109 M00S08855.dmrec +++|* (TT) = 0 IF *TT* OPTION NOT USED. 10110 M00S08856.dmrec +++|* (TT) = 1 IF *TT* OPTION USED. 10111 M00S08857.dmrec +++|* (Z) = 0 IF *Z* OPTION NOT USED. 10112 M00S08858.dmrec +++|* (Z) = 1 IF *Z* OPTION USED. 10113 M00S08859.dmrec +++|* (JOBORG) = 0 IF INTERACTIVE ORIGIN AND *L=OUTPUT*. 10114 M00S08860.dmrec +++|* 10115 M00S08861.dmrec +++|* USES X - 0, 1, 2, 3, 4, 6. 10116 M00S08862.dmrec +++|* A - 1, 2, 4, 6. 10117 M00S08863.dmrec +++|* B - 1, 4, 5. 10118 M00S08864.dmrec +++|* 10119 M00S08865.dmrec +++|* CALLS ARG, STL, ZAP. 10120 M00S08866.dmrec +++|* 10121 M00S08867.dmrec +++|* MACROS CLOCK, DATE, GETJO, MESSAGE, PDATE 10122 M00S08868.dmrec +++|* READ, SETLOF. 10123 M00S08869.dmrec +++| 10124 M00S08870.dmrec +++| 10125 M00S08871.dmrec +++| PRS SUBR ENTRY/EXIT 10126 M00S08872.dmrec +++| SB1 1 10127 M00S08873.dmrec +++| GETJO JOBORG GET JOB ORIGIN 10128 M00S08874.dmrec +++| SA1 JOBORG 10129 M00S08875.dmrec +++| SX6 X1-3 10130 M00S08876.dmrec +++| SB5 ARGA 10131 M00S08877.dmrec +++| SA6 A1+ 10132 M00S08878.dmrec +++| SA1 ACTR ARGUMENT OF CONTROL CARD 10133 M00S08879.dmrec +++| SB4 X1 10134 M00S08880.dmrec +++| SA4 B1+B1 FIRST ARGUMENT 10135 M00S08881.dmrec +++| RJ ARG PROCESS ARGUMENTS 10136 M00S08882.dmrec +++| ZR X1,PRS2 IF NO ARGUMENT ERRORS 10137 M00S08883.dmrec +++| PRS1 MESSAGE PRSA,,R 10138 M00S08884.dmrec +++| EQ DMR6 EXIT 10139 M00S08885.dmrec +++| 10140 M00S08886.dmrec +++| PRS2 PDATE STDTIM PACKED DATE AND TIME 10141 M00S08887.dmrec +++| CLOCK STTIME TIME 10142 M00S08888.dmrec +++| DATE STDATE DATE 10143 M00S08889.dmrec +++| MX0 42 10144 M00S08890.dmrec +++| SA1 O 10145 M00S08891.dmrec +++| BX1 X0*X1 10146 M00S08892.dmrec +++| SA2 PRSB 10147 M00S08893.dmrec +++| IX3 X1-X2 10148 M00S08894.dmrec +++| ZR X3,PRS3 IF *L=OUTPUT* 10149 M00S08895.dmrec +++| MX6 1 10150 M00S08896.dmrec +++| SA6 JOBORG SET NOT INTERACTIVE ORIGIN 10151 M00S08897.dmrec +++| PRS3 SA2 I 10152 M00S08898.dmrec +++| BX2 X0*X2 10153 M00S08899.dmrec +++| IX1 X1-X2 10154 M00S08900.dmrec +++| ZR X1,PRS1 IF INPUT FILE = OUTPUT FILE 10155 M00S08901.dmrec +++| SA1 Z 10156 M00S08902.dmrec +++| ZR X1,PRS5 IF *Z* ARGUMENTS NOT SELECTED 10157 M00S08903.dmrec +++| PRS4 SX2 I 10158 M00S08904.dmrec +++| RJ ZAP Z ARGUMENT PROCESSOR 10159 M00S08905.dmrec +++| EQ PRS6 NO PRESET READ 10160 M00S08906.dmrec +++| 10161 M00S08907.dmrec +++| PRS5 ZR X2,PRS1 IF I=0 SELECTED 10162 M00S08908.dmrec +++| READ I PRESET READ FUNCTION 10163 M00S08909.dmrec +++| PRS6 MX0 42 10164 M00S08910.dmrec +++| SA1 O 10165 M00S08911.dmrec +++| BX1 X0*X1 10166 M00S08912.dmrec +++| SX2 O 10167 M00S08913.dmrec +++| BX6 X1+X2 10168 M00S08914.dmrec +++| SA6 LOFB STORE OUTPUT LFN IN LOF PARAMETERS 10169 M00S08915.dmrec +++| SETLOF LOF 10170 M00S08916.dmrec +++| RJ STL SET TITLE LINE 10171 M00S08917.dmrec +++| EQ PRSX EXIT 10172 M00S08918.dmrec +++| 10173 M00S08919.dmrec +++|
| Line S08920 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10174 M01S08920.v23l617 ---| PRSA DATA C*CONTROL CARD ARGUMENT ERRORS.*
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10175 M01S00065.v23l617 +++| PRSA DATA C*COMMAND ARGUMENT ERRORS.* 10176 M00S08921.dmrec +++| PRSB DATA 6LOUTPUT DEFAULT LIST FILE NAME 10177 M00S08922.dmrec +++| PRSC DATA 5LINPUT DEFAULT INPUT FILE NAME 10178 M00S08923.dmrec +++| PRSZ BSS 0 END OF CODE FOR PRS 10179 M00S08924.dmrec +++| PVE SPACE 4,15 10180 M00S08925.dmrec +++|** PVE - PROCESS VSN ENTRY. 10181 M00S08926.dmrec +++|* 10182 M00S08927.dmrec +++|* ENTRY (WSAB) = FWA OF DUMP ENTRY TO BE DELETED. 10183 M00S08928.dmrec +++|* (TVSN) = VSN OF DUMP. 10184 M00S08929.dmrec +++|* 10185 M00S08930.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 10186 M00S08931.dmrec +++|* ACTIVE FILES COUNT REDUCED OR VSN ENTRY DELETED. 10187 M00S08932.dmrec +++|* 10188 M00S08933.dmrec +++|* USES X - 1, 2, 6. 10189 M00S08934.dmrec +++|* A - 1, 2, 6. 10190 M00S08935.dmrec +++|* B - 2, 5. 10191 M00S08936.dmrec +++|* 10192 M00S08937.dmrec +++|* CALLS FER, PDE, SVK. 10193 M00S08938.dmrec +++|* 10194 M00S08939.dmrec +++|* MACROS DELETE, RMGET, RMREP. 10195 M00S08940.dmrec +++| 10196 M00S08941.dmrec +++| 10197 M00S08942.dmrec +++| PVE SUBR ENTRY/EXIT 10198 M00S08943.dmrec +++| SA1 TVSN VSN NUMBER OF DUMP 10199 M00S08944.dmrec +++| RJ SVK SET VSN KEY 10200 M00S08945.dmrec +++| PVE1 SA1 WSAB+3 INDEX FILE 10201 M00S08946.dmrec +++| SB2 B1 REDUCE ACTIVE FILES COUNT 10202 M00S08947.dmrec +++| SX6 B2 10203 M00S08948.dmrec +++| SA6 PVEA SAVE *B2* 10204 M00S08949.dmrec +++| ZR X1,PVE2 IF NO INDEX FILE 10205 M00S08950.dmrec +++| SB2 B2+B1 INCREMENT REDUCE COUNT 10206 M00S08951.dmrec +++| SX6 B2 10207 M00S08952.dmrec +++| SA6 PVEA SAVE *B2* 10208 M00S08953.dmrec +++| PVE2 RMGET DIRR,WSAB,0,,VKY1 READ VSN ENTRY 10209 M00S08954.dmrec +++| RJ FER FIT ERROR STATUS 10210 M00S08955.dmrec +++| NZ X1,PVEX IF ERROR, RETURN 10211 M00S08956.dmrec +++| SA1 WSAB+4 COUNT OF ACTIVE FILES ON ALL REELS 10212 M00S08957.dmrec +++| SA2 PVEA RESTORE *B2* 10213 M00S08958.dmrec +++| SX6 X2 10214 M00S08959.dmrec +++| IX6 X1-X6 REDUCE COUNT 10215 M00S08960.dmrec +++| NZ X6,PVE3 IF SOME ACTIVE FILES LEFT 10216 M00S08961.dmrec +++| DELETE DIRR,,VKY1 DELETE VSN ENTRY 10217 M00S08962.dmrec +++| RJ FER FIT ERROR STATUS 10218 M00S08963.dmrec +++| NZ X1,PVEX IF ERROR, RETURN 10219 M00S08964.dmrec +++| SB5 B1 10220 M00S08965.dmrec +++| RJ PDE PRINT DELETED ENTRY 10221 M00S08966.dmrec +++| SA1 WSAB+2 CONTINUATION VSN 10222 M00S08967.dmrec +++| ZR X1,PVEX IF RETURN 10223 M00S08968.dmrec +++| RJ SVK SET VSN KEY 10224 M00S08969.dmrec +++| MX6 0 10225 M00S08970.dmrec +++| SA6 PVEA SET COUNT TO ZERO ON CONTINUATION 10226 M00S08971.dmrec +++| EQ PVE2 PROCESS CONTINUATION VSN 10227 M00S08972.dmrec +++| 10228 M00S08973.dmrec +++| PVE3 SA6 A1 REPLACE COUNT 10229 M00S08974.dmrec +++| RMREP DIRR,WSAB,WSAL,,VKY1 REPLACE VSN ENTRY 10230 M00S08975.dmrec +++| RJ FER FIT ERROR STATUS 10231 M00S08976.dmrec +++| EQ PVEX RETURN 10232 M00S08977.dmrec +++| 10233 M00S08978.dmrec +++| PVEA BSSZ 1 SAVE *B2* CELL 10234 M00S08979.dmrec +++| RAF SPACE 4,10 10235 M00S08980.dmrec +++|** RAF - RETURN ALL FILES. 10236 M00S08981.dmrec +++|* 10237 M00S08982.dmrec +++|* ENTRY NONE. 10238 M00S08983.dmrec +++|* 10239 M00S08984.dmrec +++|* EXIT ALL FILES RETURNED. 10240 M00S08985.dmrec +++|* 10241 M00S08986.dmrec +++|* 10242 M00S08987.dmrec +++|* MACROS CLOSEM, RETURN. 10243 M00S08988.dmrec +++|* 10244 M00S08989.dmrec +++|* CALLS RDF. 10245 M00S08990.dmrec +++| 10246 M00S08991.dmrec +++| 10247 M00S08992.dmrec +++| RAF SUBR ENTRY/EXIT 10248 M00S08993.dmrec +++| RETURN XXJ,R 10249 M00S08994.dmrec +++| RETURN TP,R 10250 M00S08995.dmrec +++| RETURN SORTI,R 10251 M00S08996.dmrec +++| CLOSEM DIRR,U 10252 M00S08997.dmrec +++| RETURN ZZZZZDR,R 10253 M00S08998.dmrec +++| RETURN ZZZZSUB,R
| Line S00227 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 10254 M01S00227.ns2056 +++| RETURN ZZZZZG7,R 10255 M00S08999.dmrec +++| RJ RDF RETURN DATA FILES 10256 M00S09000.dmrec +++| EQ RAFX RETURN 10257 M00S09001.dmrec +++| RDD SPACE 4,25 10258 M00S09002.dmrec +++|** RDD - READ DIRECTIVE FROM INPUT FILE. 10259 M00S09003.dmrec +++|* 10260 M00S09004.dmrec +++|* *RDD* READS DIRECTIVES FROM THE INPUT FILE. 10261 M00S09005.dmrec +++|* DOUBLE SPACES AND COMMAS ARE DELETED, SPACES CONVERTED 10262 M00S09006.dmrec +++|* TO COMMAS. THE DIRECTIVE STATEMENTS ARE COPIED TO THE 10263 M00S09007.dmrec +++|* OUTPUT FILE. 10264 M00S09008.dmrec +++|* 10265 M00S09009.dmrec +++|* ENTRY (JOBORG) = 0 IF INTERACTIVE ORIGIN. 10266 M00S09010.dmrec +++|* 10267 M00S09011.dmrec +++|* EXIT (B7) = LWA+1 OF DIRECTIVES IN BUFFER. 10268 M00S09012.dmrec +++|* (DIRFLAG) = LWA+1 OF DIRECTIVES IN BUFFER. 10269 M00S09013.dmrec +++|* (X1) = .NE. 0 IF EOF ENCOUNTERED. 10270 M00S09014.dmrec +++|* (EOF) .NE. 0 IF EOF ENCOUNTERED. 10271 M00S09015.dmrec +++|* 10272 M00S09016.dmrec +++|* USES X - 0, 1, 2, 3, 6, 7. 10273 M00S09017.dmrec +++|* A - 1, 2, 3, 6, 7. 10274 M00S09018.dmrec +++|* B - 6, 7. 10275 M00S09019.dmrec +++|* 10276 M00S09020.dmrec +++|* CALLS ALC, RSC. 10277 M00S09021.dmrec +++|* 10278 M00S09022.dmrec +++|* MACROS READS, WRITES, WRITEW. 10279 M00S09023.dmrec +++| 10280 M00S09024.dmrec +++| 10281 M00S09025.dmrec +++| RDD SUBR ENTRY/EXIT 10282 M00S09026.dmrec +++| RDD1 READS I,DIR,DIRL 10283 M00S09027.dmrec +++| NZ X1,RDD4 IF EOR/EOF ENCOUNTERED 10284 M00S09028.dmrec +++| SA1 JOBORG 10285 M00S09029.dmrec +++| NZ X1,RDD2 IF NOT INTERACTIVE INPUT 10286 M00S09030.dmrec +++| SA2 I 10287 M00S09031.dmrec +++| SA3 PRSC CHECK FOR DEFAULT INPUT FILE NAME 10288 M00S09032.dmrec +++| MX0 42 10289 M00S09033.dmrec +++| BX2 X0*X2 10290 M00S09034.dmrec +++| BX3 X0*X3 10291 M00S09035.dmrec +++| IX3 X2-X3 10292 M00S09036.dmrec +++| ZR X3,RDD3 IF DEFAULT INPUT FILE NAME 10293 M00S09037.dmrec +++| SX2 1 10294 M00S09038.dmrec +++| RJ ALC ADVANCE LINE COUNT 10295 M00S09039.dmrec +++| WRITES O,DIR,DIRL 10296 M00S09040.dmrec +++| EQ RDD3 CONTINUE 10297 M00S09041.dmrec +++| 10298 M00S09042.dmrec +++| RDD2 SX2 2 10299 M00S09043.dmrec +++| RJ ALC ADVANCE LINE COUNT 10300 M00S09044.dmrec +++| WRITEW O,RDDA,2 10301 M00S09045.dmrec +++| WRITES O,DIR,DIRL 10302 M00S09046.dmrec +++| RDD3 SB6 DIR 10303 M00S09047.dmrec +++| SB7 DIR+DIRL 10304 M00S09048.dmrec +++| RJ RSC REMOVE EXTRA SPACES AND COMMAS 10305 M00S09049.dmrec +++| ZR B3,RDD1 IF BLANK CARD 10306 M00S09050.dmrec +++| MX1 0 SET NO ERRORS 10307 M00S09051.dmrec +++| SX7 B7 10308 M00S09052.dmrec +++| SA7 DIRFLAG SAVE DIRECTIVE LWA+1 10309 M00S09053.dmrec +++| EQ RDDX RETURN 10310 M00S09054.dmrec +++| 10311 M00S09055.dmrec +++| RDD4 SX6 B1 SET EOF 10312 M00S09056.dmrec +++| BX1 X6 10313 M00S09057.dmrec +++| SA6 EOF STORE EOF FLAG 10314 M00S09058.dmrec +++| EQ RDDX RETURN 10315 M00S09059.dmrec +++| 10316 M00S09060.dmrec +++| RDDA DATA 20H0 >>>>> 10317 M00S09061.dmrec +++| RDE SPACE 4,20 10318 M00S09062.dmrec +++|** RDE - READ DIRECTORY ENTRY. 10319 M00S09063.dmrec +++|* 10320 M00S09064.dmrec +++|* ENTRY (LSTC) = 1, IF DATE/TIME QUALIFICATION. 10321 M00S09065.dmrec +++|* (TKY1) = PREVIOUS KEY VALUE. 10322 M00S09066.dmrec +++|* 10323 M00S09067.dmrec +++|* EXIT (X6) = 0, IF ENTRY QUALIFIED. 10324 M00S09068.dmrec +++|* 1, IF NEW FILE 10325 M00S09069.dmrec +++|* 2, IF VSN ENTRY READ. 10326 M00S09070.dmrec +++|* 3, IF END OF FILE. 10327 M00S09071.dmrec +++|* 4, IF ENTRY NOT QUALIFIED. 10328 M00S09072.dmrec +++|* (PLIN) = FWA OF FORMATTED LINE. 10329 M00S09073.dmrec +++|* 10330 M00S09074.dmrec +++|* USES X - ALL. 10331 M00S09075.dmrec +++|* A - 1, 2, 3, 5, 6. 10332 M00S09076.dmrec +++|* B - 6. 10333 M00S09077.dmrec +++|* 10334 M00S09078.dmrec +++|* CALLS BFL, CDD, FER, SFN. 10335 M00S09079.dmrec +++|* 10336 M00S09080.dmrec +++|* MACROS GETN, EDATE, ETIME. 10337 M00S09081.dmrec +++| 10338 M00S09082.dmrec +++| 10339 M00S09083.dmrec +++| RDE SUBR ENTRY/EXIT 10340 M00S09084.dmrec +++| RJ BFL BLANK FILL PRINT LINE 10341 M00S09085.dmrec +++| GETN DIRR,WSAB,,CKY1 READ NEXT ENTRY 10342 M00S09086.dmrec +++| RJ FER FIT ERROR STATUS 10343 M00S09087.dmrec +++| SX2 X1-3 10344 M00S09088.dmrec +++| NZ X2,RDE0 IF NOT END OF FILE 10345 M00S09089.dmrec +++| SX6 3 10346 M00S09090.dmrec +++| EQ RDEX RETURN 10347 M00S09091.dmrec +++| 10348 M00S09092.dmrec +++| RDE0 MX0 42 10349 M00S09093.dmrec +++| SA1 CKY1 NEW KEY VALUE 10350 M00S09094.dmrec +++| BX2 X0*X1 10351 M00S09095.dmrec +++| SA3 TKY1 PREVIOUS KEY VALUE 10352 M00S09096.dmrec +++| BX3 X0*X3 10353 M00S09097.dmrec +++| BX2 X2-X3 10354 M00S09098.dmrec +++| ZR X2,RDE2 IF KEYS MATCH 10355 M00S09099.dmrec +++| SA2 VSNK VSN TYPE KEY 10356 M00S09100.dmrec +++| SA3 CKY2 SECOND WORD OF THE KEY 10357 M00S09101.dmrec +++| BX3 X2-X3 10358 M00S09102.dmrec +++| SX6 2 10359 M00S09103.dmrec +++| ZR X3,RDEX IF VSN TYPE KEY 10360 M00S09104.dmrec +++| SX6 B1 NEW FILE 10361 M00S09105.dmrec +++| BX7 X1 10362 M00S09106.dmrec +++| SA7 TKY1 REPLACE PREVIOUS KEY VALUE 10363 M00S09107.dmrec +++| EQ RDEX RETURN 10364 M00S09108.dmrec +++| 10365 M00S09109.dmrec +++| RDE2 BX7 X1 10366 M00S09110.dmrec +++| SA7 TKY1 REPLACE PREVIOUS KEY VALUE 10367 M00S09111.dmrec +++| SA5 CKY2 DATE/TIME 10368 M00S09112.dmrec +++| ETIME X5 UNPACK TIME 10369 M00S09113.dmrec +++| SA6 PLIN+3 10370 M00S09114.dmrec +++| AX5 18 10371 M00S09115.dmrec +++| EDATE X5 UNPACK DATE 10372 M00S09116.dmrec +++| BX5 X6 10373 M00S09117.dmrec +++| SA2 LSTC DATE/TIME PARAMETER 10374 M00S09118.dmrec +++| ZR X2,RDE3 IF NO DATE/TIME QUALIFICATION 10375 M00S09119.dmrec +++| SA2 DATE DATE FROM INPUT PARAMETER 10376 M00S09120.dmrec +++| IX3 X2-X5 COMPARE DATES 10377 M00S09121.dmrec +++| SX6 4 10378 M00S09122.dmrec +++| NG X3,RDEX IF ENTRY DOES NOT QUALIFY 10379 M00S09123.dmrec +++| NZ X3,RDE3 IF DATES NOT EQUAL 10380 M00S09124.dmrec +++| SA4 PLIN+3 TIME OF DUMP 10381 M00S09125.dmrec +++| SA2 TIME TIME FROM INPUT PARAMETER 10382 M00S09126.dmrec +++| BX7 X4 10383 M00S09127.dmrec +++| IX3 X2-X7 COMPARE TIMES 10384 M00S09128.dmrec +++| NG X3,RDEX IF ENTRY DOES NOT QUALIFY 10385 M00S09129.dmrec +++| RDE3 BX6 X5 10386 M00S09130.dmrec +++| SA6 PLIN+2 10387 M00S09131.dmrec +++| SA1 CKY1 FILE NAME 10388 M00S09132.dmrec +++| MX0 42 10389 M00S09133.dmrec +++| BX1 X0*X1 10390 M00S09134.dmrec +++| RJ SFN SPACE FILL NAME 10391 M00S09135.dmrec +++| SA6 PLIN+1 10392 M00S09136.dmrec +++| SA2 CKY1 10393 M00S09137.dmrec +++| MX0 -12 10394 M00S09138.dmrec +++| BX1 -X0*X2 EXTRACT COPY NUMBER 10395 M00S09139.dmrec +++| SX2 2RBB FILE DUMP ENTRY 10396 M00S09140.dmrec +++| BX2 X1-X2 10397 M00S09141.dmrec +++| ZR X2,RDE4 IF FILE DUMP ENTRY 10398 M00S09142.dmrec +++| BX6 X0*X6 10399 M00S09143.dmrec +++| SA5 RDEA AFTER IMAGE LOG 10400 M00S09144.dmrec +++| MX0 -6 10401 M00S09145.dmrec +++| BX1 -X0*X1 COPY NUMBER 10402 M00S09146.dmrec +++| BX5 X1+X5 10403 M00S09147.dmrec +++| BX6 X5+X6 10404 M00S09148.dmrec +++| SA6 PLIN+1 10405 M00S09149.dmrec +++| SA1 WSAB+2 VSN 10406 M00S09150.dmrec +++| RJ SFN SPACE FILL NAME 10407 M00S09151.dmrec +++| SA6 PLIN+7 10408 M00S09152.dmrec +++| SA1 WSAB+4 NUMBER OF AFTER IMAGE RECORDS 10409 M00S09153.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 10410 M00S09154.dmrec +++| LX6 41-23 10411 M00S09155.dmrec +++| SA6 PLIN+6 10412 M00S09156.dmrec +++| MX6 0 10413 M00S09157.dmrec +++| SA6 PLIN+8 10414 M00S09158.dmrec +++| EQ RDEX RETURN 10415 M00S09159.dmrec +++| 10416 M00S09160.dmrec +++| RDE4 MX0 42 10417 M00S09161.dmrec +++| BX6 X0*X6 10418 M00S09162.dmrec +++| SX2 3R D FILE DUMP 10419 M00S09163.dmrec +++| BX2 -X0*X2 10420 M00S09164.dmrec +++| BX6 X2+X6 10421 M00S09165.dmrec +++| SA6 PLIN+1 10422 M00S09166.dmrec +++| SA2 WSAB+2 VSN 10423 M00S09167.dmrec +++| MX0 -18 10424 M00S09168.dmrec +++| BX1 X0*X2 10425 M00S09169.dmrec +++| RJ SFN SPACE FILL NAME 10426 M00S09170.dmrec +++| SA6 PLIN+7 10427 M00S09171.dmrec +++| SA2 WSAB+2 FILE DUMP FORMAT 10428 M00S09172.dmrec +++| SB6 B0 10429 M00S09173.dmrec +++| MX0 -6 GET DUMP MODE 10430 M00S09174.dmrec +++| BX2 -X0*X2 10431 M00S09175.dmrec +++| ZR X2,RDE4.1 IF BLOCK MODE 10432 M00S09176.dmrec +++| SB6 B1+ 10433 M00S09177.dmrec +++| RDE4.1 SA5 TFOR+B6 10434 M00S09178.dmrec +++| BX6 X5 10435 M00S09179.dmrec +++| SA6 PLIN+4 10436 M00S09180.dmrec +++| SA1 WSAB+4 FILE POSITION ON DUMP TAPE 10437 M00S09181.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 10438 M00S09182.dmrec +++| LX6 29-11 10439 M00S09183.dmrec +++| MX0 30 10440 M00S09184.dmrec +++| SA1 PLIN+4 10441 M00S09185.dmrec +++| BX1 X0*X1 10442 M00S09186.dmrec +++| BX6 -X0*X6 10443 M00S09187.dmrec +++| BX6 X1+X6 10444 M00S09188.dmrec +++| SA6 PLIN+4 10445 M00S09189.dmrec +++| SA1 WSAB+3 INDEX FILE 10446 M00S09190.dmrec +++| ZR X1,RDE5 IF NO INDEX FILE NAME 10447 M00S09191.dmrec +++| RJ SFN SPACE FILL NAME 10448 M00S09192.dmrec +++| SA6 PLIN+5 10449 M00S09193.dmrec +++| SA1 WSAB+5 INDEX FILE POSITION 10450 M00S09194.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 10451 M00S09195.dmrec +++| MX0 42 10452 M00S09196.dmrec +++| SA1 PLIN+5 10453 M00S09197.dmrec +++| BX1 X0*X1 10454 M00S09198.dmrec +++| BX6 -X0*X6 10455 M00S09199.dmrec +++| BX6 X1+X6 10456 M00S09200.dmrec +++| SA6 PLIN+5 10457 M00S09201.dmrec +++| RDE5 MX6 0 10458 M00S09202.dmrec +++| SA6 PLIN+8 10459 M00S09203.dmrec +++| EQ RDEX RETURN 10460 M00S09204.dmrec +++| 10461 M00S09205.dmrec +++| RDEA VFD 48/0,6/1LA,6/0 10462 M00S09206.dmrec +++| RDF SPACE 4,15 10463 M00S09207.dmrec +++|** RDF - RETURN DATA FILES. 10464 M00S09208.dmrec +++|* 10465 M00S09209.dmrec +++|* *RDF* RETURNS *CRM* DATA, INDEX AND OWNCODE FILES. 10466 M00S09210.dmrec +++|* 10467 M00S09211.dmrec +++|* ENTRY (XXPFN) = PFN OF DATA FILE. 10468 M00S09212.dmrec +++|* (XXIXN) = PFN OF INDEX FILE. 10469 M00S09213.dmrec +++|* (XXHASH) = PFN OF OWNCODE FILE. 10470 M00S09214.dmrec +++|* 10471 M00S09215.dmrec +++|* EXIT FILES RETURNED. 10472 M00S09216.dmrec +++|* 10473 M00S09217.dmrec +++|* USES X - 1. 10474 M00S09218.dmrec +++|* A - 1. 10475 M00S09219.dmrec +++|* B - NONE. 10476 M00S09220.dmrec +++|* 10477 M00S09221.dmrec +++|* MACROS RETURN. 10478 M00S09222.dmrec +++| 10479 M00S09223.dmrec +++| 10480 M00S09224.dmrec +++| RDF SUBR ENTRY/EXIT 10481 M00S09225.dmrec +++| RETURN DF 10482 M00S09226.dmrec +++| SA1 XXIXN 10483 M00S09227.dmrec +++| ZR X1,RDF1 IF NO INDEX FILE PRESENT 10484 M00S09228.dmrec +++| RETURN IF 10485 M00S09229.dmrec +++| RDF1 SA1 XXHASH 10486 M00S09230.dmrec +++| ZR X1,RDFX IF NO OWNCODE FILE PRESENT 10487 M00S09231.dmrec +++| RETURN OF 10488 M00S09232.dmrec +++| EQ RDFX RETURN 10489 M00S09233.dmrec +++| RDT SPACE 4,15 10490 M00S09234.dmrec +++|** RDT - REFORMAT DATE OR TIME. 10491 M00S09235.dmrec +++|* 10492 M00S09236.dmrec +++|* THIS SUBROUTINE CONVERTS THE DATE OR TIME GIVEN ON 10493 M00S09237.dmrec +++|* THE INPUT DIRECTIVE TO AN (UNPACKED) FORMAT. 10494 M00S09238.dmrec +++|* 10495 M00S09239.dmrec +++|* ENTRY (DATE) = DIRECTIVE DATE. 10496 M00S09240.dmrec +++|* (TIME) = DIRECTIVE TIME. 10497 M00S09241.dmrec +++|* (X1) = 0, IF DATE CONVERSION. 10498 M00S09242.dmrec +++|* .NE. 0, IF TIME CONVERSION. 10499 M00S09243.dmrec +++|* 10500 M00S09244.dmrec +++|* EXIT (X6) = CONVERTED DATE OR TIME. 10501 M00S09245.dmrec +++|* 10502 M00S09246.dmrec +++|* USES A - 1, 2. 10503 M00S09247.dmrec +++|* X - 0, 1, 2, 3, 4, 5, 6. 10504 M00S09248.dmrec +++|* B - NONE. 10505 M00S09249.dmrec +++| 10506 M00S09250.dmrec +++| 10507 M00S09251.dmrec +++| RDT SUBR ENTRY/EXIT 10508 M00S09252.dmrec +++| NZ X1,RDT1 IF TIME CONVERSION 10509 M00S09253.dmrec +++| SA2 DATE DIRECTIVE DATE 10510 M00S09254.dmrec +++| SA1 FILLD */* 10511 M00S09255.dmrec +++| EQ RDT2 CONVERT 10512 M00S09256.dmrec +++| 10513 M00S09257.dmrec +++| RDT1 SA2 TIME DIRECTIVE TIME 10514 M00S09258.dmrec +++| SA1 FILLT *.* 10515 M00S09259.dmrec +++| RDT2 MX0 12 10516 M00S09260.dmrec +++| BX3 X0*X2 10517 M00S09261.dmrec +++| LX3 54-0 LEFT JUSTIFY MONTH 10518 M00S09262.dmrec +++| LX2 12 10519 M00S09263.dmrec +++| BX4 X0*X2 10520 M00S09264.dmrec +++| LX4 36 LEFT JUSTIFY DAY 10521 M00S09265.dmrec +++| LX2 12 10522 M00S09266.dmrec +++| BX5 X0*X2 10523 M00S09267.dmrec +++| LX5 18 10524 M00S09268.dmrec +++| BX5 X5+X4 MONTH AND DAY 10525 M00S09269.dmrec +++| BX5 X5+X3 MONTH, DAY AND YEAR 10526 M00S09270.dmrec +++| BX6 X1+X5 ADD LOGICAL MASK 10527 M00S09271.dmrec +++| EQ RDTX RETURN 10528 M00S09272.dmrec +++| REC SPACE 4,20 10529 M00S09273.dmrec +++|** REC - RECOVER DATA FILE. 10530 M00S09274.dmrec +++|* 10531 M00S09275.dmrec +++|* *REC* WILL RECOVER THE DATE FILE SPECIFIED, OR IN
| Line S09276 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10532 M01S09276.ns2023 ---|* THE CASE OF A *QRF* RECOVERY, ALL DATA FILES ARE
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10533 M01S00151.ns2023 +++|* THE CASE OF A *BRF* RECOVERY, ALL DATA FILES ARE 10534 M00S09277.dmrec +++|* RECOVERED THAT HAVE BEEN FOUND DEFECTIVE.
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/dmrec.005.txt · Last modified: by 127.0.0.1