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.