cdc:nos2.source:opl.opl871:deck:dmrec.003
Deck DMREC Part 003
25 Modifications
Listing Sections
- Deck DMREC Start
- Deck DMREC Part 1 (Line 1576)
- Deck DMREC Part 2 (Line 2763)
- Deck DMREC Part 3 (Line 3963)
- Deck DMREC Part 4 (Line 5864)
- Deck DMREC Part 5 (Line 7590)
- Deck DMREC Part 6 (Line 9242)
- Deck DMREC Part 7 (Line 10761)
- Deck DMREC Part 8 (Line 12611)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S03322 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03963 M02S03322.ns2023 ---| SA1 QRFFLG
| Line S03323 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03964 M02S03323.ns2023 ---| PL X1,CRT9 IF NOT *QRF* RECOVERY
| Line S03324 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03965 M02S03324.ns2023 ---| EQ REC9 RETURN FOR NEXT POSSIBLE *QRF* 03966 M01S00103.ns2023 +++| SA1 BRFFLG 03967 M01S00104.ns2023 +++| PL X1,CRT9 IF NOT *BRF* RECOVERY 03968 M01S00105.ns2023 +++| EQ REC9 RETURN FOR NEXT POSSIBLE *BRF* 03969 M01S03325.dmrec +++| 03970 M01S03326.dmrec +++| CRT8 RETURN RECF 03971 M01S03327.dmrec +++| EQ DMR3 RETURN 03972 M01S03328.dmrec +++|
| Line S03329 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03973 M02S03329.ns2023 ---| CRT9 SA1 DMPFLG CHECK FOR *LRF* DUMP
| Line S03330 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03974 M02S03330.ns2023 ---| NZ X1,CRT10 IF NOT *LRF* DUMP 03975 M01S00106.ns2023 +++| CRT9 SA1 DMPFLG CHECK FOR *ARF* DUMP 03976 M01S00107.ns2023 +++| NZ X1,CRT10 IF NOT *ARF* DUMP 03977 M01S03331.dmrec +++| EQ DMP10 CONTINUE WITH DUMP PROCESSING 03978 M01S03332.dmrec +++| 03979 M01S03333.dmrec +++| CRT10 ERROR CRTH,,,DMR3 ISSUE FILE ALLOCATED MESSAGE 03980 M01S03334.dmrec +++| 03981 M01S03335.dmrec +++| CRT11 ERROR DMRA,,,CRT8,,E ONLY ONE LFN ALLOWED 03982 M01S03336.dmrec +++| 03983 M01S03337.dmrec +++| CRT13 ERROR CRTC,,,CRT8,,E INCORRECT FILE TYPE 03984 M01S03338.dmrec +++| 03985 M01S03339.dmrec +++| CRT14 ERROR CRTD,,,CRT8,,E INCORRECT FILE ORDINAL 03986 M01S03340.dmrec +++| 03987 M01S03341.dmrec +++| CRT15 ERROR CRTE,,,CRT8,,E NO SPACE FOR BUFFER 03988 M01S03342.dmrec +++| 03989 M01S03343.dmrec +++| CRT16 ERROR CRTF,,,CRT8,,E DEFINE ERROR 03990 M01S03344.dmrec +++| 03991 M01S03345.dmrec +++| CRT17 ERROR CRTG,,,CRT8,,E CIO ERROR 03992 M01S03346.dmrec +++| 03993 M01S03347.dmrec +++| 03994 M01S03348.dmrec +++| CRTC DATA 20H0 ***** 03995 M01S03349.dmrec +++| DATA C*FILE TYPE NOT ARF OR BRF.* 03996 M01S03350.dmrec +++| CRTCL EQU *-CRTC 03997 M01S03351.dmrec +++| 03998 M01S03352.dmrec +++| CRTD DATA 20H0 ***** 03999 M01S03353.dmrec +++| DATA C*ARF ORDINAL MUST BE 01 OR 02.* 04000 M01S03354.dmrec +++| CRTDL EQU *-CRTD 04001 M01S03355.dmrec +++| 04002 M01S03356.dmrec +++| CRTE DATA 20H0 ***** 04003 M01S03357.dmrec +++| DATA C*NO SPACE FOR ARF/BRF BUFFER.* 04004 M01S03358.dmrec +++| CRTEL EQU *-CRTE 04005 M01S03359.dmrec +++| 04006 M01S03360.dmrec +++| CRTF DATA 20H0 ***** 04007 M01S03361.dmrec +++| DATA C*DEFINE ERROR ON FILE.* 04008 M01S03362.dmrec +++| CRTFL EQU *-CRTF 04009 M01S03363.dmrec +++| 04010 M01S03364.dmrec +++| CRTG DATA 20H0 ***** 04011 M01S03365.dmrec +++| DATA C*CRT - CIO ERROR.* 04012 M01S03366.dmrec +++| CRTGL EQU *-CRTG 04013 M01S03367.dmrec +++| 04014 M01S03368.dmrec +++| CRTH DATA 20H0 ***** 04015 M01S03369.dmrec +++| DATA C* ALLOCATED.* 04016 M01S03370.dmrec +++| CRTHL EQU *-CRTH 04017 M01S03371.dmrec +++| 04018 M01S03372.dmrec +++| CRTI BSSZ 1 FILE NAME - ZZDBXNN 04019 M01S03373.dmrec +++| CRTJ BSSZ 1 NN FIELD 04020 M01S03374.dmrec +++| CRTK BSSZ 1 X FIELD 04021 M01S03375.dmrec +++| 04022 M01S03376.dmrec +++| 04023 M01S03377.dmrec +++| CTD SPACE 4,15 04024 M01S03378.dmrec +++|** CTD - CHECK TIME AND DATE. 04025 M01S03379.dmrec +++|* 04026 M01S03380.dmrec +++|* ENTRY (DATE) = BEGIN DATE. YYMMDD. 04027 M01S03381.dmrec +++|* (TIME) = BEGIN TIME. HHMMSS. 04028 M01S03382.dmrec +++|* (DATE1) = END DATE. 04029 M01S03383.dmrec +++|* (TIME1) = END TIME. 04030 M01S03384.dmrec +++|* 04031 M01S03385.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 04032 M01S03386.dmrec +++|* 1, IF INCORRECT FORMAT. 04033 M01S03387.dmrec +++|* 04034 M01S03388.dmrec +++|* USES X - 0, 1, 2, 3, 4, 5. 04035 M01S03389.dmrec +++|* A - 2. 04036 M01S03390.dmrec +++|* B - 6. 04037 M01S03391.dmrec +++|* 04038 M01S03392.dmrec +++|* CALLS DXB. 04039 M01S03393.dmrec +++| 04040 M01S03394.dmrec +++| 04041 M01S03395.dmrec +++| CTD6 MX1 0 NO ERROR RETURN 04042 M01S03396.dmrec +++| 04043 M01S03397.dmrec +++| CTD SUBR ENTRY/EXIT 04044 M01S03398.dmrec +++| SB6 B0 04045 M01S03399.dmrec +++| SA2 DATE BEGIN DATE 04046 M01S03400.dmrec +++| CTD1 ZR X2,CTD2 IF DATE NOT GIVEN 04047 M01S03401.dmrec +++| MX0 12 04048 M01S03402.dmrec +++| BX5 X0*X2 YY 04049 M01S03403.dmrec +++| RJ DXB CONVERT TO BINARY 04050 M01S03404.dmrec +++| SX1 B1 ERROR RETURN 04051 M01S03405.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04052 M01S03406.dmrec +++| SA2 A2 04053 M01S03407.dmrec +++| MX0 12 04054 M01S03408.dmrec +++| LX2 12 04055 M01S03409.dmrec +++| BX5 X0*X2 MM 04056 M01S03410.dmrec +++| RJ DXB CONVERT TO BINARY 04057 M01S03411.dmrec +++| SX1 B1 04058 M01S03412.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04059 M01S03413.dmrec +++| ZR X6,CTDX IF OUT OF RANGE 04060 M01S03414.dmrec +++| SX3 12 04061 M01S03415.dmrec +++| IX4 X3-X6 04062 M01S03416.dmrec +++| NG X4,CTDX IF OUT RANGE 04063 M01S03417.dmrec +++| MX0 12 04064 M01S03418.dmrec +++| SA2 A2 04065 M01S03419.dmrec +++| LX2 24 04066 M01S03420.dmrec +++| BX5 X0*X2 DD 04067 M01S03421.dmrec +++| RJ DXB CONVERT TO BINARY 04068 M01S03422.dmrec +++| SX1 B1 04069 M01S03423.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04070 M01S03424.dmrec +++| ZR X6,CTDX IF OUT OF RANGE 04071 M01S03425.dmrec +++| SX3 31 04072 M01S03426.dmrec +++| IX4 X3-X6 04073 M01S03427.dmrec +++| NG X4,CTDX IF OUT OF RANGE 04074 M01S03428.dmrec +++| CTD2 EQ B6,B1,CTD3 IF BOTH DATES CHECKED 04075 M01S03429.dmrec +++| SA2 DATE1 END DATE 04076 M01S03430.dmrec +++| SB6 B6+B1 04077 M01S03431.dmrec +++| EQ CTD1 CHECK END DATE 04078 M01S03432.dmrec +++| 04079 M01S03433.dmrec +++| CTD3 SA2 TIME BEGIN TIME 04080 M01S03434.dmrec +++| SB6 B0 04081 M01S03435.dmrec +++| CTD4 ZR X2,CTD5 IF TIME NOT GIVEN 04082 M01S03436.dmrec +++| MX0 12 04083 M01S03437.dmrec +++| BX5 X0*X2 HH 04084 M01S03438.dmrec +++| RJ DXB DISPLAY TO BINARY 04085 M01S03439.dmrec +++| SX1 B1 04086 M01S03440.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04087 M01S03441.dmrec +++| SX3 23 04088 M01S03442.dmrec +++| IX4 X3-X6 04089 M01S03443.dmrec +++| NG X4,CTDX IF OUT OF RANGE 04090 M01S03444.dmrec +++| SA2 A2 04091 M01S03445.dmrec +++| MX0 12 04092 M01S03446.dmrec +++| LX2 12 04093 M01S03447.dmrec +++| BX5 X0*X2 MM 04094 M01S03448.dmrec +++| RJ DXB DISPLAY TO BINARY 04095 M01S03449.dmrec +++| SX1 B1 04096 M01S03450.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04097 M01S03451.dmrec +++| SX3 59 04098 M01S03452.dmrec +++| IX4 X3-X6 04099 M01S03453.dmrec +++| NG X4,CTDX IF OUT OF RANGE 04100 M01S03454.dmrec +++| MX0 12 04101 M01S03455.dmrec +++| SA2 A2 04102 M01S03456.dmrec +++| LX2 24 04103 M01S03457.dmrec +++| BX5 X0*X2 SS 04104 M01S03458.dmrec +++| RJ DXB DISPLAY TO BINARY 04105 M01S03459.dmrec +++| SX1 B1 04106 M01S03460.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04107 M01S03461.dmrec +++| SX3 59 04108 M01S03462.dmrec +++| IX4 X3-X6 04109 M01S03463.dmrec +++| NG X4,CTDX IF OUT OF RANGE 04110 M01S03464.dmrec +++| CTD5 EQ B6,B1,CTD6 IF BOTH TIMES CHECKED 04111 M01S03465.dmrec +++| SB6 B6+B1 04112 M01S03466.dmrec +++| SA2 TIME1 END TIME 04113 M01S03467.dmrec +++| EQ CTD4 CHECK TIME 04114 M01S03468.dmrec +++| CTW SPACE 4,10 04115 M01S03469.dmrec +++|** CTW - CHARACTERS TO WORDS. 04116 M01S03470.dmrec +++|* 04117 M01S03471.dmrec +++|* ENTRY (X7) = LENGTH IN CHARACTERS. 04118 M01S03472.dmrec +++|* 04119 M01S03473.dmrec +++|* EXIT (X1) = LENGTH IN WORDS. 04120 M01S03474.dmrec +++|* (X6) = REMAINDER IN CHARACTERS. 04121 M01S03475.dmrec +++|* 04122 M01S03476.dmrec +++|* USES X - 1, 4, 5, 6. 04123 M01S03477.dmrec +++|* B - 7. 04124 M01S03478.dmrec +++| 04125 M01S03479.dmrec +++| 04126 M01S03480.dmrec +++| CTW SUBR ENTRY/EXIT 04127 M01S03481.dmrec +++| SX6 10 04128 M01S03482.dmrec +++| PX4 X7 04129 M01S03483.dmrec +++| PX5 X6 04130 M01S03484.dmrec +++| NX6 X5 04131 M01S03485.dmrec +++| FX4 X4/X6 04132 M01S03486.dmrec +++| UX6 B7,X4 04133 M01S03487.dmrec +++| LX1 B7,X6 04134 M01S03488.dmrec +++| PX6 X1 COMPUTE REMAINDER 04135 M01S03489.dmrec +++| DX4 X6*X5 04136 M01S03490.dmrec +++| UX6 X4 04137 M01S03491.dmrec +++| IX6 X7-X6 REMAINDER 04138 M01S03492.dmrec +++| ZR X6,CTWX IF REMAINDER .EQ. ZERO - RETURN 04139 M01S03493.dmrec +++| SX1 X1+1 04140 M01S03494.dmrec +++| EQ CTWX RETURN 04141 M01S03495.dmrec +++| CVN SPACE 4,10 04142 M01S03496.dmrec +++|** CVN - CHECK VSN NUMBER. 04143 M01S03497.dmrec +++|* 04144 M01S03498.dmrec +++|* ENTRY (TVSN) = VSN NUMBER. 04145 M01S03499.dmrec +++|* (ADDF) = 0, IF DELETE ENTRY. 04146 M01S03500.dmrec +++|* 1, IF ADD ENTRY. 04147 M01S03501.dmrec +++|* (FITA) = FWA OF AUXILARY FIT TABLE. 04148 M01S03502.dmrec +++|* 04149 M01S03503.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 04150 M01S03504.dmrec +++|* (X6) = COUNT OF ACTIVE FILES. 04151 M01S03505.dmrec +++|* (A0) = CORRECT FIT ADDRESS FOR PROCESS. 04152 M01S03506.dmrec +++|* (WSAB) = FWA OF VSN ENTRY. 04153 M01S03507.dmrec +++|* 04154 M01S03508.dmrec +++|* USES X - 0, 1, 2, 6. 04155 M01S03509.dmrec +++|* A - 0, 1, 2. 04156 M01S03510.dmrec +++|* B - NONE. 04157 M01S03511.dmrec +++|* 04158 M01S03512.dmrec +++|* CALLS SVK. 04159 M01S03513.dmrec +++|* 04160 M01S03514.dmrec +++|* MACROS ERROR, FETCH, RMGET. 04161 M01S03515.dmrec +++| 04162 M01S03516.dmrec +++| 04163 M01S03517.dmrec +++| CVN SUBR ENTRY/EXIT 04164 M01S03518.dmrec +++| SA1 ADDF ADD/DELETE FLAG 04165 M01S03519.dmrec +++| SA0 DIRR DIRECTORY FIT ADDRESS 04166 M01S03520.dmrec +++| ZR X1,CVN1 IF DELETE PROCESS 04167 M01S03521.dmrec +++| SA0 FITA AUXILARY FIT ADDRESS 04168 M01S03522.dmrec +++| CVN1 SA1 TVSN 04169 M01S03523.dmrec +++| RJ SVK SET VSN KEY 04170 M01S03524.dmrec +++| RMGET A0,WSAB,0,,VKY1 READ VSN ENTRY 04171 M01S03525.dmrec +++| FETCH A0,ES,X1 FIT ERROR STATUS 04172 M01S03526.dmrec +++| NZ X1,CVN2 IF VSN DOES NOT EXIST 04173 M01S03527.dmrec +++| SX1 B1 04174 M01S03528.dmrec +++| SA2 WSAB+5 FIRST VSN INDICATOR 04175 M01S03529.dmrec +++| ZR X2,CVN3 IF NOT FIRST VSN 04176 M01S03530.dmrec +++| SA2 WSAB+4 COUNT OF ACTIVE FILES 04177 M01S03531.dmrec +++| BX6 X2 04178 M01S03532.dmrec +++| MX1 0 04179 M01S03533.dmrec +++| EQ CVNX NORMAL RETURN 04180 M01S03534.dmrec +++| 04181 M01S03535.dmrec +++| CVN2 ERROR CVNA,,,CVNX,,E VSN DOES NOT EXIST 04182 M01S03536.dmrec +++| 04183 M01S03537.dmrec +++| CVN3 ERROR CVNB,,,CVNX,,E VSN NOT FIRST REEL 04184 M01S03538.dmrec +++| 04185 M01S03539.dmrec +++| CVNA DATA 20H0 ***** 04186 M01S03540.dmrec +++| DATA C*VSN DOES NOT EXIST.* 04187 M01S03541.dmrec +++| CVNAL EQU *-CVNA 04188 M01S03542.dmrec +++| 04189 M01S03543.dmrec +++| CVNB DATA 20H0 ***** 04190 M01S03544.dmrec +++| DATA C*VSN IS NOT FIRST REEL.* 04191 M01S03545.dmrec +++| CVNBL EQU *-CVNB 04192 M01S03546.dmrec +++| CWM SPACE 4,15 04193 M01S03547.dmrec +++|** CWM - CHECK WRITE MODE. 04194 M01S03548.dmrec +++|* 04195 M01S03549.dmrec +++|* *CWM* CHECKS THE MODE INDICATOR IN THE *XXJ* FILE FOR 04196 M01S03550.dmrec +++|* WRITE PERMISSION TO THE FILE IN QUESTION. 04197 M01S03551.dmrec +++|* 04198 M01S03552.dmrec +++|* ENTRY (XXACC) = MODE INDICATOR. 04199 M01S03553.dmrec +++|* 04200 M01S03554.dmrec +++|* EXIT (X1) = 0 - IF NO ERROR. 04201 M01S03555.dmrec +++|* 04202 M01S03556.dmrec +++|* USES X - 1, 2. 04203 M01S03557.dmrec +++|* A - 2. 04204 M01S03558.dmrec +++|* B - NONE. 04205 M01S03559.dmrec +++| 04206 M01S03560.dmrec +++| 04207 M01S03561.dmrec +++| CWM SUBR ENTRY/EXIT 04208 M01S03562.dmrec +++| SA2 XXACC GET MODE 04209 M01S03563.dmrec +++| LX2 6 04210 M01S03564.dmrec +++| SX1 X2-1RM 04211 M01S03565.dmrec +++| ZR X1,CWMX IF MODIFY MODE - OK 04212 M01S03566.dmrec +++| SX1 X2-1RW 04213 M01S03567.dmrec +++| ZR X1,CWMX IF WRITE MODE - OK 04214 M01S03568.dmrec +++| ERROR CWM1,XXPFN,,CWMX,,E PF XXXXXXX - READ ONLY 04215 M01S03569.dmrec +++| 04216 M01S03570.dmrec +++| CWM1 DATA 20H0 ***** 04217 M01S03571.dmrec +++| DATA C*PF XXXXXXX - READ ONLY.* 04218 M01S03572.dmrec +++| CWM1L EQU *-CWM1 04219 M01S03573.dmrec +++| CYC SPACE 4,25 04220 M01S03574.dmrec +++|** CYC - CHANGE CYCLE NUMBER. 04221 M01S03575.dmrec +++|* 04222 M01S03576.dmrec +++|* *CYC* CHANGES THE NUMBER OF CYCLES TO RETAIN IN THE BACKUP 04223 M01S03577.dmrec +++|* DIRECTORY HEADER OR IN THE FILE HEADER, DEPENDING ON 04224 M01S03578.dmrec +++|* PARAMETERS SPECIFIED ON THE EDIT DIRECTIVE. IF DATA 04225 M01S03579.dmrec +++|* BASE NAME IS SPECIFIED THE DIRECTORY HEADER IS MODIFIED, 04226 M01S03580.dmrec +++|* OTHERWISE FILE HEADERS FOR SELECTIVE FILES ARE CHANGED. 04227 M01S03581.dmrec +++|* 04228 M01S03582.dmrec +++|* ENTRY (CYCL) = CYCLE NUMBER. 04229 M01S03583.dmrec +++|* (LFNC) = 0, IF DIRECTORY HEADER IS MODIFIED. 04230 M01S03584.dmrec +++|* N, IF SELECTIVE FILE HEADERS ARE MODIFIED. 04231 M01S03585.dmrec +++|* 04232 M01S03586.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 04233 M01S03587.dmrec +++|* 04234 M01S03588.dmrec +++|* USES X - 1, 2, 5, 6, 7. 04235 M01S03589.dmrec +++|* A - 1, 5, 6, 7. 04236 M01S03590.dmrec +++|* B - NONE. 04237 M01S03591.dmrec +++|* 04238 M01S03592.dmrec +++|* CALLS DXB, EFD, FER. 04239 M01S03593.dmrec +++|* 04240 M01S03594.dmrec +++|* MACROS GETN, RMREP, REWINDM. 04241 M01S03595.dmrec +++| 04242 M01S03596.dmrec +++| 04243 M01S03597.dmrec +++| CYC3 BX6 X6-X6 04244 M01S03598.dmrec +++| SA6 CYCF CLEAR CYCLE CHANGE FLAG 04245 M01S03599.dmrec +++| 04246 M01S03600.dmrec +++| CYC SUBR ENTRY/EXIT 04247 M01S03601.dmrec +++| SA5 CYCL CYCLE NUMBER 04248 M01S03602.dmrec +++| RJ DXB CONVERT DISPLAY TO BINARY 04249 M01S03603.dmrec +++| BX2 X6 04250 M01S03604.dmrec +++| SA6 CYCL REPLACE WITH BINARY VALUE 04251 M01S03605.dmrec +++| SX1 B1 04252 M01S03606.dmrec +++| ZR X2,CYC2 IF NUMBER EQUAL ZERO 04253 M01S03607.dmrec +++| SX1 CYCM MAXIMUM CYCLE NUMBER 04254 M01S03608.dmrec +++| IX2 X1-X2
| Line S03609 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04255 M02S03609.v23l617 ---| NG X2,CYC2 IF ILLEGAL CYCLE NUMBER 04256 M01S00020.v23l617 +++| NG X2,CYC2 IF INCORRECT CYCLE NUMBER 04257 M01S03610.dmrec +++| SX7 -2 04258 M01S03611.dmrec +++| SA7 LFNP PRESET FILE NAME POINTER 04259 M01S03612.dmrec +++| SX6 B1 04260 M01S03613.dmrec +++| SA6 CYCF CYCLE CHANGE FLAG 04261 M01S03614.dmrec +++| SA1 LFNC NUMBER OF FILES 04262 M01S03615.dmrec +++| NZ X1,CYC1 IF FILE HEADERS ARE MODIFIED 04263 M01S03616.dmrec +++| REWINDM DIRR 04264 M01S03617.dmrec +++| GETN DIRR,WSAB,,TKY1 READ DIRECTORY HEADER 04265 M01S03618.dmrec +++| RJ FER FIT ERROR STATUS 04266 M01S03619.dmrec +++| NZ X1,CYC3 IF CRM ERROR 04267 M01S03620.dmrec +++| SA1 CYCL NEW CYCLE NUMBER 04268 M01S03621.dmrec +++| BX6 X1 04269 M01S03622.dmrec +++| SA6 WSAB+5 REPLACE CYCLE NUMBER 04270 M01S03623.dmrec +++| RMREP DIRR,WSAB,WSAL,,TKY1 REPLACE DIRECTORY HEADER 04271 M01S03624.dmrec +++| RJ FER FIT ERROR STATUS 04272 M01S03625.dmrec +++| CYC0 GETN DIRR,WSAB,,TKY1 GET NEXT FILE HEADER 04273 M01S03626.dmrec +++| RJ FER FIT ERROR STATUS 04274 M01S03627.dmrec +++| NZ X1,CYC3 IF CRM ERROR 04275 M01S03628.dmrec +++| SX2 3RAAA FILE HEADER TYPE 04276 M01S03629.dmrec +++| SA3 TKY1 NEXT FILE HEADER ENTRY 04277 M01S03630.dmrec +++| MX0 -18 04278 M01S03631.dmrec +++| BX1 -X0*X3 04279 M01S03632.dmrec +++| BX2 X2-X1 COMPARE TYPES 04280 M01S03633.dmrec +++| MX1 0 CLEAR ERROR RETURN FLAG 04281 M01S03634.dmrec +++| NZ X2,CYC3 IF ALL DONE PROCESING FILE HEADERS 04282 M01S03635.dmrec +++| RJ EFD EDIT FILE HEADER 04283 M01S03636.dmrec +++| NZ X1,CYC3 IF CRM ERROR 04284 M01S03637.dmrec +++| EQ CYC0 PROCESS NEXT FILE HEADER 04285 M01S03638.dmrec +++| 04286 M01S03639.dmrec +++| CYC1 SA1 LFNP FILE POINTER IN *TDFS* TABLE 04287 M01S03640.dmrec +++| SX6 X1+2 INCREMENT POINTER 04288 M01S03641.dmrec +++| SA6 LFNP REPLACE POINTER 04289 M01S03642.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFS* TABLE 04290 M01S03643.dmrec +++| LX1 1 NUMBER OF ENTRIES 04291 M01S03644.dmrec +++| IX2 X6-X1 04292 M01S03645.dmrec +++| MX1 0 04293 M01S03646.dmrec +++| ZR X2,CYC3 IF END OF TABLE 04294 M01S03647.dmrec +++| SA1 TDFS+X6 NEXT FILE FROM *TDFS* TABLE 04295 M01S03648.dmrec +++| BX6 X1 04296 M01S03649.dmrec +++| SA6 TKY1 SET KEY 04297 M01S03650.dmrec +++| RJ EFD EDIT FILE HEADER 04298 M01S03651.dmrec +++| NZ X1,CYC3 IF CRM ERROR 04299 M01S03652.dmrec +++| EQ CYC1 NEXT FILE 04300 M01S03653.dmrec +++| 04301 M01S03654.dmrec +++| CYC2 ERROR CYCA,,,CYCX,,E CYCLE NUMBER IS OUTSIDE LIMITS 04302 M01S03655.dmrec +++| 04303 M01S03656.dmrec +++| CYCA DATA 20H0 ***** 04304 M01S03657.dmrec +++| DATA C*CYCLE NUMBER IS OUTSIDE LIMITS.* 04305 M01S03658.dmrec +++| CYCAL EQU *-CYCA 04306 M01S03659.dmrec +++| DBF SPACE 4,20 04307 M01S03660.dmrec +++|** DBF - DUMP BLOCK FORMAT. 04308 M01S03661.dmrec +++|* 04309 M01S03662.dmrec +++|* DUMP FILE IN BLOCK FORMAT. IF END-OF-TAPE IS REACHED 04310 M01S03663.dmrec +++|* RETURN CURRENT ONE AND REQUEST NEXT. 04311 M01S03664.dmrec +++|* 04312 M01S03665.dmrec +++|* ENTRY (X4) = FWA OF FET. 04313 M01S03666.dmrec +++|* 04314 M01S03667.dmrec +++|* EXIT DATA FILE DUMPED IN BLOCK MODE. 04315 M01S03668.dmrec +++|* (X1) = 0 IF NO ERRORS. 04316 M01S03669.dmrec +++|* 04317 M01S03670.dmrec +++|* USES X - 0, 1, 2, 4, 6. 04318 M01S03671.dmrec +++|* A - 1, 4, 6. 04319 M01S03672.dmrec +++|* B - NONE. 04320 M01S03673.dmrec +++|* 04321 M01S03674.dmrec +++|* CALLS DER. 04322 M01S03675.dmrec +++|* 04323 M01S03676.dmrec +++|* MACROS ERROR, READ, READW, RECALL, REWIND, WRITEF, 04324 M01S03677.dmrec +++|* WRITER, WRITEW. 04325 M01S03678.dmrec +++| 04326 M01S03679.dmrec +++| 04327 M01S03680.dmrec +++| DBF SUBR ENTRY/EXIT 04328 M01S03681.dmrec +++| BX6 X4 04329 M01S03682.dmrec +++| SA6 HOLD SAVE REGISTER. 04330 M01S03683.dmrec +++| REWIND X4,R 04331 M01S00118.dmrec7 +++| SX6 TEOR TABLE OF EOR-S 04332 M01S00119.dmrec7 +++| SA6 PEOR INITIALIZE POINTER 04333 M01S03684.dmrec +++| 04334 M01S03685.dmrec +++| DBF1 SA4 HOLD 04335 M01S03686.dmrec +++| DBF2 READ X4,R 04336 M01S03687.dmrec +++| DBF3 SA4 HOLD 04337 M01S03688.dmrec +++| READW X4,WBUF,WBUFL 04338 M01S03689.dmrec +++| ZR X1,DBF5 IF NO EOR/EOF 04339 M01S03690.dmrec +++| NG X1,DBF6 IF EOF/EOI 04340 M01S03691.dmrec +++| 04341 M01S03692.dmrec +++|* EOR ENCOUNTERED. 04342 M01S03693.dmrec +++| 04343 M01S03694.dmrec +++| WRITEW TP,WBUF,X1-WBUF 04344 M01S03695.dmrec +++| RJ DER DETECT END OF REEL 04345 M01S03696.dmrec +++| NG X1,DBF4 IF END OF TAPE 04346 M01S03697.dmrec +++| NZ X1,DBFX IF ERROR 04347 M01S03698.dmrec +++| DBF4 WRITER TP,R 04348 M01S00120.dmrec7 +++| SA2 EORCNT 04349 M01S00121.dmrec7 +++| SX6 X2+B1 04350 M01S00122.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT 04351 M01S03699.dmrec +++| RJ DER DETECT END OF REEL 04352 M01S03700.dmrec +++| NG X1,DBF1 IF END OF TAPE 04353 M01S03701.dmrec +++| NZ X1,DBFX IF ERROR 04354 M01S03702.dmrec +++| EQ DBF1 GET NEXT RECORD 04355 M01S03703.dmrec +++| 04356 M01S03704.dmrec +++| DBF5 WRITEW TP,WBUF,WBUFL 04357 M01S03705.dmrec +++| RJ DER DETECT END OF REEL 04358 M01S03706.dmrec +++| NG X1,DBF3 IF END OF TAPE 04359 M01S03707.dmrec +++| NZ X1,DBFX IF ERROR 04360 M01S03708.dmrec +++| EQ DBF3 GET NEXT BUFFER 04361 M01S03709.dmrec +++| 04362 M01S03710.dmrec +++| DBF6 SA1 XXPFN 04363 M01S03711.dmrec +++| SX2 3REND 04364 M01S03712.dmrec +++| MX0 42 04365 M01S03713.dmrec +++| SA4 ACFA 04366 M01S03714.dmrec +++| BX4 X4-X1 04367 M01S03715.dmrec +++| BX4 X0*X4 04368 M01S03716.dmrec +++| ZR X4,DBF7 IF DIRECTORY FILE 04369 M01S03717.dmrec +++| SA4 DMPFLG
| Line S03718 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04370 M02S03718.ns2023 ---| NZ X4,DBF7 IF NOT *LRF*
| Line S03719 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04371 M02S03719.ns2023 ---| LX1 48 POSITION FILE NAME FOR *LRF* 04372 M01S00108.ns2023 +++| NZ X4,DBF7 IF NOT *ARF* 04373 M01S00109.ns2023 +++| LX1 48 POSITION FILE NAME FOR *ARF* 04374 M01S03720.dmrec +++| DBF7 BX6 X1+X2 04375 M01S03721.dmrec +++| SA6 TEMPP TRAILER WORD 04376 M01S03722.dmrec +++| WRITEW TP,TEMPP,B1 04377 M01S03723.dmrec +++| RJ DER DETECT END OF REEL 04378 M01S03724.dmrec +++| NG X1,DBF8 IF END OF TAPE 04379 M01S03725.dmrec +++| NZ X1,DBFX IF ERROR 04380 M01S03726.dmrec +++| DBF8 WRITEF TP,R 04381 M01S00123.dmrec7 +++| SA2 EORCNT 04382 M01S00124.dmrec7 +++| SX6 X2+B1 04383 M01S00125.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT 04384 M01S03727.dmrec +++| RJ DER DETECT END OF REEL 04385 M01S03728.dmrec +++| NG X1,DBF9 IF END OF TAPE 04386 M01S03729.dmrec +++| NZ X1,DBFX IF ERROR 04387 M01S03730.dmrec +++| DBF9 SX1 B0 04388 M01S03731.dmrec +++| EQ DBFX RETURN 04389 M01S03732.dmrec +++| DCK SPACE 4,15 04390 M01S03733.dmrec +++|** DCK - DECOLLATE KEY. 04391 M01S03734.dmrec +++|* 04392 M01S03735.dmrec +++|* DECOLLATE PRIMARY KEY IN PLACE. ALL SYMBOLIC 04393 M01S03736.dmrec +++|* KEYS IN *IS* FILES MUST BE DECOLLATED. 04394 M01S03737.dmrec +++|* 04395 M01S03738.dmrec +++|* ENTRY (A1) = ADDRESS OF VECTOR TABLE. 04396 M01S03739.dmrec +++|* 04397 M01S03740.dmrec +++|* EXIT KEYS TRANSLATED TO ORIGINAL FORM. 04398 M01S03741.dmrec +++|* (X1) = 0 - IF NO ERRORS. 04399 M01S03742.dmrec +++|* 04400 M01S03743.dmrec +++|* USES X - ALL. 04401 M01S03744.dmrec +++|* A - 0, 1, 2, 3, 5, 7. 04402 M01S03745.dmrec +++|* B - 2, 3, 4, 5, 6, 7. 04403 M01S03746.dmrec +++| 04404 M01S03747.dmrec +++| 04405 M01S03748.dmrec +++| DCK SUBR ENTRY/EXIT 04406 M01S03749.dmrec +++| SA2 A1 FWA OF VECTOR TABLE 04407 M01S03750.dmrec +++| SA1 X2 FIRST PARAMETER 04408 M01S03751.dmrec +++| SA1 X1 GET SOURCE KEY 04409 M01S03752.dmrec +++| SA2 A2+B1 KEY POSITION 04410 M01S03753.dmrec +++| SA3 X2 BEGIN CHARACTER POSITION OF SOURCE KEY 04411 M01S03754.dmrec +++| IX6 X3+X3 BCP*2 04412 M01S03755.dmrec +++| LX7 B1,X6 BCP*4 04413 M01S03756.dmrec +++| IX5 X6+X7 BCP*6 04414 M01S03757.dmrec +++| SB3 X5 04415 M01S03758.dmrec +++| SA2 A2+B1 KEY SIZE 04416 M01S03759.dmrec +++| SA3 X2 04417 M01S03760.dmrec +++| SB7 X3 KEY LENGTH 04418 M01S03761.dmrec +++| ZR B7,DCKX IF ZERO CHARACTERS TO TRANSLATE 04419 M01S03762.dmrec +++| SA2 A2+B1 DECOLLATING TABLE ADDRESS 04420 M01S03763.dmrec +++| SA3 X2 04421 M01S03764.dmrec +++| SB4 X3 B4 IS ADDR OF TRANSLATION TABLE 04422 M01S03765.dmrec +++| SA3 DFIT 04423 M01S03766.dmrec +++| SA0 X3 04424 M01S03767.dmrec +++| MX6 0 CLEAR FOR TRANSLATED KEY 04425 M01S03768.dmrec +++| SB2 60 BIT COUNTER FOR OUTPUT WORD, 60,54,..,6,0 04426 M01S03769.dmrec +++| MX2 60-3 04427 M01S03770.dmrec +++| SB6 6 DECREMENTS B2 04428 M01S03771.dmrec +++| BX2 -X2 MASK, BITS 0-2 04429 M01S03772.dmrec +++| LX3 B1,X2 MASK, BITS 1-3 04430 M01S03773.dmrec +++| MX4 60-6 04431 M01S03774.dmrec +++| BX4 -X4 MASK, BITS 0-5 04432 M01S03775.dmrec +++| MX0 1 MASK, BIT 59 04433 M01S03776.dmrec +++| AX7 B3,X0 04434 M01S03777.dmrec +++| BX7 X7-X0 04435 M01S03778.dmrec +++| LX7 1 MASK FOR CHARS TO LEFT OF BCP OF KEY 04436 M01S03779.dmrec +++| BX6 X1*X7 04437 M01S03780.dmrec +++| LX6 B3,X6 RIGHT JUSTIFY SAVED CHARACTERS 04438 M01S03781.dmrec +++| LX1 B3,X1 LEFT JUSTIFY FIRST CHAR OF KEY 04439 M01S03782.dmrec +++| LX1 1 BIT 0 IS HIGH BIT OF FIRST CHAR OF KEY 04440 M01S03783.dmrec +++| DCK1 LX1 2 BITS 0-2= UPPER OCTAL DIGET OF NEXT CHAR 04441 M01S03784.dmrec +++| BX5 X2*X1 04442 M01S03785.dmrec +++| SA5 X5+B4 LOAD X-LATION TABLE WORD FROM TABLE + UPP 04443 M01S03786.dmrec +++| LX1 4 BITS 1-3 = LOWER OCTAL DIGIT OF CHAR 04444 M01S03787.dmrec +++| BX7 X3*X1 04445 M01S03788.dmrec +++| SB5 X7+B6 B5= 2*LOWER DIGIT+6 04446 M01S03789.dmrec +++| SB7 B7-B1 INCREMENT TOTAL CHAR COUNTER 04447 M01S03790.dmrec +++| LX6 6 ALIGN TRANSLATED KEY WORD FOR NEXT CHAR 04448 M01S03791.dmrec +++| IX7 X7+X7 4*LOWER DIGIT 04449 M01S03792.dmrec +++| SB2 B2-B6 BUMP BIT COUNTER 04450 M01S03793.dmrec +++| SB5 X7+B5 6*LOWER DIGIT+6. SHIFT CONSTANT 04451 M01S03794.dmrec +++| LX5 B5,X5 SHIFT TRANSLATED CHAR TO BITS 0-5 04452 M01S03795.dmrec +++| BX7 X4*X5 ISOLATE CHARACTER 04453 M01S03796.dmrec +++| EQ B7,DCK2 IF LAST CHARACTER IS TRANSLATED 04454 M01S03797.dmrec +++| BX6 X6+X7 ADD TRANSLATED CHARACTER TO OUTPUT WORD 04455 M01S03798.dmrec +++| NE B2,B3,DCK1 IF WORD NOT COMPLETELY TRANSLATED 04456 M01S03799.dmrec +++| SA6 A1 STORE TRANSLATED WORD 04457 M01S03800.dmrec +++| MX6 0 CLEAR FOR NEXT WORD OF TRANSLATED KEY 04458 M01S03801.dmrec +++| SA1 A1+B1 LOAD NEXT WORD TO BE TRANSLATED 04459 M01S03802.dmrec +++| SB2 60 RESET BIT COUNTER 04460 M01S03803.dmrec +++| SB3 B0 B3 IS NO LONGER BCP*6 04461 M01S03804.dmrec +++| LX1 1 04462 M01S03805.dmrec +++| EQ DCK1 BACK 04463 M01S03806.dmrec +++| 04464 M01S03807.dmrec +++| DCK2 BX6 X6+X7 ADD LAST CHAR TO OUTPUT WORD 04465 M01S03808.dmrec +++| SB2 B2-B3 04466 M01S03809.dmrec +++| LX6 B2,X6 LEFT JUSTIFY TRANSLATED KEY IN OUTPUT WORD 04467 M01S03810.dmrec +++| AX7 B2,X0 04468 M01S03811.dmrec +++| IX7 X7-X0 04469 M01S03812.dmrec +++| LX7 1 04470 M01S03813.dmrec +++| LX7 B2,X7 MASK FOR CHAR RIGHT OF KEY IN LAST WORD 04471 M01S03814.dmrec +++| SA5 A1 LAST WORD OF KEY 04472 M01S03815.dmrec +++| BX7 X5*X7 MASK OFF CHAR SO THEY CAN BE RESTORED 04473 M01S03816.dmrec +++| BX6 X6+X7 ADD SAVED CHARS TO TRANSLATED KEY WORD 04474 M01S03817.dmrec +++| SA6 A1 STORE TRANSLATED KEY 04475 M01S03818.dmrec +++| SX1 B0 04476 M01S03819.dmrec +++| EQ DCKX RETURN 04477 M01S03820.dmrec +++| DCR SPACE 4,20 04478 M01S03821.dmrec +++|** DCR - DECOMPRESS RECORD 04479 M01S03822.dmrec +++|* 04480 M01S03823.dmrec +++|* *DCR* DECOMPRESSES *CRM* RECORDS. THIS ROUTINE 04481 M01S03824.dmrec +++|* IS TAKEN, INTACT, FROM *CRM* (SEE *CRM CAPSULE CMPR$01*). 04482 M01S03825.dmrec +++|* 04483 M01S03826.dmrec +++|* ENTRY (A1) = ADDRESS OF PARAMETER BLOCK. 04484 M01S03827.dmrec +++|* (X1) = FIRST PARAMETER. 04485 M01S03828.dmrec +++|* 04486 M01S03829.dmrec +++|* EXIT RECORD EXPANDED. 04487 M01S03830.dmrec +++|* 04488 M01S03831.dmrec +++|* USES X - ALL. 04489 M01S03832.dmrec +++|* A - 1, 2, 3, 4, 5, 6. 04490 M01S03833.dmrec +++|* B - 1, 2, 3, 4, 5, 6, 7. 04491 M01S03834.dmrec +++|* 04492 M01S03835.dmrec +++|* MACROS ZIPPP, ZAPPP. 04493 M01S03836.dmrec +++| 04494 M01S03837.dmrec +++| 04495 M01S03838.dmrec +++| DCR SUBR ENTRY/EXIT 04496 M01S03839.dmrec +++| SB1 1 04497 M01S03840.dmrec +++| SA2 A1+B1 GET PARAMETERS 04498 M01S03841.dmrec +++| SA3 A2+B1 04499 M01S03842.dmrec +++| SA4 A3+B1 04500 M01S03843.dmrec +++| SA5 A4+B1 04501 M01S03844.dmrec +++| SA1 X1 04502 M01S03845.dmrec +++| SA4 X4 04503 M01S03846.dmrec +++| SB3 X4 CHARACTER POSITION 04504 M01S03847.dmrec +++| SA4 X1 FWA OF RECORD 04505 M01S03848.dmrec +++| SA1 X2 04506 M01S03849.dmrec +++| SB2 X1 LENGTH OF RECORD IN CHARACTERS 04507 M01S03850.dmrec +++| SA1 X3 04508 M01S03851.dmrec +++| BX7 X1 FWA OF KEY IN RECORD 04509 M01S03852.dmrec +++| SA1 X5 04510 M01S03853.dmrec +++| SB7 X1 LENGTH OF KEY IN CHARACTERS 04511 M01S03854.dmrec +++| SA1 A5+B1 04512 M01S03855.dmrec +++| SA2 A1+B1 04513 M01S03856.dmrec +++| SA3 A2+B1 04514 M01S03857.dmrec +++| SA1 X1 04515 M01S03858.dmrec +++| SB4 X1 FWA OF DESTINATION 04516 M01S03859.dmrec +++| SA1 X2 04517 M01S03860.dmrec +++| SB6 X1 04518 M01S03861.dmrec +++| BX6 X3 04519 M01S03862.dmrec +++| SA6 DCRB 04520 M01S03863.dmrec +++| SX6 B6 LENGTH OF DESTINATION AREA 04521 M01S03864.dmrec +++| SA6 X3 04522 M01S03865.dmrec +++| SB5 10 04523 M01S03866.dmrec +++| ZR B7,DCR1 IF KEY LENGTH IS ZERO 04524 M01S03867.dmrec +++| LX7 1 CALCULATE FWA OF KEY IN CHARACTERS 04525 M01S03868.dmrec +++| IX2 X7+X7 04526 M01S03869.dmrec +++| LX2 1 04527 M01S03870.dmrec +++| IX7 X7+X2 04528 M01S03871.dmrec +++| SX7 X7+B3 10*WORD+CHARACTER 04529 M01S03872.dmrec +++| SB7 X7+B7 04530 M01S03873.dmrec +++| DCR1 SA1 B4-B1 04531 M01S03874.dmrec +++| BX6 X1 04532 M01S03875.dmrec +++| SA6 A1 04533 M01S03876.dmrec +++| LT B6,B7,DCR10 IF DESTINATION AREA TOO SMALL 04534 M01S03877.dmrec +++| SX6 B0 04535 M01S03878.dmrec +++| SB4 B5 04536 M01S03879.dmrec +++| ZR B7,DCR4 IF NOT EMBEDDED KEY 04537 M01S03880.dmrec +++| DCR2 SB7 B7-B5 TRANSFER RECORD UP TO LWA OF KEY 04538 M01S03881.dmrec +++| BX6 X4 04539 M01S03882.dmrec +++| SB6 B6-B5 04540 M01S03883.dmrec +++| SB2 B2-B5 04541 M01S03884.dmrec +++| NG B7,DCR3 IF ENTIRE KEY TRANSFERED 04542 M01S03885.dmrec +++| SA6 A6+B1 04543 M01S03886.dmrec +++| SA4 A4+B1 04544 M01S03887.dmrec +++| EQ DCR2 CONTINUE TRANSFERING WORDS TO LWA OF KEY 04545 M01S03888.dmrec +++| 04546 M01S03889.dmrec +++|* SET UP REGISTERS FOR EXPANSION. 04547 M01S03890.dmrec +++| 04548 M01S03891.dmrec +++| 04549 M01S03892.dmrec +++| DCR3 SB4 -B7 04550 M01S03893.dmrec +++| SB6 B6+B4 04551 M01S03894.dmrec +++| SB2 B2+B4 04552 M01S03895.dmrec +++| SX6 B0 04553 M01S03896.dmrec +++| SX1 B7+B7 04554 M01S03897.dmrec +++| SX1 X1+B7 04555 M01S03898.dmrec +++| LX1 1 04556 M01S03899.dmrec +++| SB3 X1+60 04557 M01S03900.dmrec +++| ZR B3,DCR4 IF TRANSFERED ENTIRE WORD 04558 M01S03901.dmrec +++| LX4 X4,B3 04559 M01S03902.dmrec +++| SB7 B3-B1 04560 M01S03903.dmrec +++| MX0 1 04561 M01S03904.dmrec +++| AX0 X0,B7 04562 M01S03905.dmrec +++| LX0 X0,B3 04563 M01S03906.dmrec +++| BX6 X0*X4 REMAINING CHARACTERS TO BE TRANSFERED 04564 M01S03907.dmrec +++| DCR4 SB3 B4 NUMBER OF CHARACTERS NOT YET TRANSFERED 04565 M01S03908.dmrec +++| MX0 -6 04566 M01S03909.dmrec +++| 04567 M01S03910.dmrec +++| DCR5 ZR B2,DCR9 IF DONE EXPANSION 04568 M01S03911.dmrec +++| ZAPPP GET NEXT CHARACTER 04569 M01S03912.dmrec +++| SX1 X5-1R< KEY CHARACTER (72B) 04570 M01S03913.dmrec +++| ZR X1,DCR6 IF KEY CHARACTER (72B) ENCOUNTERED 04571 M01S03914.dmrec +++| ZIPPP X5,DCR10 04572 M01S03915.dmrec +++| EQ DCR5 CONTINUE NEXT CHARACTER 04573 M01S03916.dmrec +++| 04574 M01S03917.dmrec +++| DCR6 ZR B2,DCR10 IF DESTINATION AREA TOO SMALL 04575 M01S03918.dmrec +++| ZAPPP GET NEXT CHARACTER 04576 M01S03919.dmrec +++| SX1 60B 04577 M01S03920.dmrec +++| BX7 X1*X5 04578 M01S03921.dmrec +++| IX5 X5-X7 04579 M01S03922.dmrec +++| IX1 X1-X7 04580 M01S03923.dmrec +++| ZR X1,DCR7 IF TO EXPAND *>* 04581 M01S03924.dmrec +++| SX5 X5+2 04582 M01S03925.dmrec +++| DCR7 SB7 X5+B1 04583 M01S03926.dmrec +++| AX7 4 04584 M01S03927.dmrec +++| SA5 X7+DCRA 04585 M01S03928.dmrec +++| DCR8 ZIPPP X5,DCR10 ADD NEXT CHARACTER 04586 M01S03929.dmrec +++| SB7 B7-B1 04587 M01S03930.dmrec +++| NZ B7,DCR8 IF NOT DONE WITH CURRENT CHARACTER 04588 M01S03931.dmrec +++| EQ DCR5 CONTINUE EXPAND 04589 M01S03932.dmrec +++| 04590 M01S03933.dmrec +++| DCR9 SX1 B4+B4 SET UP EXIT CONDITIONS 04591 M01S03934.dmrec +++| SX1 X1+B4 04592 M01S03935.dmrec +++| LX1 1 04593 M01S03936.dmrec +++| SB4 X1 04594 M01S03937.dmrec +++| LX6 X6,B4 04595 M01S03938.dmrec +++| SB5 B4-B1 04596 M01S03939.dmrec +++| MX0 1 04597 M01S03940.dmrec +++| AX0 B5,X0 04598 M01S03941.dmrec +++| LX0 B4,X0 04599 M01S03942.dmrec +++| SA1 A6+B1 04600 M01S03943.dmrec +++| BX1 X0*X1 04601 M01S03944.dmrec +++| BX6 X6+X1 04602 M01S03945.dmrec +++| SA6 A1 04603 M01S03946.dmrec +++| SA1 DCRB 04604 M01S03947.dmrec +++| SA2 X1 04605 M01S03948.dmrec +++| SX3 B6 NUMBER OF CHARACTERS TRANSFERED 04606 M01S03949.dmrec +++| IX6 X2-X3 04607 M01S03950.dmrec +++| SA6 A2 04608 M01S03951.dmrec +++| EQ DCRX RETURN 04609 M01S03952.dmrec +++| 04610 M01S03953.dmrec +++| DCR10 MX6 1 RETURN ERROR STATUS 04611 M01S03954.dmrec +++| SA1 DCRB 04612 M01S03955.dmrec +++| SA6 X1 04613 M01S03956.dmrec +++| EQ DCRX RETURN 04614 M01S03957.dmrec +++| 04615 M01S03958.dmrec +++| DCRA DATA 0 04616 M01S03959.dmrec +++| DATA 1R0 04617 M01S03960.dmrec +++| DATA 1R 04618 M01S03961.dmrec +++| DATA 1R< 04619 M01S03962.dmrec +++| 04620 M01S03963.dmrec +++| DCRB BSSZ 1 EIGHTH PARAMETER ADDRESS 04621 M01S03964.dmrec +++| DDF SPACE 4,25 04622 M01S03965.dmrec +++|** DDF - DUMP DATA FILE. 04623 M01S03966.dmrec +++|* 04624 M01S03967.dmrec +++|* *DDF* DUMPS A FILE TO THE TAPES INDICATED 04625 M01S03968.dmrec +++|* IN TABLE TVSN. 04626 M01S03969.dmrec +++|* 04627 M01S03970.dmrec +++|* ENTRY DATA/INDEX OR LOG FILE ATTACHED. 04628 M01S03971.dmrec +++|* (IDFN) = INDEX TO TDFN. 04629 M01S03972.dmrec +++|* (IVSN) = INDEX TO TVSN. 04630 M01S03973.dmrec +++|* (X2) = PFN 04631 M01S03974.dmrec +++|* (XXIXN) = INDEX FILE NAME. 04632 M01S03975.dmrec +++|* = 0 IF NONE. 04633 M01S03976.dmrec +++|* (X4) = (XXMODE) 04634 M01S03977.dmrec +++|* 04635 M01S03978.dmrec +++|* EXIT DUMP FILE RECORDS CREATED IN TDFN. 04636 M01S03979.dmrec +++|* VSN RECORDS CREATED IN TVSN. 04637 M01S03980.dmrec +++|* (X1) = 0 IF NO ERRORS. 04638 M01S03981.dmrec +++|* 04639 M01S03982.dmrec +++|* USES X - 2, 3, 4, 6, 7. 04640 M01S03983.dmrec +++|* A - 2, 3, 4, 6, 7. 04641 M01S03984.dmrec +++|* B - 3. 04642 M01S03985.dmrec +++|* 04643 M01S03986.dmrec +++|* CALLS DBF, DRF, WFH. 04644 M01S03987.dmrec +++|* 04645 M01S03988.dmrec +++|* MACROS ERROR. 04646 M01S03989.dmrec +++| 04647 M01S03990.dmrec +++| 04648 M01S03991.dmrec +++| DDF SUBR ENTRY/EXIT 04649 M01S03992.dmrec +++| RJ WFH WRITE FILE HEADER 04650 M01S03993.dmrec +++| NZ X1,DDFX IF ERROR 04651 M01S03994.dmrec +++| SX4 DF 04652 M01S03995.dmrec +++| SA3 XXMODE GET MODE 04653 M01S03996.dmrec +++| ZR X3,DDF1 IF BLOCK DUMP 04654 M01S03997.dmrec +++| RJ DRF DUMP RECORD FORMAT 04655 M01S03998.dmrec +++| EQ DDF2 CHECK FOR ERROR 04656 M01S03999.dmrec +++| 04657 M01S04000.dmrec +++| DDF1 RJ DBF DUMP BLOCK FORMAT 04658 M01S04001.dmrec +++| DDF2 NZ X1,DDFX IF ERROR 04659 M01S04002.dmrec +++| SA2 IDFN 04660 M01S04003.dmrec +++| SB3 X2 04661 M01S04004.dmrec +++| SA2 TDFN+B3 04662 M01S04005.dmrec +++| SA4 FORD 04663 M01S04006.dmrec +++| BX6 X2+X4 04664 M01S04007.dmrec +++| SA6 A2 04665 M01S04008.dmrec +++| SX6 X4+1 04666 M01S04009.dmrec +++| SA2 NFLS 04667 M01S04010.dmrec +++| SA6 A4 04668 M01S04011.dmrec +++| SX6 X2+B1 04669 M01S04012.dmrec +++| SA6 A2 04670 M01S04013.dmrec +++| SA2 XXIXN 04671 M01S04014.dmrec +++| ZR X2,DDFX IF NO INDEX FILE 04672 M01S04015.dmrec +++| BX6 X2 04673 M01S04016.dmrec +++| SA6 XXPFN SET FN FOR INDEX FILE TRAILER 04674 M01S04017.dmrec +++| SA4 XXMODE SET MODE 04675 M01S04018.dmrec +++| RJ WFH WRITE FILE HEADER 04676 M01S04019.dmrec +++| NZ X1,DDFX IF ERROR 04677 M01S04020.dmrec +++| SA2 XXMODE 04678 M01S04021.dmrec +++| SX4 IF SET INDEX FILE FET ADDRESS 04679 M01S04022.dmrec +++| ZR X2,DDF3 IF BLOCK DUMP 04680 M01S04023.dmrec +++| RJ DRF DUMP RECORD FORMAT 04681 M01S04024.dmrec +++| EQ DDF4 CHECK FOR ERROR 04682 M01S04025.dmrec +++| 04683 M01S04026.dmrec +++| DDF3 RJ DBF DUMP BLOCK FORMAT 04684 M01S04027.dmrec +++| DDF4 NZ X1,DDFX IF ERROR 04685 M01S04028.dmrec +++| SA2 IDFN 04686 M01S04029.dmrec +++| SB3 X2+1 04687 M01S04030.dmrec +++| SA2 TDFN+B3 04688 M01S04031.dmrec +++| SA4 FORD 04689 M01S04032.dmrec +++| BX6 X2+X4 04690 M01S04033.dmrec +++| SA6 A2 04691 M01S04034.dmrec +++| SX6 X4+1 04692 M01S04035.dmrec +++| SA2 NFLS 04693 M01S04036.dmrec +++| SA6 A4 INCREMENT FILE ORDINAL 04694 M01S04037.dmrec +++| SX7 X2+1 04695 M01S04038.dmrec +++| SA7 A2 INCREMENT NUMBER OF EOF COUNT 04696 M01S04039.dmrec +++| EQ DDFX RETURN 04697 M01S04040.dmrec +++| DEL SPACE 4,25 04698 M01S04041.dmrec +++|** DEL - DELETE ENTRIES IN BACKUP DIRECTORY. 04699 M01S04042.dmrec +++|* 04700 M01S04043.dmrec +++|* *DEL* DELETES A GIVEN VSN ENTRY AND ALL DUMP ENTRIES 04701 M01S04044.dmrec +++|* REFERENCING THAT VSN, OR DELETES ALL DUMP ENTRIES AND 04702 M01S04045.dmrec +++|* CORRESPONDING VSN ENTRIES BEFORE A GIVEN DATE/TIME. 04703 M01S04046.dmrec +++|* 04704 M01S04047.dmrec +++|* ENTRY (TVSN) = VSN NUMBER, IF VSN TYPE DELETE. 04705 M01S04048.dmrec +++|* (DATE) = YY/MM/DD. 04706 M01S04049.dmrec +++|* (TIME) = HH.MM.SS. 04707 M01S04050.dmrec +++|* (LFNC) = 0, IF ALL FILES. 04708 M01S04051.dmrec +++|* 1, IF SELECTIVE FILES. 04709 M01S04052.dmrec +++|* 04710 M01S04053.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 04711 M01S04054.dmrec +++|* 04712 M01S04055.dmrec +++|* USES X - 0, 1, 6. 04713 M01S04056.dmrec +++|* A - 1, 6. 04714 M01S04057.dmrec +++|* B - NONE. 04715 M01S04058.dmrec +++|* 04716 M01S04059.dmrec +++|* CALLS EDI, FER, MDI, MDS, SDT. 04717 M01S04060.dmrec +++|* 04718 M01S04061.dmrec +++|* MACROS ERROR, GETN, REWINDM. 04719 M01S04062.dmrec +++| 04720 M01S04063.dmrec +++| 04721 M01S04064.dmrec +++| DEL SUBR ENTRY/EXIT 04722 M01S04065.dmrec +++| RJ SDT SET DATE AND TIME 04723 M01S04066.dmrec +++| SA1 LSTC DATE/TIME FLAG 04724 M01S04067.dmrec +++| ZR X1,DEL1 IF NO DATE/TIME GIVEN 04725 M01S04068.dmrec +++| SA1 TVSN VSN PARAMETER 04726 M01S04069.dmrec +++| NZ X1,DEL3 IF VSN ALSO GIVEN 04727 M01S04070.dmrec +++| SX6 B1 04728 M01S04071.dmrec +++| SA6 DELF DELETE FLAG - DATE/TIME DELETE 04729 M01S04072.dmrec +++| REWINDM DIRR 04730 M01S04073.dmrec +++| GETN DIRR,WSAB,,TKY1 DIRECTORY HEADER 04731 M01S04074.dmrec +++| GETN DIRR,WSAB,,TKY1 FIRST FILE HEADER 04732 M01S04075.dmrec +++| RJ FER FIT ERROR STATUS 04733 M01S04076.dmrec +++| NZ X1,DELX IF CRM ERROR 04734 M01S04077.dmrec +++| SA1 TKY1 04735 M01S04078.dmrec +++| MX0 42 04736 M01S04079.dmrec +++| BX6 X0*X1 04737 M01S04080.dmrec +++| SA6 A1 PRESET FIRST FILE NAME 04738 M01S04081.dmrec +++| RJ EDI EDIT DIRECTORY 04739 M01S04082.dmrec +++| EQ DELX RETURN 04740 M01S04083.dmrec +++| 04741 M01S04084.dmrec +++| DEL1 SA1 TVSN 04742 M01S04085.dmrec +++| ZR X1,DEL4 IF NO VSN AND NO DATE/TIME 04743 M01S04086.dmrec +++| MX6 0 04744 M01S04087.dmrec +++| SA6 ADDF SET FLAG TO DELETE 04745 M01S04088.dmrec +++| SA1 LFNC 04746 M01S04089.dmrec +++| NZ X1,DEL2 IF SELECTIVE FILES 04747 M01S04090.dmrec +++| RJ MDI MODIFY DIRECTORY 04748 M01S04091.dmrec +++| EQ DELX RETURN 04749 M01S04092.dmrec +++| DEL2 RJ MDS MODIFY SELECTIVE FILES IN DIRECTORY 04750 M01S04093.dmrec +++| EQ DELX RETURN 04751 M01S04094.dmrec +++| 04752 M01S04095.dmrec +++| DEL3 ERROR DMRA,,,DELX,,E BOTH VSN AND DATE/TIME SPECIFIED 04753 M01S04096.dmrec +++| 04754 M01S04097.dmrec +++| DEL4 ERROR DELB,,,DELX,,E VSN OR DATE/TIME NOT SPECIFIED 04755 M01S04098.dmrec +++| 04756 M01S04099.dmrec +++| DELB DATA 20H0 ***** 04757 M01S04100.dmrec +++| DATA C*VSN OR DATE/TIME NOT SPECIFIED.* 04758 M01S04101.dmrec +++| DELBL EQU *-DELB 04759 M01S04102.dmrec +++| DER SPACE 4,20 04760 M01S04103.dmrec +++|** DER - DETECT END-OF-REEL. 04761 M01S04104.dmrec +++|* 04762 M01S04105.dmrec +++|* DETECT END-OF-REEL. IF END-OF-REEL IS REACHED, CLOSE 04763 M01S04106.dmrec +++|* TAPE FILE AND REQUEST NEXT CANDIDATE FROM *TVSN*. 04764 M01S04107.dmrec +++|* ON WRITES, AN END-OF-TAPE BIT IS SET IN THE FET. ON 04765 M01S04108.dmrec +++|* READS, AN EOI STATUS IS CONSIDERED TO BE AN END-OF-TAPE. 04766 M01S04109.dmrec +++|* 04767 M01S04110.dmrec +++|* ENTRY (TP+0) = CONTAINS ERROR CODE. 04768 M01S04111.dmrec +++|* 04769 M01S04112.dmrec +++|* EXIT (X1) = 0, IF NO ERROR. 04770 M01S04113.dmrec +++|* POSITIVE, IF ERROR. 04771 M01S04114.dmrec +++|* NEGATIVE, IF END OF TAPE. 04772 M01S04115.dmrec +++|* 04773 M01S04116.dmrec +++|* USES X - 1, 2, 3, 4, 5, 6. 04774 M01S04117.dmrec +++|* A - 1, 2, 3, 4, 5, 6. 04775 M01S04118.dmrec +++|* B - 7. 04776 M01S04119.dmrec +++|* 04777 M01S04120.dmrec +++|* CALLS RTF. 04778 M01S04121.dmrec +++|* 04779 M01S04122.dmrec +++|* MACROS CLOSE. 04780 M01S04123.dmrec +++| 04781 M01S04124.dmrec +++| 04782 M01S04125.dmrec +++| DER SUBR ENTRY/EXIT 04783 M01S04126.dmrec +++| MX3 -4 04784 M01S04127.dmrec +++| SA1 TP 04785 M01S04128.dmrec +++| LX1 59-9 04786 M01S04129.dmrec +++| NG X1,DER1 IF EOI - END OF TAPE ASSUMED 04787 M01S04130.dmrec +++| BX1 -X3*X1 04788 M01S04131.dmrec +++| ZR X1,DERX IF NO ERROR 04789 M01S04132.dmrec +++| SX1 X1-1 04790 M01S04133.dmrec +++| NZ X1,DER2 IF ERROR OTHER THAN END OF TAPE 04791 M01S04134.dmrec +++| 04792 M01S04135.dmrec +++|* END OF REEL. 04793 M01S04136.dmrec +++| 04794 M01S04137.dmrec +++| DER1 CLOSE TP,UNLOAD,R 04795 M01S04138.dmrec +++| SA1 TP 04796 M01S04139.dmrec +++| MX2 42 04797 M01S04140.dmrec +++| BX1 X2*X1 04798 M01S04141.dmrec +++| SX3 B1 04799 M01S04142.dmrec +++| BX6 X3+X1
| Line S04143 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04800 M02S04143.dmrec7 ---| SA6 A1 CLEAR EOI STATUS 04801 M01S04144.dmrec +++| SA2 IVSN 04802 M01S04145.dmrec +++| SX2 X2-1 GET PREVEOUS TAPE ENTRY 04803 M01S00126.dmrec7 +++| SA6 A1 CLEAR EOI STATUS 04804 M01S04146.dmrec +++| SA3 X2 04805 M01S04147.dmrec +++| SA4 NFLS 04806 M01S04148.dmrec +++| BX6 X3+X4 04807 M01S04149.dmrec +++| SA6 A3 04808 M01S04150.dmrec +++| SX6 B0 04809 M01S04151.dmrec +++| SA6 A4 04810 M01S04152.dmrec +++| SB7 TP 04811 M01S04153.dmrec +++| SA5 TPMODE GET MODE INDICATOR 04812 M01S04154.dmrec +++| RJ RTF REQUEST NEXT TAPE 04813 M01S04155.dmrec +++| ZR X1,DER1.1 IF NO ERROR 04814 M01S04156.dmrec +++| SX1 2 04815 M01S04157.dmrec +++| EQ DERX RETURN ERROR 04816 M01S04158.dmrec +++| 04817 M01S04159.dmrec +++| DER1.1 MX1 1 SET END OF TAPE 04818 M01S00127.dmrec7 +++| SA3 PEOR 04819 M01S00128.dmrec7 +++| MX0 36 04820 M01S00129.dmrec7 +++| SA4 IVSN 04821 M01S00130.dmrec7 +++| SA5 X4-2 VSN OF PREVIOUS TAPE 04822 M01S00131.dmrec7 +++| BX6 X0*X5 04823 M01S00132.dmrec7 +++| SA4 EORCNT COUNT OF EOR-S ON *ARF* 04824 M01S00133.dmrec7 +++| BX7 X6+X4 COMBINE VSN WITH EOR COUNT 04825 M01S00134.dmrec7 +++| SA7 X3 ENTER INTO *TEOR* TABLE 04826 M01S00135.dmrec7 +++| SX6 X3+B1 04827 M01S00136.dmrec7 +++| SA6 A3 INCREMENT *PEOR* 04828 M01S00137.dmrec7 +++| MX7 0 04829 M01S00138.dmrec7 +++| SA7 A4 ZERO OUT EORCNT 04830 M01S04160.dmrec +++| SA2 DMTAPE
| Line S04161 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04831 M02S04161.dmrec7 ---| SX6 X2+1 04832 M01S00139.dmrec7 +++| SX6 X2+B1 04833 M01S04162.dmrec +++| SA6 DMTAPE INCREMENT TAPE COUNT 04834 M01S04163.dmrec +++| EQ DERX RETURN 04835 M01S04164.dmrec +++| 04836 M01S04165.dmrec +++| DER2 ERROR DERA,,,DERX,,E READ/WRITE ERROR ON TAPE 04837 M01S04166.dmrec +++| 04838 M01S04167.dmrec +++| DERA DATA 20H0 ***** 04839 M01S04168.dmrec +++| DATA C*READ/WRITE ERROR ON TAPE.* 04840 M01S04169.dmrec +++| DERAL EQU *-DERA 04841 M01S04170.dmrec +++| DMP SPACE 4,25 04842 M01S04171.dmrec +++|** DMP - DUMP DATA BASE FILES. 04843 M01S04172.dmrec +++|* 04844 M01S04173.dmrec +++|* *DMP* DUMPS DATA BASE FILES SPECIFIED TO TAPE. THE 04845 M01S04174.dmrec +++|* FORMAT OF THE DUMP CAN BE EXPLICITLY SPECIFIED OR 04846 M01S04175.dmrec +++|* IMPLIED BY THE MODE BY WHICH IT CAN BE ATTACHED. 04847 M01S04176.dmrec +++|* 04848 M01S04177.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 04849 M01S04178.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 04850 M01S04179.dmrec +++|* (X6) = OPERATION FLAG (VALIDATES PARAMETERS). 04851 M01S04180.dmrec +++|* (B7) = LWA+1 OF STRING BUFFER. 04852 M01S04181.dmrec +++|* 04853 M01S04182.dmrec +++|* EXIT ALL INDICATED DATA FILES HAVE BEEN DUMPED IN 04854 M01S04183.dmrec +++|* THE PROPER FORMAT TO THE SPECIFIED VSN-S. 04855 M01S04184.dmrec +++|* 04856 M01S04185.dmrec +++|* USES X - ALL. 04857 M01S04186.dmrec +++|* A - 1, 2, 3 ,4, 6, 7. 04858 M01S04187.dmrec +++|* B - 3, 5, 7. 04859 M01S04188.dmrec +++|* 04860 M01S04189.dmrec +++|* CALLS ACF, ADF, BBE, BLT, CER, DBF, DDF, GXJ, RAF, RDF, 04861 M01S04190.dmrec +++|* RTE, RTF, RXJ, SPR, WFH. 04862 M01S04191.dmrec +++|* 04863 M01S04192.dmrec +++|* MACROS ATTACH, CLOSEM, ERROR, OPENM, READ, READW, 04864 M01S04193.dmrec +++|* RETURN, REWIND. 04865 M01S04194.dmrec +++| 04866 M01S04195.dmrec +++| 04867 M01S04196.dmrec +++| DMP BSS 0 04868 M01S04197.dmrec +++| RJ SPR STORE PARAMETERS 04869 M01S04198.dmrec +++| DMP1 SX6 B5 04870 M01S04199.dmrec +++| SA6 NUMF 04871 M01S04200.dmrec +++| DMP1.1 SX6 TVSN 04872 M01S04201.dmrec +++| SA6 IVSN 04873 M01S04202.dmrec +++| SX6 B0 04874 M01S04203.dmrec +++| SA6 IDFN 04875 M01S04204.dmrec +++| SA6 NFLS 04876 M01S04205.dmrec +++| SA6 FORD 04877 M01S04206.dmrec +++| SA6 FIRSTT 04878 M01S04207.dmrec +++| SA6 LASTT 04879 M01S00140.dmrec7 +++| SA6 EORCNT 04880 M01S04208.dmrec +++| SA6 TRIP1 04881 M01S04209.dmrec +++| SA6 NUMV INITIALIZE COUNT OF VSN-S USED 04882 M01S04210.dmrec +++| SA2 TDFN 04883 M01S04211.dmrec +++| MX0 12 GET DATA BASE NAME 04884 M01S04212.dmrec +++| BX5 X0*X2 04885 M01S04213.dmrec +++| ZR X5,DMP12 IF NO FILES TO DUMP 04886 M01S04214.dmrec +++| SA1 DMPA 04887 M01S04215.dmrec +++| SA3 TDFN 04888 M01S04216.dmrec +++| LX3 30 04889 M01S04217.dmrec +++| MX0 -30 04890 M01S04218.dmrec +++| BX6 -X0*X3 04891 M01S04219.dmrec +++| SA3 DMPB 04892 M01S04220.dmrec +++| BX6 X3*X6 04893 M01S04221.dmrec +++| BX7 X6-X1 04894 M01S04222.dmrec +++| SA7 DMPFLG 04895 M01S04223.dmrec +++| SB7 TP 04896 M01S04224.dmrec +++| BX6 X5 04897 M01S04225.dmrec +++| SA6 XXPFN SET DATA BASE FOR RTF CALL TO ACF 04898 M01S04226.dmrec +++| MX5 1 WRITE MODE REQUEST 04899 M01S04227.dmrec +++| BX6 X5 04900 M01S04228.dmrec +++| SA6 TPMODE SAVE MODE 04901 M01S04229.dmrec +++| RJ RTF REQUEST TAPE FILE 04902 M01S04230.dmrec +++| NZ X1,DMP11 IF ERROR 04903 M01S04231.dmrec +++| SA2 DMPFLG 04904 M01S04232.dmrec +++| NZ X2,DMP2 IF DATA FILE 04905 M01S04233.dmrec +++|
| Line S04234 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04906 M02S04234.ns2023 ---|* DUMP LONG RECOVERY FILE. 04907 M01S00110.ns2023 +++|* DUMP AFTER IMAGE RECOVERY FILE. 04908 M01S04235.dmrec +++| 04909 M01S04236.dmrec +++| SA1 NUMF 04910 M01S04237.dmrec +++| SX6 X1-2 04911 M01S04238.dmrec +++| NZ X6,DMP13 IF MORE THAN ONE FILE SPECIFIED
| Line S04239 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 04912 M02S04239.dmrec2 ---| SX6 B1 *LRF* DUMP 04913 M01S00112.dmrec2 +++| SA4 EXCOPY 04914 M01S00113.dmrec2 +++| SX4 X4-1 04915 M01S00114.dmrec2 +++| NZ X4,DMP1.11 IF NOT FIRST COPY 04916 M01S00115.dmrec2 +++| SA2 IVSN 04917 M01S00116.dmrec2 +++| SA5 X2-1 04918 M01S00117.dmrec2 +++| BX7 X5 04919 M01S00118.dmrec2 +++| SA7 FSTVSN SAVE FIRST VSN
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04920 M02S00119.ns2023 ---| DMP1.11 SX6 B1 *LRF* DUMP 04921 M01S00111.ns2023 +++| DMP1.11 SX6 B1 *ARF* DUMP 04922 M01S04240.dmrec +++| SA6 TTFLG SET FLAG 04923 M01S04241.dmrec +++| MX0 42 04924 M01S04242.dmrec +++| SA4 TDFN 04925 M01S04243.dmrec +++| BX1 X0*X4 04926 M01S04244.dmrec +++| BX6 X1 04927 M01S00141.dmrec7 +++| SA6 XXPFN2 04928 M01S04245.dmrec +++| LX6 12 XXPFN MUST HAVE DB IN FIRST 2 CHARACTERS 04929 M01S04246.dmrec +++| SA6 XXPFN
| Line S04247 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04930 M02S04247.ns2023 ---| ATTACH LRF,X1,,,W LOG FILE IS UNDER USERS USER NUMBER
| Line S04248 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04931 M02S04248.ns2023 ---| SX2 LRF SET FET ADDRESS
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04932 M02S00112.v23l617 ---| ATTACH ARF,X1,,,W LOG FILE IS UNDER USERS USER NUMBER 04933 M01S00021.v23l617 +++| ATTACH ARF,X1,,,W LOG FILE IS UNDER USERS USER NAME 04934 M01S00113.ns2023 +++| SX2 ARF SET FET ADDRESS 04935 M01S04249.dmrec +++| RJ CER CHECK ERROR 04936 M01S04250.dmrec +++| NZ X1,DMP15 IF ATTACH ERROR
| Line S04251 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04937 M02S04251.ns2023 ---| SA2 XXPFN FN OF *LRF* 04938 M01S00114.ns2023 +++| SA2 XXPFN FN OF *ARF*
| Line S04252 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 04939 M02S04252.dmrec15 ---| SX4 B0 SET BLOCK MODE 04940 M01S00008.dmrec15 +++| SX4 PTWR SET WRITE MODE 04941 M01S04253.dmrec +++| RJ WFH WRITE FILE HEADER 04942 M01S04254.dmrec +++| NZ X1,DMP11 IF ERROR
| Line S04255 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04943 M02S04255.ns2023 ---| SX4 LRF SET FET ADDRESS
| Line S04256 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04944 M02S04256.ns2023 ---| RJ DBF DUMP BLOCK FORMAT - *LRF* 04945 M01S00115.ns2023 +++| SX4 ARF SET FET ADDRESS 04946 M01S00116.ns2023 +++| RJ DBF DUMP BLOCK FORMAT - *ARF* 04947 M01S04257.dmrec +++| NZ X1,DMP10.1 IF ERROR 04948 M01S00142.dmrec7 +++| SA3 PEOR 04949 M01S00143.dmrec7 +++| SA4 IVSN 04950 M01S00144.dmrec7 +++| SA5 X4-1 GET VSN OF PREVIOUS TAPE 04951 M01S00145.dmrec7 +++| MX0 36 04952 M01S00146.dmrec7 +++| BX6 X0*X5 04953 M01S00147.dmrec7 +++| SA4 EORCNT COUNT OF EOR-S ON ARF 04954 M01S00148.dmrec7 +++| BX7 X6+X4 COMBINE VSN WITH EOR COUNT 04955 M01S00149.dmrec7 +++| SA7 X3 ENTER INTO *TEOR* TABLE 04956 M01S00150.dmrec7 +++| SX6 X3+B1 04957 M01S00151.dmrec7 +++| SA6 A3 INCREMENT PEOR POINTER 04958 M01S00152.dmrec7 +++| MX7 0 04959 M01S00153.dmrec7 +++| SA7 A4 ZERO OUT EOR COUNT
| Line S04258 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04960 M02S04258.ns2023 ---| REWIND LRF,R
| Line S04259 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04961 M02S04259.ns2023 ---| SA2 XXPFN FN OF *LRF* 04962 M01S00117.ns2023 +++| REWIND ARF,R 04963 M01S00118.ns2023 +++| SA2 XXPFN FN OF *ARF* 04964 M01S04260.dmrec +++| SX4 B0 SET BLOCK MODE 04965 M01S04261.dmrec +++| RJ BLT BUILD LOG TABLE 04966 M01S04262.dmrec +++| NZ X1,DMP11 IF ERROR 04967 M01S04263.dmrec +++|
| Line S04264 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04968 M02S04264.ns2023 ---|* RESET *LRF* HEADER FIELDS. 04969 M01S00119.ns2023 +++|* RESET *ARF* HEADER FIELDS. 04970 M01S04265.dmrec +++|
| Line S04266 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04971 M02S04266.ns2023 ---| REWIND LRF,R
| Line S04267 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04972 M02S04267.ns2023 ---| READ LRF,R
| Line S04268 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04973 M02S04268.ns2023 ---| READW LRF,WBUF,WBUFL READ *LRF* HEADER
| Line S04269 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04974 M02S04269.ns2023 ---| SA2 WBUF GET *LRF* STATUS 04975 M01S00120.ns2023 +++| REWIND ARF,R 04976 M01S00121.ns2023 +++| READ ARF,R 04977 M01S00122.ns2023 +++| READW ARF,WBUF,WBUFL READ *ARF* HEADER 04978 M01S00123.ns2023 +++| SA2 WBUF GET *ARF* STATUS 04979 M01S04270.dmrec +++| MX0 -18 04980 M01S04271.dmrec +++| BX3 -X0*X2 04981 M01S04272.dmrec +++| SX3 X3-3 CHECK FOR POSSIBLE ERROR
| Line S04273 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 04982 M02S04273.dmrec1 ---| ZR X3,DMP14 IF POSSIBLE *LRF* ERROR
| Line S04274 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 04983 M02S04274.dmrec1 ---| RETURN LRF,R 04984 M01S00001.dmrec1 +++| NZ X3,DMP1.2 IF NO *ARF* HEADER ERROR 04985 M01S00002.dmrec1 +++| SX6 B1+ SET ERROR FLAG 04986 M01S00003.dmrec1 +++| SA6 DMPF
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dmrec1 |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04987 M02S00004.ns2023 ---| DMP1.2 RETURN LRF,R 04988 M01S00124.ns2023 +++| DMP1.2 RETURN ARF,R 04989 M01S04275.dmrec +++| SA1 EXCOPY GET COPY NUMBER 04990 M01S04276.dmrec +++| SX2 X1-NUMARF
| Line S04277 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04991 M02S04277.ns2023 ---| NZ X2,DMP10 IF NOT LAST *LRF* TO DUMP
| Line S04278 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04992 M02S04278.ns2023 ---| SA1 WBUF+TAFLW-TAFNW GET LENGTH FROM OLD *LRF* 04993 M01S00125.ns2023 +++| NZ X2,DMP10 IF NOT LAST *ARF* TO DUMP 04994 M01S00126.ns2023 +++| SA1 WBUF+TAFLW-TAFNW GET LENGTH FROM OLD *ARF* 04995 M01S04279.dmrec +++| MX0 -TAFLN 04996 M01S04280.dmrec +++| LX1 TAFLN-1-TAFLS 04997 M01S04281.dmrec +++| BX6 -X0*X1
| Line S04282 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04998 M02S04282.ns2023 ---| EQ CRT2 ALLOCATE *LRF* (RETURN TO DMP10) 04999 M01S00127.ns2023 +++| EQ CRT2 ALLOCATE *ARF* (RETURN TO DMP10) 05000 M01S04283.dmrec +++| 05001 M01S04284.dmrec +++|* DUMP DATA BASE FILE. 05002 M01S04285.dmrec +++| 05003 M01S04286.dmrec +++| DMP2 SA1 TDFN 05004 M01S04287.dmrec +++| MX0 12 05005 M01S04288.dmrec +++| BX5 X0*X1 05006 M01S04289.dmrec +++| RJ GXJ GET *XXJ* FILE 05007 M01S04290.dmrec +++| NZ X1,DMP11 IF ERROR 05008 M01S04291.dmrec +++| DMP3 SA2 IDFN 05009 M01S04292.dmrec +++| SB3 X2 05010 M01S04293.dmrec +++| MX0 42 05011 M01S04294.dmrec +++| SA3 TDFN+B3 05012 M01S04295.dmrec +++| ZR X3,DMP9 IF NO MORE FILES 05013 M01S04296.dmrec +++| BX5 X0*X3 GET FILE NAME 05014 M01S04297.dmrec +++| LX3 48 05015 M01S04298.dmrec +++| MX0 -6 05016 M01S04299.dmrec +++| BX7 -X0*X3
| Line S04300 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05017 M02S04300.dmrec15 ---| SX6 B1+B1 05018 M01S00009.dmrec15 +++| SX6 -1 05019 M01S04301.dmrec +++| ZR X7,DMP6 IF NULL
| Line S04302 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05020 M02S04302.dmrec15 ---| SX6 B1 05021 M01S00010.dmrec15 +++| SX6 PTRM READ MODIFY MODE 05022 M01S04303.dmrec +++| SX3 X7-1RB 05023 M01S04304.dmrec +++| NZ X3,DMP6 IF NOT BLOCK
| Line S04305 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05024 M02S04305.dmrec15 ---| SX6 B0+ 05025 M01S00011.dmrec15 +++| SX6 PTWR WRITE MODE 05026 M01S04306.dmrec +++| DMP6 SA6 XXMODE 05027 M01S04307.dmrec +++| RJ RXJ READ *XXJ* FILE 05028 M01S04308.dmrec +++| ZR X1,DMP7 IF FILE FOUND 05029 M01S04309.dmrec +++| PL X1,DMP11 IF FILE NOT FOUND 05030 M01S04310.dmrec +++| ZR X2,DMP11 IF NO ADDITIONIAL FILE 05031 M01S04311.dmrec +++| DMP7 RJ ADF ATTACH DATA FILE 05032 M01S04312.dmrec +++| NZ X1,DMP11 IF ERROR 05033 M01S04313.dmrec +++| SA3 IDFN 05034 M01S04314.dmrec +++| SB3 X3 05035 M01S04315.dmrec +++| SA3 TDFN+B3 05036 M01S04316.dmrec +++| SA4 XXMODE 05037 M01S04317.dmrec +++| LX4 12 05038 M01S04318.dmrec +++| MX0 54 05039 M01S04319.dmrec +++| LX0 12 05040 M01S04320.dmrec +++| BX6 X0*X3 05041 M01S04321.dmrec +++| BX6 X6+X4 05042 M01S04322.dmrec +++| SA6 A3 RESET MODE 05043 M01S04323.dmrec +++| SA2 XXIXN GET INDEX FILE NAME IF ANY 05044 M01S04324.dmrec +++| ZR X2,DMP8 IF NO INDEX FILE 05045 M01S04325.dmrec +++| BX6 X0*X2 05046 M01S04326.dmrec +++| BX6 X6+X4 05047 M01S04327.dmrec +++| SA6 A3+B1 SAVE INDEX FILE NAME AND MODE 05048 M01S04328.dmrec +++| DMP8 SA2 XXPFN 05049 M01S04329.dmrec +++| LX4 48 POSITION MODE 05050 M01S04330.dmrec +++| RJ DDF DUMP DATA FILE 05051 M01S04331.dmrec +++| NZ X1,DMP10.1 IF ERROR 05052 M01S04332.dmrec +++| RJ RDF RETURN DATA FILES 05053 M01S04333.dmrec +++| SA2 IDFN 05054 M01S04334.dmrec +++| SX6 X2+2 05055 M01S04335.dmrec +++| SA6 A2 GET NEXT PFN 05056 M01S04336.dmrec +++| EQ DMP3 CONTINUE FOR NEXT FILE 05057 M01S04337.dmrec +++| 05058 M01S04338.dmrec +++| DMP9 SA2 IVSN 05059 M01S04339.dmrec +++| SA3 X2-1 05060 M01S04340.dmrec +++| SA4 NFLS 05061 M01S04341.dmrec +++| BX6 X4+X3 05062 M01S04342.dmrec +++| SA6 A3 STORE NUMBER OF FILES ( LAST ) 05063 M01S04343.dmrec +++| DMP10 RJ ACF ATTACH ZZDBDIR FILE 05064 M01S04344.dmrec +++| RJ BBE BUILD BACK-UP ENTRIES 05065 M01S04345.dmrec +++| NZ X1,DMP11 IF ERRORS 05066 M01S04346.dmrec +++| CLOSEM DIRR,U 05067 M01S04347.dmrec +++| SX4 B0 SET BLOCK MODE 05068 M01S04348.dmrec +++| SA2 ACFA SET FILE NAME 05069 M01S04349.dmrec +++| RJ WFH WRITE FILE HEADER 05070 M01S04350.dmrec +++| NZ X1,DMP11 IF ERROR 05071 M01S04351.dmrec +++| RJ ACF ATTACH DIRECTORY 05072 M01S04352.dmrec +++| SA2 ACFA REPLACE DIRECTORY PFN FOR TRAILER 05073 M01S04353.dmrec +++| BX6 X2 05074 M01S04354.dmrec +++| SA6 XXPFN 05075 M01S04355.dmrec +++| SX4 ZZDBDIR SET FET ADDRESS 05076 M01S04356.dmrec +++| RJ DBF DUMP BLOCK FORMAT - DIRECTORY FILE 05077 M01S04357.dmrec +++| NZ X1,DMP11 IF ERROR 05078 M01S04358.dmrec +++| RJ RAF RETURN ALL FILES 05079 M01S04359.dmrec +++| SA2 DMPFLG
| Line S04360 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 05080 M02S04360.ns2023 ---| NZ X2,DMR3 IF NOT *LRF* DUMP 05081 M01S00128.ns2023 +++| NZ X2,DMR3 IF NOT *ARF* DUMP 05082 M01S04361.dmrec +++| SA1 EXCOPY GET CURRENT COPY NUMBER 05083 M01S04362.dmrec +++| SX2 X1-NUMARF
| Line S04363 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 05084 M02S04363.dmrec1 ---| ZR X2,DMR3 IF ALL REQUIRED COPIES GENERATED 05085 M01S00005.dmrec1 +++| ZR X2,DMP10.2 IF ALL REQUIRED COPIES GENERATED 05086 M01S04364.dmrec +++| SX6 X1+B1 05087 M01S04365.dmrec +++| SA6 A1 INCREMENT COPY NUMBER 05088 M01S04366.dmrec +++| SB5 2 SET TDFN ORDINAL FOR RESTART - NUMF 05089 M01S04367.dmrec +++| SX7 B0 ZERO TVSN FOR NEXT TAPE 05090 M01S04368.dmrec +++| SA7 TVSN 05091 M01S04369.dmrec +++| SA7 DMTAPE RESET DUMP TAPE COUNT
| Line S04370 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 05092 M02S04370.ns2023 ---| SA7 LENGTH RESET FOR DEFAULT *LRF* LENGTH 05093 M01S00129.ns2023 +++| SA7 LENGTH RESET FOR DEFAULT *ARF* LENGTH 05094 M01S04371.dmrec +++| EQ DMP1 GO GENERATE NEXT COPY 05095 M01S04372.dmrec +++| 05096 M01S04373.dmrec +++| DMP10.1 SX1 X1-2 05097 M01S04374.dmrec +++| ZR X1,DMR3 IF *VSN TABLE OVERFLOW* ERROR 05098 M01S04375.dmrec +++| RJ RTE RETURN TAPE ERROR 05099 M01S04376.dmrec +++| EQ DMP1.1 START DUMP OVER 05100 M01S04377.dmrec +++| 05101 M01S00006.dmrec1 +++| DMP10.2 SA3 DMPF GET ERROR FLAG 05102 M01S00007.dmrec1 +++| NZ X3,DMP14 IF *ARF* HEADER ERROR 05103 M01S00008.dmrec1 +++| EQ DMR3 EXIT NORMAL 05104 M01S00009.dmrec1 +++| 05105 M01S04378.dmrec +++|* ALL ERROR EXITS TAKEN HERE. 05106 M01S04379.dmrec +++| 05107 M01S04380.dmrec +++| DMP11 RJ RAF RETURN ALL FILES 05108 M01S04381.dmrec +++| EQ DMR3 EXIT JOB 05109 M01S04382.dmrec +++| 05110 M01S04383.dmrec +++| DMP12 ERROR DMPC,,,DMP11,,E NO FILES TO DUMP 05111 M01S04384.dmrec +++| 05112 M01S04385.dmrec +++| DMP13 ERROR DMPD,,,DMP11,,E MORE THAN ON ARF 05113 M01S04386.dmrec +++| 05114 M01S04387.dmrec +++| DMP14 ERROR DMPE,,,DMR3,,E ARF HEADER STATUS 3 05115 M01S04388.dmrec +++| 05116 M01S04389.dmrec +++| DMP15 ERROR ADFB,XXPFN,,DMP11,,E ATTACH ERROR ON FILE 05117 M01S04390.dmrec +++| 05118 M01S04391.dmrec +++| DMPA VFD 30/0,12/2LZZ,12/0,6/1LA 05119 M01S04392.dmrec +++| DMPB VFD 30/0,12/7777B,12/0,6/77B 05120 M01S04393.dmrec +++| 05121 M01S04394.dmrec +++| DMPC DATA 20H0 ***** 05122 M01S04395.dmrec +++| DATA C*NO FILES TO DUMP* 05123 M01S04396.dmrec +++| DMPCL EQU *-DMPC 05124 M01S04397.dmrec +++| DMPD DATA 20H0 ***** 05125 M01S04398.dmrec +++| DATA C*MORE THAN ONE ARF SPECIFIED.* 05126 M01S04399.dmrec +++| DMPDL EQU *-DMPD 05127 M01S04400.dmrec +++| DMPE DATA 20H0 ***** 05128 M01S04401.dmrec +++| DATA C*ARF HEADER STATUS (3) POSSIBLE ERROR.* 05129 M01S04402.dmrec +++| DMPEL EQU *-DMPE 05130 M01S00010.dmrec1 +++| DMPF BSSZ 1 *ARF* HEADER ERROR FLAG 05131 M01S04403.dmrec +++| DRF SPACE 4,25 05132 M01S04404.dmrec +++| 05133 M01S04405.dmrec +++|** DRF - DUMP RECORD FORMAT. 05134 M01S04406.dmrec +++|* 05135 M01S04407.dmrec +++|* DUMP FILE IN RECORD FORMAT. ALL ACTIVE DATA BLOCKS 05136 M01S04408.dmrec +++|* WILL BE DUMPED. IF END-OF-TAPE IS REACHED, THE 05137 M01S04409.dmrec +++|* CURRENT TAPE IS RETURNED AND THE NEXT TAPE REQUESTED. 05138 M01S04410.dmrec +++|* 05139 M01S04411.dmrec +++|* ENTRY (X4) = FWA OF FET. 05140 M01S04412.dmrec +++|* (IVSN) = INDEX TO *TVSN*. 05141 M01S04413.dmrec +++|* (IDFN) = ADDRESS OF NEXT FILE. 05142 M01S04414.dmrec +++|* 05143 M01S04415.dmrec +++|* EXIT *FSTT* AND ACTIVE DATA BLOCKS DUMPED. 05144 M01S04416.dmrec +++|* (X1) = 0 - IF NO ERRORS. 05145 M01S04417.dmrec +++|* 05146 M01S04418.dmrec +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 05147 M01S04419.dmrec +++|* A - 1, 2, 3, 4, 6, 7. 05148 M01S04420.dmrec +++|* B - NONE. 05149 M01S04421.dmrec +++|* 05150 M01S04422.dmrec +++|* CALLS DER. 05151 M01S04423.dmrec +++|* 05152 M01S04424.dmrec +++|* MACROS ERROR, READ, READW, RECALL, REWIND, WRITEF, WRITER. 05153 M01S04425.dmrec +++|* WRITEF. 05154 M01S04426.dmrec +++| 05155 M01S04427.dmrec +++| 05156 M01S04428.dmrec +++| DRF SUBR ENTRY/EXIT 05157 M01S04429.dmrec +++| BX6 X4 05158 M01S04430.dmrec +++| SA6 HOLD SAVE FET ADDRESS 05159 M01S04431.dmrec +++| SA4 HOLD 05160 M01S04432.dmrec +++| READ X4,R 05161 M01S04433.dmrec +++| SA4 HOLD 05162 M01S04434.dmrec +++| READW X4,WBUF,WBUFL READ FSTT 05163 M01S04435.dmrec +++| ZR X1,DRF13 IF NO EOR 05164 M01S04436.dmrec +++| NG X1,DRF13 IF EOF/EOI 05165 M01S04437.dmrec +++| DRF1 WRITEW TP,WBUF,X1-WBUF 05166 M01S04438.dmrec +++| RJ DER DETECT END OF REEL 05167 M01S04439.dmrec +++| NG X1,DRF2 IF END OF TAPE 05168 M01S04440.dmrec +++| NZ X1,DRFX IF ERROR 05169 M01S04441.dmrec +++| DRF2 WRITER TP,R 05170 M01S04442.dmrec +++| RJ DER DETECT END OF REEL 05171 M01S04443.dmrec +++| NG X1,DRF2.1 IF END OF TAPE 05172 M01S04444.dmrec +++| NZ X1,DRFX IF ERROR 05173 M01S04445.dmrec +++| 05174 M01S04446.dmrec +++|* CHECK BUFFER AND BLOCK SIZE. 05175 M01S04447.dmrec +++|
| Line S04448 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05176 M02S04448.ns2056 ---| DRF2.1 SA2 WBUF+FSTT17 05177 M01S00035.ns2056 +++| DRF2.1 SA2 WBUF+FSTT22 05178 M01S04449.dmrec +++| MX0 42 05179 M01S04450.dmrec +++| BX2 -X0*X2 05180 M01S04451.dmrec +++| SX3 64 05181 M01S04452.dmrec +++| IX2 X2*X3 05182 M01S04453.dmrec +++| SX2 X2-2 05183 M01S04454.dmrec +++| SX2 X2-WBUFL 05184 M01S04455.dmrec +++| PL X2,DRF13 IF BUFFER TOO SMALL 05185 M01S04456.dmrec +++| SA1 XXPFN 05186 M01S04457.dmrec +++| SA3 XXIXN 05187 M01S04458.dmrec +++| BX1 X3-X1 05188 M01S04459.dmrec +++| ZR X1,DRF3 IF INDEX FILE TO BE DUMPED 05189 M01S04460.dmrec +++| SA3 XXTY GET FILE TYPE 05190 M01S04461.dmrec +++| SX1 X3-2RIS 05191 M01S04462.dmrec +++| NZ X1,DRF10 IF *DA* OR *AK* TYPE 05192 M01S04463.dmrec +++| DRF3 SA2 WBUF+73B 05193 M01S04464.dmrec +++| DRF4 MX0 36 05194 M01S04465.dmrec +++| BX7 -X0*X2 05195 M01S04466.dmrec +++| 05196 M01S04467.dmrec +++|* (X7) = PRU OF FIRST DATA BLOCK. 05197 M01S04468.dmrec +++| 05198 M01S04469.dmrec +++| SA4 HOLD 05199 M01S04470.dmrec +++| SX1 B1 05200 M01S04471.dmrec +++| LX1 47 05201 M01S04472.dmrec +++| SA2 X4+1 05202 M01S04473.dmrec +++| BX6 X1+X2 05203 M01S04474.dmrec +++| SA6 A2 05204 M01S04475.dmrec +++| SA7 A6+5 SET PRU 05205 M01S04476.dmrec +++| READ X4,R 05206 M01S04477.dmrec +++| SA4 HOLD 05207 M01S04478.dmrec +++| READW X4,WBUF,WBUFL 05208 M01S04479.dmrec +++| ZR X1,DRF13 IF ERROR - NO EOR 05209 M01S04480.dmrec +++| NG X1,DRF13 IF EOF/EOI - ERROR 05210 M01S04481.dmrec +++| DRF5 WRITEW TP,WBUF,X1-WBUF 05211 M01S04482.dmrec +++| RJ DER DETECT END OF REEL 05212 M01S04483.dmrec +++| NG X1,DRF6 IF END OF TAPE 05213 M01S04484.dmrec +++| NZ X1,DRFX IF ERROR 05214 M01S04485.dmrec +++| DRF6 WRITER TP,R 05215 M01S04486.dmrec +++| RJ DER DETECT END OF REEL 05216 M01S04487.dmrec +++| NG X1,DRF6.1 IF END OF TAPE 05217 M01S04488.dmrec +++| NZ X1,DRFX IF ERROR 05218 M01S04489.dmrec +++| DRF6.1 SA2 WBUF+1 05219 M01S04490.dmrec +++| MX0 36 05220 M01S04491.dmrec +++| BX2 -X0*X2 05221 M01S04492.dmrec +++| NZ X2,DRF4 IF MORE BLOCKS TO BE DUMPED 05222 M01S04493.dmrec +++| DRF7 SX1 3REND 05223 M01S04494.dmrec +++| SA2 XXPFN 05224 M01S04495.dmrec +++| BX6 X1+X2 05225 M01S04496.dmrec +++| SA6 TEMPP TRAILER WORD 05226 M01S04497.dmrec +++| DRF8 WRITEW TP,TEMPP,B1 WRITE TRAILER WORD 05227 M01S04498.dmrec +++| RJ DER DETECT END OF REEL 05228 M01S04499.dmrec +++| NG X1,DRF9 IF END OF TAPE 05229 M01S04500.dmrec +++| NZ X1,DRFX IF ERROR 05230 M01S04501.dmrec +++| DRF9 WRITEF TP,R 05231 M01S04502.dmrec +++| RJ DER DETECT END OF REEL 05232 M01S04503.dmrec +++| NG X1,DRF9.1 IF END OF TAPE 05233 M01S04504.dmrec +++| NZ X1,DRFX IF ERROR 05234 M01S04505.dmrec +++| DRF9.1 SA1 HOLD CLEAR RANDOM BIT 05235 M01S04506.dmrec +++| SX0 B1 05236 M01S04507.dmrec +++| SA1 X1+1 05237 M01S04508.dmrec +++| LX0 47 05238 M01S04509.dmrec +++| BX6 -X0*X1 05239 M01S04510.dmrec +++| SA6 A1 CLEAR RANDOM BIT FOR NEXT PROCESS 05240 M01S04511.dmrec +++| SX1 B0 05241 M01S04512.dmrec +++| EQ DRFX RETURN 05242 M01S04513.dmrec +++| 05243 M01S04514.dmrec +++|* PROCESS *DA* AND *AK* FILES. 05244 M01S04515.dmrec +++| 05245 M01S04516.dmrec +++| DRF10 SA4 HOLD 05246 M01S04517.dmrec +++| READ X4,R 05247 M01S04518.dmrec +++| SA4 HOLD 05248 M01S04519.dmrec +++| READW X4,WBUF,WBUFL 05249 M01S04520.dmrec +++| ZR X1,DRF13 IF ERROR 05250 M01S04521.dmrec +++| NG X1,DRF7 IF EOF/EOI 05251 M01S04522.dmrec +++| SA2 WBUF+1 CHECK FOR ZERO RECORD COUNT 05252 M01S04523.dmrec +++| MX0 13 05253 M01S04524.dmrec +++| LX0 60-9 05254 M01S04525.dmrec +++| BX2 X0*X2 05255 M01S04526.dmrec +++| ZR X2,DRF10 IF EMPTY BLOCK 05256 M01S04527.dmrec +++| DRF11 WRITEW TP,WBUF,X1-WBUF 05257 M01S04528.dmrec +++| RJ DER DETECT END OF REEL 05258 M01S04529.dmrec +++| NG X1,DRF12 IF END OF TAPE 05259 M01S04530.dmrec +++| NZ X1,DRFX IF ERROR 05260 M01S04531.dmrec +++| DRF12 WRITER TP,R 05261 M01S04532.dmrec +++| RJ DER DETECT END OF REEL 05262 M01S04533.dmrec +++| NG X1,DRF10 IF END OF REEL 05263 M01S04534.dmrec +++| NZ X1,DRFX IF ERROR 05264 M01S04535.dmrec +++| EQ DRF10 GET NEXT BLOCK 05265 M01S04536.dmrec +++| 05266 M01S04537.dmrec +++| DRF13 ERROR DRFA,,,DRFX,,E ERROR IN RECORD DUMP 05267 M01S04538.dmrec +++| 05268 M01S04539.dmrec +++| DRFA DATA 20H0 ***** 05269 M01S04540.dmrec +++| DATA C*ERROR IN RECORD DUMP.* 05270 M01S04541.dmrec +++| DRFAL EQU *-DRFA 05271 M01S04542.dmrec +++| EDF SPACE 4,20 05272 M01S04543.dmrec +++|** EDF - EXPAND DATA FILES. 05273 M01S04544.dmrec +++|* 05274 M01S04545.dmrec +++|* *EDF* EXPANDS DATA FILES. IF *ZZDBDIR* IS UNUSABLE, 05275 M01S04546.dmrec +++|* REBUILD AND EXIT. *EDF* RETURNS ALL DATA FILES BEFORE 05276 M01S04547.dmrec +++|* EXITING. 05277 M01S04548.dmrec +++|* 05278 M01S04549.dmrec +++|* ENTRY (XXPFN) = PERMANENT FILE NAME. 05279 M01S04550.dmrec +++|* (XXPACK) = PACK NAME. 05280 M01S04551.dmrec +++|* (XXDEV) = DEVICE FOR DATA FILE. 05281 M01S04552.dmrec +++|* (XXIXN) = INDEX FILE NAME. 05282 M01S04553.dmrec +++|* (XXIXP) = INDEX FILE PACK NAME. 05283 M01S04554.dmrec +++|* (XXIDEV) = INDEX DEVICE. 05284 M01S04555.dmrec +++|* (PERCENT) = DISPLAY CODE EXPAND PERCENTAGE. 05285 M01S04556.dmrec +++|* 0 IF NO PERCENTAGE GIVEN. 05286 M01S04557.dmrec +++|* (XXPCT) = OCTAL EXPAND PERCENTAGE. 05287 M01S04558.dmrec +++|* (TEMPO) = 0 IF FIRST TRIP TO *EDF*. 05288 M01S04559.dmrec +++|* .NE. 0, IF OTHERWISE. 05289 M01S04560.dmrec +++|* 05290 M01S04561.dmrec +++|* EXIT (X5) = *XXPFN* IF *ZZDBDIR* REBUILT. 05291 M01S04562.dmrec +++|* 05292 M01S04563.dmrec +++|* USES X - ALL. 05293 M01S04564.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 05294 M01S04565.dmrec +++|* B - 6, 7. 05295 M01S04566.dmrec +++|* 05296 M01S04567.dmrec +++|* CALLS ACF, ADF, DXB, RDF. 05297 M01S04568.dmrec +++|* 05298 M01S04569.dmrec +++|* MACROS CATLIST, CLOSEM, ERROR, FETCH, MESSAGE, 05299 M01S04570.dmrec +++|* OPENM, PUT, READ, REWIND, RMGET, RMREP, SKIPEI, 05300 M01S04571.dmrec +++|* STORE, WRITE, WRITEF. 05301 M01S04572.dmrec +++| 05302 M01S04573.dmrec +++| 05303 M01S04574.dmrec +++| EDF SUBR ENTRY/EXIT 05304 M01S04575.dmrec +++| RJ ACF ATTACH *ZZDBDIR* FILE 05305 M01S04576.dmrec +++| SA3 XXPFN 05306 M01S04577.dmrec +++| MX0 12 05307 M01S04578.dmrec +++| BX6 X0*X3 05308 M01S04579.dmrec +++| SA6 KEY2 SET KEY FOR *ZZDBDIR* HEADER 05309 M01S04580.dmrec +++| STORE DIRR,ERL=0 05310 M01S04581.dmrec +++| RMGET DIRR,YYBUF,0,,KEY2 05311 M01S04582.dmrec +++| RJ FER CHECK FIT ERROR 05312 M01S04583.dmrec +++| NZ X1,EDF13 IF ERROR 05313 M01S04584.dmrec +++| SA5 TEMPO 05314 M01S04585.dmrec +++| NZ X5,EDF1 IF FIRST TRIP 05315 M01S04586.dmrec +++| SA5 YYBUF+4 05316 M01S04587.dmrec +++| BX6 X5 05317 M01S04588.dmrec +++| SA6 TEMPO 05318 M01S04589.dmrec +++| EDF1 SA5 XXPFN 05319 M01S04590.dmrec +++| SX3 3RAAA 05320 M01S04591.dmrec +++| BX6 X5+X3 05321 M01S04592.dmrec +++| SA6 KEY1 SET KEY FOR FILE 05322 M01S04593.dmrec +++| RMGET DIRR,XXBUF,0,,KEY1 05323 M01S04594.dmrec +++| RJ FER CHECK FIT ERROR 05324 M01S04595.dmrec +++| NZ X1,EDF13 IF ERROR 05325 M01S04596.dmrec +++| SA5 TDFN 05326 M01S04597.dmrec +++| MX0 -48 05327 M01S04598.dmrec +++| BX5 -X0*X5 05328 M01S04599.dmrec +++| ZR X5,EDF4 IF EXPAND BATA BASE 05329 M01S04600.dmrec +++| SA5 PERCENT 05330 M01S04601.dmrec +++| ZR X5,EDF3 IF PERCENT NOT GIVEN 05331 M01S04602.dmrec +++| SA5 XXPCT 05332 M01S04603.dmrec +++| BX6 X5 05333 M01S04604.dmrec +++| SA6 XXBUF+4 NEW PERCENT 05334 M01S04605.dmrec +++| EDF2 RMREP DIRR,XXBUF,60,,KEY1 05335 M01S04606.dmrec +++| RJ FER CHECK FIT ERROR 05336 M01S04607.dmrec +++| NZ X1,EDF13 IF ERROR 05337 M01S04608.dmrec +++| EDF3 RMREP DIRR,YYBUF,60,,KEY2 05338 M01S04609.dmrec +++| RJ FER CHECK FIT ERROR 05339 M01S04610.dmrec +++| NZ X1,EDF13 IF ERROR 05340 M01S04611.dmrec +++| CLOSEM DIRR,U 05341 M01S04612.dmrec +++| SA5 XXBUF+4 05342 M01S04613.dmrec +++| ZR X5,EDF12 IF EXIT - NO IF EXPAND 05343 M01S04614.dmrec +++| EQ EDF6 GO EXPAND 05344 M01S04615.dmrec +++| 05345 M01S04616.dmrec +++|* BY DATA BASE. 05346 M01S04617.dmrec +++| 05347 M01S04618.dmrec +++| EDF4 SA5 PERCENT 05348 M01S04619.dmrec +++| ZR X5,EDF5 IF NO PERCENT 05349 M01S04620.dmrec +++| SA5 XXPCT 05350 M01S04621.dmrec +++| BX6 X5 05351 M01S04622.dmrec +++| SA6 YYBUF+4 05352 M01S04623.dmrec +++| EDF5 SA5 TEMPO 05353 M01S04624.dmrec +++| SA4 XXBUF+4 05354 M01S04625.dmrec +++| BX4 X4-X5 05355 M01S04626.dmrec +++| NZ X4,EDF3 IF LOOP 05356 M01S04627.dmrec +++| SA2 YYBUF+4 05357 M01S04628.dmrec +++| BX6 X2 05358 M01S04629.dmrec +++| SA6 XXBUF+4 05359 M01S04630.dmrec +++| EQ EDF2 LOOP 05360 M01S04631.dmrec +++| 05361 M01S04632.dmrec +++| EDF6 SB7 B1 05362 M01S04633.dmrec +++| RJ ADF ATTACH DATA FILE 05363 M01S04634.dmrec +++| NZ X1,EDFX IF ERROR 05364 M01S04635.dmrec +++| CATLIST CAT,XXPFN XXPACK,XXDEV 05365 M01S04636.dmrec +++| SA1 CAT+B1 05366 M01S04637.dmrec +++| SX7 X1 05367 M01S04638.dmrec +++| SA7 A1+B1 05368 M01S04639.dmrec +++| SA7 A7+B1 05369 M01S04640.dmrec +++| MX0 24 05370 M01S04641.dmrec +++| SA2 HBUF+1 05371 M01S04642.dmrec +++| BX6 X0*X2 05372 M01S04643.dmrec +++| LX6 24 05373 M01S04644.dmrec +++| SA6 DATAF NUMBER OF PRUS ( DATA FILE ) 05374 M01S04645.dmrec +++| SA2 XXIXN 05375 M01S04646.dmrec +++| ZR X2,EDF9 IF NO INDEX FILE 05376 M01S04647.dmrec +++| CATLIST CAT,XXIXN XXIXP,XXIDEV 05377 M01S04648.dmrec +++| SA1 CAT+B1 05378 M01S04649.dmrec +++| SX7 X1 05379 M01S04650.dmrec +++| SA7 A1+B1 05380 M01S04651.dmrec +++| SA7 A7+B1 05381 M01S04652.dmrec +++| SA2 HBUF+1 05382 M01S04653.dmrec +++| BX6 X0*X2 05383 M01S04654.dmrec +++| LX6 24 05384 M01S04655.dmrec +++| SA6 INDXF NUMBER OF PRUS ( INDEX FILE ) 05385 M01S04656.dmrec +++| 05386 M01S04657.dmrec +++|* EXPAND INDEX FILE 05387 M01S04658.dmrec +++| 05388 M01S04659.dmrec +++| SA1 IF+B1 05389 M01S04660.dmrec +++| SX7 X1 05390 M01S04661.dmrec +++| SA7 A1+B1 05391 M01S04662.dmrec +++| SA7 A7+B1 05392 M01S04663.dmrec +++| READ IF,R READ FSTT 05393 M01S04664.dmrec +++| MX0 24
| Line S04665 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05394 M02S04665.ns2056 ---| SA5 DBUF+FSTT17 05395 M01S00036.ns2056 +++| SA5 DBUF+FSTT22 05396 M01S04666.dmrec +++| LX5 3 05397 M01S04667.dmrec +++| BX5 X0*X5 05398 M01S04668.dmrec +++| LX5 24 05399 M01S04669.dmrec +++| SA2 XXBUF+4 BINARY PERCENTAGE REQUIRED 05400 M01S04670.dmrec +++| SX6 X5-1 CURRENT NUMBER OF PRUS 05401 M01S04671.dmrec +++| IX5 X2*X6 (PERCENT X NUMBER USED) 05402 M01S04672.dmrec +++| SA2 INDXF TOTAL LENGTH OF FILE 05403 M01S04673.dmrec +++| IX3 X2-X6 TOTAL - NUMBER USED 05404 M01S04674.dmrec +++| SX2 100 05405 M01S04675.dmrec +++| IX4 X2*X3 100 X PRESENT EXCESS 05406 M01S04676.dmrec +++| IX3 X5-X4 05407 M01S04677.dmrec +++| ZR X3,EDF9 IF NO EXPANSION NECESSARY 05408 M01S04678.dmrec +++| NG X3,EDF9 IF NO EXPANSION NECESSARY 05409 M01S04679.dmrec +++| IX3 X3/X2 TOTAL EXCESS REQUIRED 05410 M01S04680.dmrec +++| REWIND IF,R 05411 M01S04681.dmrec +++| SKIPEI IF,R 05412 M01S04682.dmrec +++| SB7 X3 05413 M01S04683.dmrec +++| SB6 B0-B1 05414 M01S04684.dmrec +++| EDF7 SB6 B6+B1 05415 M01S04685.dmrec +++| EQ B7,B6,EDF8 IF DONE 05416 M01S04686.dmrec +++| SA1 IF+B1 05417 M01S04687.dmrec +++| SX7 X1 05418 M01S04688.dmrec +++| SA7 A1+2 OUT 05419 M01S04689.dmrec +++| SX7 X7+100B 05420 M01S04690.dmrec +++| SA7 A7-B1 IN 05421 M01S04691.dmrec +++| SX7 DBUF+101B 05422 M01S04692.dmrec +++| SA7 A7+2 LIMIT 05423 M01S04693.dmrec +++| WRITE IF,R 05424 M01S04694.dmrec +++| EQ EDF7 LOOP 05425 M01S04695.dmrec +++| 05426 M01S04696.dmrec +++| EDF8 WRITEF IF,R 05427 M01S04697.dmrec +++| EDF9 SA1 DF+B1 05428 M01S04698.dmrec +++| SX6 X1 05429 M01S04699.dmrec +++| SA6 A1+B1 05430 M01S04700.dmrec +++| SA6 A6+B1 05431 M01S04701.dmrec +++| READ DF,R 05432 M01S04702.dmrec +++| MX0 24
| Line S04703 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05433 M02S04703.ns2056 ---| SA5 DBUF+FSTT17 05434 M01S00037.ns2056 +++| SA5 DBUF+FSTT22 05435 M01S04704.dmrec +++| LX5 3 05436 M01S04705.dmrec +++| BX5 X0*X5 05437 M01S04706.dmrec +++| LX5 24 NUMBER OF USED PRUS 05438 M01S04707.dmrec +++| SA2 XXBUF+4 BINARY PERCENTAGE REQUIRED 05439 M01S04708.dmrec +++| SX6 X5-1 05440 M01S04709.dmrec +++| IX5 X2*X6 ( PERCENT X NUMBER USED ) 05441 M01S04710.dmrec +++| SA2 DATAF TOTAL LENGTH OF FILE 05442 M01S04711.dmrec +++| IX3 X2-X6 TOTAL LENGTH - NUMBER USED = EXCESS NOW 05443 M01S04712.dmrec +++| SX2 100 05444 M01S04713.dmrec +++| IX4 X2*X3 100 X PRESENT EXCESS 05445 M01S04714.dmrec +++| IX3 X5-X4 05446 M01S04715.dmrec +++| ZR X3,EDF12 IF NO EXPANSION NECESSARY 05447 M01S04716.dmrec +++| NG X3,EDF12 IF NO EXPANSION NECESSARY 05448 M01S04717.dmrec +++| IX3 X3/X2 TOTAL EXCESS REQUIRED 05449 M01S04718.dmrec +++| REWIND DF,R 05450 M01S04719.dmrec +++| SKIPEI DF,R 05451 M01S04720.dmrec +++| SB7 X3 05452 M01S04721.dmrec +++| SB6 B0-B1 05453 M01S04722.dmrec +++| EDF10 SB6 B6+B1 05454 M01S04723.dmrec +++| EQ B7,B6,EDF11 IF DONE 05455 M01S04724.dmrec +++| SA1 DF+B1 05456 M01S04725.dmrec +++| SX7 X1 05457 M01S04726.dmrec +++| SA7 A1+2 OUT 05458 M01S04727.dmrec +++| SX7 X7+100B 05459 M01S04728.dmrec +++| SA7 A7-B1 IN 05460 M01S04729.dmrec +++| SX7 DBUF+101B 05461 M01S04730.dmrec +++| SA7 A7+2 LIMIT 05462 M01S04731.dmrec +++| WRITE DF,R 05463 M01S04732.dmrec +++| EQ EDF10 LOOP 05464 M01S04733.dmrec +++| 05465 M01S04734.dmrec +++| EDF11 WRITEF DF,R 05466 M01S04735.dmrec +++| EDF12 RJ RDF RETURN FILES 05467 M01S04736.dmrec +++| SX1 B0 05468 M01S04737.dmrec +++| EQ EDFX RETURN 05469 M01S04738.dmrec +++| 05470 M01S04739.dmrec +++| EDF13 CLOSEM DIRR,U 05471 M01S04740.dmrec +++| ERROR EDFA,,,EDFX,,E ZZDBDIR UNREADABLE 05472 M01S04741.dmrec +++| 05473 M01S04742.dmrec +++| EDFA DATA 20H0 ***** 05474 M01S04743.dmrec +++| DATA C*ZZDBDIR UNREADABLE* 05475 M01S04744.dmrec +++| EDFAL EQU *-EDFA 05476 M01S04745.dmrec +++| EDI SPACE 4,15 05477 M01S04746.dmrec +++|** EDI - EDIT DIRECTORY. 05478 M01S04747.dmrec +++|* 05479 M01S04748.dmrec +++|* ENTRY (LFNC) = 0, IF ALL FILES ARE EDITED. 05480 M01S04749.dmrec +++|* N, IF SELECTIVE FILES. 05481 M01S04750.dmrec +++|* (TKY1) = FIRST FILE NAME. 05482 M01S04751.dmrec +++|* 05483 M01S04752.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 05484 M01S04753.dmrec +++|* 05485 M01S04754.dmrec +++|* USES X - 0, 1, 2, 6. 05486 M01S04755.dmrec +++|* A - 1, 2, 6. 05487 M01S04756.dmrec +++|* B - NONE. 05488 M01S04757.dmrec +++|* 05489 M01S04758.dmrec +++|* CALLS EFD, ELD. 05490 M01S04759.dmrec +++| 05491 M01S04760.dmrec +++| 05492 M01S04761.dmrec +++| EDI SUBR ENTRY/EXIT 05493 M01S04762.dmrec +++| SX6 -2 05494 M01S04763.dmrec +++| SA6 LFNP PRESET FILE NAME POINTER 05495 M01S04764.dmrec +++| SA1 LFNC FILE CONTROL 05496 M01S04765.dmrec +++| NZ X1,EDI2 IF EDIT SELECTIVE FILES 05497 M01S04766.dmrec +++| EDI1 MX6 0 05498 M01S04767.dmrec +++| SA6 CYCC RESET CYCLE COUNT 05499 M01S04768.dmrec +++| RJ EFD EDIT FILE DUMP ENTRIES 05500 M01S04769.dmrec +++| SX1 X1-3 CHECK FOR END OF FILE 05501 M01S04770.dmrec +++| ZR X1,EDIX IF END OF FILE, NORMAL RETURN 05502 M01S04771.dmrec +++| SX1 X1+3 RESET *X1* 05503 M01S04772.dmrec +++| NZ X1,EDIX IF CRM ERROR 05504 M01S04773.dmrec +++| RJ ELD EDIT AFTER IMAGE LOG ENTRIES 05505 M01S04774.dmrec +++| SX1 X1-3 CHECK FOR END OF FILE 05506 M01S04775.dmrec +++| ZR X1,EDIX IF END OF FILE, NORMAL RETURN 05507 M01S04776.dmrec +++| SX1 X1+3 RESET *X1* 05508 M01S04777.dmrec +++| NZ X1,EDIX IF CRM ERROR 05509 M01S04778.dmrec +++| SA1 TKY1 NEXT FILE NAME 05510 M01S04779.dmrec +++| MX0 6 05511 M01S04780.dmrec +++| BX1 X0*X1 05512 M01S04781.dmrec +++| LX1 5-59 05513 M01S04782.dmrec +++| SX2 1R* TEST FOR VSN ENTRY 05514 M01S04783.dmrec +++| MX0 -6 05515 M01S04784.dmrec +++| BX2 -X0*X2 05516 M01S04785.dmrec +++| BX1 X1-X2 05517 M01S04786.dmrec +++| NZ X1,EDI1 IF NOT VSN TYPE ENTRY 05518 M01S04787.dmrec +++| EQ EDIX RETURN 05519 M01S04788.dmrec +++| 05520 M01S04789.dmrec +++| EDI2 SA1 LFNP FILE POINTER IN *TDFN* TABLE 05521 M01S04790.dmrec +++| SX6 X1+2 INCREMENT POINTER 05522 M01S04791.dmrec +++| SA6 A1 REPLACE POINTER 05523 M01S04792.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFN* TABLE 05524 M01S04793.dmrec +++| LX1 1 MULTIPLY BY 2 05525 M01S04794.dmrec +++| IX2 X6-X1 05526 M01S04795.dmrec +++| MX1 0 05527 M01S04796.dmrec +++| ZR X2,EDIX IF END OF TABLE 05528 M01S04797.dmrec +++| SA1 TDFN+X6 SELECTIVE FILE NAME 05529 M01S04798.dmrec +++| SA2 EDTF EDIT FLAG 05530 M01S04799.dmrec +++| ZR X2,EDI3 IF NOT MANUAL EDITING 05531 M01S04800.dmrec +++| SA1 TDFS+X6 FILE NAME FROM *TDFS* TABLE 05532 M01S04801.dmrec +++| EDI3 BX6 X1 05533 M01S04802.dmrec +++| SA6 TKY1 SET FILE NAME IN KEY 05534 M01S04803.dmrec +++| MX6 0 05535 M01S04804.dmrec +++| SA6 CYCC RESET CYCLE COUNT 05536 M01S04805.dmrec +++| RJ EFD EDIT FILE DUMP ENTRIES 05537 M01S04806.dmrec +++| NZ X1,EDIX IF CRM ERROR 05538 M01S04807.dmrec +++| RJ ELD EDIT AFTER IMAGE LOG DUMP ENTRIES 05539 M01S04808.dmrec +++| NZ X1,EDIX IF CRM ERROR 05540 M01S04809.dmrec +++| EQ EDI2 PROCESS NEXT FILE 05541 M01S04810.dmrec +++| EFD SPACE 4,20 05542 M01S04811.dmrec +++|** EFD - EDIT FILE DUMP ENTRY. 05543 M01S04812.dmrec +++|* 05544 M01S04813.dmrec +++|* ENTRY (CYCF) = 1, MODIFY CYCLE NUMBER IN FILE HEADER. 05545 M01S04814.dmrec +++|* (LFNC) = 0, IF ALL FILES. 05546 M01S04815.dmrec +++|* N, IF SELECTIVE FILES. 05547 M01S04816.dmrec +++|* (TKY1) = FILE NAME. 05548 M01S04817.dmrec +++|* 05549 M01S04818.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 05550 M01S04819.dmrec +++|* (AKY1) = FIRST AFTER IMAGE DUMP ENTRY KEY. 05551 M01S04820.dmrec +++|* (TKY1) = NEXT FILE NAME. 05552 M01S04821.dmrec +++|* (LDATE) = LAST CYCLE DATE/TIME. 05553 M01S04822.dmrec +++|* 05554 M01S04823.dmrec +++|* USES X - 0, 1, 2, 3, 6, 7. 05555 M01S04824.dmrec +++|* A - 1, 2, 3, 6, 7. 05556 M01S04825.dmrec +++|* B - 5, 6. 05557 M01S04826.dmrec +++|* 05558 M01S04827.dmrec +++|* CALLS CFD, FER, PDE, PVE, SFN. 05559 M01S04828.dmrec +++|* 05560 M01S04829.dmrec +++|* MACROS DELETE, ERROR, GETN, RMGET, RMREP, SKIPBL, START, 05561 M01S04830.dmrec +++|* STORE. 05562 M01S04831.dmrec +++| 05563 M01S04832.dmrec +++| 05564 M01S04833.dmrec +++| EFD SUBR ENTRY/EXIT 05565 M01S04834.dmrec +++| SA1 TKY1 FILE NAME 05566 M01S04835.dmrec +++| SX2 3RAAA FILE HEADER 05567 M01S04836.dmrec +++| BX6 X1+X2 05568 M01S04837.dmrec +++| SA6 CKY1 KEY WORD ONE 05569 M01S04838.dmrec +++| MX7 0 05570 M01S04839.dmrec +++| SA7 CKY2 KEY WORD TWO 05571 M01S04840.dmrec +++| RMGET DIRR,WSAB,0,,CKY1 READ FILE HEADER 05572 M01S04841.dmrec +++| RJ FER FIT ERROR STATUS 05573 M01S04842.dmrec +++| NZ X1,EFD7 IF FILE NOT IN DIRECTORY 05574 M01S04843.dmrec +++| SA2 CYCF CHANGE CYCLE FLAG 05575 M01S04844.dmrec +++| ZR X2,EFD1 IF NO CYCLE CHANGE 05576 M01S04845.dmrec +++| SA3 CYCL NEW CYCLE NUMBER 05577 M01S04846.dmrec +++| BX6 X3 05578 M01S04847.dmrec +++| SA6 WSAB+5 REPLACE CYCLE NUMBER 05579 M01S04848.dmrec +++| RMREP DIRR,WSAB,WSAL,,CKY1 REPLACE FILE HEADER 05580 M01S04849.dmrec +++| RJ FER FIT ERROR STATUS 05581 M01S04850.dmrec +++| EQ EFDX RETURN 05582 M01S04851.dmrec +++| 05583 M01S04852.dmrec +++| EFD1 SA2 WSAB+5 NUMBER OF CYCLES FOR THIS FILE 05584 M01S04853.dmrec +++| NZ X2,EFD2 IF NUMBER EXISTS 05585 M01S04854.dmrec +++| SA2 CYCD USE DIRECTORY HEADER CYCLE NUMBER 05586 M01S04855.dmrec +++| EFD2 BX6 X2 05587 M01S04856.dmrec +++| SA6 CYCT SAVE CURRENT CYCLE NUMBER 05588 M01S04857.dmrec +++| SA1 TKY1 FILE NAME 05589 M01S04858.dmrec +++| SX2 3RBBB FILE DUMP ENTRY 05590 M01S04859.dmrec +++| BX6 X1+X2 05591 M01S04860.dmrec +++| SA6 CKY1 05592 M01S04861.dmrec +++| SX6 6 RELATION IS *GT* 05593 M01S04862.dmrec +++| STORE DIRR,REL=X6 SET *GT* IN FIT 05594 M01S04863.dmrec +++| SX7 -1 SET SECOND KEY WORD TO LARGE VALUE 05595 M01S04864.dmrec +++| SA7 CKY2 05596 M01S04865.dmrec +++| START DIRR,,CKY1,0,10 POSITION TO AFTER IMAGE ENTRY 05597 M01S04866.dmrec +++| RJ FER FIT ERROR STATUS 05598 M01S04867.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05599 M01S04868.dmrec +++| GETN DIRR,WSAB,,AKY1 READ FIRST AFTER IMAGE DUMP ENTRY 05600 M01S04869.dmrec +++| RJ FER FIT ERROR STATUS 05601 M01S04870.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05602 M01S04871.dmrec +++| MX0 -18 05603 M01S04872.dmrec +++| SX2 3RAAA FILE HEADER TYPE 05604 M01S04873.dmrec +++| SA3 AKY1 FIRST AFTER IMAGE DUMP ENTRY 05605 M01S04874.dmrec +++| BX1 -X0*X3 05606 M01S04875.dmrec +++| BX1 X1-X2 COMPARE TYPES 05607 M01S04876.dmrec +++| NZ X1,EFD3 IF NOT FILE HEADER TYPE 05608 M01S04877.dmrec +++| BX6 X0*X3 05609 M01S04878.dmrec +++| SA6 TKY1 SAVE NEXT FILE NAME 05610 M01S04879.dmrec +++| SA6 EFDA NO AFTER IMAGE DUMPS FLAG 05611 M01S04880.dmrec +++| 05612 M01S04881.dmrec +++| EFD3 SKIPBL DIRR,2 SKIP BACKWARD ONE ENTRY 05613 M01S04882.dmrec +++| EFD4 GETN DIRR,WSAB,,CKY1 READ FILE DUMP ENTRY 05614 M01S04883.dmrec +++| RJ FER FIT ERROR STATUS 05615 M01S04884.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05616 M01S04885.dmrec +++| MX0 -18 05617 M01S04886.dmrec +++| SA1 CKY1 FIRST WORD OF KEY 05618 M01S04887.dmrec +++| BX1 -X0*X1 05619 M01S04888.dmrec +++| SX2 3RBBB 05620 M01S04889.dmrec +++| BX1 X1-X2 05621 M01S04890.dmrec +++| NZ X1,EFD5 IF NOT FILE DUMP ENTRY 05622 M01S04891.dmrec +++| SB6 B0 SET FILE DUMP ENTRY 05623 M01S04892.dmrec +++| RJ CFD CHECK FOR DELETE 05624 M01S04893.dmrec +++| ZR X1,EFD3 IF ENTRY NOT TO BE DELETED 05625 M01S04894.dmrec +++| RMGET DIRR,WSAB,0,,CKY1 ESTABLISH POSITION 05626 M01S04895.dmrec +++| DELETE DIRR,,CKY1 DELETE FILE DUMP ENTRY 05627 M01S04896.dmrec +++| RJ FER FIT ERROR STATUS 05628 M01S04897.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05629 M01S04898.dmrec +++| SB5 B0 05630 M01S04899.dmrec +++| RJ PDE PRINT DELETED ENTRY 05631 M01S04900.dmrec +++| SA1 WSAB+2 VSN NUMBER 05632 M01S04901.dmrec +++| MX0 36 05633 M01S04902.dmrec +++| BX6 X0*X1 05634 M01S04903.dmrec +++| SA6 TVSN VSN TO BE CHECKED 05635 M01S04904.dmrec +++| SB6 B0 SET FILE DUMP ENTRY 05636 M01S04905.dmrec +++| RJ PVE PROCESS VSN ENTRY 05637 M01S04906.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05638 M01S04907.dmrec +++| SKIPBL DIRR,1 SKIP BACKWARD ONE RECORD 05639 M01S04908.dmrec +++| EQ EFD4 PROCESS NEXT ENTRY - BACKWARD 05640 M01S04909.dmrec +++| 05641 M01S04910.dmrec +++| 05642 M01S04911.dmrec +++| EFD5 SA2 EFDA 05643 M01S04912.dmrec +++| NZ X2,EFD6 IF NO AFTER IMAGE DUMPS 05644 M01S04913.dmrec +++| SA1 TKY1 FILE NAME 05645 M01S04914.dmrec +++| SX2 3R 05646 M01S04915.dmrec +++| MX0 -18 05647 M01S04916.dmrec +++| BX2 -X0*X2 05648 M01S04917.dmrec +++| BX6 X1+X2 05649 M01S04918.dmrec +++| SA6 CKY1 05650 M01S04919.dmrec +++| SX7 6 SET *GT* 05651 M01S04920.dmrec +++| STORE DIRR,REL=X7 SET *REL* IN FIT 05652 M01S04921.dmrec +++| SX6 -1 SET KEY WORD TWO TO LARGE VALUE 05653 M01S04922.dmrec +++| SA6 CKY2 05654 M01S04923.dmrec +++| START DIRR,,CKY1,0,10 POSITION TO NEXT FILE HEADER 05655 M01S04924.dmrec +++| RJ FER FIT ERROR STATUS 05656 M01S04925.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05657 M01S04926.dmrec +++| GETN DIRR,WSAB,,TKY1 NEXT FILE HEADER 05658 M01S04927.dmrec +++| RJ FER FIT ERROR STATUS 05659 M01S04928.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05660 M01S04929.dmrec +++| MX0 42 05661 M01S04930.dmrec +++| SA1 TKY1 05662 M01S04931.dmrec +++| BX6 X0*X1 05663 M01S04932.dmrec +++| SA6 TKY1 NEXT FILE NAME 05664 M01S04933.dmrec +++| EFD6 MX6 0 05665 M01S04934.dmrec +++| SA6 EFDA CLEAR NO AFTER IMAGE DUMPS FLAG 05666 M01S04935.dmrec +++| MX1 0 05667 M01S04936.dmrec +++| EQ EFDX RETURN 05668 M01S04937.dmrec +++| 05669 M01S04938.dmrec +++| EFD7 SA1 TKY1 05670 M01S04939.dmrec +++| RJ SFN SPACE FILL NAME 05671 M01S04940.dmrec +++| SA6 EFDB+2 05672 M01S04941.dmrec +++| ERROR EFDB,,,EFD6 FILE NOT IN DIRECTORY 05673 M01S04942.dmrec +++| 05674 M01S04943.dmrec +++| EFDA BSSZ 1 NO AFTER IMAGE DUMPS FLAG 05675 M01S04944.dmrec +++| 05676 M01S04945.dmrec +++| EFDB DATA 20H0 ***** 05677 M01S04946.dmrec +++| DATA C*XXXXXXX NOT FOUND IN DIRECTORY.* 05678 M01S04947.dmrec +++| EFDBL EQU *-EFDB 05679 M01S04948.dmrec +++| EIT SPACE 4,25 05680 M01S04949.dmrec +++|** EIT - EDIT BACKUP DIRECTORY. 05681 M01S04950.dmrec +++|* 05682 M01S04951.dmrec +++|* THIS ROUTINE EDITS THE BACKUP DIRECTORY. EDITING TAKES 05683 M01S04952.dmrec +++|* PLACE ON EITHER SINGLE DATA BASE FILE BASIS (WHEN *DBPFN* 05684 M01S04953.dmrec +++|* PARAMETER IS USED) OR FOR THE ENTIRE DATA BASE 05685 M01S04954.dmrec +++|* (VIA *DB* PARAMETER). THERE ARE TWO DISTINCTIVE WAYS THE 05686 M01S04955.dmrec +++|* EDIT DIRECTIVE CAN BE USED - AUTOMATIC OR MANUAL EDITING. 05687 M01S04956.dmrec +++|* AUTOMATIC EDITING OCCURS IF EDIT DIRECTIVE WITHOUT 05688 M01S04957.dmrec +++|* SUBSEQUENT DIRECTIVES IS USED. ADDITIONAL DIRECTIVES 05689 M01S04958.dmrec +++|* (*ADD*, *CYCLE*, *DELETE*) IMPLY MANUAL EDITING. 05690 M01S04959.dmrec +++|* 05691 M01S04960.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 05692 M01S04961.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 05693 M01S04962.dmrec +++|* (X6) = OPERATION FLAG. (VALIDATES PARAMETERS). 05694 M01S04963.dmrec +++|* 05695 M01S04964.dmrec +++|* EXIT TO *DMR3* 05696 M01S04965.dmrec +++|* 05697 M01S04966.dmrec +++|* USES X - 0, 1, 2, 3, 6. 05698 M01S04967.dmrec +++|* A - 1, 2, 6. 05699 M01S04968.dmrec +++|* B - NONE. 05700 M01S04969.dmrec +++|* 05701 M01S04970.dmrec +++|* CALLS ADD, CYC, DEL, EDI, FER, FND, IFV, MVE=, RAF, SPR. 05702 M01S04971.dmrec +++|* 05703 M01S04972.dmrec +++|* MACROS ERROR, GETN, REWINDM. 05704 M01S04973.dmrec +++| 05705 M01S04974.dmrec +++| 05706 M01S04975.dmrec +++| EIT BSS 0 ENTRY 05707 M01S04976.dmrec +++| SB1 1 05708 M01S04977.dmrec +++| SA6 OPFLG SAVE DIRECTIVE CODE 05709 M01S04978.dmrec +++| RJ SPR SET PARAMETERS 05710 M01S04979.dmrec +++| SA2 OPFLG 05711 M01S04980.dmrec +++| NZ X2,EIT1 IF NOT EDIT DIRECTIVE 05712 M01S04981.dmrec +++| SX6 B1 05713 M01S04982.dmrec +++| SA6 EDTF SET EDIT FLAG 05714 M01S04983.dmrec +++| RJ IFV INITIALIZE FILES AND VARIABLES 05715 M01S04984.dmrec +++| NZ X1,EIT9 IF ERROR IN PROCESSING 05716 M01S04985.dmrec +++| RJ FND FIND NEXT DIRECTIVE 05717 M01S04986.dmrec +++| NZ X1,EIT0 IF NOT FOUND, PROCESS AUTO EDITING 05718 M01S04987.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFN* TABLE 05719 M01S04988.dmrec +++| LX1 1 NUMBER OF ENTRIES 05720 M01S04989.dmrec +++| SX2 TDFN FWA OF SOURCE TABLE 05721 M01S04990.dmrec +++| SX3 TDFS FWA OF DESTINATION TABLE 05722 M01S04991.dmrec +++| RJ MVE= MOVE TABLE 05723 M01S04992.dmrec +++| EQ DMR3 PROCESS NEXT DIRECTIVE 05724 M01S04993.dmrec +++| 05725 M01S04994.dmrec +++|* PROCESS AUTOMATIC EDITING. 05726 M01S04995.dmrec +++| 05727 M01S04996.dmrec +++| EIT0 REWINDM DIRR 05728 M01S04997.dmrec +++| GETN DIRR,WSAB,,TKY1 READ DIRECTORY HEADER 05729 M01S04998.dmrec +++| SA1 WSAB+5 NUMBER OF CYCLES TO RETAIN 05730 M01S04999.dmrec +++| BX6 X1 05731 M01S05000.dmrec +++| SA6 CYCD SAVE NUMBER OF CYCLES 05732 M01S05001.dmrec +++| GETN DIRR,WSAB,,TKY1 FIRST FILE HEADER 05733 M01S05002.dmrec +++| MX6 0 05734 M01S05003.dmrec +++| SA6 DELF DELETE FLAG - CYCLE DELETE 05735 M01S05004.dmrec +++| SA1 TKY1 FILE NAME 05736 M01S05005.dmrec +++| MX0 42 05737 M01S05006.dmrec +++| BX6 X0*X1 05738 M01S05007.dmrec +++| SA6 TKY1 FIRST FILE NAME FOR KEY 05739 M01S05008.dmrec +++| MX6 0 05740 M01S05009.dmrec +++| SA6 EDTF CLEAR EDIT FLAG 05741 M01S05010.dmrec +++| RJ EDI EDIT DIRECTORY 05742 M01S05011.dmrec +++| NZ X1,EIT7 IF CRM ERROR 05743 M01S05012.dmrec +++| EQ EIT4 NORMAL COMPLETION 05744 M01S05013.dmrec +++| 05745 M01S05014.dmrec +++|* PROCESS MANUAL EDITING. 05746 M01S05015.dmrec +++| 05747 M01S05016.dmrec +++| EIT1 SA1 EDTF 05748 M01S05017.dmrec +++| ZR X1,EIT8 IF NOT PRECEEDED BY EDIT DIRECTIVE 05749 M01S05018.dmrec +++| SX2 X2-2 DIRECTIVE CODE 05750 M01S05019.dmrec +++| ZR X2,EIT2 IF *CYCLE* DIRECTIVE 05751 M01S05020.dmrec +++| PL X2,EIT3 IF *DELETE* DIRECTIVE 05752 M01S05021.dmrec +++| RJ ADD PROCESS *ADD* DIRECTIVE 05753 M01S05022.dmrec +++| NZ X1,EIT9 IF ERROR IN PROCESING 05754 M01S05023.dmrec +++| EQ EIT4 NORMAL COMPLETION 05755 M01S05024.dmrec +++| 05756 M01S05025.dmrec +++| EIT2 RJ CYC PROCESS *CYCLE* DIRECTIVE 05757 M01S05026.dmrec +++| NZ X1,EIT9 IF ERROR IN PROCESSING 05758 M01S05027.dmrec +++| EQ EIT4 NORMAL COMPLETION 05759 M01S05028.dmrec +++| 05760 M01S05029.dmrec +++| EIT3 RJ DEL PROCESS *DELETE* DIRECTIVE 05761 M01S05030.dmrec +++| NZ X1,EIT9 IF ERROR IN PROCESSING 05762 M01S05031.dmrec +++| EIT4 RJ FND FIND NEXT DIRECTIVE 05763 M01S05032.dmrec +++| ZR X1,DMR3 IF VALID FOUND, PROCESS IT 05764 M01S05033.dmrec +++| RJ RAF RETURN ALL FILES 05765 M01S05034.dmrec +++| EQ EIT10 COMPLETION MESSAGE 05766 M01S05035.dmrec +++| 05767 M01S05036.dmrec +++| EIT5 RJ RAF RETURN ALL FILES 05768 M01S05037.dmrec +++| EQ DMR3 ABNORMAL TERMINATION 05769 M01S05038.dmrec +++| 05770 M01S05039.dmrec +++| EIT7 ERROR EITB,,,EIT9,,E CRM ERROR ENCOUNTERED 05771 M01S05040.dmrec +++| 05772 M01S05041.dmrec +++| EIT8 ERROR EITC,,,EIT9,,E DIRECTIVE NOT PRECEEDED BY EDIT 05773 M01S05042.dmrec +++| 05774 M01S05043.dmrec +++| EIT9 ERROR EITD,,,EIT5,,E ERROR IN EDIT PROCESSING 05775 M01S05044.dmrec +++| 05776 M01S05045.dmrec +++| EIT10 ERROR EITE,,,DMR3 EDITING COMPLETE 05777 M01S05046.dmrec +++| 05778 M01S05047.dmrec +++| EITB DATA 20H0 ***** 05779 M01S05048.dmrec +++| DATA C*CRM ERROR ENCOUNTERED.* 05780 M01S05049.dmrec +++| EITBL EQU *-EITB 05781 M01S05050.dmrec +++| 05782 M01S05051.dmrec +++| EITC DATA 20H0 ***** 05783 M01S05052.dmrec +++| DATA C*DIRECTIVE NOT PRECEEDED BY EDIT DIRECTIVE.* 05784 M01S05053.dmrec +++| EITCL EQU *-EITC 05785 M01S05054.dmrec +++| 05786 M01S05055.dmrec +++| EITD DATA 20H0 ***** 05787 M01S05056.dmrec +++| DATA C*ERROR IN EDIT PROCESSING.* 05788 M01S05057.dmrec +++| EITDL EQU *-EITD 05789 M01S05058.dmrec +++| 05790 M01S05059.dmrec +++| EITE DATA 20H0 05791 M01S05060.dmrec +++| DATA C*EDITING COMPLETE.* 05792 M01S05061.dmrec +++| EITEL EQU *-EITE 05793 M01S05062.dmrec +++| ELD SPACE 4,15 05794 M01S05063.dmrec +++|** ELD - EDIT AFTER IMAGE LOG DUMP ENTRY. 05795 M01S05064.dmrec +++|* 05796 M01S05065.dmrec +++|* ENTRY (AKY1) = FIRST *AFTER IMAGE* LOG DUMP ENTRY KEY. 05797 M01S05066.dmrec +++|* (LDATE) = LAST CYCLE DATE/TIME. 05798 M01S05067.dmrec +++|* (TKY1) = NEXT FILE NAME. 05799 M01S05068.dmrec +++|* 05800 M01S05069.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 05801 M01S05070.dmrec +++|* 05802 M01S05071.dmrec +++|* USES X - 0, 1, 2, 3, 5, 6. 05803 M01S05072.dmrec +++|* A - 1, 2, 3, 5, 6. 05804 M01S05073.dmrec +++|* B - 5, 6. 05805 M01S05074.dmrec +++|* 05806 M01S05075.dmrec +++|* CALLS CFD, FER, PDE, PVE. 05807 M01S05076.dmrec +++|* 05808 M01S05077.dmrec +++|* MACROS DELETE, EDATE, ETIME, GETN, RMGET. 05809 M01S05078.dmrec +++| 05810 M01S05079.dmrec +++| 05811 M01S05080.dmrec +++| ELD SUBR ENTRY/EXIT 05812 M01S05081.dmrec +++| SA2 AKY1 CHECK IF ENTRY IS VSN TYPE OR HEADER TYPE 05813 M01S05082.dmrec +++| MX0 18 05814 M01S05083.dmrec +++| BX1 X0*X2 05815 M01S05084.dmrec +++| SX3 3R*** VSN TYPE ENTRY 05816 M01S05085.dmrec +++| LX3 59-17 05817 M01S05086.dmrec +++| BX3 X0*X3 05818 M01S05087.dmrec +++| BX1 X1-X3 COMPARE ENTRIES 05819 M01S05088.dmrec +++| ZR X1,ELDX IF VSN ENTRY NEXT, RETURN 05820 M01S05089.dmrec +++| MX0 -18 05821 M01S05090.dmrec +++| BX3 -X0*X2 05822 M01S05091.dmrec +++| SX5 3RAAA FILE HEADER TYPE 05823 M01S05092.dmrec +++| BX1 X3-X5 05824 M01S05093.dmrec +++| ZR X1,ELDX IF HEADER TYPE, NO AFTER IMAGE DUMPS 05825 M01S05094.dmrec +++| SA5 LDATE LAST CYCLE DATE/TIME 05826 M01S05095.dmrec +++| ZR X5,ELD1 IF NOT CYCLE DELETE 05827 M01S05096.dmrec +++| ETIME X5 UNPACK TIME 05828 M01S05097.dmrec +++| SA6 TIME 05829 M01S05098.dmrec +++| AX5 18 05830 M01S05099.dmrec +++| EDATE X5 05831 M01S05100.dmrec +++| SA6 DATE 05832 M01S05101.dmrec +++| ELD1 RMGET DIRR,WSAB,0,,AKY1 FIRST AFTER IMAGE LOG ENTRY 05833 M01S05102.dmrec +++| RJ FER FIT ERROR STATUS 05834 M01S05103.dmrec +++| NZ X1,ELDX IF ERROR, RETURN 05835 M01S05104.dmrec +++| ELD2 SB6 B1 AFTER IMAGE LOG DUMP ENTRY 05836 M01S05105.dmrec +++| RJ CFD CHECK FOR DELETE 05837 M01S05106.dmrec +++| ZR X1,ELD3 IF ENTRY NOT TO BE DELETED 05838 M01S05107.dmrec +++| SB5 B0 05839 M01S05108.dmrec +++| RJ PDE PRINT DELETED ENTRY 05840 M01S05109.dmrec +++| MX0 36 05841 M01S05110.dmrec +++| SA1 WSAB+2 VSN NUMBER 05842 M01S05111.dmrec +++| BX6 X0*X1 05843 M01S05112.dmrec +++| SA6 TVSN VSN TO BE DELETED 05844 M01S05113.dmrec +++| SB6 1 PROCESS AFTER IMAGE DUMP ENTRY 05845 M01S05114.dmrec +++| RJ PVE PROCESS VSN ENTRY 05846 M01S05115.dmrec +++| NZ X1,ELDX IF ERROR, RETURN 05847 M01S05116.dmrec +++| RMGET DIRR,WSAB,0,,AKY1 ESTABLISH POSITION 05848 M01S05117.dmrec +++| DELETE DIRR,,AKY1 DELETE ENTRY 05849 M01S05118.dmrec +++| RJ FER FIT ERROR STATUS 05850 M01S05119.dmrec +++| NZ X1,ELDX IF ERROR, RETURN 05851 M01S05120.dmrec +++| ELD3 GETN DIRR,WSAB,,AKY1 READ NEXT AFTER IMAGE LOG DUMP ENTRY 05852 M01S05121.dmrec +++| RJ FER FIT ERROR STATUS 05853 M01S05122.dmrec +++| NZ X1,ELDX IF ERROR, RETURN 05854 M01S05123.dmrec +++| SA3 AKY2 SECOND WORD OF KEY 05855 M01S05124.dmrec +++| SA5 VSNK ALL ASTERISKS 05856 M01S05125.dmrec +++| BX3 X3-X5 05857 M01S05126.dmrec +++| ZR X3,ELDX IF VSN ENTRY, RETURN 05858 M01S05127.dmrec +++| SA1 AKY1 FILE NAME 05859 M01S05128.dmrec +++| MX0 42 05860 M01S05129.dmrec +++| BX1 X0*X1 05861 M01S05130.dmrec +++| SA3 TKY1 NEXT FILE NAME 05862 M01S05131.dmrec +++| BX1 X1-X3 05863 M01S05132.dmrec +++| ZR X1,ELDX IF NEW FILE, RETURN
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/dmrec.003.txt · Last modified: by 127.0.0.1