cdc:nos2.source:opl.opl871:deck:dmrec.001
Deck DMREC Part 001
25 Modifications
Listing Sections
- Deck DMREC Start
- Deck DMREC Part 1 (Line 1753)
- Deck DMREC Part 2 (Line 3308)
- Deck DMREC Part 3 (Line 5077)
- Deck DMREC Part 4 (Line 6930)
- Deck DMREC Part 5 (Line 8588)
- Deck DMREC Part 6 (Line 10535)
- Deck DMREC Part 7 (Line 12352)
Source
Seq # *Modification Id* Act ----------------------------+ 01753 M00S01421.dmrec +++| 01754 M00S01422.dmrec +++| ACF10 SA5 XXPFN1 01755 M00S01423.dmrec +++| BX6 X5 01756 M00S01424.dmrec +++| SA6 XXPFN RESTORE XXPFN 01757 M00S01425.dmrec +++| EQ ACF1 RETURN TO ATTACH DIRECTORY 01758 M00S01426.dmrec +++| 01759 M00S01427.dmrec +++| ACF11 MESSAGE (=C* DIRECTORY UNUSABLE *) 01760 M00S01428.dmrec +++| EQ DMR6 ABORT 01761 M00S01429.dmrec +++| 01762 M00S01430.dmrec +++| ACFB DATA 20H0 ***** 01763 M00S01431.dmrec +++| DATA C*BACKUP DIRECTORY - XXXXXXX HAS BEEN RECONSTRUCTED.* 01764 M00S01432.dmrec +++| ACFBL EQU *-ACFB 01765 M00S01433.dmrec +++| ACFC BSSZ 1 01766 M00S01434.dmrec +++| ACFD DATA 20H0 ***** 01767 M00S01435.dmrec +++| ACFDA DATA C*ZZZZZZZ DOES NOT MATCH DATA BASE NAME.* 01768 M00S01436.dmrec +++| ACFDL EQU *-ACFD 01769 M00S01437.dmrec +++| 01770 M00S01438.dmrec +++| TITLE SUBROUTINES. 01771 M00S01439.dmrec +++| ADD SPACE 4,15 01772 M00S01440.dmrec +++|** ADD - ADD VSN AND CORRESPONDING DUMP ENTRIES. 01773 M00S01441.dmrec +++|* 01774 M00S01442.dmrec +++|* ENTRY (TVSN) = VSN NUMBER. 01775 M00S01443.dmrec +++|* (LFNC) = 0, IF ALL FILES. 01776 M00S01444.dmrec +++|* 1, IF SELECTIVE FILES. 01777 M00S01445.dmrec +++|* 01778 M00S01446.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 01779 M00S01447.dmrec +++|* 01780 M00S01448.dmrec +++|* USES X - 0, 1, 2, 4, 5, 6. 01781 M00S01449.dmrec +++|* A - 0, 1, 2, 6. 01782 M00S01450.dmrec +++|* B - 7. 01783 M00S01451.dmrec +++|* 01784 M00S01452.dmrec +++|* CALLS FER, LBL, LDH, MDI, MDS, RQT, SVK, WBL. 01785 M00S01453.dmrec +++|* 01786 M00S01454.dmrec +++|* MACROS CLOSEM, ERROR, FETCH, OPENM, READ, 01787 M00S01455.dmrec +++|* READW, RMGET, SKIPEI, SKIPFB. 01788 M00S01456.dmrec +++| 01789 M00S01457.dmrec +++| 01790 M00S01458.dmrec +++| ADD SUBR ENTRY/EXIT 01791 M00S01459.dmrec +++| SA1 TVSN *TVSN* PARAMETER 01792 M00S01460.dmrec +++| SX6 A1 01793 M00S01461.dmrec +++| SA6 IVSN SAVE ADDRESS FOR TAPE REQUEST 01794 M00S01462.dmrec +++| RJ SVK SET VSN KEY 01795 M00S01463.dmrec +++| RMGET DIRR,WSAB,0,,VKY1 TRY TO GET VSN ENTRY 01796 M00S01464.dmrec +++| RJ FER FIT ERROR STATUS 01797 M00S01465.dmrec +++| NZ X1,ADD1 IF VSN DOES NOT EXIST 01798 M00S01466.dmrec +++| SX1 B1 01799 M00S01467.dmrec +++| SA2 LFNC 01800 M00S01468.dmrec +++| ZR X2,ADD6 IF ALL FILES AFFECTED 01801 M00S01469.dmrec +++| ADD1 SX5 B0 READ MODE FOR TAPE REQUEST 01802 M00S01470.dmrec +++| SB7 TP TAPE REQUEST FET 01803 M00S01471.dmrec +++| SA2 TVSN 01804 M00S01472.dmrec +++| BX6 X2 01805 M00S01473.dmrec +++| RJ RQT REQUEST TAPE 01806 M00S01474.dmrec +++| SA1 =6L MASS STORAGE FILE 01807 M00S01475.dmrec +++| BX2 X1-X6 01808 M00S01476.dmrec +++| ZR X2,ADD2 IF DISK FILE ASSIGNED 01809 M00S01477.dmrec +++| SA1 TVSN 01810 M00S01478.dmrec +++| BX2 X1-X6 01811 M00S01479.dmrec +++| NZ X2,ADD7 IF NOT THE SAME VSN 01812 M00S01480.dmrec +++| SKIPEI TP,R 01813 M00S01481.dmrec +++| SKIPFB TP,,R 01814 M00S01482.dmrec +++| READ TP,R 01815 M00S01483.dmrec +++| READW TP,WBUF,WBUFL DIRECTORY FILE 01816 M00S01484.dmrec +++| ZR X1,LOD10 IF ERROR 01817 M00S01485.dmrec +++| NG X1,LOD10 IF ERROR 01818 M00S01486.dmrec +++| SA1 ACFA DIRECTORY FN 01819 M00S01487.dmrec +++| BX6 X1 01820 M00S01488.dmrec +++| SA6 XXPFN SET XXPFN FOR *LBL* READING OF TRAILER 01821 M00S01489.dmrec +++| SA1 TP+B1 RESET FET 01822 M00S01490.dmrec +++| SX6 X1 01823 M00S01491.dmrec +++| SA6 A1+B1 IN 01824 M00S01492.dmrec +++| SA6 A6+B1 OUT 01825 M00S01493.dmrec +++| SX4 IF FET ADDRESS 01826 M00S01494.dmrec +++| RJ LBL COPY FILE TO FITA 01827 M00S01495.dmrec +++| NZ X1,ADDX IF ERROR 01828 M00S01496.dmrec +++| ADD2 OPENM FITA,INPUT 01829 M00S01497.dmrec +++| FETCH FITA,ES,X1 ERROR STATUS ON OPEN 01830 M00S01498.dmrec +++| NZ X1,ADD8 IF ERROR ON OPEN 01831 M00S01499.dmrec +++| EQ ADD9 PRINT OLD DIRECTORY HEADER 01832 M00S01500.dmrec +++| 01833 M00S01501.dmrec +++| ADD3 SA0 FITA SET FIT ADDRESS 01834 M00S01502.dmrec +++| SX6 B1 ONLY DIRECTORY HEADER 01835 M00S01503.dmrec +++| RJ LDH LIST DIRECTORY HEADER 01836 M00S01504.dmrec +++| RJ WBL WRITE BLANK LINE 01837 M00S01505.dmrec +++| SX6 B1 01838 M00S01506.dmrec +++| SA6 ADDF SET ADD FLAG 01839 M00S01507.dmrec +++| SA1 LFNC 01840 M00S01508.dmrec +++| NZ X1,ADD4 IF SELECTIVE FILES 01841 M00S01509.dmrec +++| RJ MDI MODIFY DIRECTORY 01842 M00S01510.dmrec +++| EQ ADD5 RETURN 01843 M00S01511.dmrec +++| 01844 M00S01512.dmrec +++| ADD4 RJ MDS MODIFY SELECTIVE FILES IN DIRECTORY 01845 M00S01513.dmrec +++| ADD5 CLOSEM FITA,U 01846 M00S01514.dmrec +++| MX1 0 01847 M00S01515.dmrec +++| EQ ADDX RETURN 01848 M00S01516.dmrec +++| 01849 M00S01517.dmrec +++| ADD6 ERROR ADDA,,,ADDX,,E VSN ALREADY EXISTS 01850 M00S01518.dmrec +++| 01851 M00S01519.dmrec +++| ADD7 ERROR ADDB,,,ADDX,,E NOT THE SAME VSN 01852 M00S01520.dmrec +++| 01853 M00S01521.dmrec +++| ADD8 ERROR ADDC,,,ADDX,,E OPEN ERROR 01854 M00S01522.dmrec +++| 01855 M00S01523.dmrec +++| ADD9 ERROR ADDD,,,ADD3 LIST DIRECTORY MESSAGE 01856 M00S01524.dmrec +++| 01857 M00S01525.dmrec +++| ADDA DATA 20H0 ***** 01858 M00S01526.dmrec +++| DATA C*VSN ALREADY EXISTS.* 01859 M00S01527.dmrec +++| ADDAL EQU *-ADDA 01860 M00S01528.dmrec +++| 01861 M00S01529.dmrec +++| ADDB DATA 20H0 ***** 01862 M00S01530.dmrec +++| DATA C*VSN ASSIGNED DOES NOT MATCH VSN REQUESTED.* 01863 M00S01531.dmrec +++| ADDBL EQU *-ADDB 01864 M00S01532.dmrec +++| 01865 M00S01533.dmrec +++| ADDC DATA 20H0 ***** 01866 M00S01534.dmrec +++| DATA C*OPEN ERROR ON COPY OF THE DIRECTORY.* 01867 M00S01535.dmrec +++| ADDCL EQU *-ADDC 01868 M00S01536.dmrec +++| 01869 M00S01537.dmrec +++| ADDD DATA 20H0 01870 M00S01538.dmrec +++| DATA C*DIRECTORY HEADER FROM THE COPY.* 01871 M00S01539.dmrec +++| ADDDL EQU *-ADDD 01872 M00S01540.dmrec +++| ADF SPACE 4,50 01873 M00S01541.dmrec +++|** ADF - ATTACH DATA BASE FILES. 01874 M00S01542.dmrec +++|* 01875 M00S01543.dmrec +++|* *ADF* ATTACHES *CRM* DATA BASE, INDEX AND OWNCODE FILES. 01876 M00S01544.dmrec +++|* 01877 M00S01545.dmrec +++|* THE FOLLOWING FILE NAMES ARE USED: 01878 M00S01546.dmrec +++|* 01879 M00S01547.dmrec +++|* DUMP *CRM* DATA FILE. 01880 M00S01548.dmrec +++|* INDEX *CRM* INDEX FILE. 01881 M00S01549.dmrec +++|* LFN LFN OF THE OWNCODE FILE. 01882 M00S01550.dmrec +++|* 01883 M00S01551.dmrec +++|* FILES *DUMP* AND *INDEX* ARE DIRECT ACCESS PERMANENT FILES. 01884 M00S01552.dmrec +++|* THE OWNCODE FILE IS AN INDIRECT ACCESS PERMANENT FILE. 01885 M00S01553.dmrec +++|* NOTE, THAT THE APPROPRIATE PERMISSIONS TO ACCESS THESE 01886 M00S01554.dmrec +++|* FILES VIA *DMREC* HAVE TO BE SET, IF *DMREC* IS USED VIA
| Line S01555 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01887 M01S01555.v23l617 ---|* *TAF-S* USER NUMBER.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01888 M01S00018.v23l617 +++|* *TAF-S* USER NAME. 01889 M00S01556.dmrec +++|* 01890 M00S01557.dmrec +++|* BOTH THE *DUMP* AND *INDEX* FILES WILL BE ATTACHED IN THE 01891 M00S01558.dmrec +++|* SAME MODE. THE ATTACH MODE DEPENDS ON *XXMODE*. 01892 M00S01559.dmrec +++|* 01893 M00S01560.dmrec +++|* ENTRY (XXUSER) = USER NAME. 01894 M00S01561.dmrec +++|* (XXPFN) = PERMANENT FILE NAME. 01895 M00S01562.dmrec +++|* (XXHASH) = OWNCODE ROUTINE NAME. 01896 M00S01563.dmrec +++|* (XXPACK) = PACK NAME FOR DATA FILE. 01897 M00S01564.dmrec +++|* (XXDEV) = DEVICE FOR DATA FILE. 01898 M00S01565.dmrec +++|* (XXIXN) = INDEX PERMANENT FILE NAME. 01899 M00S01566.dmrec +++|* (XXIXP) = PACK NAME FOR INDEX FILE. 01900 M00S01567.dmrec +++|* (XXIDEV) = DEVICE FOR INDEX FILE. 01901 M00S01568.dmrec +++|* (XXMODE) = 0, WRITE MODE REQUESTED.
| Line S01569 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 01902 M01S01569.dmrec15 ---|* (XXMODE) = 1, READ MODE REQUESTED. 01903 M01S01570.dmrec15 ---|* (XXMODE) = 2, THE ROUTINE TRYS AT FIRST TO
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 01904 M01S00001.dmrec15 +++|* (XXMODE) = 6, READ MODIFY MODE REQUESTED. 01905 M01S00002.dmrec15 +++|* (XXMODE) = -1, THE ROUTINE TRYS AT FIRST TO 01906 M00S01571.dmrec +++|* ATTACH THE FILE IN WRITE MODE.
| Line S01572 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 01907 M01S01572.dmrec15 ---|* IF THIS FAILS, READ MODE WILL 01908 M01S01573.dmrec15 ---|* BE USED.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 01909 M01S00003.dmrec15 +++|* IF THIS FAILS, READ MODIFY 01910 M01S00004.dmrec15 +++|* MODE WILL BE USED. 01911 M00S01574.dmrec +++|* 01912 M00S01575.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS ENCOUNTERED. 01913 M00S01576.dmrec +++|* (X1) .NE. 0, IF ERRORS ENCOUNTERED. 01914 M00S01577.dmrec +++|* (XXMODE) = 0, IF WRITE-ATTACHED.
| Line S01578 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 01915 M01S01578.dmrec15 ---|* (XXMODE) = 1, IF READ-ATTACHED.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 01916 M01S00005.dmrec15 +++|* (XXMODE) = 6, IF READ MODIFY-ATTACHED. 01917 M00S01579.dmrec +++|* 01918 M00S01580.dmrec +++|* USES X - 0, 1, 2, 3, 6, 7. 01919 M00S01581.dmrec +++|* A - 1, 2, 6, 7. 01920 M00S01582.dmrec +++|* B - NONE. 01921 M00S01583.dmrec +++|* 01922 M00S01584.dmrec +++|* CALLS CER. 01923 M00S01585.dmrec +++|* 01924 M00S01586.dmrec +++|* MACROS ATTACH, ERROR, GET, STATUS. 01925 M00S01587.dmrec +++| 01926 M00S01588.dmrec +++| 01927 M00S01589.dmrec +++| ADF SUBR ENTRY/EXIT 01928 M00S01590.dmrec +++| SA1 XXMODE GET REQUESTED MODE
| Line S01591 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 01929 M01S01591.dmrec15 ---| SX2 X1-2 01930 M01S01592.dmrec15 ---| NZ X2,ADF2 IF NOT NULL MODE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 01931 M01S00006.dmrec15 +++| PL X1,ADF2 IF NOT NULL MODE 01932 M00S01593.dmrec +++| ADF1 SX6 PTWR WRITE MODE 01933 M00S01594.dmrec +++| SA6 XXMODE FIRST TRY WRITE - ATTACH 01934 M00S01595.dmrec +++| ATTACH DF,XXPFN,,,XXMODE,XXPACK,XXDEV 01935 M00S01596.dmrec +++| SX2 DF SET FET ADDRESS 01936 M00S01597.dmrec +++| RJ CER CHECK ERROR 01937 M00S01598.dmrec +++| ZR X1,ADF3 IF NO ERROR 01938 M00S01599.dmrec +++| SX6 PTRM READ MODIFY MODE 01939 M00S01600.dmrec +++| SA6 XXMODE THEN TRY READ - ATTACH 01940 M00S01601.dmrec +++| ADF2 ATTACH DF,XXPFN,,,XXMODE,XXPACK,XXDEV 01941 M00S01602.dmrec +++| SX2 DF SET FET ADDRESS 01942 M00S01603.dmrec +++| RJ CER CHECK ERROR 01943 M00S01604.dmrec +++| NZ X1,ADF6 IF ERROR 01944 M00S01605.dmrec +++| ADF3 SA1 XXIXN 01945 M00S01606.dmrec +++| ZR X1,ADF4 IF NO INDEX FILE SPECIFIED 01946 M00S01607.dmrec +++| 01947 M00S01608.dmrec +++|* ATTACH INDEX FILE. 01948 M00S01609.dmrec +++| 01949 M00S01610.dmrec +++| ATTACH IF,XXIXN,,,XXMODE,XXIXP,XXIDEV 01950 M00S01611.dmrec +++| SX2 IF SET FET ADDRESS 01951 M00S01612.dmrec +++| RJ CER CHECK FOR ERRORS 01952 M00S01613.dmrec +++| NZ X1,ADF6 IF STATUS ERROR 01953 M00S01614.dmrec +++| 01954 M00S01615.dmrec +++|* GET OWNCODE FILE. 01955 M00S01616.dmrec +++| 01956 M00S01617.dmrec +++| ADF4 SA1 XXHASH 01957 M00S01618.dmrec +++| ZR X1,ADFX IF NO OWNCODE ROUTINE SPECIFIED 01958 M00S01619.dmrec +++| SX3 B1 01959 M00S01620.dmrec +++| IX7 X1+X3 01960 M00S01621.dmrec +++| SA7 OF 01961 M00S01622.dmrec +++| 01962 M00S01623.dmrec +++|* CHECK IF OWNCODE FILE AT CONTROL POINT. 01963 M00S01624.dmrec +++| 01964 M00S01625.dmrec +++| STATUS OF 01965 M00S01626.dmrec +++| SA1 OF 01966 M00S01627.dmrec +++| MX7 11 01967 M00S01628.dmrec +++| LX1 59-11 01968 M00S01629.dmrec +++| BX7 X7*X1 01969 M00S01630.dmrec +++| ZR X7,ADF5 IF FILE NOT AT CONTROL POINT 01970 M00S01631.dmrec +++| MX1 0 01971 M00S01632.dmrec +++| EQ ADFX RETURN 01972 M00S01633.dmrec +++| 01973 M00S01634.dmrec +++| 01974 M00S01635.dmrec +++| ADF5 SA2 OF 01975 M00S01636.dmrec +++| MX0 42 01976 M00S01637.dmrec +++| BX2 -X0*X2 01977 M00S01638.dmrec +++| SA1 XXHASH REPLACE FN 01978 M00S01639.dmrec +++| BX6 X1+X2 01979 M00S01640.dmrec +++| SA6 A2 01980 M00S01641.dmrec +++| GET OF 01981 M00S01642.dmrec +++| SX2 OF SET FET ADDRESS 01982 M00S01643.dmrec +++| 01983 M00S01644.dmrec +++| RJ CER CHECK FOR ERRORS 01984 M00S01645.dmrec +++| ZR X1,ADFX IF NO ERRORS 01985 M00S01646.dmrec +++| 01986 M00S01647.dmrec +++| ERROR ADFC,XXHASH,,ADFX,,E GET ERROR ON FILE 01987 M00S01648.dmrec +++| 01988 M00S01649.dmrec +++| ADF6 ERROR ADFB,XXPFN,,ADFX,,E ATTACH ERROR ON FILE 01989 M00S01650.dmrec +++| 01990 M00S01651.dmrec +++| 01991 M00S01652.dmrec +++| ADFB DATA 20H0 ***** 01992 M00S01653.dmrec +++| DATA C*ATTACH ERROR ON PF XXXXXXX.* 01993 M00S01654.dmrec +++| ADFBL EQU *-ADFB 01994 M00S01655.dmrec +++| ADFC DATA 20H0 ***** 01995 M00S01656.dmrec +++| DATA C*GET ERROR ON PF XXXXXXX.* 01996 M00S01657.dmrec +++| ADFCL EQU *-ADFC 01997 M00S01658.dmrec +++| ALC SPACE 4,15 01998 M00S01659.dmrec +++|** ALC - ADVANCE LINE COUNT. 01999 M00S01660.dmrec +++|* 02000 M00S01661.dmrec +++|* *ALC* ADVANCES THE LINE COUNT FOR THE OUTPUT FILE PAGE AND 02001 M00S01662.dmrec +++|* CHECKS FOR END-OF-PAGE. IF END-OF-PAGE IS ENCOUNTERED, 02002 M00S01663.dmrec +++|* SAVE INITIAL RETURN ADDRESSES OF *ALC* AND *LPH*. 02003 M00S01664.dmrec +++|* 02004 M00S01665.dmrec +++|* ENTRY (X2) = LINE COUNT TO ADVANCE. 02005 M00S01666.dmrec +++|* 02006 M00S01667.dmrec +++|* EXIT LINE COUNT ADVANCED. 02007 M00S01668.dmrec +++|* 02008 M00S01669.dmrec +++|* USES X - 1, 2, 4, 6, 7. 02009 M00S01670.dmrec +++|* A - 1, 2, 6, 7. 02010 M00S01671.dmrec +++|* B - 2. 02011 M00S01672.dmrec +++|* 02012 M00S01673.dmrec +++|* CALLS CDD, STL. 02013 M00S01674.dmrec +++| 02014 M00S01675.dmrec +++| 02015 M00S01676.dmrec +++| ALC SUBR ENTRY/EXIT 02016 M00S01677.dmrec +++| SA1 ALCA LINE COUNT 02017 M00S01678.dmrec +++| IX7 X1+X2 02018 M00S01679.dmrec +++| SA7 A1 LINE COUNT ADVANCED 02019 M00S01680.dmrec +++| SB2 X1-LINP 02020 M00S01681.dmrec +++| NG B2,ALCX IF NOT AT END OF PAGE 02021 M00S01682.dmrec +++| SA1 ALCB 02022 M00S01683.dmrec +++| SX7 X1+1 ADVANCE PAGE COUNT 02023 M00S01684.dmrec +++| SA7 ALCB 02024 M00S01685.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 02025 M00S01686.dmrec +++| MX4 30 02026 M00S01687.dmrec +++| SA1 STLAP HEADER PAGE WORD 02027 M00S01688.dmrec +++| BX2 X4*X1 02028 M00S01689.dmrec +++| BX6 -X4*X6 02029 M00S01690.dmrec +++| BX6 X6+X2 02030 M00S01691.dmrec +++| SA6 A1 NEW PAGE NUMBER INSERTED 02031 M00S01692.dmrec +++| MX7 0 02032 M00S01693.dmrec +++| SA7 ALCA CLEAR LINE COUNT 02033 M00S01694.dmrec +++| SA1 ALC RETURN ADDRESS 02034 M00S01695.dmrec +++| BX6 X1 02035 M00S01696.dmrec +++| SA6 ALCC SAVE RETURN ADDRESS 02036 M00S01697.dmrec +++| SA2 LPH LPH INITIAL RETURN ADDRESS 02037 M00S01698.dmrec +++| BX7 X2 02038 M00S01699.dmrec +++| SA7 ALCD SAVE RETURN ADDRESS 02039 M00S01700.dmrec +++| RJ STL SET NEW TITLE LINE 02040 M00S01701.dmrec +++| SA1 ALCC RETURN ADDRESS 02041 M00S01702.dmrec +++| BX6 X1 02042 M00S01703.dmrec +++| SA6 ALC PUT INITIAL RETURN ADDRESS 02043 M00S01704.dmrec +++| SA2 ALCD RESTORE INITIAL RETURN ADDRESS 02044 M00S01705.dmrec +++| BX7 X2 02045 M00S01706.dmrec +++| SA7 LPH RESTORE RETURN ADDRESS 02046 M00S01707.dmrec +++| EQ ALCX RETURN 02047 M00S01708.dmrec +++| 02048 M00S01709.dmrec +++| ALCA CON 3 LINE COUNT 02049 M00S01710.dmrec +++| ALCB CON 2 PAGE COUNT 02050 M00S01711.dmrec +++| ALCC BSSZ 1 ALC INITIAL RETURN ADDRESS 02051 M00S01712.dmrec +++| ALCD BSSZ 1 LPH INITIAL RETURN ADDRESS 02052 M00S01713.dmrec +++| ARB SPACE 4,15 02053 M00S01714.dmrec +++|** ARB - ALLOCATE BUFFER SPACE. 02054 M00S01715.dmrec +++|*
| Line S01716 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02055 M01S01716.ns2023 ---|* ENTRY (B6) = 0, TO ALLOCATE *QRF* BUFFER. 02056 M01S01717.ns2023 ---|* = 1, TO ALLOCATE *LRF* BUFFER. 02057 M01S01718.ns2023 ---|* (TLRF) = FWA OF *TLRF* TABLE. 02058 M01S01719.ns2023 ---|* (TQRF) = FWA OF *TQRF* TABLE.
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02059 M01S00016.ns2023 +++|* ENTRY (B6) = 0, TO ALLOCATE *BRF* BUFFER. 02060 M01S00017.ns2023 +++|* = 1, TO ALLOCATE *ARF* BUFFER. 02061 M01S00018.ns2023 +++|* (TARF) = FWA OF *TARF* TABLE. 02062 M01S00019.ns2023 +++|* (TBRF) = FWA OF *TBRF* TABLE. 02063 M00S01720.dmrec +++|* 02064 M00S01721.dmrec +++|* EXIT (X1) = 0, IF BUFFER ALLOCATED. 02065 M00S01722.dmrec +++|* 1, IF ERROR ENCOUNTERED. 02066 M00S01723.dmrec +++|* 02067 M00S01724.dmrec +++|* USES X - ALL. 02068 M00S01725.dmrec +++|* A - 1, 2, 3, 4, 6, 7. 02069 M00S01726.dmrec +++|* B - NONE. 02070 M00S01727.dmrec +++|* 02071 M00S01728.dmrec +++|* CALLS CTW. 02072 M00S01729.dmrec +++|* 02073 M00S01730.dmrec +++|* MACROS MESSAGE. 02074 M00S01731.dmrec +++| 02075 M00S01732.dmrec +++| 02076 M00S01733.dmrec +++| ARB SUBR ENTRY/EXIT 02077 M00S01734.dmrec +++| SA1 XXMKL MAXIMUM KEY LENGTH 02078 M00S01735.dmrec +++| SA2 XXMRL MAXIMUM RECORD LENGTH 02079 M00S01736.dmrec +++| BX7 X2 02080 M00S01737.dmrec +++| BX0 X1 02081 M00S01738.dmrec +++| RJ CTW CONVERT TO WORDS 02082 M00S01739.dmrec +++| BX3 X1 LENGTH IN WORDS 02083 M00S01740.dmrec +++| BX7 X0 02084 M00S01741.dmrec +++| RJ CTW CONVERT TO WORDS 02085 M00S01742.dmrec +++| IX3 X3+X1 (RL/10) + (KL/10)
| Line S01743 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02086 M01S01743.ns2023 ---| SX3 X3+TQRHL ADD *QRF*/*LRF* RECORD HEADER LENGTH
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Removed by) | dmrec12 |
Seq # *Modification Id* Act ----------------------------+ 02087 M02S00020.dmrec12 ---| SX3 X3+TQRHL ADD *BRF*/*ARF* RECORD HEADER LENGTH
| Line S01744 Modification History | |
|---|---|
M01 (Removed by) | dmrec12 |
Seq # *Modification Id* Act ----------------------------+ 02088 M01S01744.dmrec12 ---| BX7 X3 02089 M01S01745.dmrec12 ---| SA7 XXMBL SAVE MAXIMUM BLOCK LENGTH 02090 M01S01746.dmrec12 ---| SX3 X3+63 ROUND UP TO PRU
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmrec12 |
Seq # *Modification Id* Act ----------------------------+ 02091 M01S00001.dmrec12 +++| SX7 X3+TARHL ADD *ARF* RECORD HEADER LENGTH 02092 M01S00002.dmrec12 +++| EQ B6,B1,ARB0 IF *ARF* BUFFER ALLOCATION 02093 M01S00003.dmrec12 +++| SX7 X3+TQRHL ADD *BRF* RECORD HEADER LENGTH 02094 M01S00004.dmrec12 +++| ARB0 SA7 XXMBL SAVE MAXIMUM BLOCK LENGTH 02095 M01S00005.dmrec12 +++| SX3 X7+64-1 ROUND UP A PRU 02096 M00S01747.dmrec +++| AX3 6 NUMBER OF FULL PRU-S 02097 M00S01748.dmrec +++| LX3 6 LENGTH IN WORDS ROUNDED UP TO FULL PRU-S 02098 M00S01749.dmrec +++| SX2 FWAB FWA OF BUFFER 02099 M00S01750.dmrec +++| IX5 X2+X3 LWA OF COMPUTED SPACE 02100 M00S01751.dmrec +++| SX4 LWAB LWA OF AVAILABLE SPACE 02101 M00S01752.dmrec +++| IX4 X4-X5
| Line S01753 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02102 M01S01753.ns2023 ---| EQ B6,B1,ARB1 ALLOCATE *LRF* BUFFER
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02103 M01S00021.ns2023 +++| EQ B6,B1,ARB1 ALLOCATE *ARF* BUFFER 02104 M00S01754.dmrec +++|
| Line S01755 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02105 M01S01755.ns2023 ---|* ALLOCATE *QRF* BUFFER AND SET FIELDS IN *TQRF* TABLE.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02106 M01S00022.ns2023 +++|* ALLOCATE *BRF* BUFFER AND SET FIELDS IN *TBRF* TABLE. 02107 M00S01756.dmrec +++|
| Line S01757 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02108 M01S01757.ns2023 ---| SX6 CRMUPM RECORDS PER *QRF* SEGMENT
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02109 M01S00023.ns2023 +++| SX6 CRMUPM RECORDS PER *BRF* SEGMENT 02110 M00S01758.dmrec +++| AX3 6
| Line S01759 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02111 M01S01759.ns2023 ---| IX6 X3*X6 PRU-S PER *QRF* SEGMENT 02112 M01S01760.ns2023 ---| SX7 CMDM NUMBER OF SEGMENTS PER *QRF* FILE
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02113 M01S00024.ns2023 +++| IX6 X3*X6 PRU-S PER *BRF* SEGMENT 02114 M01S00025.ns2023 +++| SX7 CMDM NUMBER OF SEGMENTS PER *BRF* FILE 02115 M00S01761.dmrec +++| BX3 X6 02116 M00S01762.dmrec +++| LX7 TQNPN 02117 M00S01763.dmrec +++| BX6 X6+X7 02118 M00S01764.dmrec +++| LX3 6 LENGTH IN WORDS ROUNDED UP TO FULL PRU-S 02119 M00S01765.dmrec +++| SX1 WBUFL 02120 M00S01766.dmrec +++| IX3 X3-X1 02121 M00S01767.dmrec +++| PL X3,ARB2 IF BUFFER TOO SMALL
| Line S01768 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02122 M01S01768.ns2023 ---| SA6 TQRF+TQNPW *QRF* FILE HEADER WORD THREE
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02123 M01S00026.ns2023 +++| SA6 TQRF+TQNPW *BRF* FILE HEADER WORD THREE 02124 M00S01769.dmrec +++| SX6 44B RANDOM AND USER EP BITS IN FET+1 02125 M00S01770.dmrec +++| SX7 3 FET LENGTH 02126 M00S01771.dmrec +++| LX6 24D POSTION 02127 M00S01772.dmrec +++| BX6 X6+X7 02128 M00S01773.dmrec +++| LX6 18 02129 M00S01774.dmrec +++| BX6 X6+X2 ADD *FIRST*
| Line S01775 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02130 M01S01775.ns2023 ---| SA6 TQRF+TQFTW STORE FET+1 IN *TQRF* TABLE
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02131 M01S00027.ns2023 +++| SA6 TQRF+TQFTW STORE FET+1 IN *TBRF* TABLE 02132 M00S01776.dmrec +++| SX6 X2 02133 M00S01777.dmrec +++| SA6 A6+B1 STORE *IN* 02134 M00S01778.dmrec +++| SA6 A6+B1 STORE *OUT* 02135 M00S01779.dmrec +++| SX6 X5+B1 SET *LIMIT* 02136 M00S01780.dmrec +++| SA6 A6+B1 STORE *LIMIT* 02137 M00S01781.dmrec +++| BX1 X1-X1 02138 M00S01782.dmrec +++| EQ ARBX RETURN 02139 M00S01783.dmrec +++|
| Line S01784 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02140 M01S01784.ns2023 ---|* ALLOCATE *LRF* BUFFER AND SET FIELDS IN *TLRF* TABLE.
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02141 M01S00028.ns2023 +++|* ALLOCATE *ARF* BUFFER AND SET FIELDS IN *TARF* TABLE. 02142 M00S01785.dmrec +++| 02143 M00S01786.dmrec +++| ARB1 SA4 XXMBL MAXIMUM BLOCK SIZE IN WORDS 02144 M00S01787.dmrec +++| SX6 CRMARB NUMBER OF *ARF* RECORDS PER BUFFER 02145 M00S01788.dmrec +++| IX4 X4*X6 02146 M00S01789.dmrec +++| SX6 63 ROUND-UP TO PRU 02147 M00S01790.dmrec +++| IX4 X4+X6 02148 M00S01791.dmrec +++| SX1 WBUFL 02149 M00S01792.dmrec +++| IX6 X4-X1 02150 M00S01793.dmrec +++| PL X6,ARB2 IF BUFFER TOO SMALL 02151 M00S01794.dmrec +++| AX4 6 02152 M00S01795.dmrec +++| LX4 6 BUFFER LENGTH IN MULTIPLE PRU-S
| Line S01796 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02153 M01S01796.ns2023 ---| SA3 LENGTH LENGTH OF *LRF* FILE IN PRU-S
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02154 M01S00029.ns2023 +++| SA3 LENGTH LENGTH OF *ARF* FILE IN PRU-S 02155 M00S01797.dmrec +++| LX3 TAFLS-TAFLN+1 02156 M00S01798.dmrec +++| BX6 X3+X4
| Line S01799 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02157 M01S01799.ns2023 ---| SA6 TLRF+TABLW SET LRF FILE HEADER WORD 4
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02158 M01S00030.ns2023 +++| SA6 TARF+TABLW SET *ARF* FILE HEADER WORD 4 02159 M00S01800.dmrec +++| SX6 44B RANDOM AND USER EP BITS IN FET+1 02160 M00S01801.dmrec +++| SX7 3 8 WORD FET 02161 M00S01802.dmrec +++| LX6 24D 02162 M00S01803.dmrec +++| BX6 X6+X7 MERGE 02163 M00S01804.dmrec +++| LX6 18 02164 M00S01805.dmrec +++| BX6 X6+X2 ADD *FIRST*
| Line S01806 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02165 M01S01806.ns2023 ---| SA6 TLRF+TAFTW STORE FET+1 IN *TLRF* TABLE
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02166 M01S00031.ns2023 +++| SA6 TARF+TAFTW STORE FET+1 IN *TARF* TABLE 02167 M00S01807.dmrec +++| SX6 X2 02168 M00S01808.dmrec +++| SA6 A6+B1 STORE *IN* 02169 M00S01809.dmrec +++| SA6 A6+B1 STORE *OUT* 02170 M00S01810.dmrec +++| SX6 X5+B1 SET *LIMIT* 02171 M00S01811.dmrec +++| SA6 A6+B1 STORE *LIMIT* 02172 M00S01812.dmrec +++| BX1 X1-X1 02173 M00S01813.dmrec +++| EQ ARBX RETURN 02174 M00S01814.dmrec +++| 02175 M00S01815.dmrec +++| ARB2 MESSAGE (=C* NO SPACE FOR ARF/BRF BUFFER.*) 02176 M00S01816.dmrec +++| SX1 1 ERROR IN ALLOCATION 02177 M00S01817.dmrec +++| EQ ARBX RETURN 02178 M00S01818.dmrec +++| 02179 M00S01819.dmrec +++| 02180 M00S01820.dmrec +++| ATF SPACE 4,15 02181 M00S01821.dmrec +++|** ATF - ATTACH OR DEFINE FILE. 02182 M00S01822.dmrec +++|* 02183 M00S01823.dmrec +++|* ENTRY (X1) = FIRST WORD OF FET - 02184 M00S01824.dmrec +++|* PERMANENT FILE NAME AND COMPLETION BIT.
| Line S01825 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02185 M01S01825.ns2023 ---|* (B7) = ONE IF *LRF* OR *QRF* TO BE DEFINED. 02186 M01S01826.ns2023 ---|* .GT. ONE IF *LRF* OR *QRF* TO BE ATTACHED.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02187 M01S00032.ns2023 +++|* (B7) = ONE IF *ARF* OR *BRF* TO BE DEFINED. 02188 M01S00033.ns2023 +++|* .GT. ONE IF *ARF* OR *BRF* TO BE ATTACHED. 02189 M00S01827.dmrec +++|* 02190 M00S01828.dmrec +++|* EXIT (X1) = ZERO IF FILE ATTACHED OR DEFINED, NO ERROR. 02191 M00S01829.dmrec +++|* = ERROR CODE IF ERROR ON ATTACH OR DEFINE. 02192 M00S01830.dmrec +++|* 02193 M00S01831.dmrec +++|* USES X - 1, 4, 6, 7. 02194 M00S01832.dmrec +++|* A - 1, 4, 6, 7. 02195 M00S01833.dmrec +++|* B - NONE. 02196 M00S01834.dmrec +++|* 02197 M00S01835.dmrec +++|* MACROS ATTACH, DEFINE. 02198 M00S01836.dmrec +++| 02199 M00S01837.dmrec +++| 02200 M00S01838.dmrec +++| ATF SUBR ENTRY/EXIT 02201 M00S01839.dmrec +++| BX7 X1 02202 M00S01840.dmrec +++| SA7 RECF PFN TO FET+0 02203 M00S01841.dmrec +++| MX7 12 02204 M00S01842.dmrec +++| SX6 ATFA ERROR BUFFER ADDRESS 02205 M00S01843.dmrec +++| SA6 RECF+10 02206 M00S01844.dmrec +++| SA4 A7+B1 02207 M00S01845.dmrec +++| BX7 -X7*X4 02208 M00S01846.dmrec +++| SA7 A4 CLEAR DEVICE TYPE IN FET+1 02209 M00S01847.dmrec +++| SX7 B0 ATTACH MODE = ZERO = WRITE MODE 02210 M00S01848.dmrec +++| SA7 RECF+12 CLEAR PACKNAME/UNIT IN FET+12 02211 M00S01849.dmrec +++| SA7 RECF+7 STORE ATTACH MODE IN FET+7 02212 M00S01850.dmrec +++| GT B7,B1,ATF1 IF ATTACH FILE 02213 M00S01851.dmrec +++| DEFINE RECF,,,,RECF+7 02214 M00S01852.dmrec +++| EQ ATF2 CHECK FOR ERRORS 02215 M00S01853.dmrec +++| 02216 M00S01854.dmrec +++| ATF1 ATTACH RECF,,,,RECF+7 02217 M00S01855.dmrec +++| ATF2 MX7 -8 02218 M00S01856.dmrec +++| SA1 RECF FET+0 02219 M00S01857.dmrec +++| AX1 10 02220 M00S01858.dmrec +++| BX1 -X7*X1 SAVE RIGHT JUSTIFIED ERROR CODE 02221 M00S01859.dmrec +++| EQ ATFX RETURN 02222 M00S01860.dmrec +++| 02223 M00S01861.dmrec +++| ATFA BSSZ 3 BUFFER FOR ERROR MESSAGE 02224 M00S01862.dmrec +++| BBE SPACE 4,10 02225 M00S01863.dmrec +++|** BBE - BUILD BACKUP DIRECTORY ENTRIES. 02226 M00S01864.dmrec +++|* 02227 M00S01865.dmrec +++|* BUILD BACKUP DIRECTORY ENTRIES FROM INFORMATION 02228 M00S01866.dmrec +++|* IN TABLES *TDFN* AND *TVSN*. 02229 M00S01867.dmrec +++|* 02230 M00S01868.dmrec +++|* ENTRY (NUMF) = NUMBER OF FILES ON *TDFN* 02231 M00S01869.dmrec +++|* (NUMV) = NUMBER OF VSN-S ON *TVSN* 02232 M00S01870.dmrec +++|* TABLES *TDFN* AND *TVSN* CONSTRUCTED. 02233 M00S01871.dmrec +++|* (DMPFLG) = 0 IF LOG FILE DUMP. 02234 M00S01872.dmrec +++|* .NE. 0 IF DATA FILE DUMP. 02235 M00S01873.dmrec +++|* 02236 M00S01874.dmrec +++|* EXIT BACKUP ENTRIES BUILT 02237 M00S01875.dmrec +++|* (X1) = 0 - NO ERRORS 02238 M00S01876.dmrec +++|* 02239 M00S01877.dmrec +++|* USES X - ALL. 02240 M00S01878.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 02241 M00S01879.dmrec +++|* B - 2, 3. 02242 M00S01880.dmrec +++|* 02243 M00S01881.dmrec +++|* CALLS CDD, FER, WFH. 02244 M00S01882.dmrec +++|* 02245 M00S01883.dmrec +++|* MACROS ERROR, MOVE, PDATE, PUT, RMGET 02246 M00S01884.dmrec +++|* RMREP, WRITEF, WRITER, WRITEW. 02247 M00S01885.dmrec +++| 02248 M00S01886.dmrec +++| 02249 M00S01887.dmrec +++| BBE SUBR ENTRY/EXIT 02250 M00S01888.dmrec +++| SA1 DMPFLG 02251 M00S01889.dmrec +++| ZR X1,BBE10 IF LOG FILE 02252 M00S01890.dmrec +++| 02253 M00S01891.dmrec +++|* CREATE VSN ENTRIES FOR DIRECTORY. 02254 M00S01892.dmrec +++| 02255 M00S01893.dmrec +++| SX6 B0-B1 02256 M00S01894.dmrec +++| SA6 HOLD 02257 M00S01895.dmrec +++| BBE1 SA1 NUMV 02258 M00S01896.dmrec +++| SA2 HOLD 02259 M00S01897.dmrec +++| SX6 X2+B1 02260 M00S01898.dmrec +++| SA6 A2 02261 M00S01899.dmrec +++| IX2 X1-X6 02262 M00S01900.dmrec +++| ZR X2,BBE3 IF NO MORE TAPES 02263 M00S01901.dmrec +++| SA2 TVSN+X6 02264 M00S01902.dmrec +++| MX0 36 02265 M00S01903.dmrec +++| BX6 X0*X2 MASK VSN 02266 M00S01904.dmrec +++| LX6 36 02267 M00S01905.dmrec +++| SA1 FILLER ADD **** 02268 M00S01906.dmrec +++| BX6 X1+X6 02269 M00S01907.dmrec +++| SA6 EVSN 02270 M00S01908.dmrec +++| SA4 A2+B1 02271 M00S01909.dmrec +++| BX6 X0*X4 02272 M00S01910.dmrec +++| SA6 A6+2 02273 M00S01911.dmrec +++| MX0 -18 02274 M00S01912.dmrec +++| BX6 -X0*X2 02275 M00S01913.dmrec +++| SA6 A6+B1 02276 M00S01914.dmrec +++| SX6 B0 02277 M00S01915.dmrec +++| SX7 B0 02278 M00S01916.dmrec +++| SA4 HOLD CHECK FOR FIRST TAPE 02279 M00S01917.dmrec +++| NZ X4,BBE2 IF NOT FIRST TAPE 02280 M00S01918.dmrec +++| SA3 FORD GET FILE ORDINAL 02281 M00S01919.dmrec +++| BX6 X3 02282 M00S01920.dmrec +++| SX7 B1 SET FIRST TAPE FLAG 02283 M00S01921.dmrec +++| BBE2 SA6 A6+B1 02284 M00S01922.dmrec +++| SA7 A6+B1 02285 M00S01923.dmrec +++| PUT DIRR,EVSN,60,,EVSN 02286 M00S01924.dmrec +++| RJ FER CHECK FIT ERROR 02287 M00S01925.dmrec +++| NZ X1,BBE20 IF ERROR 02288 M00S01926.dmrec +++| EQ BBE1 PROCESS NEXT TAPE 02289 M00S01927.dmrec +++| 02290 M00S01928.dmrec +++|* CREATE FILE DUMP ENTRIES FOR DIRECTORY. 02291 M00S01929.dmrec +++| 02292 M00S01930.dmrec +++| BBE3 SX6 B0-2 02293 M00S01931.dmrec +++| SA6 HOLD 02294 M00S01932.dmrec +++| BBE4 SA1 NUMF NUMBER OF FILES 02295 M00S01933.dmrec +++| SA2 HOLD 02296 M00S01934.dmrec +++| SX6 X2+2 INCREMENT BY 2 02297 M00S01935.dmrec +++| SA6 A2 02298 M00S01936.dmrec +++| IX2 X1-X6 02299 M00S01937.dmrec +++| ZR X2,BBE9 IF NO MORE FILES 02300 M00S01938.dmrec +++| SB2 X6 02301 M00S01939.dmrec +++| MX7 42 02302 M00S01940.dmrec +++| SA2 TDFN+B2 02303 M00S01941.dmrec +++| SX3 3RBBB DATA BASE DUMP RECORD - ID 02304 M00S01942.dmrec +++| BX6 X7*X2 02305 M00S01943.dmrec +++| BX6 X6+X3 02306 M00S01944.dmrec +++| SA6 EDFN 02307 M00S01945.dmrec +++| MX0 3 GET DUMP MODE 02308 M00S01946.dmrec +++| LX0 15 02309 M00S01947.dmrec +++| BX3 X0*X2 02310 M00S01948.dmrec +++| NZ X3,BBE5 IF RECORD DUMP 02311 M00S01949.dmrec +++| PDATE TEMPO 02312 M00S01950.dmrec +++| SA3 TEMPO 02313 M00S01951.dmrec +++| BX6 X3 02314 M00S01952.dmrec +++| SA6 EDFN+B1 02315 M00S01953.dmrec +++| EQ BBE6 CONTINUE 02316 M00S01954.dmrec +++| 02317 M00S01955.dmrec +++| BBE5 SA3 STDTIM RECORD DUMP - START TIME 02318 M00S01956.dmrec +++| BX6 X3 02319 M00S01957.dmrec +++| SA6 EDFN+B1 02320 M00S01958.dmrec +++| BBE6 MX0 36 02321 M00S01959.dmrec +++| SA3 TVSN 02322 M00S01960.dmrec +++| BX6 X0*X3
| Line S01961 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 02323 M01S01961.dmrec15 ---| SX0 B1
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 02324 M01S00007.dmrec15 +++| SX0 PTRM READ MODIFY MODE 02325 M00S01962.dmrec +++| SA3 HOLD 02326 M00S01963.dmrec +++| SB3 X3 02327 M00S01964.dmrec +++| SA3 TDFN+B3 02328 M00S01965.dmrec +++| BX2 X3 02329 M00S01966.dmrec +++| AX3 12 02330 M00S01967.dmrec +++| BX7 X0*X3 02331 M00S01968.dmrec +++| BX6 X7+X6 02332 M00S01969.dmrec +++| SA6 EDFN+2 02333 M00S01970.dmrec +++| MX4 48 02334 M00S01971.dmrec +++| BX6 -X4*X2 02335 M00S01972.dmrec +++| SA6 A6+2 02336 M00S01973.dmrec +++| SA2 A3+B1 GET INDEX FILE NAME 02337 M00S01974.dmrec +++| NZ X2,BBE7 IF INDEX FILE 02338 M00S01975.dmrec +++| SX6 B0 02339 M00S01976.dmrec +++| SA6 A6-B1 INDEX FILE NAME 02340 M00S01977.dmrec +++| SA6 A6+2 INDEX FILE ORDINAL 02341 M00S01978.dmrec +++| EQ BBE8 CONTINUE 02342 M00S01979.dmrec +++| 02343 M00S01980.dmrec +++| BBE7 MX0 42 02344 M00S01981.dmrec +++| BX6 X0*X2 02345 M00S01982.dmrec +++| SA6 A6-B1 02346 M00S01983.dmrec +++| MX0 48 02347 M00S01984.dmrec +++| BX6 -X0*X2 02348 M00S01985.dmrec +++| SA6 A6+2 02349 M00S01986.dmrec +++| BBE8 PUT DIRR,EDFN,60,,EDFN 02350 M00S01987.dmrec +++| RJ FER CHECK FIT ERROR 02351 M00S01988.dmrec +++| NZ X1,BBE20 IF ERROR 02352 M00S01989.dmrec +++| EQ BBE4 CONTINUE 02353 M00S01990.dmrec +++| 02354 M00S01991.dmrec +++| BBE9 SX1 B0 02355 M00S01992.dmrec +++| EQ BBEX RETURN 02356 M00S01993.dmrec +++| 02357 M00S01994.dmrec +++|* CREATE LOG FILE ENTRIES IN DIRECTORY. 02358 M00S01995.dmrec +++| 02359 M00S01996.dmrec +++| BBE10 SX4 B0 SET BLOCK MODE 02360 M00S01997.dmrec +++| SA2 XXPFN FN 02361 M00S01998.dmrec +++| RJ WFH WRITE FILE HEADER 02362 M00S01999.dmrec +++| NZ X1,BBEX IF ERROR 02363 M00S02000.dmrec +++| SA5 TLOG
| Line S02001 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02364 M01S02001.ns2023 ---| ZR X5,BBE21 IF NO LRF ENTRIES
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02365 M01S00034.ns2023 +++| ZR X5,BBE21 IF NO *ARF* ENTRIES 02366 M00S02002.dmrec +++| SX6 B0 02367 M00S02003.dmrec +++| BBE11 SA6 HOLD 02368 M00S02004.dmrec +++| SA2 HOLD GET TLOG INDEX 02369 M00S02005.dmrec +++| SA5 TLOG+X2 02370 M00S02006.dmrec +++| ZR X5,BBE13 IF SEARCH DONE
| Line S02007 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02371 M01S02007.ns2023 ---| SA1 EXCOPY *LRF* COPY NUMBER
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02372 M01S00035.ns2023 +++| SA1 EXCOPY *ARF* COPY NUMBER 02373 M00S02008.dmrec +++| RJ CDD CONCERT TO DISPLAY CODE 02374 M00S02009.dmrec +++| MX0 42 02375 M00S02010.dmrec +++| BX2 -X0*X6 02376 M00S02011.dmrec +++| BX6 X0*X5 02377 M00S02012.dmrec +++| BX6 X6+X2 FN + COPY NUMBER 02378 M00S02013.dmrec +++| SA6 EDFN PFN 02379 M00S02014.dmrec +++| SA3 A5+B1 02380 M00S02015.dmrec +++| BX6 X3 02381 M00S02016.dmrec +++| SA6 A6+B1 DATE/TIME 02382 M00S02017.dmrec +++| SA3 TVSN 02383 M00S02018.dmrec +++| BX6 X3 02384 M00S02019.dmrec +++| SA6 A6+B1 VSN 02385 M00S02020.dmrec +++| SX6 B0 02386 M00S02021.dmrec +++| SA6 A6+B1 ZERO 02387 M00S02022.dmrec +++| BX6 -X0*X5 02388 M00S02023.dmrec +++| SA6 A6+B1 NUMBER OF RECORDS 02389 M00S02024.dmrec +++| SA1 LSTTRAN 02390 M00S02025.dmrec +++| BX6 X1 02391 M00S02026.dmrec +++| SA6 A6+B1 DATE/TIME OF LAST TRANSACTION 02392 M00S02027.dmrec +++| PUT DIRR,EDFN,60,,EDFN 02393 M00S02028.dmrec +++| RJ FER CHECK FIT ERROR 02394 M00S02029.dmrec +++| NZ X1,BBE20 IF ERROR 02395 M00S02030.dmrec +++| MOVE 6,EDFN,TBUF 02396 M00S02031.dmrec +++| SA1 TP+B1 02397 M00S02032.dmrec +++| SX7 X1 02398 M00S02033.dmrec +++| SA7 A1+2 OUT 02399 M00S02034.dmrec +++| SX7 X7+6 02400 M00S02035.dmrec +++| SA7 A7-B1 SET ( IN ) POINTER 02401 M00S02036.dmrec +++| WRITER TP,R 02402 M00S02037.dmrec +++| BBE12 SA2 HOLD 02403 M00S02038.dmrec +++| SX6 X2+2 02404 M00S02039.dmrec +++| EQ BBE11 RETURN FOR NEXT TLOG ENTRY 02405 M00S02040.dmrec +++| 02406 M00S02041.dmrec +++| BBE13 SA1 XXPFN 02407 M00S02042.dmrec +++| LX1 48 POSITION FN 02408 M00S02043.dmrec +++| SX2 3REND 02409 M00S02044.dmrec +++| BX6 X2+X1 02410 M00S02045.dmrec +++| SA6 TEMPP TRAILER WORD 02411 M00S02046.dmrec +++| WRITEW TP,TEMPP,B1 WRITE TRAILER RECORD 02412 M00S02047.dmrec +++| BBE14 WRITEF TP,R 02413 M00S02048.dmrec +++|
| Line S02049 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02414 M01S02049.ns2023 ---|* PUT VSN OF FIRST LRF DUMP INTO DB HEADER AND/OR 02415 M01S02050.ns2023 ---|* BUILD DIRECTORY ENTRY FOR LRF DUMP VSN.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02416 M01S00036.ns2023 +++|* PUT VSN OF FIRST *ARF* DUMP INTO DB HEADER AND/OR 02417 M01S00037.ns2023 +++|* BUILD DIRECTORY ENTRY FOR *ARF* DUMP VSN. 02418 M00S02051.dmrec +++|
| Line S02052 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02419 M01S02052.ns2023 ---| BBE15 SA2 TDFN LRF NAME
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02420 M01S00038.ns2023 +++| BBE15 SA2 TDFN *ARF* NAME 02421 M00S02053.dmrec +++| MX0 12
| Line S02054 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02422 M01S02054.ns2023 ---| LX2 12 SHIFT *LRF* NAME FOR DB
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02423 M01S00039.ns2023 +++| LX2 12 SHIFT *ARF* NAME FOR DB 02424 M00S02055.dmrec +++| BX6 X0*X2 02425 M00S02056.dmrec +++| SA6 KEY2 SET KEY FOR HEADER 02426 M00S02057.dmrec +++| RMGET DIRR,XXBUF,0,,KEY2 GET DB HEADER 02427 M00S02058.dmrec +++| RJ FER CHECK FIT ERROR 02428 M00S02059.dmrec +++| NZ X1,BBE20 IF ERROR
| Line S02060 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02429 M01S02060.ns2023 ---| SA1 FSTFLG GET FIRST LRF FLAG 02430 M01S02061.ns2023 ---| ZR X1,BBE16 IF NOT FIRST *LRF*
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02431 M01S00040.ns2023 +++| SA1 FSTFLG GET FIRST *ARF* FLAG 02432 M01S00041.ns2023 +++| ZR X1,BBE16 IF NOT FIRST *ARF* 02433 M00S02062.dmrec +++| SA2 EXCOPY 02434 M00S02063.dmrec +++| SX2 X2-1 02435 M00S02064.dmrec +++| NZ X2,BBE16 IF NOT FIRST COPY 02436 M00S02065.dmrec +++| SA3 XXBUF+4 GET VSN FROM HEADER RECORD 02437 M00S02066.dmrec +++| SA4 TVSN 02438 M00S02067.dmrec +++| MX0 36 02439 M00S02068.dmrec +++| BX7 -X0*X3 02440 M00S02069.dmrec +++| BX6 X7+X4 02441 M00S02070.dmrec +++| SA6 A3 INSERT VSN IN HEADER 02442 M00S02071.dmrec +++| RMREP DIRR,XXBUF,60,,KEY2 REPLACE HEADER 02443 M00S02072.dmrec +++| RJ FER CHECK FIT ERROR 02444 M00S02073.dmrec +++| NZ X1,BBE20 IF ERROR 02445 M00S02074.dmrec +++| BBE16 SX6 TVSN 02446 M00S02075.dmrec +++| SA6 IVSN INITIALIZE IVSN POINTER
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 02447 M01S00031.dmrec7 +++| SX7 TEOR 02448 M01S00032.dmrec7 +++| SA7 PEOR INITIALIZE POINTER TO *TEOR* TABLE 02449 M00S02076.dmrec +++| BBE16.1 SA4 IVSN 02450 M00S02077.dmrec +++| SA3 DMTAPE 02451 M00S02078.dmrec +++| NG X3,BBE18.1 IF NO MORE VSN ENTRIES 02452 M00S02079.dmrec +++| SX6 X3-1 02453 M00S02080.dmrec +++| SA6 A3 DECREMENT NUMBER OF DUMP TAPES 02454 M00S02081.dmrec +++| SA2 X4 GET VSN ENTRY 02455 M00S02082.dmrec +++| ZR X2,BBE18.0 IF NO VSN GIVEN 02456 M00S02083.dmrec +++| MX0 36 02457 M00S02084.dmrec +++| BX6 X0*X2
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 02458 M01S00033.dmrec7 +++| SA2 PEOR 02459 M01S00034.dmrec7 +++| SA4 X2 VSN FROM *TEOR* TABLE 02460 M01S00035.dmrec7 +++| BX5 X0*X4 02461 M01S00036.dmrec7 +++| IX1 X5-X6 COMPARE VSN-S 02462 M01S00037.dmrec7 +++| SX7 X2+B1 02463 M01S00038.dmrec7 +++| NZ X1,BBE22 IF VSN-S DO NOT MATCH 02464 M01S00039.dmrec7 +++| SA7 A2 INCREMENT *PEOR* POINTER 02465 M00S02085.dmrec +++| MX7 0 02466 M00S02086.dmrec +++| LX6 36 02467 M00S02087.dmrec +++| SA1 FILLER 02468 M00S02088.dmrec +++| BX6 X6+X1 02469 M00S02089.dmrec +++| SA6 EVSN SET KEY 02470 M00S02090.dmrec +++| ZR X3,BBE16.2 IF NO MORE VSN-S 02471 M00S02091.dmrec +++| SA5 IVSN GET NEXT VSN 02472 M00S02092.dmrec +++| SA2 X5+B1 02473 M00S02093.dmrec +++| BX7 X0*X2 02474 M00S02094.dmrec +++| BBE16.2 SA7 A6+2
| Line S02095 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 02475 M01S02095.dmrec7 ---| SA2 EVSN+B1 GET ALL ASTERICKS 02476 M01S02096.dmrec7 ---| BX6 X2 02477 M01S02097.dmrec7 ---| SA6 A7+B1
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 02478 M01S00040.dmrec7 +++| BX6 -X0*X4 GET *EOR* COUNT 02479 M01S00041.dmrec7 +++| SA6 A7+B1 STORE *EOR* COUNT
| Line S02098 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02480 M01S02098.ns2023 ---| SA2 HOLD GET NUMBER OF FILES ON THIS *LRF*
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02481 M01S00042.ns2023 +++| SA2 HOLD GET NUMBER OF FILES ON THIS *ARF* 02482 M00S02099.dmrec +++| MX7 0 02483 M00S02100.dmrec +++| NZ X2,BBE17 IF NOT ZERO COUNT 02484 M00S02101.dmrec +++| BX6 X2 02485 M00S02102.dmrec +++| EQ BBE18 GO STORE ZERO 02486 M00S02103.dmrec +++| 02487 M00S02104.dmrec +++| BBE17 SX6 X2-2 02488 M00S02105.dmrec +++| BBE18 SA6 A6+B1 02489 M00S02106.dmrec +++| SA7 A6+B1 02490 M00S02107.dmrec +++| PUT DIRR,EVSN,60,,EVSN ENTER VSN ENTRY 02491 M00S02108.dmrec +++| RJ FER CHECK FIT ERROR 02492 M00S02109.dmrec +++| NZ X1,BBE20 IF ERROR 02493 M00S02110.dmrec +++| BBE18.0 SA2 IVSN 02494 M00S02111.dmrec +++| SX7 X2+B1 INCREMENT IVSN 02495 M00S02112.dmrec +++| SA7 A2 02496 M00S02113.dmrec +++| EQ BBE16.1 CHECK NEXT VSN 02497 M00S02114.dmrec +++| BBE18.1 SA1 FSTFLG 02498 M00S02115.dmrec +++| NZ X1,BBE9 IF FIRST ARF 02499 M00S02116.dmrec +++| SA2 EXCOPY 02500 M00S02117.dmrec +++| SX2 X2-1 02501 M00S02118.dmrec +++| NZ X2,BBE9 IF NOT FIRST COPY 02502 M00S02119.dmrec +++| SA3 XXBUF+4 02503 M00S02120.dmrec +++| MX0 36 02504 M00S02121.dmrec +++| BX6 X0*X3 02505 M00S02122.dmrec +++| BBE19 LX6 36 02506 M00S02123.dmrec +++| SA1 FILLER 02507 M00S02124.dmrec +++| BX6 X6+X1 02508 M00S02125.dmrec +++| SA6 EVSN SET KEY 02509 M00S02126.dmrec +++| RMGET DIRR,XXBUF,0,,EVSN 02510 M00S02127.dmrec +++| RJ FER CHECK FIT ERROR 02511 M00S02128.dmrec +++| NZ X1,BBE20 IF ERROR 02512 M00S02129.dmrec +++| MX0 36 02513 M00S02130.dmrec +++| SA3 XXBUF+5 02514 M00S02131.dmrec +++| BX6 X0*X3 02515 M00S02132.dmrec +++| NZ X6,BBE19 IF VSN ALREADY 02516 M00S02133.dmrec +++| SA4 TVSN 02517 M00S02134.dmrec +++| BX6 X4 02518 M00S02135.dmrec +++| SA6 A3 02519 M00S02136.dmrec +++| RMREP DIRR,XXBUF,60,,EVSN 02520 M00S02137.dmrec +++| RJ FER CHECK FIT ERROR 02521 M00S02138.dmrec +++| NZ X1,BBE20 IF ERROR 02522 M00S02139.dmrec +++| EQ BBEX RETURN NORMAL 02523 M00S02140.dmrec +++| 02524 M00S02141.dmrec +++| BBE20 ERROR BBEA,,,BBEX,,E ERROR IN BUILDING DIRECTORY ENTRIES 02525 M00S02142.dmrec +++| 02526 M00S02143.dmrec +++| BBE21 ERROR BBEB,,,BBEX,,E NO ARF DUMP ENTRIES 02527 M00S02144.dmrec +++|
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 02528 M01S00042.dmrec7 +++| BBE22 ERROR GFVD,,,BBEX,,E ERROR IN RETRIEVING VSN 02529 M01S00043.dmrec7 +++| 02530 M00S02145.dmrec +++| BBEA DATA 20H0 ***** 02531 M00S02146.dmrec +++| DATA C*ERROR IN BUILDING DIRECTORY ENTRIES.* 02532 M00S02147.dmrec +++| BBEAL EQU *-BBEA 02533 M00S02148.dmrec +++| 02534 M00S02149.dmrec +++| BBEB DATA 20H0 ***** 02535 M00S02150.dmrec +++| DATA C*NO ARF DUMP ENTRIES - DUMP IGNORED.* 02536 M00S02151.dmrec +++| BBEBL EQU *-BBEB 02537 M00S02152.dmrec +++| BFL SPACE 4,10 02538 M00S02153.dmrec +++|** BFL - BLANK FILL LINE. 02539 M00S02154.dmrec +++|* 02540 M00S02155.dmrec +++|* ENTRY (PLIN) = FWA OF LINE. 02541 M00S02156.dmrec +++|* (PLINL) = LINE LENGTH. 02542 M00S02157.dmrec +++|* 02543 M00S02158.dmrec +++|* EXIT LINE BLANK FILLED. 02544 M00S02159.dmrec +++|* 02545 M00S02160.dmrec +++|* USES X - 1, 6. 02546 M00S02161.dmrec +++|* A - 1, 6. 02547 M00S02162.dmrec +++|* B - 7. 02548 M00S02163.dmrec +++| 02549 M00S02164.dmrec +++| 02550 M00S02165.dmrec +++| BFL SUBR ENTRY/EXIT 02551 M00S02166.dmrec +++| SB7 PLINL 02552 M00S02167.dmrec +++| SA1 BKEY BLANK FILLED WORD 02553 M00S02168.dmrec +++| BX6 X1 02554 M00S02169.dmrec +++| BFL1 SA6 PLIN+B7 02555 M00S02170.dmrec +++| SB7 B7-B1 02556 M00S02171.dmrec +++| GE B7,B0,BFL1 IF WITHIN LINE 02557 M00S02172.dmrec +++| EQ BFLX RETURN 02558 M00S02173.dmrec +++| BIF SPACE 4,10 02559 M00S02174.dmrec +++|** BIF - BUILT INDEX FILE. 02560 M00S02175.dmrec +++|* 02561 M00S02176.dmrec +++|* THIS SUBROUTINE CONSTRUCTS AN INDEX FILE WITH 02562 M00S02177.dmrec +++|* INFORMATION EXTRACTED FROM AN EXISTING ONE. A 02563 M00S02178.dmrec +++|* FILE OF *MIPGEN* DIRECTIVES IS BUILT AND IS USED
| Line S02179 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02564 M01S02179.v23l617 ---|* IN A SUBSEQUENT *MIPGEN* CONTROL CARD RUN.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02565 M01S00019.v23l617 +++|* IN A SUBSEQUENT *MIPGEN* COMMAND RUN. 02566 M00S02180.dmrec +++|* SUBROUTINE *EXC* EFFECTS THE *MIPGEN* CALL AND 02567 M00S02181.dmrec +++|* FIELD LENGTH RECONSTRUCTION. 02568 M00S02182.dmrec +++|* 02569 M00S02183.dmrec +++|* ENTRY (DUMP) - FWA AND LFN OF DATA FILE. 02570 M00S02184.dmrec +++|* 02571 M00S02185.dmrec +++|* EXIT (X1) = 0 - IF NO ERRORS. 02572 M00S02186.dmrec +++|* 02573 M00S02187.dmrec +++|* USES X - ALL. 02574 M00S02188.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 02575 M00S02189.dmrec +++|* B - 2, 3, 4, 5, 6, 7. 02576 M00S02190.dmrec +++|* 02577 M00S02191.dmrec +++|* CALLS CDD, DER, EXC, IRP, PPS, SFN. 02578 M00S02192.dmrec +++|* 02579 M00S02193.dmrec +++|* MACROS DEFINE, ERROR, PURGE, READ, READW, RETURN, 02580 M00S02194.dmrec +++|* REWIND, WRITEC, WRITER. 02581 M00S02195.dmrec +++| 02582 M00S02196.dmrec +++| 02583 M00S02197.dmrec +++| BIF SUBR ENTRY/EXIT 02584 M00S02198.dmrec +++| PURGE ZZINDEX,,,XXIXP,XXIDEV 02585 M00S02199.dmrec +++| RETURN ZZINDEX,R 02586 M00S02200.dmrec +++| DEFINE ZZINDEX,XXIXN,,,XXIDEV,,,XXIXP
| Line S02201 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02587 M01S02201.ns2056 ---| 02588 M01S02202.ns2056 ---|* READ FSTT OF EXISTING INDEX FILE. 02589 M01S02203.ns2056 ---| 02590 M01S02204.ns2056 ---| BIF0.1 READ TP,R READ EOF 02591 M01S02205.ns2056 ---| RJ DER DETECT END OF REEL 02592 M01S02206.ns2056 ---| NG X1,BIF0.1 IF END OF REEL 02593 M01S02207.ns2056 ---| NZ X1,BIFX IF ERROR 02594 M01S02208.ns2056 ---| BIF0.2 READ TP,R READ HEADER 02595 M01S02209.ns2056 ---| RJ DER DETECT END OF REEL 02596 M01S02210.ns2056 ---| NG X1,BIF0.2 IF END OF REEL 02597 M01S02211.ns2056 ---| NZ X1,BIFX IF ERROR 02598 M01S02212.ns2056 ---| SA1 TP+B1 GET FIRST 02599 M01S02213.ns2056 ---| SX6 X1 02600 M01S02214.ns2056 ---| SA6 A1+B1 UPDATE IN 02601 M01S02215.ns2056 ---| SA6 A6+B1 UPDATE OUT 02602 M01S02216.ns2056 ---| BIF0.3 READ TP,R READ FSTT 02603 M01S02217.ns2056 ---| RJ DER DETECT END OF REEL 02604 M01S02218.ns2056 ---| NG X1,BIF0.3 IF END OF REEL 02605 M01S02219.ns2056 ---| NZ X1,BIFX IF ERROR 02606 M00S02220.dmrec +++| SA1 XXTY GET FO=
| Line S02221 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02607 M01S02221.ns2056 ---| LX1 59-11 02608 M01S02222.ns2056 ---| RJ SFN SET FILE NAME 02609 M01S02223.ns2056 ---| SA6 PROCC+2 STORE FO= 02610 M01S02224.ns2056 ---| SA1 ZZZZSUB+B1 02611 M01S02225.ns2056 ---| SX7 X1 02612 M01S02226.ns2056 ---| SA7 A1+2 OUT 02613 M01S02227.ns2056 ---| SX7 X7+PROCCL 02614 M01S02228.ns2056 ---| SA7 A7-B1 IN
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02615 M01S00025.ns2056 +++| SA2 PROCCFO 02616 M01S00026.ns2056 +++| MX0 48 02617 M01S00027.ns2056 +++| BX2 X0*X2 02618 M01S00028.ns2056 +++| BX6 X1+X2 02619 M01S00029.ns2056 +++| SA6 A2 STORE FILE TYPE IN PROC FILE 02620 M01S00030.ns2056 +++| REWIND ZZZZSUB,R 02621 M01S00031.ns2056 +++| WRITEW ZZZZSUB,PROCC,PROCCL 02622 M00S02229.dmrec +++| WRITER ZZZZSUB,R WRITE PROCEDURE FILE TO *ZZZZSUB* 02623 M00S02230.dmrec +++| REWIND ZZZZSUB,R
| Line S02231 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02624 M01S02231.ns2056 ---| SA1 TP+1 IN 02625 M01S02232.ns2056 ---| SA2 X1+FSTT17 GET BLOCK SIZE 02626 M01S02233.ns2056 ---| MX0 -18 02627 M01S02234.ns2056 ---| BX2 -X0*X2 02628 M01S02235.ns2056 ---| SX3 64 02629 M01S02236.ns2056 ---| IX2 X2*X3 02630 M01S02237.ns2056 ---| SX2 X2-2 ACCOUNT FOR HEADER 02631 M01S02238.ns2056 ---| SX2 X2-WBUFL 02632 M01S02239.ns2056 ---| PL X2,BIF14 IF BUFFER OVERFLOW 02633 M01S02240.ns2056 ---| SA5 X1+FSTT63 GET SPARCE KEY IF ANY 02634 M01S02241.ns2056 ---| LX5 59-21 02635 M01S02242.ns2056 ---| BX6 X5 02636 M01S02243.ns2056 ---| SA6 BIFB SET SPARCE KEY FLAG 02637 M01S02244.ns2056 ---| PL X5,BIF1 IF NO SPARCE KEYS 02638 M01S02245.ns2056 ---| LX5 22+34 EXTRACT WORD OFF-SET 02639 M01S02246.ns2056 ---| MX0 60-15 02640 M01S02247.ns2056 ---| BX1 -X0*X5 02641 M01S02248.ns2056 ---| RJ CDD CONVERT TO DISPLAY CODE 02642 M01S02249.ns2056 ---| MX0 1 02643 M01S02250.ns2056 ---| SB2 B2-B1 02644 M01S02251.ns2056 ---| AX0 B2 02645 M01S02252.ns2056 ---| BX6 X0*X4 02646 M01S02253.ns2056 ---| SA6 BIFC+2 SAVE SPACE KEY 02647 M01S02254.ns2056 ---| SA1 TP+1 02648 M01S02255.ns2056 ---| SA5 X1+FSTT63 02649 M01S02256.ns2056 ---| LX5 38 02650 M01S02257.ns2056 ---| MX0 -4 02651 M01S02258.ns2056 ---| BX1 -X0*X5 02652 M01S02259.ns2056 ---| RJ CDD CONVERT TO DISPLAY CODE 02653 M01S02260.ns2056 ---| MX0 1 02654 M01S02261.ns2056 ---| SB2 B2-B1 02655 M01S02262.ns2056 ---| AX0 B2 02656 M01S02263.ns2056 ---| BX6 X0*X4 02657 M01S02264.ns2056 ---| SA6 BIFC+3 02658 M01S02265.ns2056 ---| SX6 1R0 02659 M01S02266.ns2056 ---| LX6 -6 02660 M01S02267.ns2056 ---| SA6 BIFC+4 SET ZERO KL FOR SPARCE KEYS 02661 M01S02268.ns2056 ---| SX2 1R. SET TERMINATOR 02662 M01S02269.ns2056 ---| SX3 1R, SET DELIMITER 02663 M01S02270.ns2056 ---| SB5 5 SET NUMBER OF WORDS 02664 M01S02271.ns2056 ---| SX6 PPSA 02665 M01S02272.ns2056 ---| SA6 PPSA 02666 M01S02273.ns2056 ---| SA1 BIFC SET PARAMETER ADDRESS 02667 M01S02274.ns2056 ---| RJ PPS PACK 02668 M01S02275.ns2056 ---| REWIND ZZZZZDR,R 02669 M01S02276.ns2056 ---| WRITEC ZZZZZDR,PPSA WRITE SPARSE KEY *RMKDEF* 02670 M01S02277.ns2056 ---| BIF1 SA1 TP+B1 02671 M01S02278.ns2056 ---| SX6 X1 02672 M01S02279.ns2056 ---| SA6 A1+B1 02673 M01S02280.ns2056 ---| SA6 A6+B1 02674 M01S02281.ns2056 ---| BIF2 READ TP,R 02675 M01S02282.ns2056 ---| READW TP,WBUF,WBUFL 02676 M01S02283.ns2056 ---| BX6 X1 02677 M01S02284.ns2056 ---| SA6 HOLD1 SAVE STATUS 02678 M01S02285.ns2056 ---| RJ DER DETECT END OF REEL 02679 M01S02286.ns2056 ---| NG X1,BIF2 IF END OF TAPE 02680 M01S02287.ns2056 ---| NZ X1,BIFX IF ERROR 02681 M01S02288.ns2056 ---| SA1 HOLD1 RESTORE STATUS 02682 M01S02289.ns2056 ---| SX6 X1-WBUF-1 02683 M01S02290.ns2056 ---| NZ X6,BIF3 IF NOT ONE WORD RECORD 02684 M01S02291.ns2056 ---| SX6 3REND 02685 M01S02292.ns2056 ---| SA4 XXIXN 02686 M01S02293.ns2056 ---| BX6 X4+X6 02687 M01S02294.ns2056 ---| SA4 WBUF GET ONE WORD RECORD 02688 M01S02295.ns2056 ---| BX6 X4-X6 02689 M01S02296.ns2056 ---| ZR X6,BIF13 IF TRAILER RECORD FOUND 02690 M01S02297.ns2056 ---| BIF3 ZR X1,BIF16 IF ERROR 02691 M01S02298.ns2056 ---| NG X1,BIF15 IF EOF/EOI - NO TRAILER 02692 M01S02299.ns2056 ---| 02693 M01S02300.ns2056 ---|* HIT EOR - DATA BLOCK JUST READ. 02694 M01S02301.ns2056 ---| 02695 M01S02302.ns2056 ---| BX7 X7-X7 02696 M01S02303.ns2056 ---| SA7 LRDNREC CLEAR RECORD COUNT 02697 M01S02304.ns2056 ---| SX6 WBUF+2 02698 M01S02305.ns2056 ---| SA6 LFWA SET FWA OF RECORD 02699 M01S02306.ns2056 ---| SA3 WBUF+B1 02700 M01S02307.ns2056 ---| SA2 X1-1 02701 M01S02308.ns2056 ---| MX0 60-13 02702 M01S02309.ns2056 ---| BX6 -X0*X2 02703 M01S02310.ns2056 ---| SA6 LLGN SAVE RECORD LENGTH 02704 M01S02311.ns2056 ---| AX3 38 02705 M01S02312.ns2056 ---| BX6 -X0*X3 02706 M01S02313.ns2056 ---| SA6 LRDRC NUMBER OF RECORDS 02707 M01S02314.ns2056 ---| BIF4 SA1 LRDNREC 02708 M01S02315.ns2056 ---| SX7 X1+1 02709 M01S02316.ns2056 ---| SA7 A1 INCREMENT RECORD COUNT 02710 M01S02317.ns2056 ---| SA3 LRDRC 02711 M01S02318.ns2056 ---| IX4 X3-X7 RC-NREC 02712 M01S02319.ns2056 ---| NG X4,BIF2 IF NO MORE RECORDS IN THIS BLOCK 02713 M01S02320.ns2056 ---| SA2 LFWA 02714 M01S02321.ns2056 ---| SA5 X2 GET FIRST WORD OF RECORD 02715 M01S02322.ns2056 ---| MX3 60-12 02716 M01S02323.ns2056 ---| SB5 9 SET INDEX 02717 M01S02324.ns2056 ---| RJ IRP INSERT KC 02718 M01S02325.ns2056 ---| AX5 12 02719 M01S02326.ns2056 ---| MX3 60-12 02720 M01S02327.ns2056 ---| SB5 8 SET INDEX 02721 M01S02328.ns2056 ---| RJ IRP INSERT KG 02722 M01S02329.ns2056 ---| AX5 12 02723 M01S02330.ns2056 ---| MX3 60-3 02724 M01S02331.ns2056 ---| SX6 1RU SET FOR UNIQUE TYPE 02725 M01S02332.ns2056 ---| BX1 -X3*X5 02726 M01S02333.ns2056 ---| ZR X1,BIF5 IF UNIQUE KS 02727 M01S02334.ns2056 ---| SX6 1RI SET FOR INDEXED TYPE 02728 M01S02335.ns2056 ---| SX1 X1-3 02729 M01S02336.ns2056 ---| ZR X1,BIF5 IF INDEXED KS 02730 M01S02337.ns2056 ---| SX6 1RF SET FOR FIFO TYPE 02731 M01S02338.ns2056 ---| BIF5 LX6 54 LOCATE PARAMETER 02732 M01S02339.ns2056 ---| SA6 BIFC+7 INSERT KS 02733 M01S02340.ns2056 ---| AX5 3 02734 M01S02341.ns2056 ---| MX3 60-2 02735 M01S02342.ns2056 ---| SB5 6 SET INDEX 02736 M01S02343.ns2056 ---| RJ IRP INSERT KT 02737 M01S02344.ns2056 ---| AX5 6 02738 M01S02345.ns2056 ---| MX3 60-8 02739 M01S02346.ns2056 ---| SB5 4 SET INDEX 02740 M01S02347.ns2056 ---| RJ IRP INSERT KL 02741 M01S02348.ns2056 ---| AX5 8 02742 M01S02349.ns2056 ---| MX3 60-4 02743 M01S02350.ns2056 ---| SB5 3 SET INDEX 02744 M01S02351.ns2056 ---| RJ IRP INSERT KP 02745 M01S02352.ns2056 ---| AX5 4 02746 M01S02353.ns2056 ---| MX3 60-15 02747 M01S02354.ns2056 ---| SB5 2 SET INDEX 02748 M01S02355.ns2056 ---| RJ IRP INSERT KW 02749 M01S02356.ns2056 ---| SX1 1R0 02750 M01S02357.ns2056 ---| LX1 54 LOCATE PARAMETER 02751 M01S02358.ns2056 ---| BX6 X1 02752 M01S02359.ns2056 ---| SA6 BIFC+5 02753 M01S02360.ns2056 ---| SA2 LFWA 02754 M01S02361.ns2056 ---| SA5 X2+1 02755 M01S02362.ns2056 ---| PL X5,BIF6 IF NULL KEYS INCLUDED 02756 M01S02363.ns2056 ---| SA1 =10LN 02757 M01S02364.ns2056 ---| BIF6 BX6 X1 02758 M01S02365.ns2056 ---| SA6 BIFC+10 INSERT NULL KEY FLAG 02759 M01S02366.ns2056 ---| SX2 1R. SET TERMINATOR FOR NO SPARSE KEYS 02760 M01S02367.ns2056 ---| SB5 11 COUNT FOR NO SPARCE KEYS 02761 M01S02368.ns2056 ---| SA1 BIFB 02762 M01S02369.ns2056 ---| PL X1,BIF7 IF NO SPARCE KEYS 02763 M01S02370.ns2056 ---| SB5 12 COUNT FOR SPARCE KEYS 02764 M01S02371.ns2056 ---| SX6 1RI 02765 M01S02372.ns2056 ---| LX6 54 02766 M01S02373.ns2056 ---| SA6 BIFC+11 INSERT IE 02767 M01S02374.ns2056 ---| SX2 1R, SET TERMINATOR FOR SPARSE KEYS 02768 M01S02375.ns2056 ---| BIF7 SX3 1R, SET DELIMITER 02769 M01S02376.ns2056 ---| SA1 BIFC SET PARAMETER LIST 02770 M01S02377.ns2056 ---| SX6 PPSA 02771 M01S02378.ns2056 ---| SA6 PPSA 02772 M01S02379.ns2056 ---| RJ PPS PACK 02773 M01S02380.ns2056 ---| SA1 BIFB 02774 M01S02381.ns2056 ---| PL X1,BIF12 IF NO SPARCE KEYS 02775 M01S02382.ns2056 ---| 02776 M01S02383.ns2056 ---|* EXTRACT SPARCE KEY CHARACTERS AND BUILD PARAMETER. 02777 M01S02384.ns2056 ---| 02778 M01S02385.ns2056 ---| SB5 10 02779 M01S02386.ns2056 ---| SB5 B5-B2 02780 M01S02387.ns2056 ---| SX3 B2 02781 M01S02388.ns2056 ---| SX2 6 02782 M01S02389.ns2056 ---| IX3 X3*X2 02783 M01S02390.ns2056 ---| SX2 60 02784 M01S02391.ns2056 ---| IX4 X2-X3 02785 M01S02392.ns2056 ---| SB4 X4 02786 M01S02393.ns2056 ---| LX4 B4,X6 SHIFT FO NEXT CHARACTER 02787 M01S02394.ns2056 ---| SX6 B0 02788 M01S02395.ns2056 ---| BIF8 SX6 X6+1 02789 M01S02396.ns2056 ---| LX5 1 CHECK THIS CHARACTER 02790 M01S02397.ns2056 ---| SX3 X6-37 02791 M01S02398.ns2056 ---| ZR X3,BIF10 IF NO MORE CHARACTERS 02792 M01S02399.ns2056 ---| PL X5,BIF8 IF NO CHARACTER HERE 02793 M01S02400.ns2056 ---| SB5 B5+B1 02794 M01S02401.ns2056 ---| SB6 B5-11 02795 M01S02402.ns2056 ---| NE B6,B0,BIF9 IF MORE SPACE IN THIS WORD 02796 M01S02403.ns2056 ---| BX7 X4 02797 M01S02404.ns2056 ---| SA7 B7 SAVE FULL WORD 02798 M01S02405.ns2056 ---| SB7 B7+B1 02799 M01S02406.ns2056 ---| SX4 B0 START NEXT WORD 02800 M01S02407.ns2056 ---| SB5 B1 02801 M01S02408.ns2056 ---| BIF9 LX4 6 SHIFT FOR NEXT CHARACTER 02802 M01S02409.ns2056 ---| BX4 X4+X6 02803 M01S02410.ns2056 ---| EQ BIF8 NEXT 02804 M01S02411.ns2056 ---| 02805 M01S02412.ns2056 ---| BIF10 SB5 B5+B1 02806 M01S02413.ns2056 ---| SB6 B5-11 02807 M01S02414.ns2056 ---| NE B6,B0,BIF11 IF NOT END OF WORD 02808 M01S02415.ns2056 ---| BX7 X4 02809 M01S02416.ns2056 ---| SA7 B7 SAVE WHOLE WORD 02810 M01S02417.ns2056 ---| SX2 1R. 02811 M01S02418.ns2056 ---| LX2 54 02812 M01S02419.ns2056 ---| BX6 X2 02813 M01S02420.ns2056 ---| SA6 A7+B1 STORE TERMINATOR 02814 M01S02421.ns2056 ---| EQ BIF12 CONTINUE 02815 M01S02422.ns2056 ---| 02816 M01S02423.ns2056 ---| BIF11 SX6 1R. 02817 M01S02424.ns2056 ---| LX4 6 02818 M01S02425.ns2056 ---| BX4 X4+X6 02819 M01S02426.ns2056 ---| SX3 6 02820 M01S02427.ns2056 ---| SX7 B5 02821 M01S02428.ns2056 ---| IX3 X3*X7 02822 M01S02429.ns2056 ---| SB4 60 02823 M01S02430.ns2056 ---| SB3 X3 02824 M01S02431.ns2056 ---| SB3 B4-B3 02825 M01S02432.ns2056 ---| LX6 B3,X4 02826 M01S02433.ns2056 ---| SA6 B7 SAVE LAST WORD 02827 M01S02434.ns2056 ---| SX7 B0 02828 M01S02435.ns2056 ---| SA7 A6+B1 INSURE END OF RECORD 02829 M01S02436.ns2056 ---| BIF12 WRITEC ZZZZZDR,PPSA 02830 M01S02437.ns2056 ---| SA1 LFWA 02831 M01S02438.ns2056 ---| SA2 LLGN 02832 M01S02439.ns2056 ---| IX6 X1+X2 02833 M01S02440.ns2056 ---| SA6 A1 RESET FWA 02834 M01S02441.ns2056 ---| EQ BIF4 GET NEXT RECORD
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02835 M01S00032.ns2056 +++| RJ GRM GET *RMKDEF* CARDS
| Line S02442 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02836 M01S02442.ns2056 ---| 02837 M01S02443.ns2056 ---| BIF13 WRITER ZZZZZDR,R 02838 M01S02444.ns2056 ---| REWIND ZZZZSUB,R 02839 M00S02445.dmrec +++| REWIND ZZZDATA,R 02840 M00S02446.dmrec +++| REWIND ZZINDEX,R
| Line S02447 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02841 M01S02447.ns2056 ---| REWIND ZZZZZXD,R 02842 M01S02448.ns2056 ---| REWIND ZZZZZDR,R
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02843 M01S00033.ns2056 +++| REWIND ZZZZZG7,R 02844 M01S00034.ns2056 +++| CLOSEM DFIT,R 02845 M00S02449.dmrec +++| RJ EXC INITIATE MIPGEN 02846 M00S02450.dmrec +++| SX1 B0 02847 M00S02451.dmrec +++| EQ BIFX RETURN NORMAL
| Line S02452 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 02848 M01S02452.ns2056 ---| 02849 M01S02453.ns2056 ---| BIF14 ERROR BRTD,,,BIFX,,E DATA BLOCK BUFFER OVERFLOW 02850 M01S02454.ns2056 ---| 02851 M01S02455.ns2056 ---| BIF15 ERROR LRDA,,,BIFX,,E TAPE NOT READABLE 02852 M01S02456.ns2056 ---| 02853 M01S02457.ns2056 ---| BIF16 ERROR LRDE,,,BIFX,,E BLOCK BUFFER OVERFLOW 02854 M01S02458.ns2056 ---| 02855 M01S02459.ns2056 ---| BIFB BSSZ 1 SPARCE KEY FLAG - NG. IF SPARCE KEYS 02856 M01S02460.ns2056 ---| 02857 M01S02461.ns2056 ---| 02858 M01S02462.ns2056 ---| BIFC VFD 60/6LRMKDEF 02859 M01S02463.ns2056 ---| VFD 60/7LZZZDATA 02860 M01S02464.ns2056 ---| BSSZ 12 INPUT TO PPS 02861 M01S02465.ns2056 ---| 02862 M00S02466.dmrec +++| BLT SPACE 4,20 02863 M00S02467.dmrec +++|** BLT - BUILD LOG TABLE. 02864 M00S02468.dmrec +++|*
| Line S02469 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02865 M01S02469.ns2023 ---|* *BLT* EXTRACTS RECORDS FROM THE *LRF* (LONG RECOVERY FILE) 02866 M01S02470.ns2023 ---|* AND BUILDS A TABLE OF UNIQUE FILE NAMES. THESE ENTRIES 02867 M01S02471.ns2023 ---|* ALSO INCLUDE A COUNT OF TRANSACTION ACCURANCES.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02868 M01S00043.ns2023 +++|* *BLT* EXTRACTS RECORDS FROM THE *ARF* (AFTER IMAGE RECOVERY 02869 M01S00044.ns2023 +++|* FILE) AND BUILDS A TABLE OF UNIQUE FILE NAMES. THESE 02870 M01S00045.ns2023 +++|* ENTRIES ALSO INCLUDE A COUNT OF TRANSACTION ACCURANCES. 02871 M00S02472.dmrec +++|*
| Line S02473 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02872 M01S02473.ns2023 ---|* ENTRY *LRF* ATTACHED (FET - *LRF*) 02873 M01S02474.ns2023 ---|* LRF+8 MUST CONTAIN THE FILE PFN.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02874 M01S00046.ns2023 +++|* ENTRY *ARF* ATTACHED (FET - *ARF*) 02875 M01S00047.ns2023 +++|* ARF+8 MUST CONTAIN THE FILE PFN. 02876 M00S02475.dmrec +++|* 02877 M00S02476.dmrec +++|* EXIT TLOG BUILT. 02878 M00S02477.dmrec +++|* (X1) = 0 - IF NO ERROR. 02879 M00S02478.dmrec +++|* .NE. 0, OTHERWISE. 02880 M00S02479.dmrec +++|* 02881 M00S02480.dmrec +++|* USES X - ALL. 02882 M00S02481.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 02883 M00S02482.dmrec +++|* B - 2. 02884 M00S02483.dmrec +++|*
| Line S02484 Modification History | |
|---|---|
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 02885 M01S02484.dmrec4 ---|* CALLS GNR.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 02886 M01S00001.dmrec4 +++|* CALLS GDR. 02887 M00S02485.dmrec +++|* 02888 M00S02486.dmrec +++|* MACROS ERROR. 02889 M00S02487.dmrec +++| 02890 M00S02488.dmrec +++| 02891 M00S02489.dmrec +++| BLT SUBR ENTRY/EXIT 02892 M00S02490.dmrec +++| SX6 B0 02893 M00S02491.dmrec +++| SA6 HOLD SET FOR INITIAL CALL
| Line S02492 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02894 M01S02492.ns2023 ---| SX4 LRF
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02895 M01S00048.ns2023 +++| SX4 ARF
| Line S02493 Modification History | |
|---|---|
M01 (Removed by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 02896 M01S02493.dmrec4 ---| RJ GNR INITIALIZE GET RECORD REQUEST
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 02897 M01S00002.dmrec4 +++| RJ GDR GET DATA RECORD 02898 M00S02494.dmrec +++| NG X1,BLT8 IF HEADER MISSING - EOF 02899 M00S02495.dmrec +++| NZ X1,BLTX IF ERROR 02900 M00S02496.dmrec +++| MX0 42 02901 M00S02497.dmrec +++| SA5 WBUF VERIFY LOG FILE NAME 02902 M00S02498.dmrec +++| BX3 X0*X5 FN FROM HEADER
| Line S02499 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02903 M01S02499.ns2023 ---| SA4 LRF+8 FN FROM FET
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02904 M01S00049.ns2023 +++| SA4 ARF+8 FN FROM FET 02905 M00S02500.dmrec +++| BX4 X0*X4 02906 M00S02501.dmrec +++| BX1 X3-X4 02907 M00S02502.dmrec +++| NZ X1,BLT7 IF FN MISMATCH 02908 M00S02503.dmrec +++| SX6 B0 02909 M00S02504.dmrec +++| SA2 WBUF+3
| Line S02505 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02910 M01S02505.ns2023 ---| PL X2,BLT1 IF NOT FIRST LRF DUMP
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02911 M01S00050.ns2023 +++| PL X2,BLT1 IF NOT FIRST *ARF* DUMP 02912 M00S02506.dmrec +++| BX6 X2
| Line S02507 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02913 M01S02507.ns2023 ---| BLT1 SA6 FSTFLG FIRST LRF FLAG SET
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02914 M01S00051.ns2023 +++| BLT1 SA6 FSTFLG FIRST *ARF* FLAG SET 02915 M00S02508.dmrec +++| SX6 TLOG 02916 M00S02509.dmrec +++| SA6 NXTENT
| Line S02510 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02917 M01S02510.ns2023 ---| BLT2 SX4 LRF 02918 M01S02511.ns2023 ---| RJ GNR GET DATA RECORD FROM LRF
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02919 M01S00052.ns2023 +++| BLT2 SX4 ARF
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Removed by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 02920 M02S00053.dmrec4 ---| RJ GNR GET DATA RECORD FROM *ARF*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 02921 M01S00003.dmrec4 +++| RJ GDR GET DATA RECORD FROM *ARF* 02922 M00S02512.dmrec +++| NG X1,BLT6 IF EOF 02923 M00S02513.dmrec +++| NZ X1,BLTX IF ERROR 02924 M00S02514.dmrec +++| SA3 X4+XLFNW 02925 M00S02515.dmrec +++| MX0 XLFNN 02926 M00S02516.dmrec +++| BX3 X0*X3 02927 M00S02517.dmrec +++| ZR X3,BLT2 IF NO FILE NAME IN THIS RECORD 02928 M00S02518.dmrec +++| SA1 X4+XLPDW 02929 M00S02519.dmrec +++| BX7 X1 02930 M00S02520.dmrec +++| SA7 LSTTRAN SAVE DATE/TIME OF LAST TRANSACTION 02931 M00S02521.dmrec +++| SX2 TLOG INITIALIZE SEARCH OF TLOG 02932 M00S02522.dmrec +++| BLT3 SA5 NXTENT 02933 M00S02523.dmrec +++| IX6 X5-X2 02934 M00S02524.dmrec +++| SB2 B1+B1 02935 M00S02525.dmrec +++| ZR X6,BLT4 IF SEARCH OF *TLOG* DONE 02936 M00S02526.dmrec +++| SA5 X2 02937 M00S02527.dmrec +++| BX5 X0*X5 02938 M00S02528.dmrec +++| BX5 X5-X3 02939 M00S02529.dmrec +++| ZR X5,BLT5 IF NAME MATCH - ALREADY IN TLOG. 02940 M00S02530.dmrec +++| SX2 X2+2 02941 M00S02531.dmrec +++| EQ BLT3 LOOK AT NEXT *TLOG* ENTRY 02942 M00S02532.dmrec +++| 02943 M00S02533.dmrec +++| BLT4 SX7 TLOG+TLOGL 02944 M00S02534.dmrec +++| IX7 X7-X5 02945 M00S02535.dmrec +++| NG X7,BLT9 IF NO MORE ROOM 02946 M00S02536.dmrec +++| SA1 LMASK MASK 02947 M00S02537.dmrec +++| BX7 X1*X3 02948 M00S02538.dmrec +++| SA1 LWORD 02949 M00S02539.dmrec +++| BX7 X1-X7
| Line S02540 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02950 M01S02540.ns2023 ---| ZR X7,BLT2 IF A *QRF* DOWN STAMP
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02951 M01S00054.ns2023 +++| ZR X7,BLT2 IF A *BRF* DOWN STAMP 02952 M00S02541.dmrec +++| BX7 X3 02953 M00S02542.dmrec +++| SA7 X5 02954 M00S02543.dmrec +++| SA5 X4+XLPDW 02955 M00S02544.dmrec +++| BX7 X5 02956 M00S02545.dmrec +++| SA7 A7+B1 STORE DATE/TIME IN *TLOG* 02957 M00S02546.dmrec +++| SA2 NXTENT 02958 M00S02547.dmrec +++| SX7 X2+B2 02959 M00S02548.dmrec +++| SA7 A2 INCREMENT NEXT ENTRY LOCATION 02960 M00S02549.dmrec +++| BLT5 SA5 X2 02961 M00S02550.dmrec +++| SX6 B1 02962 M00S02551.dmrec +++| IX7 X6+X5 INCREMENT FILE COUNT 02963 M00S02552.dmrec +++| SA7 A5 02964 M00S02553.dmrec +++| EQ BLT2 RETURN FOR NEXT RECORD 02965 M00S02554.dmrec +++| 02966 M00S02555.dmrec +++| BLT6 SA5 NXTENT 02967 M00S02556.dmrec +++| SX6 B0 02968 M00S02557.dmrec +++| SA6 X5 02969 M00S02558.dmrec +++| SA6 A6+B1 ZERO LAST *TLOG* ENTRY - END 02970 M00S02559.dmrec +++| SX1 B0 02971 M00S02560.dmrec +++| EQ BLTX EXIT NORMAL 02972 M00S02561.dmrec +++| 02973 M00S02562.dmrec +++| BLT7 ERROR BLTB,,,BLTX,,E FILE NAME MISMATCH 02974 M00S02563.dmrec +++| 02975 M00S02564.dmrec +++| BLT8 ERROR BLTC,,,BLTX,,E ARF HEADER ERROR 02976 M00S02565.dmrec +++| 02977 M00S02566.dmrec +++| BLT9 ERROR BLTA,,,BLTX,,E LOG ENTRY TABLE OVERFLOW 02978 M00S02567.dmrec +++| 02979 M00S02568.dmrec +++| BLTA DATA 20H0 ***** 02980 M00S02569.dmrec +++| DATA C*ARF ENTRY TABLE OVERFLOW.* 02981 M00S02570.dmrec +++| BLTAL EQU *-BLTA 02982 M00S02571.dmrec +++| 02983 M00S02572.dmrec +++| BLTB DATA 20H0 ***** 02984 M00S02573.dmrec +++| DATA C*FILE NAME MISMATCH ON TAPE HEADER RECORD.* 02985 M00S02574.dmrec +++| BLTBL EQU *-BLTB 02986 M00S02575.dmrec +++| 02987 M00S02576.dmrec +++| BLTC DATA 20H0 ***** 02988 M00S02577.dmrec +++| DATA C*ARF HEADER ERROR.* 02989 M00S02578.dmrec +++| BLTCL EQU *-BLTC 02990 M00S02579.dmrec +++| 02991 M00S02580.dmrec +++| BRT SPACE 4,25 02992 M00S02581.dmrec +++|** BRT - BUILD RECOVERY TABELS. 02993 M00S02582.dmrec +++|* 02994 M00S02583.dmrec +++|* THIS SUBROUTINE BUILDS TWO TABLES. A TABLE OF NAMES 02995 M00S02584.dmrec +++|* THAT ARE TARGETED FOR RECOVERY, AND THE IGNORE TABLE
| Line S02585 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02996 M01S02585.ns2023 ---|* *TTIG*. A SCAN OF ALL *LRF-S* IN THIS SESSION IS MADE FOR
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 02997 M01S00055.ns2023 +++|* *TTIG*. A SCAN OF ALL *ARF-S* IN THIS SESSION IS MADE FOR 02998 M00S02586.dmrec +++|* ALL NON-COMITTED FILES. THE *TTIG* TABLE IS BUILT BY 02999 M00S02587.dmrec +++|* INCLUDING AN ENTRY FOR EVERY NON-COMITTED TASK 03000 M00S02588.dmrec +++|* SEQUENCE NUMBER. 03001 M00S02589.dmrec +++|*
| Line S02590 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03002 M01S02590.dmrec2 ---|* ENTRY (TDFN) = QRF NAME.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03003 M02S00004.ns2023 ---|* ENTRY (QRFFLG) .LT. 0 IF BRF RECOVERY.
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03004 M01S00056.ns2023 +++|* ENTRY (BRFFLG) .LT. 0 IF *BRF* RECOVERY.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03005 M02S00005.ns2023 ---|* .GE. 0 IF ARF RECOVERY.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03006 M01S00057.ns2023 +++|* .GE. 0 IF *ARF* RECOVERY.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03007 M01S00006.dmrec2 +++|* (X7) = DATA BASE NAME IF ARF RECOVERY. 03008 M00S02591.dmrec +++|* 03009 M00S02592.dmrec +++|* EXIT (X1) = 0 IF NO ERRORS 03010 M00S02593.dmrec +++|* 03011 M00S02594.dmrec +++|* USES X - ALL. 03012 M00S02595.dmrec +++|* A - 1, 2, 3, 5, 6, 7. 03013 M00S02596.dmrec +++|* B - 2, 3, 4, 5, 6, 7. 03014 M00S02597.dmrec +++|*
| Line S02598 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03015 M01S02598.dmrec7 ---|* CALLS ACF, FER, GNR, RTF.
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03016 M01S00044.dmrec7 +++|* CALLS ACF, FER, GNR, RRE, RTF. 03017 M00S02599.dmrec +++|* 03018 M00S02600.dmrec +++|* MACROS CLOSEM, ERROR, READ, READW, RETURN, 03019 M00S02601.dmrec +++|* REWIND, RMGET. 03020 M00S02602.dmrec +++| 03021 M00S02603.dmrec +++| 03022 M00S02604.dmrec +++| BRT SUBR ENTRY/EXIT 03023 M00S02605.dmrec +++| MX6 1 03024 M00S02606.dmrec +++| SA6 FTAB INITIALIZE TABLE SEARCH
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03025 M01S00045.dmrec7 +++| SX6 TREC 03026 M01S00046.dmrec7 +++| SA6 PREC FWA OF *TREC* TABLE 03027 M01S00047.dmrec7 +++| MX6 0 03028 M01S00048.dmrec7 +++| SA6 HOLD3 INITIALIZE FLAG 03029 M01S00049.dmrec7 +++| SA6 EORCNT INITIALIZE EOR COUNT 03030 M01S00050.dmrec7 +++| SX6 B1 03031 M01S00051.dmrec7 +++| SA6 TAPERR INITIALIZE TAPE ERROR COUNT
| Line S02607 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03032 M01S02607.dmrec2 ---| SA2 TDFN GET QRF NAME 03033 M01S02608.dmrec2 ---| LX2 12 03034 M01S02609.dmrec2 ---| BX6 X2 03035 M01S02610.dmrec2 ---| SA6 XXPFN NAME OF DATA BASE 03036 M01S02611.dmrec2 ---| MX0 12 03037 M01S02612.dmrec2 ---| BX7 X0*X6 03038 M01S02613.dmrec2 ---| SA7 KEY2 SET KEY FOR HEADER 03039 M01S02614.dmrec2 ---| RJ ACF ATTACH DIRECTORY FILE 03040 M01S02615.dmrec2 ---| RMGET DIRR,XXBUF,0,,KEY2 GET DB HEADER 03041 M01S02616.dmrec2 ---| RJ FER CHECK FIT ERROR 03042 M01S02617.dmrec2 ---| NZ X1,BRT16 IF ERROR 03043 M01S02618.dmrec2 ---| SA1 XXBUF+4 03044 M01S02619.dmrec2 ---| MX0 36 03045 M01S02620.dmrec2 ---| BX6 X0*X1 03046 M01S02621.dmrec2 ---| BRT1 SX7 TVSN VSN OF FIRST LRF OF SESSION
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03047 M02S00007.ns2023 ---| SA1 QRFFLG
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03048 M01S00058.ns2023 +++| SA1 BRFFLG
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03049 M01S00008.dmrec2 +++| SX7 TVSN 03050 M01S00009.dmrec2 +++| SA7 IVSN INITIALIZE VSN POINTER 03051 M01S00010.dmrec2 +++| PL X1,BRT1 IF NOT BRF RECOVERY 03052 M01S00011.dmrec2 +++| SA2 DATE 03053 M01S00012.dmrec2 +++| NZ X2,BRT0.2 IF END DATE GIVEN 03054 M01S00013.dmrec2 +++| PDATE TEMP10 03055 M01S00014.dmrec2 +++| SA5 TEMP10 03056 M01S00015.dmrec2 +++| RJ UDT UNPACK DATE/TIME 03057 M01S00016.dmrec2 +++| BX2 X6 03058 M01S00017.dmrec2 +++| BRT0.2 SA3 TIME 03059 M01S00018.dmrec2 +++| NZ X3,BRT0.3 IF END TIME GIVEN 03060 M01S00019.dmrec2 +++| SA3 NTIME END TIME - 23.59.59 03061 M01S00020.dmrec2 +++| BRT0.3 RJ PDT PACK DATE/TIME 03062 M01S00021.dmrec2 +++| SA6 ENPDT SET END DATE/TIME 03063 M01S00022.dmrec2 +++| MX6 0 03064 M01S00023.dmrec2 +++| SA6 STPDT SET START DATE/TIME 03065 M01S00024.dmrec2 +++| SA2 FSTVSN 03066 M01S00025.dmrec2 +++| BX6 X2 03067 M00S02622.dmrec +++| SA6 TVSN
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03068 M01S00052.dmrec7 +++| SA6 TREC
| Line S02623 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03069 M01S02623.dmrec2 ---| SA7 IVSN SAVE ADDRESS 03070 M01S02624.dmrec2 ---| MX5 0 READ TAPE
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03071 M02S00026.dmrec7 ---| BRT1 MX5 0
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03072 M01S00053.dmrec7 +++| BRT1 SA1 IVSN 03073 M01S00054.dmrec7 +++| SA2 X1 CURRENT *VSN* CANDIDATE 03074 M01S00055.dmrec7 +++| MX0 36 03075 M01S00056.dmrec7 +++| BX2 X0*X2 03076 M01S00057.dmrec7 +++| SA3 PREC 03077 M01S00058.dmrec7 +++| SA4 X3+B1 NEXT *VSN* ENTRY IN *TREC* TABLE 03078 M01S00059.dmrec7 +++| SA5 HOLD3 03079 M01S00060.dmrec7 +++| ZR X5,BRT1.1 IF FIRST TIME THROUGH 03080 M01S00061.dmrec7 +++| IX1 X2-X4 COMPARE *VSN-S* 03081 M01S00062.dmrec7 +++| NZ X1,BRT1.30 IF *VSN-S* DO NOT MATCH 03082 M01S00063.dmrec7 +++| SX6 X3+B1 03083 M01S00064.dmrec7 +++| SA6 A3 SET TO NEXT *VSN* 03084 M01S00065.dmrec7 +++| MX6 0 03085 M01S00066.dmrec7 +++| SA6 EORCNT ZERO *EOR* COUNT 03086 M01S00067.dmrec7 +++| SX6 B1+ 03087 M01S00068.dmrec7 +++| SA6 TAPERR INITIALIZE TAPE ERROR COUNT 03088 M01S00069.dmrec7 +++| BRT1.1 MX5 0 03089 M01S00070.dmrec7 +++| SX6 B1 03090 M01S00071.dmrec7 +++| SA6 HOLD3 RESET FIRST THROUGH FLAG 03091 M00S02625.dmrec +++| BX6 X5 03092 M00S02626.dmrec +++| SA6 TPMODE SAVE MODE 03093 M00S02627.dmrec +++| SB7 TP FET 03094 M00S02628.dmrec +++| SA6 HOLD GNR INITIAL 03095 M00S02629.dmrec +++| RJ RTF REQUEST TAPE FILE 03096 M00S02630.dmrec +++| NZ X1,BRTX IF ERROR
| Line S02631 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03097 M01S02631.dmrec7 ---| REWIND TP,R
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03098 M01S00072.dmrec7 +++| BRT1.2 REWIND TP,R 03099 M00S02632.dmrec +++| READ TP,R 03100 M00S02633.dmrec +++| READW TP,WBUF,WBUFL
| Line S02634 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03101 M01S02634.dmrec7 ---| ZR X1,BRT22 IF ERROR 03102 M01S02635.dmrec7 ---| NG X1,BRT22 IF ERROR 03103 M01S02636.dmrec7 ---| SX4 TP
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03104 M01S00073.dmrec7 +++| ZR X1,BRT1.3 IF ERROR 03105 M01S00074.dmrec7 +++| PL X1,BRT1.4 IF NO ERROR 03106 M01S00075.dmrec7 +++| BRT1.3 RJ RRE READ RECOVERY ERROR 03107 M01S00076.dmrec7 +++| NZ X1,UPD14 IF ERROR 03108 M01S00077.dmrec7 +++| EQ BRT1.2 CONTINUE 03109 M01S00078.dmrec7 +++| 03110 M01S00079.dmrec7 +++| BRT1.30 MX5 0 READ MODE 03111 M01S00080.dmrec7 +++| SB7 TP 03112 M01S00081.dmrec7 +++| RJ RTF REQUEST TAPE FILE 03113 M01S00082.dmrec7 +++| NZ X1,BRTX IF ERROR 03114 M01S00083.dmrec7 +++| READEI TP INITIAL READ FOR NEW TAPE 03115 M01S00084.dmrec7 +++| 03116 M01S00085.dmrec7 +++| BRT1.4 SA2 EORCNT 03117 M01S00086.dmrec7 +++| SX6 X2+B1 03118 M01S00087.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT
| Line S02637 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03119 M01S02637.dmrec7 ---| RJ GNR GET RECORD - HEADER 03120 M01S02638.dmrec7 ---| NG X1,BRT17 IF NO HEADER 03121 M01S02639.dmrec7 ---| NZ X1,BRTX IF ERROR
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03122 M01S00088.dmrec7 +++| BRT1.5 SX4 TP SET FET ADDRESS 03123 M01S00089.dmrec7 +++| RJ GNR GET RECORD - HEADER 03124 M01S00090.dmrec7 +++| NG X1,BRT1.6 IF NO HEADER 03125 M01S00091.dmrec7 +++| ZR X1,BRT1.7 IF NO ERROR 03126 M01S00092.dmrec7 +++| BRT1.6 RJ RRE READ RECOVERY ERROR 03127 M01S00093.dmrec7 +++| NZ X1,UPD14 IF ERROR 03128 M01S00094.dmrec7 +++| EQ BRT1.5 CONTINUE 03129 M01S00095.dmrec7 +++| 03130 M01S00096.dmrec7 +++| BRT1.7 SA4 EORCNT 03131 M01S00097.dmrec7 +++| SX6 X4+B1 03132 M01S00098.dmrec7 +++| SA6 A4 INCREMENT EOR COUNT 03133 M00S02640.dmrec +++| SA3 WBUF+3 03134 M00S02641.dmrec +++| MX0 42 03135 M00S02642.dmrec +++| BX6 -X0*X3 03136 M00S02643.dmrec +++| SX7 X6-WBUFL 03137 M00S02644.dmrec +++| PL X7,BRT18 IF BUFFER OVERFLOW
| Line S02645 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03138 M01S02645.ns2023 ---| SX6 TTQRF 03139 M01S02646.ns2023 ---| SA6 IIQRF INITIALIZE SEARCH
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03140 M01S00059.ns2023 +++| SX6 TTBRF 03141 M01S00060.ns2023 +++| SA6 IIBRF INITIALIZE SEARCH 03142 M00S02647.dmrec +++| BRT2 SX4 TP 03143 M00S02648.dmrec +++| RJ GNR GET DATA RECORD
| Line S02649 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03144 M01S02649.ns2023 ---| NG X1,BRT10 IF EOF (THIS *LRF* DONE - CHECK NEXT)
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03145 M02S00061.dmrec7 ---| NG X1,BRT10 IF EOF (THIS *ARF* DONE - CHECK NEXT)
| Line S02650 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03146 M01S02650.dmrec7 ---| NZ X1,BRTX IF ERROR
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03147 M01S00099.dmrec7 +++| ZR X1,BRT2.1 IF NO ERROR 03148 M01S00100.dmrec7 +++| PL X1,BRT0.1 IF ERROR 03149 M01S00101.dmrec7 +++| MX0 -2 03150 M01S00102.dmrec7 +++| BX1 -X0-X1 03151 M01S00103.dmrec7 +++| NZ X1,BRT10 IF *EOF* (THIS *ARF* DONE - CHECK NEXT) 03152 M01S00104.dmrec7 +++| BRT0.1 RJ RRE READ RECOVERY ERROR 03153 M01S00105.dmrec7 +++| NZ X1,UPD14 IF ERROR 03154 M01S00106.dmrec7 +++| EQ BRT2 CONTINUE 03155 M01S00107.dmrec7 +++| 03156 M01S00108.dmrec7 +++| BRT2.1 SA2 EORCNT 03157 M01S00109.dmrec7 +++| SX6 X2+B1 03158 M01S00110.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03159 M01S00027.dmrec2 +++| SA3 X4+2 GET TIME/DATE 03160 M01S00028.dmrec2 +++| SA2 STPDT 03161 M01S00029.dmrec2 +++| IX2 X3-X2 03162 M01S00030.dmrec2 +++| NG X2,BRT2 IF BEFORE BEGIN/TIME 03163 M01S00031.dmrec2 +++| SA2 ENPDT 03164 M01S00032.dmrec2 +++| IX2 X2-X3 03165 M01S00033.dmrec2 +++| NG X2,BRT2 IF AFTER END DATE/TIME 03166 M00S02651.dmrec +++| SB5 FTAB 03167 M00S02652.dmrec +++| SA1 X4+4 03168 M00S02653.dmrec +++| SA2 X4 03169 M00S02654.dmrec +++| LX2 59-18 03170 M00S02655.dmrec +++| NG X2,BRT4 IF *BEGIN* 03171 M00S02656.dmrec +++| LX2 18-59 03172 M00S02657.dmrec +++| MX0 42 03173 M00S02658.dmrec +++| BX2 -X0*X2
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03174 M01S00034.dmrec2 +++| SB4 FTAB+FTABL 03175 M00S02659.dmrec +++| ZR X2,BRT7 IF *COMMIT* 03176 M00S02660.dmrec +++| SX5 X2-TRDF
| Line S02661 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03177 M01S02661.dmrec2 ---| ZR X5,BRT7 IF *DBFREE*
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03178 M02S00035.ns2023 ---| ZR X5,BRT2.1 IF *DBFREE*
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03179 M01S00062.ns2023 +++| ZR X5,BRT6.1 IF *DBFREE* 03180 M00S02662.dmrec +++| SX5 X2-DMCC
| Line S02663 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03181 M01S02663.dmrec2 ---| ZR X5,BRT7 IF *DBCEASE*
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03182 M01S00036.dmrec2 +++| ZR X5,BRT6.1 IF *DBCEASE* 03183 M00S02664.dmrec +++| SX2 X2-XLQD
| Line S02665 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03184 M01S02665.ns2023 ---| NZ X2,BRT2 IF NOT *QRF* DOWN STAMP
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03185 M01S00063.ns2023 +++| NZ X2,BRT2 IF NOT *BRF* DOWN STAMP
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03186 M01S00037.dmrec2 +++| SX6 1 03187 M01S00038.dmrec2 +++| SA6 BRTH SET BRF DOWN FLAG 03188 M00S02666.dmrec +++| SA2 X4+4
| Line S02667 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03189 M01S02667.ns2023 ---| SB4 TTQRF 03190 M01S02668.ns2023 ---| SB7 TTQRF+TTQRFL
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03191 M01S00064.ns2023 +++| SB4 TTBRF 03192 M01S00065.ns2023 +++| SB7 TTBRF+TTBRFL 03193 M00S02669.dmrec +++| BRT3 SA5 B4 03194 M00S02670.dmrec +++| BX6 X2-X5
| Line S02671 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03195 M01S02671.ns2023 ---| ZR X6,BRT2 IF ALREADY IN *TTQRF*
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03196 M01S00066.ns2023 +++| ZR X6,BRT2 IF ALREADY IN *TTBRF* 03197 M00S02672.dmrec +++| SB4 B4+1 03198 M00S02673.dmrec +++| NE B4,B7,BRT3 IF MORE ENTRIES
| Line S02674 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03199 M01S02674.ns2023 ---| SA5 IIQRF
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03200 M01S00067.ns2023 +++| SA5 IIBRF 03201 M00S02675.dmrec +++| SB3 X5
| Line S02676 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03202 M01S02676.ns2023 ---| EQ B3,B7,BRT21 IF *TTQRF* OVERFLOW
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03203 M01S00068.ns2023 +++| EQ B3,B7,BRT21 IF *TTBRF* OVERFLOW 03204 M00S02677.dmrec +++| BX6 X2
| Line S02678 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03205 M01S02678.ns2023 ---| SA6 X5 SAVE *QRF* NAME
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03206 M01S00069.ns2023 +++| SA6 X5 SAVE *BRF* NAME 03207 M00S02679.dmrec +++| SX6 X5+1
| Line S02680 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03208 M01S02680.ns2023 ---| SA6 A5 INCREMENT IIQRF
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03209 M01S00070.ns2023 +++| SA6 A5 INCREMENT *IIBRF* 03210 M00S02681.dmrec +++| EQ BRT2 LOOK AT NEXT RECORD 03211 M00S02682.dmrec +++|
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03212 M02S00039.ns2023 ---| BRT2.1 SA1 QRFFLG 03213 M02S00040.ns2023 ---| PL X1,BRT2 IF NOT BRF RECOVERY 03214 M02S00041.ns2023 ---| SA3 BRTH 03215 M02S00042.ns2023 ---| ZR X3,BRT7 IF BRF DOWN STAMP ALLREADY HIT 03216 M02S00043.ns2023 ---| EQ BRT2 CONTINUE 03217 M00S02683.dmrec +++|* FOR BEGIN STAMPS, CREATE AN ENTRY IN FTAB (IGNORE TABLE), 03218 M00S02684.dmrec +++|* AND FOR *COMMIT* STAMPS, DELETE THE CORRESPONDING 03219 M00S02685.dmrec +++|* *BEGIN* STAMP ENTRY. 03220 M00S02686.dmrec +++|* (X2) = NEGITIVE IF BEGIN. 03221 M00S02687.dmrec +++|* ZERO IF COMMIT 03222 M00S02688.dmrec +++|* (X5) = LENGTH OF RECORD. 03223 M00S02689.dmrec +++|* (X4) = FWA OF RECORD. 03224 M00S02690.dmrec +++| 03225 M00S02691.dmrec +++| BRT4 SA1 B5 03226 M00S02692.dmrec +++| NG X1,BRT5 IF LOGICAL END OF TABLE 03227 M00S02693.dmrec +++| ZR X1,BRT6 IF A ZERO ENTRY FOUND 03228 M00S02694.dmrec +++| SB5 B5+2 03229 M00S02695.dmrec +++| EQ BRT4 GET NEXT ENTRY 03230 M00S02696.dmrec +++| 03231 M00S02697.dmrec +++| BRT5 SB6 FTAB+FTABL 03232 M00S02698.dmrec +++| EQ B6,B5,BRT19 IF *FTAB* OVERFLOW 03233 M00S02699.dmrec +++| MX7 1 03234 M00S02700.dmrec +++| SA7 B5+2 MOVE LOGICAL END OF TABLE 03235 M00S02701.dmrec +++| BRT6 SA1 X4+4 03236 M00S02702.dmrec +++| MX0 42 03237 M00S02703.dmrec +++| BX6 X0*X1 ASSURE DEFAULT LOAD FORMAT 03238 M00S02704.dmrec +++| SA6 B5 SAVE FN 03239 M00S02705.dmrec +++| SA1 X4 03240 M00S02706.dmrec +++| MX0 24 03241 M00S02707.dmrec +++| BX6 X0*X1 03242 M00S02708.dmrec +++| SA1 X4+B1 GET BEGIN ID 03243 M00S02709.dmrec +++| MX0 30 03244 M00S02710.dmrec +++| BX1 -X0*X1 03245 M00S02711.dmrec +++| BX6 X6+X1 INSERT BID IN FTAB ENTRY 03246 M00S02712.dmrec +++| SA6 A6+B1 SAVE TS AND BEGIN IDENTIFIER 03247 M00S02713.dmrec +++| EQ BRT2 GET NEXT RECORD 03248 M00S02714.dmrec +++| 03249 M00S02715.dmrec +++|* PROCESS COMMIT, DBFREE, AND CEASE. 03250 M00S02716.dmrec +++|* DELETE ENTRY IN IGNORE TABLE. 03251 M00S02717.dmrec +++|
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03252 M02S00044.ns2023 ---| BRT6.1 SA1 QRFFLG 03253 M02S00045.ns2023 ---| MX6 1 03254 M02S00046.ns2023 ---| SA6 BRTK CEASE FLAG SET 03255 M02S00047.ns2023 ---| PL X1,BRT7 IF NOT BRF RECOVERY
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03256 M01S00071.ns2023 +++| BRT6.1 SA1 BRFFLG 03257 M01S00072.ns2023 +++| PL X1,BRT2 IF NOT BRF RECOVERY
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03258 M01S00048.dmrec2 +++| SA3 BRTH
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03259 M01S00073.ns2023 +++| NZ X3,BRT2 IF BRF DOWN STAMP FOUND
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03260 M02S00049.ns2023 ---| ZR X3,BRT7 IF NO BRF DOWN STAMP YET 03261 M02S00050.ns2023 ---| SX6 1 03262 M02S00051.ns2023 ---| SA6 BRTI SET BRF CEASE FLAG 03263 M00S02718.dmrec +++| BRT7 SA1 B5 03264 M00S02719.dmrec +++| NZ X1,BRT9 IF NOT AN EMPTY RECORD
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03265 M02S00052.ns2023 ---| EQ B5,B4,BRT8.1 IF LOGICAL END OF TABLE 03266 M00S02720.dmrec +++| BRT8 SB5 B5+2 03267 M00S02721.dmrec +++| EQ BRT7 TRY NEXT 03268 M00S02722.dmrec +++|
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03269 M02S00053.ns2023 ---| BRT8.1 SA1 BRTK 03270 M02S00054.ns2023 ---| ZR X1,BRT2 IF NOT COMMIT STAMP 03271 M02S00055.ns2023 ---| SB5 FTAB
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03272 M01S00074.ns2023 +++| BRT8.1 SB5 FTAB INITIALIZE *FTAB* POINTER
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03273 M01S00056.dmrec2 +++| BRT8.2 SA3 B5 03274 M01S00057.dmrec2 +++| ZR X3,BRT8.3 IF AN EMPTY ENTRY 03275 M01S00058.dmrec2 +++| EQ B5,B4,BRT19 IF *FTAB* OVERFLOW 03276 M01S00059.dmrec2 +++| SB5 B5+2 INCREMENT FTAB POINTER 03277 M01S00060.dmrec2 +++| EQ BRT8.2 03278 M01S00061.dmrec2 +++| 03279 M01S00062.dmrec2 +++| BRT8.3 SA5 X4+4 GET TRANSACTION NAME 03280 M01S00063.dmrec2 +++| MX0 42 03281 M01S00064.dmrec2 +++| BX6 X0*X1 03282 M01S00065.dmrec2 +++| SA6 B5 INSERT NAME INTO FTAB TABLE 03283 M01S00066.dmrec2 +++| SA5 X4 03284 M01S00067.dmrec2 +++| MX0 24 03285 M01S00068.dmrec2 +++| BX5 X0*X5 03286 M01S00069.dmrec2 +++| SA2 X4+1 03287 M01S00070.dmrec2 +++| MX0 30 03288 M01S00071.dmrec2 +++| BX2 X0*X2 03289 M01S00072.dmrec2 +++| LX2 30 03290 M01S00073.dmrec2 +++| BX6 X5+X2
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03291 M02S00074.ns2023 ---| SA6 B5+1
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03292 M01S00075.ns2023 +++| SA6 B5+B1
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03293 M01S00075.dmrec2 +++| EQ BRT2 LOOK AT NEXT RECORD 03294 M01S00076.dmrec2 +++|
| Line S02723 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03295 M01S02723.ns2023 ---| BRT9 NG X1,BRT2 IF NO COMMIT STAMP FOUND
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03296 M01S00076.ns2023 +++| BRT9 NG X1,BRT8.1 IF END OF TABLE 03297 M00S02724.dmrec +++| SA5 X4 03298 M00S02725.dmrec +++| MX0 24 03299 M00S02726.dmrec +++| BX5 X0*X5
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03300 M01S00077.dmrec2 +++| SA3 X4+1 03301 M01S00078.dmrec2 +++| MX0 30 03302 M01S00079.dmrec2 +++| BX3 X0*X3 GET BEGIN ID 03303 M01S00080.dmrec2 +++| LX3 30 03304 M01S00081.dmrec2 +++| BX5 X5+X3 03305 M00S02727.dmrec +++| SA1 B5+B1 03306 M00S02728.dmrec +++| BX6 X5-X1
| Line S02729 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03307 M01S02729.dmrec2 ---| NZ X6,BRT8 IF TS DOES NOT MATCH
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/dmrec.001.txt · Last modified: (external edit)