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