cdc:nos2.source:opl.opl871:deck:dmrec.003
Deck DMREC Part 003
25 Modifications
Listing Sections
- Deck DMREC Start
- Deck DMREC Part 1 (Line 1753)
- Deck DMREC Part 2 (Line 3308)
- Deck DMREC Part 3 (Line 5077)
- Deck DMREC Part 4 (Line 6930)
- Deck DMREC Part 5 (Line 8588)
- Deck DMREC Part 6 (Line 10535)
- Deck DMREC Part 7 (Line 12352)
Source
Seq # *Modification Id* Act ----------------------------+ 05077 M00S04357.dmrec +++| NZ X1,DMP11 IF ERROR 05078 M00S04358.dmrec +++| RJ RAF RETURN ALL FILES 05079 M00S04359.dmrec +++| SA2 DMPFLG
| Line S04360 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 05080 M01S04360.ns2023 ---| NZ X2,DMR3 IF NOT *LRF* DUMP
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 05081 M01S00128.ns2023 +++| NZ X2,DMR3 IF NOT *ARF* DUMP 05082 M00S04361.dmrec +++| SA1 EXCOPY GET CURRENT COPY NUMBER 05083 M00S04362.dmrec +++| SX2 X1-NUMARF
| Line S04363 Modification History | |
|---|---|
M01 (Removed by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 05084 M01S04363.dmrec1 ---| ZR X2,DMR3 IF ALL REQUIRED COPIES GENERATED
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 05085 M01S00005.dmrec1 +++| ZR X2,DMP10.2 IF ALL REQUIRED COPIES GENERATED 05086 M00S04364.dmrec +++| SX6 X1+B1 05087 M00S04365.dmrec +++| SA6 A1 INCREMENT COPY NUMBER 05088 M00S04366.dmrec +++| SB5 2 SET TDFN ORDINAL FOR RESTART - NUMF 05089 M00S04367.dmrec +++| SX7 B0 ZERO TVSN FOR NEXT TAPE 05090 M00S04368.dmrec +++| SA7 TVSN 05091 M00S04369.dmrec +++| SA7 DMTAPE RESET DUMP TAPE COUNT
| Line S04370 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 05092 M01S04370.ns2023 ---| SA7 LENGTH RESET FOR DEFAULT *LRF* LENGTH
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 05093 M01S00129.ns2023 +++| SA7 LENGTH RESET FOR DEFAULT *ARF* LENGTH 05094 M00S04371.dmrec +++| EQ DMP1 GO GENERATE NEXT COPY 05095 M00S04372.dmrec +++| 05096 M00S04373.dmrec +++| DMP10.1 SX1 X1-2 05097 M00S04374.dmrec +++| ZR X1,DMR3 IF *VSN TABLE OVERFLOW* ERROR 05098 M00S04375.dmrec +++| RJ RTE RETURN TAPE ERROR 05099 M00S04376.dmrec +++| EQ DMP1.1 START DUMP OVER 05100 M00S04377.dmrec +++|
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04378.dmrec +++|* ALL ERROR EXITS TAKEN HERE. 05106 M00S04379.dmrec +++| 05107 M00S04380.dmrec +++| DMP11 RJ RAF RETURN ALL FILES 05108 M00S04381.dmrec +++| EQ DMR3 EXIT JOB 05109 M00S04382.dmrec +++| 05110 M00S04383.dmrec +++| DMP12 ERROR DMPC,,,DMP11,,E NO FILES TO DUMP 05111 M00S04384.dmrec +++| 05112 M00S04385.dmrec +++| DMP13 ERROR DMPD,,,DMP11,,E MORE THAN ON ARF 05113 M00S04386.dmrec +++| 05114 M00S04387.dmrec +++| DMP14 ERROR DMPE,,,DMR3,,E ARF HEADER STATUS 3 05115 M00S04388.dmrec +++| 05116 M00S04389.dmrec +++| DMP15 ERROR ADFB,XXPFN,,DMP11,,E ATTACH ERROR ON FILE 05117 M00S04390.dmrec +++| 05118 M00S04391.dmrec +++| DMPA VFD 30/0,12/2LZZ,12/0,6/1LA 05119 M00S04392.dmrec +++| DMPB VFD 30/0,12/7777B,12/0,6/77B 05120 M00S04393.dmrec +++| 05121 M00S04394.dmrec +++| DMPC DATA 20H0 ***** 05122 M00S04395.dmrec +++| DATA C*NO FILES TO DUMP* 05123 M00S04396.dmrec +++| DMPCL EQU *-DMPC 05124 M00S04397.dmrec +++| DMPD DATA 20H0 ***** 05125 M00S04398.dmrec +++| DATA C*MORE THAN ONE ARF SPECIFIED.* 05126 M00S04399.dmrec +++| DMPDL EQU *-DMPD 05127 M00S04400.dmrec +++| DMPE DATA 20H0 ***** 05128 M00S04401.dmrec +++| DATA C*ARF HEADER STATUS (3) POSSIBLE ERROR.* 05129 M00S04402.dmrec +++| DMPEL EQU *-DMPE
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 05130 M01S00010.dmrec1 +++| DMPF BSSZ 1 *ARF* HEADER ERROR FLAG 05131 M00S04403.dmrec +++| DRF SPACE 4,25 05132 M00S04404.dmrec +++| 05133 M00S04405.dmrec +++|** DRF - DUMP RECORD FORMAT. 05134 M00S04406.dmrec +++|* 05135 M00S04407.dmrec +++|* DUMP FILE IN RECORD FORMAT. ALL ACTIVE DATA BLOCKS 05136 M00S04408.dmrec +++|* WILL BE DUMPED. IF END-OF-TAPE IS REACHED, THE 05137 M00S04409.dmrec +++|* CURRENT TAPE IS RETURNED AND THE NEXT TAPE REQUESTED. 05138 M00S04410.dmrec +++|* 05139 M00S04411.dmrec +++|* ENTRY (X4) = FWA OF FET. 05140 M00S04412.dmrec +++|* (IVSN) = INDEX TO *TVSN*. 05141 M00S04413.dmrec +++|* (IDFN) = ADDRESS OF NEXT FILE. 05142 M00S04414.dmrec +++|* 05143 M00S04415.dmrec +++|* EXIT *FSTT* AND ACTIVE DATA BLOCKS DUMPED. 05144 M00S04416.dmrec +++|* (X1) = 0 - IF NO ERRORS. 05145 M00S04417.dmrec +++|* 05146 M00S04418.dmrec +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 05147 M00S04419.dmrec +++|* A - 1, 2, 3, 4, 6, 7. 05148 M00S04420.dmrec +++|* B - NONE. 05149 M00S04421.dmrec +++|* 05150 M00S04422.dmrec +++|* CALLS DER. 05151 M00S04423.dmrec +++|* 05152 M00S04424.dmrec +++|* MACROS ERROR, READ, READW, RECALL, REWIND, WRITEF, WRITER. 05153 M00S04425.dmrec +++|* WRITEF. 05154 M00S04426.dmrec +++| 05155 M00S04427.dmrec +++| 05156 M00S04428.dmrec +++| DRF SUBR ENTRY/EXIT 05157 M00S04429.dmrec +++| BX6 X4 05158 M00S04430.dmrec +++| SA6 HOLD SAVE FET ADDRESS 05159 M00S04431.dmrec +++| SA4 HOLD 05160 M00S04432.dmrec +++| READ X4,R 05161 M00S04433.dmrec +++| SA4 HOLD 05162 M00S04434.dmrec +++| READW X4,WBUF,WBUFL READ FSTT 05163 M00S04435.dmrec +++| ZR X1,DRF13 IF NO EOR 05164 M00S04436.dmrec +++| NG X1,DRF13 IF EOF/EOI 05165 M00S04437.dmrec +++| DRF1 WRITEW TP,WBUF,X1-WBUF 05166 M00S04438.dmrec +++| RJ DER DETECT END OF REEL 05167 M00S04439.dmrec +++| NG X1,DRF2 IF END OF TAPE 05168 M00S04440.dmrec +++| NZ X1,DRFX IF ERROR 05169 M00S04441.dmrec +++| DRF2 WRITER TP,R 05170 M00S04442.dmrec +++| RJ DER DETECT END OF REEL 05171 M00S04443.dmrec +++| NG X1,DRF2.1 IF END OF TAPE 05172 M00S04444.dmrec +++| NZ X1,DRFX IF ERROR 05173 M00S04445.dmrec +++| 05174 M00S04446.dmrec +++|* CHECK BUFFER AND BLOCK SIZE. 05175 M00S04447.dmrec +++|
| Line S04448 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05176 M01S04448.ns2056 ---| DRF2.1 SA2 WBUF+FSTT17
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05177 M01S00035.ns2056 +++| DRF2.1 SA2 WBUF+FSTT22 05178 M00S04449.dmrec +++| MX0 42 05179 M00S04450.dmrec +++| BX2 -X0*X2 05180 M00S04451.dmrec +++| SX3 64 05181 M00S04452.dmrec +++| IX2 X2*X3 05182 M00S04453.dmrec +++| SX2 X2-2 05183 M00S04454.dmrec +++| SX2 X2-WBUFL 05184 M00S04455.dmrec +++| PL X2,DRF13 IF BUFFER TOO SMALL 05185 M00S04456.dmrec +++| SA1 XXPFN 05186 M00S04457.dmrec +++| SA3 XXIXN 05187 M00S04458.dmrec +++| BX1 X3-X1 05188 M00S04459.dmrec +++| ZR X1,DRF3 IF INDEX FILE TO BE DUMPED 05189 M00S04460.dmrec +++| SA3 XXTY GET FILE TYPE 05190 M00S04461.dmrec +++| SX1 X3-2RIS 05191 M00S04462.dmrec +++| NZ X1,DRF10 IF *DA* OR *AK* TYPE 05192 M00S04463.dmrec +++| DRF3 SA2 WBUF+73B 05193 M00S04464.dmrec +++| DRF4 MX0 36 05194 M00S04465.dmrec +++| BX7 -X0*X2 05195 M00S04466.dmrec +++| 05196 M00S04467.dmrec +++|* (X7) = PRU OF FIRST DATA BLOCK. 05197 M00S04468.dmrec +++| 05198 M00S04469.dmrec +++| SA4 HOLD 05199 M00S04470.dmrec +++| SX1 B1 05200 M00S04471.dmrec +++| LX1 47 05201 M00S04472.dmrec +++| SA2 X4+1 05202 M00S04473.dmrec +++| BX6 X1+X2 05203 M00S04474.dmrec +++| SA6 A2 05204 M00S04475.dmrec +++| SA7 A6+5 SET PRU 05205 M00S04476.dmrec +++| READ X4,R 05206 M00S04477.dmrec +++| SA4 HOLD 05207 M00S04478.dmrec +++| READW X4,WBUF,WBUFL 05208 M00S04479.dmrec +++| ZR X1,DRF13 IF ERROR - NO EOR 05209 M00S04480.dmrec +++| NG X1,DRF13 IF EOF/EOI - ERROR 05210 M00S04481.dmrec +++| DRF5 WRITEW TP,WBUF,X1-WBUF 05211 M00S04482.dmrec +++| RJ DER DETECT END OF REEL 05212 M00S04483.dmrec +++| NG X1,DRF6 IF END OF TAPE 05213 M00S04484.dmrec +++| NZ X1,DRFX IF ERROR 05214 M00S04485.dmrec +++| DRF6 WRITER TP,R 05215 M00S04486.dmrec +++| RJ DER DETECT END OF REEL 05216 M00S04487.dmrec +++| NG X1,DRF6.1 IF END OF TAPE 05217 M00S04488.dmrec +++| NZ X1,DRFX IF ERROR 05218 M00S04489.dmrec +++| DRF6.1 SA2 WBUF+1 05219 M00S04490.dmrec +++| MX0 36 05220 M00S04491.dmrec +++| BX2 -X0*X2 05221 M00S04492.dmrec +++| NZ X2,DRF4 IF MORE BLOCKS TO BE DUMPED 05222 M00S04493.dmrec +++| DRF7 SX1 3REND 05223 M00S04494.dmrec +++| SA2 XXPFN 05224 M00S04495.dmrec +++| BX6 X1+X2 05225 M00S04496.dmrec +++| SA6 TEMPP TRAILER WORD 05226 M00S04497.dmrec +++| DRF8 WRITEW TP,TEMPP,B1 WRITE TRAILER WORD 05227 M00S04498.dmrec +++| RJ DER DETECT END OF REEL 05228 M00S04499.dmrec +++| NG X1,DRF9 IF END OF TAPE 05229 M00S04500.dmrec +++| NZ X1,DRFX IF ERROR 05230 M00S04501.dmrec +++| DRF9 WRITEF TP,R 05231 M00S04502.dmrec +++| RJ DER DETECT END OF REEL 05232 M00S04503.dmrec +++| NG X1,DRF9.1 IF END OF TAPE 05233 M00S04504.dmrec +++| NZ X1,DRFX IF ERROR 05234 M00S04505.dmrec +++| DRF9.1 SA1 HOLD CLEAR RANDOM BIT 05235 M00S04506.dmrec +++| SX0 B1 05236 M00S04507.dmrec +++| SA1 X1+1 05237 M00S04508.dmrec +++| LX0 47 05238 M00S04509.dmrec +++| BX6 -X0*X1 05239 M00S04510.dmrec +++| SA6 A1 CLEAR RANDOM BIT FOR NEXT PROCESS 05240 M00S04511.dmrec +++| SX1 B0 05241 M00S04512.dmrec +++| EQ DRFX RETURN 05242 M00S04513.dmrec +++| 05243 M00S04514.dmrec +++|* PROCESS *DA* AND *AK* FILES. 05244 M00S04515.dmrec +++| 05245 M00S04516.dmrec +++| DRF10 SA4 HOLD 05246 M00S04517.dmrec +++| READ X4,R 05247 M00S04518.dmrec +++| SA4 HOLD 05248 M00S04519.dmrec +++| READW X4,WBUF,WBUFL 05249 M00S04520.dmrec +++| ZR X1,DRF13 IF ERROR 05250 M00S04521.dmrec +++| NG X1,DRF7 IF EOF/EOI 05251 M00S04522.dmrec +++| SA2 WBUF+1 CHECK FOR ZERO RECORD COUNT 05252 M00S04523.dmrec +++| MX0 13 05253 M00S04524.dmrec +++| LX0 60-9 05254 M00S04525.dmrec +++| BX2 X0*X2 05255 M00S04526.dmrec +++| ZR X2,DRF10 IF EMPTY BLOCK 05256 M00S04527.dmrec +++| DRF11 WRITEW TP,WBUF,X1-WBUF 05257 M00S04528.dmrec +++| RJ DER DETECT END OF REEL 05258 M00S04529.dmrec +++| NG X1,DRF12 IF END OF TAPE 05259 M00S04530.dmrec +++| NZ X1,DRFX IF ERROR 05260 M00S04531.dmrec +++| DRF12 WRITER TP,R 05261 M00S04532.dmrec +++| RJ DER DETECT END OF REEL 05262 M00S04533.dmrec +++| NG X1,DRF10 IF END OF REEL 05263 M00S04534.dmrec +++| NZ X1,DRFX IF ERROR 05264 M00S04535.dmrec +++| EQ DRF10 GET NEXT BLOCK 05265 M00S04536.dmrec +++| 05266 M00S04537.dmrec +++| DRF13 ERROR DRFA,,,DRFX,,E ERROR IN RECORD DUMP 05267 M00S04538.dmrec +++| 05268 M00S04539.dmrec +++| DRFA DATA 20H0 ***** 05269 M00S04540.dmrec +++| DATA C*ERROR IN RECORD DUMP.* 05270 M00S04541.dmrec +++| DRFAL EQU *-DRFA 05271 M00S04542.dmrec +++| EDF SPACE 4,20 05272 M00S04543.dmrec +++|** EDF - EXPAND DATA FILES. 05273 M00S04544.dmrec +++|* 05274 M00S04545.dmrec +++|* *EDF* EXPANDS DATA FILES. IF *ZZDBDIR* IS UNUSABLE, 05275 M00S04546.dmrec +++|* REBUILD AND EXIT. *EDF* RETURNS ALL DATA FILES BEFORE 05276 M00S04547.dmrec +++|* EXITING. 05277 M00S04548.dmrec +++|* 05278 M00S04549.dmrec +++|* ENTRY (XXPFN) = PERMANENT FILE NAME. 05279 M00S04550.dmrec +++|* (XXPACK) = PACK NAME. 05280 M00S04551.dmrec +++|* (XXDEV) = DEVICE FOR DATA FILE. 05281 M00S04552.dmrec +++|* (XXIXN) = INDEX FILE NAME. 05282 M00S04553.dmrec +++|* (XXIXP) = INDEX FILE PACK NAME. 05283 M00S04554.dmrec +++|* (XXIDEV) = INDEX DEVICE. 05284 M00S04555.dmrec +++|* (PERCENT) = DISPLAY CODE EXPAND PERCENTAGE. 05285 M00S04556.dmrec +++|* 0 IF NO PERCENTAGE GIVEN. 05286 M00S04557.dmrec +++|* (XXPCT) = OCTAL EXPAND PERCENTAGE. 05287 M00S04558.dmrec +++|* (TEMPO) = 0 IF FIRST TRIP TO *EDF*. 05288 M00S04559.dmrec +++|* .NE. 0, IF OTHERWISE. 05289 M00S04560.dmrec +++|* 05290 M00S04561.dmrec +++|* EXIT (X5) = *XXPFN* IF *ZZDBDIR* REBUILT. 05291 M00S04562.dmrec +++|* 05292 M00S04563.dmrec +++|* USES X - ALL. 05293 M00S04564.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 05294 M00S04565.dmrec +++|* B - 6, 7. 05295 M00S04566.dmrec +++|* 05296 M00S04567.dmrec +++|* CALLS ACF, ADF, DXB, RDF. 05297 M00S04568.dmrec +++|* 05298 M00S04569.dmrec +++|* MACROS CATLIST, CLOSEM, ERROR, FETCH, MESSAGE, 05299 M00S04570.dmrec +++|* OPENM, PUT, READ, REWIND, RMGET, RMREP, SKIPEI, 05300 M00S04571.dmrec +++|* STORE, WRITE, WRITEF. 05301 M00S04572.dmrec +++| 05302 M00S04573.dmrec +++| 05303 M00S04574.dmrec +++| EDF SUBR ENTRY/EXIT 05304 M00S04575.dmrec +++| RJ ACF ATTACH *ZZDBDIR* FILE 05305 M00S04576.dmrec +++| SA3 XXPFN 05306 M00S04577.dmrec +++| MX0 12 05307 M00S04578.dmrec +++| BX6 X0*X3 05308 M00S04579.dmrec +++| SA6 KEY2 SET KEY FOR *ZZDBDIR* HEADER 05309 M00S04580.dmrec +++| STORE DIRR,ERL=0 05310 M00S04581.dmrec +++| RMGET DIRR,YYBUF,0,,KEY2 05311 M00S04582.dmrec +++| RJ FER CHECK FIT ERROR 05312 M00S04583.dmrec +++| NZ X1,EDF13 IF ERROR 05313 M00S04584.dmrec +++| SA5 TEMPO 05314 M00S04585.dmrec +++| NZ X5,EDF1 IF FIRST TRIP 05315 M00S04586.dmrec +++| SA5 YYBUF+4 05316 M00S04587.dmrec +++| BX6 X5 05317 M00S04588.dmrec +++| SA6 TEMPO 05318 M00S04589.dmrec +++| EDF1 SA5 XXPFN 05319 M00S04590.dmrec +++| SX3 3RAAA 05320 M00S04591.dmrec +++| BX6 X5+X3 05321 M00S04592.dmrec +++| SA6 KEY1 SET KEY FOR FILE 05322 M00S04593.dmrec +++| RMGET DIRR,XXBUF,0,,KEY1 05323 M00S04594.dmrec +++| RJ FER CHECK FIT ERROR 05324 M00S04595.dmrec +++| NZ X1,EDF13 IF ERROR 05325 M00S04596.dmrec +++| SA5 TDFN 05326 M00S04597.dmrec +++| MX0 -48 05327 M00S04598.dmrec +++| BX5 -X0*X5 05328 M00S04599.dmrec +++| ZR X5,EDF4 IF EXPAND BATA BASE 05329 M00S04600.dmrec +++| SA5 PERCENT 05330 M00S04601.dmrec +++| ZR X5,EDF3 IF PERCENT NOT GIVEN 05331 M00S04602.dmrec +++| SA5 XXPCT 05332 M00S04603.dmrec +++| BX6 X5 05333 M00S04604.dmrec +++| SA6 XXBUF+4 NEW PERCENT 05334 M00S04605.dmrec +++| EDF2 RMREP DIRR,XXBUF,60,,KEY1 05335 M00S04606.dmrec +++| RJ FER CHECK FIT ERROR 05336 M00S04607.dmrec +++| NZ X1,EDF13 IF ERROR 05337 M00S04608.dmrec +++| EDF3 RMREP DIRR,YYBUF,60,,KEY2 05338 M00S04609.dmrec +++| RJ FER CHECK FIT ERROR 05339 M00S04610.dmrec +++| NZ X1,EDF13 IF ERROR 05340 M00S04611.dmrec +++| CLOSEM DIRR,U 05341 M00S04612.dmrec +++| SA5 XXBUF+4 05342 M00S04613.dmrec +++| ZR X5,EDF12 IF EXIT - NO IF EXPAND 05343 M00S04614.dmrec +++| EQ EDF6 GO EXPAND 05344 M00S04615.dmrec +++| 05345 M00S04616.dmrec +++|* BY DATA BASE. 05346 M00S04617.dmrec +++| 05347 M00S04618.dmrec +++| EDF4 SA5 PERCENT 05348 M00S04619.dmrec +++| ZR X5,EDF5 IF NO PERCENT 05349 M00S04620.dmrec +++| SA5 XXPCT 05350 M00S04621.dmrec +++| BX6 X5 05351 M00S04622.dmrec +++| SA6 YYBUF+4 05352 M00S04623.dmrec +++| EDF5 SA5 TEMPO 05353 M00S04624.dmrec +++| SA4 XXBUF+4 05354 M00S04625.dmrec +++| BX4 X4-X5 05355 M00S04626.dmrec +++| NZ X4,EDF3 IF LOOP 05356 M00S04627.dmrec +++| SA2 YYBUF+4 05357 M00S04628.dmrec +++| BX6 X2 05358 M00S04629.dmrec +++| SA6 XXBUF+4 05359 M00S04630.dmrec +++| EQ EDF2 LOOP 05360 M00S04631.dmrec +++| 05361 M00S04632.dmrec +++| EDF6 SB7 B1 05362 M00S04633.dmrec +++| RJ ADF ATTACH DATA FILE 05363 M00S04634.dmrec +++| NZ X1,EDFX IF ERROR 05364 M00S04635.dmrec +++| CATLIST CAT,XXPFN XXPACK,XXDEV 05365 M00S04636.dmrec +++| SA1 CAT+B1 05366 M00S04637.dmrec +++| SX7 X1 05367 M00S04638.dmrec +++| SA7 A1+B1 05368 M00S04639.dmrec +++| SA7 A7+B1 05369 M00S04640.dmrec +++| MX0 24 05370 M00S04641.dmrec +++| SA2 HBUF+1 05371 M00S04642.dmrec +++| BX6 X0*X2 05372 M00S04643.dmrec +++| LX6 24 05373 M00S04644.dmrec +++| SA6 DATAF NUMBER OF PRUS ( DATA FILE ) 05374 M00S04645.dmrec +++| SA2 XXIXN 05375 M00S04646.dmrec +++| ZR X2,EDF9 IF NO INDEX FILE 05376 M00S04647.dmrec +++| CATLIST CAT,XXIXN XXIXP,XXIDEV 05377 M00S04648.dmrec +++| SA1 CAT+B1 05378 M00S04649.dmrec +++| SX7 X1 05379 M00S04650.dmrec +++| SA7 A1+B1 05380 M00S04651.dmrec +++| SA7 A7+B1 05381 M00S04652.dmrec +++| SA2 HBUF+1 05382 M00S04653.dmrec +++| BX6 X0*X2 05383 M00S04654.dmrec +++| LX6 24 05384 M00S04655.dmrec +++| SA6 INDXF NUMBER OF PRUS ( INDEX FILE ) 05385 M00S04656.dmrec +++| 05386 M00S04657.dmrec +++|* EXPAND INDEX FILE 05387 M00S04658.dmrec +++| 05388 M00S04659.dmrec +++| SA1 IF+B1 05389 M00S04660.dmrec +++| SX7 X1 05390 M00S04661.dmrec +++| SA7 A1+B1 05391 M00S04662.dmrec +++| SA7 A7+B1 05392 M00S04663.dmrec +++| READ IF,R READ FSTT 05393 M00S04664.dmrec +++| MX0 24
| Line S04665 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05394 M01S04665.ns2056 ---| SA5 DBUF+FSTT17
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05395 M01S00036.ns2056 +++| SA5 DBUF+FSTT22 05396 M00S04666.dmrec +++| LX5 3 05397 M00S04667.dmrec +++| BX5 X0*X5 05398 M00S04668.dmrec +++| LX5 24 05399 M00S04669.dmrec +++| SA2 XXBUF+4 BINARY PERCENTAGE REQUIRED 05400 M00S04670.dmrec +++| SX6 X5-1 CURRENT NUMBER OF PRUS 05401 M00S04671.dmrec +++| IX5 X2*X6 (PERCENT X NUMBER USED) 05402 M00S04672.dmrec +++| SA2 INDXF TOTAL LENGTH OF FILE 05403 M00S04673.dmrec +++| IX3 X2-X6 TOTAL - NUMBER USED 05404 M00S04674.dmrec +++| SX2 100 05405 M00S04675.dmrec +++| IX4 X2*X3 100 X PRESENT EXCESS 05406 M00S04676.dmrec +++| IX3 X5-X4 05407 M00S04677.dmrec +++| ZR X3,EDF9 IF NO EXPANSION NECESSARY 05408 M00S04678.dmrec +++| NG X3,EDF9 IF NO EXPANSION NECESSARY 05409 M00S04679.dmrec +++| IX3 X3/X2 TOTAL EXCESS REQUIRED 05410 M00S04680.dmrec +++| REWIND IF,R 05411 M00S04681.dmrec +++| SKIPEI IF,R 05412 M00S04682.dmrec +++| SB7 X3 05413 M00S04683.dmrec +++| SB6 B0-B1 05414 M00S04684.dmrec +++| EDF7 SB6 B6+B1 05415 M00S04685.dmrec +++| EQ B7,B6,EDF8 IF DONE 05416 M00S04686.dmrec +++| SA1 IF+B1 05417 M00S04687.dmrec +++| SX7 X1 05418 M00S04688.dmrec +++| SA7 A1+2 OUT 05419 M00S04689.dmrec +++| SX7 X7+100B 05420 M00S04690.dmrec +++| SA7 A7-B1 IN 05421 M00S04691.dmrec +++| SX7 DBUF+101B 05422 M00S04692.dmrec +++| SA7 A7+2 LIMIT 05423 M00S04693.dmrec +++| WRITE IF,R 05424 M00S04694.dmrec +++| EQ EDF7 LOOP 05425 M00S04695.dmrec +++| 05426 M00S04696.dmrec +++| EDF8 WRITEF IF,R 05427 M00S04697.dmrec +++| EDF9 SA1 DF+B1 05428 M00S04698.dmrec +++| SX6 X1 05429 M00S04699.dmrec +++| SA6 A1+B1 05430 M00S04700.dmrec +++| SA6 A6+B1 05431 M00S04701.dmrec +++| READ DF,R 05432 M00S04702.dmrec +++| MX0 24
| Line S04703 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05433 M01S04703.ns2056 ---| SA5 DBUF+FSTT17
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05434 M01S00037.ns2056 +++| SA5 DBUF+FSTT22 05435 M00S04704.dmrec +++| LX5 3 05436 M00S04705.dmrec +++| BX5 X0*X5 05437 M00S04706.dmrec +++| LX5 24 NUMBER OF USED PRUS 05438 M00S04707.dmrec +++| SA2 XXBUF+4 BINARY PERCENTAGE REQUIRED 05439 M00S04708.dmrec +++| SX6 X5-1 05440 M00S04709.dmrec +++| IX5 X2*X6 ( PERCENT X NUMBER USED ) 05441 M00S04710.dmrec +++| SA2 DATAF TOTAL LENGTH OF FILE 05442 M00S04711.dmrec +++| IX3 X2-X6 TOTAL LENGTH - NUMBER USED = EXCESS NOW 05443 M00S04712.dmrec +++| SX2 100 05444 M00S04713.dmrec +++| IX4 X2*X3 100 X PRESENT EXCESS 05445 M00S04714.dmrec +++| IX3 X5-X4 05446 M00S04715.dmrec +++| ZR X3,EDF12 IF NO EXPANSION NECESSARY 05447 M00S04716.dmrec +++| NG X3,EDF12 IF NO EXPANSION NECESSARY 05448 M00S04717.dmrec +++| IX3 X3/X2 TOTAL EXCESS REQUIRED 05449 M00S04718.dmrec +++| REWIND DF,R 05450 M00S04719.dmrec +++| SKIPEI DF,R 05451 M00S04720.dmrec +++| SB7 X3 05452 M00S04721.dmrec +++| SB6 B0-B1 05453 M00S04722.dmrec +++| EDF10 SB6 B6+B1 05454 M00S04723.dmrec +++| EQ B7,B6,EDF11 IF DONE 05455 M00S04724.dmrec +++| SA1 DF+B1 05456 M00S04725.dmrec +++| SX7 X1 05457 M00S04726.dmrec +++| SA7 A1+2 OUT 05458 M00S04727.dmrec +++| SX7 X7+100B 05459 M00S04728.dmrec +++| SA7 A7-B1 IN 05460 M00S04729.dmrec +++| SX7 DBUF+101B 05461 M00S04730.dmrec +++| SA7 A7+2 LIMIT 05462 M00S04731.dmrec +++| WRITE DF,R 05463 M00S04732.dmrec +++| EQ EDF10 LOOP 05464 M00S04733.dmrec +++| 05465 M00S04734.dmrec +++| EDF11 WRITEF DF,R 05466 M00S04735.dmrec +++| EDF12 RJ RDF RETURN FILES 05467 M00S04736.dmrec +++| SX1 B0 05468 M00S04737.dmrec +++| EQ EDFX RETURN 05469 M00S04738.dmrec +++| 05470 M00S04739.dmrec +++| EDF13 CLOSEM DIRR,U 05471 M00S04740.dmrec +++| ERROR EDFA,,,EDFX,,E ZZDBDIR UNREADABLE 05472 M00S04741.dmrec +++| 05473 M00S04742.dmrec +++| EDFA DATA 20H0 ***** 05474 M00S04743.dmrec +++| DATA C*ZZDBDIR UNREADABLE* 05475 M00S04744.dmrec +++| EDFAL EQU *-EDFA 05476 M00S04745.dmrec +++| EDI SPACE 4,15 05477 M00S04746.dmrec +++|** EDI - EDIT DIRECTORY. 05478 M00S04747.dmrec +++|* 05479 M00S04748.dmrec +++|* ENTRY (LFNC) = 0, IF ALL FILES ARE EDITED. 05480 M00S04749.dmrec +++|* N, IF SELECTIVE FILES. 05481 M00S04750.dmrec +++|* (TKY1) = FIRST FILE NAME. 05482 M00S04751.dmrec +++|* 05483 M00S04752.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 05484 M00S04753.dmrec +++|* 05485 M00S04754.dmrec +++|* USES X - 0, 1, 2, 6. 05486 M00S04755.dmrec +++|* A - 1, 2, 6. 05487 M00S04756.dmrec +++|* B - NONE. 05488 M00S04757.dmrec +++|* 05489 M00S04758.dmrec +++|* CALLS EFD, ELD. 05490 M00S04759.dmrec +++| 05491 M00S04760.dmrec +++| 05492 M00S04761.dmrec +++| EDI SUBR ENTRY/EXIT 05493 M00S04762.dmrec +++| SX6 -2 05494 M00S04763.dmrec +++| SA6 LFNP PRESET FILE NAME POINTER 05495 M00S04764.dmrec +++| SA1 LFNC FILE CONTROL 05496 M00S04765.dmrec +++| NZ X1,EDI2 IF EDIT SELECTIVE FILES 05497 M00S04766.dmrec +++| EDI1 MX6 0 05498 M00S04767.dmrec +++| SA6 CYCC RESET CYCLE COUNT 05499 M00S04768.dmrec +++| RJ EFD EDIT FILE DUMP ENTRIES 05500 M00S04769.dmrec +++| SX1 X1-3 CHECK FOR END OF FILE 05501 M00S04770.dmrec +++| ZR X1,EDIX IF END OF FILE, NORMAL RETURN 05502 M00S04771.dmrec +++| SX1 X1+3 RESET *X1* 05503 M00S04772.dmrec +++| NZ X1,EDIX IF CRM ERROR 05504 M00S04773.dmrec +++| RJ ELD EDIT AFTER IMAGE LOG ENTRIES 05505 M00S04774.dmrec +++| SX1 X1-3 CHECK FOR END OF FILE 05506 M00S04775.dmrec +++| ZR X1,EDIX IF END OF FILE, NORMAL RETURN 05507 M00S04776.dmrec +++| SX1 X1+3 RESET *X1* 05508 M00S04777.dmrec +++| NZ X1,EDIX IF CRM ERROR 05509 M00S04778.dmrec +++| SA1 TKY1 NEXT FILE NAME 05510 M00S04779.dmrec +++| MX0 6 05511 M00S04780.dmrec +++| BX1 X0*X1 05512 M00S04781.dmrec +++| LX1 5-59 05513 M00S04782.dmrec +++| SX2 1R* TEST FOR VSN ENTRY 05514 M00S04783.dmrec +++| MX0 -6 05515 M00S04784.dmrec +++| BX2 -X0*X2 05516 M00S04785.dmrec +++| BX1 X1-X2 05517 M00S04786.dmrec +++| NZ X1,EDI1 IF NOT VSN TYPE ENTRY 05518 M00S04787.dmrec +++| EQ EDIX RETURN 05519 M00S04788.dmrec +++| 05520 M00S04789.dmrec +++| EDI2 SA1 LFNP FILE POINTER IN *TDFN* TABLE 05521 M00S04790.dmrec +++| SX6 X1+2 INCREMENT POINTER 05522 M00S04791.dmrec +++| SA6 A1 REPLACE POINTER 05523 M00S04792.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFN* TABLE 05524 M00S04793.dmrec +++| LX1 1 MULTIPLY BY 2 05525 M00S04794.dmrec +++| IX2 X6-X1 05526 M00S04795.dmrec +++| MX1 0 05527 M00S04796.dmrec +++| ZR X2,EDIX IF END OF TABLE 05528 M00S04797.dmrec +++| SA1 TDFN+X6 SELECTIVE FILE NAME 05529 M00S04798.dmrec +++| SA2 EDTF EDIT FLAG 05530 M00S04799.dmrec +++| ZR X2,EDI3 IF NOT MANUAL EDITING 05531 M00S04800.dmrec +++| SA1 TDFS+X6 FILE NAME FROM *TDFS* TABLE 05532 M00S04801.dmrec +++| EDI3 BX6 X1 05533 M00S04802.dmrec +++| SA6 TKY1 SET FILE NAME IN KEY 05534 M00S04803.dmrec +++| MX6 0 05535 M00S04804.dmrec +++| SA6 CYCC RESET CYCLE COUNT 05536 M00S04805.dmrec +++| RJ EFD EDIT FILE DUMP ENTRIES 05537 M00S04806.dmrec +++| NZ X1,EDIX IF CRM ERROR 05538 M00S04807.dmrec +++| RJ ELD EDIT AFTER IMAGE LOG DUMP ENTRIES 05539 M00S04808.dmrec +++| NZ X1,EDIX IF CRM ERROR 05540 M00S04809.dmrec +++| EQ EDI2 PROCESS NEXT FILE 05541 M00S04810.dmrec +++| EFD SPACE 4,20 05542 M00S04811.dmrec +++|** EFD - EDIT FILE DUMP ENTRY. 05543 M00S04812.dmrec +++|* 05544 M00S04813.dmrec +++|* ENTRY (CYCF) = 1, MODIFY CYCLE NUMBER IN FILE HEADER. 05545 M00S04814.dmrec +++|* (LFNC) = 0, IF ALL FILES. 05546 M00S04815.dmrec +++|* N, IF SELECTIVE FILES. 05547 M00S04816.dmrec +++|* (TKY1) = FILE NAME. 05548 M00S04817.dmrec +++|* 05549 M00S04818.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 05550 M00S04819.dmrec +++|* (AKY1) = FIRST AFTER IMAGE DUMP ENTRY KEY. 05551 M00S04820.dmrec +++|* (TKY1) = NEXT FILE NAME. 05552 M00S04821.dmrec +++|* (LDATE) = LAST CYCLE DATE/TIME. 05553 M00S04822.dmrec +++|* 05554 M00S04823.dmrec +++|* USES X - 0, 1, 2, 3, 6, 7. 05555 M00S04824.dmrec +++|* A - 1, 2, 3, 6, 7. 05556 M00S04825.dmrec +++|* B - 5, 6. 05557 M00S04826.dmrec +++|* 05558 M00S04827.dmrec +++|* CALLS CFD, FER, PDE, PVE, SFN. 05559 M00S04828.dmrec +++|* 05560 M00S04829.dmrec +++|* MACROS DELETE, ERROR, GETN, RMGET, RMREP, SKIPBL, START, 05561 M00S04830.dmrec +++|* STORE. 05562 M00S04831.dmrec +++| 05563 M00S04832.dmrec +++| 05564 M00S04833.dmrec +++| EFD SUBR ENTRY/EXIT 05565 M00S04834.dmrec +++| SA1 TKY1 FILE NAME 05566 M00S04835.dmrec +++| SX2 3RAAA FILE HEADER 05567 M00S04836.dmrec +++| BX6 X1+X2 05568 M00S04837.dmrec +++| SA6 CKY1 KEY WORD ONE 05569 M00S04838.dmrec +++| MX7 0 05570 M00S04839.dmrec +++| SA7 CKY2 KEY WORD TWO 05571 M00S04840.dmrec +++| RMGET DIRR,WSAB,0,,CKY1 READ FILE HEADER 05572 M00S04841.dmrec +++| RJ FER FIT ERROR STATUS 05573 M00S04842.dmrec +++| NZ X1,EFD7 IF FILE NOT IN DIRECTORY 05574 M00S04843.dmrec +++| SA2 CYCF CHANGE CYCLE FLAG 05575 M00S04844.dmrec +++| ZR X2,EFD1 IF NO CYCLE CHANGE 05576 M00S04845.dmrec +++| SA3 CYCL NEW CYCLE NUMBER 05577 M00S04846.dmrec +++| BX6 X3 05578 M00S04847.dmrec +++| SA6 WSAB+5 REPLACE CYCLE NUMBER 05579 M00S04848.dmrec +++| RMREP DIRR,WSAB,WSAL,,CKY1 REPLACE FILE HEADER 05580 M00S04849.dmrec +++| RJ FER FIT ERROR STATUS 05581 M00S04850.dmrec +++| EQ EFDX RETURN 05582 M00S04851.dmrec +++| 05583 M00S04852.dmrec +++| EFD1 SA2 WSAB+5 NUMBER OF CYCLES FOR THIS FILE 05584 M00S04853.dmrec +++| NZ X2,EFD2 IF NUMBER EXISTS 05585 M00S04854.dmrec +++| SA2 CYCD USE DIRECTORY HEADER CYCLE NUMBER 05586 M00S04855.dmrec +++| EFD2 BX6 X2 05587 M00S04856.dmrec +++| SA6 CYCT SAVE CURRENT CYCLE NUMBER 05588 M00S04857.dmrec +++| SA1 TKY1 FILE NAME 05589 M00S04858.dmrec +++| SX2 3RBBB FILE DUMP ENTRY 05590 M00S04859.dmrec +++| BX6 X1+X2 05591 M00S04860.dmrec +++| SA6 CKY1 05592 M00S04861.dmrec +++| SX6 6 RELATION IS *GT* 05593 M00S04862.dmrec +++| STORE DIRR,REL=X6 SET *GT* IN FIT 05594 M00S04863.dmrec +++| SX7 -1 SET SECOND KEY WORD TO LARGE VALUE 05595 M00S04864.dmrec +++| SA7 CKY2 05596 M00S04865.dmrec +++| START DIRR,,CKY1,0,10 POSITION TO AFTER IMAGE ENTRY 05597 M00S04866.dmrec +++| RJ FER FIT ERROR STATUS 05598 M00S04867.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05599 M00S04868.dmrec +++| GETN DIRR,WSAB,,AKY1 READ FIRST AFTER IMAGE DUMP ENTRY 05600 M00S04869.dmrec +++| RJ FER FIT ERROR STATUS 05601 M00S04870.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05602 M00S04871.dmrec +++| MX0 -18 05603 M00S04872.dmrec +++| SX2 3RAAA FILE HEADER TYPE 05604 M00S04873.dmrec +++| SA3 AKY1 FIRST AFTER IMAGE DUMP ENTRY 05605 M00S04874.dmrec +++| BX1 -X0*X3 05606 M00S04875.dmrec +++| BX1 X1-X2 COMPARE TYPES 05607 M00S04876.dmrec +++| NZ X1,EFD3 IF NOT FILE HEADER TYPE 05608 M00S04877.dmrec +++| BX6 X0*X3 05609 M00S04878.dmrec +++| SA6 TKY1 SAVE NEXT FILE NAME 05610 M00S04879.dmrec +++| SA6 EFDA NO AFTER IMAGE DUMPS FLAG 05611 M00S04880.dmrec +++| 05612 M00S04881.dmrec +++| EFD3 SKIPBL DIRR,2 SKIP BACKWARD ONE ENTRY 05613 M00S04882.dmrec +++| EFD4 GETN DIRR,WSAB,,CKY1 READ FILE DUMP ENTRY 05614 M00S04883.dmrec +++| RJ FER FIT ERROR STATUS 05615 M00S04884.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05616 M00S04885.dmrec +++| MX0 -18 05617 M00S04886.dmrec +++| SA1 CKY1 FIRST WORD OF KEY 05618 M00S04887.dmrec +++| BX1 -X0*X1 05619 M00S04888.dmrec +++| SX2 3RBBB 05620 M00S04889.dmrec +++| BX1 X1-X2 05621 M00S04890.dmrec +++| NZ X1,EFD5 IF NOT FILE DUMP ENTRY 05622 M00S04891.dmrec +++| SB6 B0 SET FILE DUMP ENTRY 05623 M00S04892.dmrec +++| RJ CFD CHECK FOR DELETE 05624 M00S04893.dmrec +++| ZR X1,EFD3 IF ENTRY NOT TO BE DELETED 05625 M00S04894.dmrec +++| RMGET DIRR,WSAB,0,,CKY1 ESTABLISH POSITION 05626 M00S04895.dmrec +++| DELETE DIRR,,CKY1 DELETE FILE DUMP ENTRY 05627 M00S04896.dmrec +++| RJ FER FIT ERROR STATUS 05628 M00S04897.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05629 M00S04898.dmrec +++| SB5 B0 05630 M00S04899.dmrec +++| RJ PDE PRINT DELETED ENTRY 05631 M00S04900.dmrec +++| SA1 WSAB+2 VSN NUMBER 05632 M00S04901.dmrec +++| MX0 36 05633 M00S04902.dmrec +++| BX6 X0*X1 05634 M00S04903.dmrec +++| SA6 TVSN VSN TO BE CHECKED 05635 M00S04904.dmrec +++| SB6 B0 SET FILE DUMP ENTRY 05636 M00S04905.dmrec +++| RJ PVE PROCESS VSN ENTRY 05637 M00S04906.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05638 M00S04907.dmrec +++| SKIPBL DIRR,1 SKIP BACKWARD ONE RECORD 05639 M00S04908.dmrec +++| EQ EFD4 PROCESS NEXT ENTRY - BACKWARD 05640 M00S04909.dmrec +++| 05641 M00S04910.dmrec +++| 05642 M00S04911.dmrec +++| EFD5 SA2 EFDA 05643 M00S04912.dmrec +++| NZ X2,EFD6 IF NO AFTER IMAGE DUMPS 05644 M00S04913.dmrec +++| SA1 TKY1 FILE NAME 05645 M00S04914.dmrec +++| SX2 3R 05646 M00S04915.dmrec +++| MX0 -18 05647 M00S04916.dmrec +++| BX2 -X0*X2 05648 M00S04917.dmrec +++| BX6 X1+X2 05649 M00S04918.dmrec +++| SA6 CKY1 05650 M00S04919.dmrec +++| SX7 6 SET *GT* 05651 M00S04920.dmrec +++| STORE DIRR,REL=X7 SET *REL* IN FIT 05652 M00S04921.dmrec +++| SX6 -1 SET KEY WORD TWO TO LARGE VALUE 05653 M00S04922.dmrec +++| SA6 CKY2 05654 M00S04923.dmrec +++| START DIRR,,CKY1,0,10 POSITION TO NEXT FILE HEADER 05655 M00S04924.dmrec +++| RJ FER FIT ERROR STATUS 05656 M00S04925.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05657 M00S04926.dmrec +++| GETN DIRR,WSAB,,TKY1 NEXT FILE HEADER 05658 M00S04927.dmrec +++| RJ FER FIT ERROR STATUS 05659 M00S04928.dmrec +++| NZ X1,EFDX IF ERROR, RETURN 05660 M00S04929.dmrec +++| MX0 42 05661 M00S04930.dmrec +++| SA1 TKY1 05662 M00S04931.dmrec +++| BX6 X0*X1 05663 M00S04932.dmrec +++| SA6 TKY1 NEXT FILE NAME 05664 M00S04933.dmrec +++| EFD6 MX6 0 05665 M00S04934.dmrec +++| SA6 EFDA CLEAR NO AFTER IMAGE DUMPS FLAG 05666 M00S04935.dmrec +++| MX1 0 05667 M00S04936.dmrec +++| EQ EFDX RETURN 05668 M00S04937.dmrec +++| 05669 M00S04938.dmrec +++| EFD7 SA1 TKY1 05670 M00S04939.dmrec +++| RJ SFN SPACE FILL NAME 05671 M00S04940.dmrec +++| SA6 EFDB+2 05672 M00S04941.dmrec +++| ERROR EFDB,,,EFD6 FILE NOT IN DIRECTORY 05673 M00S04942.dmrec +++| 05674 M00S04943.dmrec +++| EFDA BSSZ 1 NO AFTER IMAGE DUMPS FLAG 05675 M00S04944.dmrec +++| 05676 M00S04945.dmrec +++| EFDB DATA 20H0 ***** 05677 M00S04946.dmrec +++| DATA C*XXXXXXX NOT FOUND IN DIRECTORY.* 05678 M00S04947.dmrec +++| EFDBL EQU *-EFDB 05679 M00S04948.dmrec +++| EIT SPACE 4,25 05680 M00S04949.dmrec +++|** EIT - EDIT BACKUP DIRECTORY. 05681 M00S04950.dmrec +++|* 05682 M00S04951.dmrec +++|* THIS ROUTINE EDITS THE BACKUP DIRECTORY. EDITING TAKES 05683 M00S04952.dmrec +++|* PLACE ON EITHER SINGLE DATA BASE FILE BASIS (WHEN *DBPFN* 05684 M00S04953.dmrec +++|* PARAMETER IS USED) OR FOR THE ENTIRE DATA BASE 05685 M00S04954.dmrec +++|* (VIA *DB* PARAMETER). THERE ARE TWO DISTINCTIVE WAYS THE 05686 M00S04955.dmrec +++|* EDIT DIRECTIVE CAN BE USED - AUTOMATIC OR MANUAL EDITING. 05687 M00S04956.dmrec +++|* AUTOMATIC EDITING OCCURS IF EDIT DIRECTIVE WITHOUT 05688 M00S04957.dmrec +++|* SUBSEQUENT DIRECTIVES IS USED. ADDITIONAL DIRECTIVES 05689 M00S04958.dmrec +++|* (*ADD*, *CYCLE*, *DELETE*) IMPLY MANUAL EDITING. 05690 M00S04959.dmrec +++|* 05691 M00S04960.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 05692 M00S04961.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 05693 M00S04962.dmrec +++|* (X6) = OPERATION FLAG. (VALIDATES PARAMETERS). 05694 M00S04963.dmrec +++|* 05695 M00S04964.dmrec +++|* EXIT TO *DMR3* 05696 M00S04965.dmrec +++|* 05697 M00S04966.dmrec +++|* USES X - 0, 1, 2, 3, 6. 05698 M00S04967.dmrec +++|* A - 1, 2, 6. 05699 M00S04968.dmrec +++|* B - NONE. 05700 M00S04969.dmrec +++|* 05701 M00S04970.dmrec +++|* CALLS ADD, CYC, DEL, EDI, FER, FND, IFV, MVE=, RAF, SPR. 05702 M00S04971.dmrec +++|* 05703 M00S04972.dmrec +++|* MACROS ERROR, GETN, REWINDM. 05704 M00S04973.dmrec +++| 05705 M00S04974.dmrec +++| 05706 M00S04975.dmrec +++| EIT BSS 0 ENTRY 05707 M00S04976.dmrec +++| SB1 1 05708 M00S04977.dmrec +++| SA6 OPFLG SAVE DIRECTIVE CODE 05709 M00S04978.dmrec +++| RJ SPR SET PARAMETERS 05710 M00S04979.dmrec +++| SA2 OPFLG 05711 M00S04980.dmrec +++| NZ X2,EIT1 IF NOT EDIT DIRECTIVE 05712 M00S04981.dmrec +++| SX6 B1 05713 M00S04982.dmrec +++| SA6 EDTF SET EDIT FLAG 05714 M00S04983.dmrec +++| RJ IFV INITIALIZE FILES AND VARIABLES 05715 M00S04984.dmrec +++| NZ X1,EIT9 IF ERROR IN PROCESSING 05716 M00S04985.dmrec +++| RJ FND FIND NEXT DIRECTIVE 05717 M00S04986.dmrec +++| NZ X1,EIT0 IF NOT FOUND, PROCESS AUTO EDITING 05718 M00S04987.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFN* TABLE 05719 M00S04988.dmrec +++| LX1 1 NUMBER OF ENTRIES 05720 M00S04989.dmrec +++| SX2 TDFN FWA OF SOURCE TABLE 05721 M00S04990.dmrec +++| SX3 TDFS FWA OF DESTINATION TABLE 05722 M00S04991.dmrec +++| RJ MVE= MOVE TABLE 05723 M00S04992.dmrec +++| EQ DMR3 PROCESS NEXT DIRECTIVE 05724 M00S04993.dmrec +++| 05725 M00S04994.dmrec +++|* PROCESS AUTOMATIC EDITING. 05726 M00S04995.dmrec +++| 05727 M00S04996.dmrec +++| EIT0 REWINDM DIRR 05728 M00S04997.dmrec +++| GETN DIRR,WSAB,,TKY1 READ DIRECTORY HEADER 05729 M00S04998.dmrec +++| SA1 WSAB+5 NUMBER OF CYCLES TO RETAIN 05730 M00S04999.dmrec +++| BX6 X1 05731 M00S05000.dmrec +++| SA6 CYCD SAVE NUMBER OF CYCLES 05732 M00S05001.dmrec +++| GETN DIRR,WSAB,,TKY1 FIRST FILE HEADER 05733 M00S05002.dmrec +++| MX6 0 05734 M00S05003.dmrec +++| SA6 DELF DELETE FLAG - CYCLE DELETE 05735 M00S05004.dmrec +++| SA1 TKY1 FILE NAME 05736 M00S05005.dmrec +++| MX0 42 05737 M00S05006.dmrec +++| BX6 X0*X1 05738 M00S05007.dmrec +++| SA6 TKY1 FIRST FILE NAME FOR KEY 05739 M00S05008.dmrec +++| MX6 0 05740 M00S05009.dmrec +++| SA6 EDTF CLEAR EDIT FLAG 05741 M00S05010.dmrec +++| RJ EDI EDIT DIRECTORY 05742 M00S05011.dmrec +++| NZ X1,EIT7 IF CRM ERROR 05743 M00S05012.dmrec +++| EQ EIT4 NORMAL COMPLETION 05744 M00S05013.dmrec +++| 05745 M00S05014.dmrec +++|* PROCESS MANUAL EDITING. 05746 M00S05015.dmrec +++| 05747 M00S05016.dmrec +++| EIT1 SA1 EDTF 05748 M00S05017.dmrec +++| ZR X1,EIT8 IF NOT PRECEEDED BY EDIT DIRECTIVE 05749 M00S05018.dmrec +++| SX2 X2-2 DIRECTIVE CODE 05750 M00S05019.dmrec +++| ZR X2,EIT2 IF *CYCLE* DIRECTIVE 05751 M00S05020.dmrec +++| PL X2,EIT3 IF *DELETE* DIRECTIVE 05752 M00S05021.dmrec +++| RJ ADD PROCESS *ADD* DIRECTIVE 05753 M00S05022.dmrec +++| NZ X1,EIT9 IF ERROR IN PROCESING 05754 M00S05023.dmrec +++| EQ EIT4 NORMAL COMPLETION 05755 M00S05024.dmrec +++| 05756 M00S05025.dmrec +++| EIT2 RJ CYC PROCESS *CYCLE* DIRECTIVE 05757 M00S05026.dmrec +++| NZ X1,EIT9 IF ERROR IN PROCESSING 05758 M00S05027.dmrec +++| EQ EIT4 NORMAL COMPLETION 05759 M00S05028.dmrec +++| 05760 M00S05029.dmrec +++| EIT3 RJ DEL PROCESS *DELETE* DIRECTIVE 05761 M00S05030.dmrec +++| NZ X1,EIT9 IF ERROR IN PROCESSING 05762 M00S05031.dmrec +++| EIT4 RJ FND FIND NEXT DIRECTIVE 05763 M00S05032.dmrec +++| ZR X1,DMR3 IF VALID FOUND, PROCESS IT 05764 M00S05033.dmrec +++| RJ RAF RETURN ALL FILES 05765 M00S05034.dmrec +++| EQ EIT10 COMPLETION MESSAGE 05766 M00S05035.dmrec +++| 05767 M00S05036.dmrec +++| EIT5 RJ RAF RETURN ALL FILES 05768 M00S05037.dmrec +++| EQ DMR3 ABNORMAL TERMINATION 05769 M00S05038.dmrec +++| 05770 M00S05039.dmrec +++| EIT7 ERROR EITB,,,EIT9,,E CRM ERROR ENCOUNTERED 05771 M00S05040.dmrec +++| 05772 M00S05041.dmrec +++| EIT8 ERROR EITC,,,EIT9,,E DIRECTIVE NOT PRECEEDED BY EDIT 05773 M00S05042.dmrec +++| 05774 M00S05043.dmrec +++| EIT9 ERROR EITD,,,EIT5,,E ERROR IN EDIT PROCESSING 05775 M00S05044.dmrec +++| 05776 M00S05045.dmrec +++| EIT10 ERROR EITE,,,DMR3 EDITING COMPLETE 05777 M00S05046.dmrec +++| 05778 M00S05047.dmrec +++| EITB DATA 20H0 ***** 05779 M00S05048.dmrec +++| DATA C*CRM ERROR ENCOUNTERED.* 05780 M00S05049.dmrec +++| EITBL EQU *-EITB 05781 M00S05050.dmrec +++| 05782 M00S05051.dmrec +++| EITC DATA 20H0 ***** 05783 M00S05052.dmrec +++| DATA C*DIRECTIVE NOT PRECEEDED BY EDIT DIRECTIVE.* 05784 M00S05053.dmrec +++| EITCL EQU *-EITC 05785 M00S05054.dmrec +++| 05786 M00S05055.dmrec +++| EITD DATA 20H0 ***** 05787 M00S05056.dmrec +++| DATA C*ERROR IN EDIT PROCESSING.* 05788 M00S05057.dmrec +++| EITDL EQU *-EITD 05789 M00S05058.dmrec +++| 05790 M00S05059.dmrec +++| EITE DATA 20H0 05791 M00S05060.dmrec +++| DATA C*EDITING COMPLETE.* 05792 M00S05061.dmrec +++| EITEL EQU *-EITE 05793 M00S05062.dmrec +++| ELD SPACE 4,15 05794 M00S05063.dmrec +++|** ELD - EDIT AFTER IMAGE LOG DUMP ENTRY. 05795 M00S05064.dmrec +++|* 05796 M00S05065.dmrec +++|* ENTRY (AKY1) = FIRST *AFTER IMAGE* LOG DUMP ENTRY KEY. 05797 M00S05066.dmrec +++|* (LDATE) = LAST CYCLE DATE/TIME. 05798 M00S05067.dmrec +++|* (TKY1) = NEXT FILE NAME. 05799 M00S05068.dmrec +++|* 05800 M00S05069.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 05801 M00S05070.dmrec +++|* 05802 M00S05071.dmrec +++|* USES X - 0, 1, 2, 3, 5, 6. 05803 M00S05072.dmrec +++|* A - 1, 2, 3, 5, 6. 05804 M00S05073.dmrec +++|* B - 5, 6. 05805 M00S05074.dmrec +++|* 05806 M00S05075.dmrec +++|* CALLS CFD, FER, PDE, PVE. 05807 M00S05076.dmrec +++|* 05808 M00S05077.dmrec +++|* MACROS DELETE, EDATE, ETIME, GETN, RMGET. 05809 M00S05078.dmrec +++| 05810 M00S05079.dmrec +++| 05811 M00S05080.dmrec +++| ELD SUBR ENTRY/EXIT 05812 M00S05081.dmrec +++| SA2 AKY1 CHECK IF ENTRY IS VSN TYPE OR HEADER TYPE 05813 M00S05082.dmrec +++| MX0 18 05814 M00S05083.dmrec +++| BX1 X0*X2 05815 M00S05084.dmrec +++| SX3 3R*** VSN TYPE ENTRY 05816 M00S05085.dmrec +++| LX3 59-17 05817 M00S05086.dmrec +++| BX3 X0*X3 05818 M00S05087.dmrec +++| BX1 X1-X3 COMPARE ENTRIES 05819 M00S05088.dmrec +++| ZR X1,ELDX IF VSN ENTRY NEXT, RETURN 05820 M00S05089.dmrec +++| MX0 -18 05821 M00S05090.dmrec +++| BX3 -X0*X2 05822 M00S05091.dmrec +++| SX5 3RAAA FILE HEADER TYPE 05823 M00S05092.dmrec +++| BX1 X3-X5 05824 M00S05093.dmrec +++| ZR X1,ELDX IF HEADER TYPE, NO AFTER IMAGE DUMPS 05825 M00S05094.dmrec +++| SA5 LDATE LAST CYCLE DATE/TIME 05826 M00S05095.dmrec +++| ZR X5,ELD1 IF NOT CYCLE DELETE 05827 M00S05096.dmrec +++| ETIME X5 UNPACK TIME 05828 M00S05097.dmrec +++| SA6 TIME 05829 M00S05098.dmrec +++| AX5 18 05830 M00S05099.dmrec +++| EDATE X5 05831 M00S05100.dmrec +++| SA6 DATE 05832 M00S05101.dmrec +++| ELD1 RMGET DIRR,WSAB,0,,AKY1 FIRST AFTER IMAGE LOG ENTRY 05833 M00S05102.dmrec +++| RJ FER FIT ERROR STATUS 05834 M00S05103.dmrec +++| NZ X1,ELDX IF ERROR, RETURN 05835 M00S05104.dmrec +++| ELD2 SB6 B1 AFTER IMAGE LOG DUMP ENTRY 05836 M00S05105.dmrec +++| RJ CFD CHECK FOR DELETE 05837 M00S05106.dmrec +++| ZR X1,ELD3 IF ENTRY NOT TO BE DELETED 05838 M00S05107.dmrec +++| SB5 B0 05839 M00S05108.dmrec +++| RJ PDE PRINT DELETED ENTRY 05840 M00S05109.dmrec +++| MX0 36 05841 M00S05110.dmrec +++| SA1 WSAB+2 VSN NUMBER 05842 M00S05111.dmrec +++| BX6 X0*X1 05843 M00S05112.dmrec +++| SA6 TVSN VSN TO BE DELETED 05844 M00S05113.dmrec +++| SB6 1 PROCESS AFTER IMAGE DUMP ENTRY 05845 M00S05114.dmrec +++| RJ PVE PROCESS VSN ENTRY 05846 M00S05115.dmrec +++| NZ X1,ELDX IF ERROR, RETURN 05847 M00S05116.dmrec +++| RMGET DIRR,WSAB,0,,AKY1 ESTABLISH POSITION 05848 M00S05117.dmrec +++| DELETE DIRR,,AKY1 DELETE ENTRY 05849 M00S05118.dmrec +++| RJ FER FIT ERROR STATUS 05850 M00S05119.dmrec +++| NZ X1,ELDX IF ERROR, RETURN 05851 M00S05120.dmrec +++| ELD3 GETN DIRR,WSAB,,AKY1 READ NEXT AFTER IMAGE LOG DUMP ENTRY 05852 M00S05121.dmrec +++| RJ FER FIT ERROR STATUS 05853 M00S05122.dmrec +++| NZ X1,ELDX IF ERROR, RETURN 05854 M00S05123.dmrec +++| SA3 AKY2 SECOND WORD OF KEY 05855 M00S05124.dmrec +++| SA5 VSNK ALL ASTERISKS 05856 M00S05125.dmrec +++| BX3 X3-X5 05857 M00S05126.dmrec +++| ZR X3,ELDX IF VSN ENTRY, RETURN 05858 M00S05127.dmrec +++| SA1 AKY1 FILE NAME 05859 M00S05128.dmrec +++| MX0 42 05860 M00S05129.dmrec +++| BX1 X0*X1 05861 M00S05130.dmrec +++| SA3 TKY1 NEXT FILE NAME 05862 M00S05131.dmrec +++| BX1 X1-X3 05863 M00S05132.dmrec +++| ZR X1,ELDX IF NEW FILE, RETURN 05864 M00S05133.dmrec +++| EQ ELD2 PROCESS NEXT ENTRY 05865 M00S05134.dmrec +++| ELH SPACE 4,15 05866 M00S05135.dmrec +++|** ELH - ENTER DUMP LINE HEADER. 05867 M00S05136.dmrec +++|* 05868 M00S05137.dmrec +++|* ENTRY (WCBL) WORD COUNT. 05869 M00S05138.dmrec +++|* 05870 M00S05139.dmrec +++|* EXIT LINE BUFFER CLEARED AND HEADER DATA INSERTED. 05871 M00S05140.dmrec +++|* 05872 M00S05141.dmrec +++|* USES A - 1, 7. 05873 M00S05142.dmrec +++|* X - 1, 6, 7. 05874 M00S05143.dmrec +++|* B - 7. 05875 M00S05144.dmrec +++|* 05876 M00S05145.dmrec +++|* CALLS BSB, COD, ESB. 05877 M00S05146.dmrec +++| 05878 M00S05147.dmrec +++| 05879 M00S05148.dmrec +++| ELH SUBR ENTRY/EXIT 05880 M00S05149.dmrec +++| RJ BSB BLANK STRING BUFFER 05881 M00S05150.dmrec +++| SX6 3RKEY 05882 M00S05151.dmrec +++| LX6 48 05883 M00S05152.dmrec +++| SB7 OLWS+B1 05884 M00S05153.dmrec +++| MX1 3 05885 M00S05154.dmrec +++| RJ ESB SET LINE HEADER 05886 M00S05155.dmrec +++| 05887 M00S05156.dmrec +++|* SET WORD COUNT. 05888 M00S05157.dmrec +++| 05889 M00S05158.dmrec +++| SA1 WCBL 05890 M00S05159.dmrec +++| RJ COD CONVERT WORD COUNT 05891 M00S05160.dmrec +++| SX7 1RW 05892 M00S05161.dmrec +++| SA7 B7+B1 STORE WORD IDENTIFIER 05893 M00S05162.dmrec +++| SB7 A7+B1 05894 M00S05163.dmrec +++| MX1 2 05895 M00S05164.dmrec +++| LX6 54 05896 M00S05165.dmrec +++| RJ ESB ENTER WORD COUNT 05897 M00S05166.dmrec +++| SX7 1R- 05898 M00S05167.dmrec +++| SA7 B7 ENTER SEPARATOR 05899 M00S05168.dmrec +++| EQ ELHX RETURN 05900 M00S05169.dmrec +++| ESB SPACE 4,15 05901 M00S05170.dmrec +++|** ESB - ENTER STRING BUFFER. 05902 M00S05171.dmrec +++|* 05903 M00S05172.dmrec +++|* ENTRY (X6) POSITIONED CHARACTER DATA 05904 M00S05173.dmrec +++|* (X1) NUMBER OF CHARS TO STORE (1 BIT PER CHAR) 05905 M00S05174.dmrec +++|* (B7) ENTRY ADDRESS IN STRING BUFFER 05906 M00S05175.dmrec +++|* 05907 M00S05176.dmrec +++|* EXIT (B7) NEXT ENTRY ADDRESS 05908 M00S05177.dmrec +++|* 05909 M00S05178.dmrec +++|* USES A - 7. 05910 M00S05179.dmrec +++|* X - 1, 2, 6, 7. 05911 M00S05180.dmrec +++|* B - 7. 05912 M00S05181.dmrec +++| 05913 M00S05182.dmrec +++| 05914 M00S05183.dmrec +++| ESB SUBR ENTRY/EXIT 05915 M00S05184.dmrec +++| ESB1 PL X1,ESBX IF RETURN 05916 M00S05185.dmrec +++| MX2 -6 05917 M00S05186.dmrec +++| LX1 1 05918 M00S05187.dmrec +++| BX7 -X2*X6 05919 M00S05188.dmrec +++| SA7 B7 STORE CHARACTER 05920 M00S05189.dmrec +++| SB7 B7+B1 ADVANCE STORE 05921 M00S05190.dmrec +++| LX6 6 05922 M00S05191.dmrec +++| EQ ESB1 LOOP FOR NEXT CHARACTER 05923 M00S05192.dmrec +++| EXC SPACE 4,20 05924 M00S05193.dmrec +++|** EXC - EXECUTE CONTROL CARD. 05925 M00S05194.dmrec +++|*
| Line S05195 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05926 M01S05195.v23l617 ---|* *EXC* EXECUTES A CONTROL STATEMENT AND RETURNS. THE ENTIRE
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05927 M01S00022.v23l617 +++|* *EXC* EXECUTES A COMMAND AND RETURNS. THE ENTIRE 05928 M00S05196.dmrec +++|* FIELD LENGTH IS WRITTEN TO A FILE AND REREAD WHEN THE FILE 05929 M00S05197.dmrec +++|* IS RECALLED. 05930 M00S05198.dmrec +++|* 05931 M00S05199.dmrec +++|* ENTRY FILE *PROC* MUST CONTAIN CONTROL CARDS FOR
| Line S05200 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05932 M01S05200.v23l617 ---|* EXECUTION. THE LAST CONTROL CARD MUST BE A RECALL
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05933 M01S00023.v23l617 +++|* EXECUTION. THE LAST COMMAND MUST BE A RECALL
| Line S05201 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05934 M01S05201.ns2056 ---|* OF FILE *ZZDBDIR*.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05935 M01S00038.ns2056 +++|* OF FILE *ZZZZZG7*. 05936 M00S05202.dmrec +++|*
| Line S05203 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05937 M01S05203.v23l617 ---|* EXIT ALL CONTROL STATEMENTS IN FILE *PROC* HAVE
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05938 M01S00024.v23l617 +++|* EXIT ALL COMMANDS IN FILE *PROC* HAVE 05939 M00S05204.dmrec +++|* BEEN EXECUTED. 05940 M00S05205.dmrec +++|* 05941 M00S05206.dmrec +++|* USES X - 0, 1, 2, 6. 05942 M00S05207.dmrec +++|* A - 0, 1, 2, 6. 05943 M00S05208.dmrec +++|* B - 1, 2. 05944 M00S05209.dmrec +++| 05945 M00S05210.dmrec +++| 05946 M00S05211.dmrec +++| EXC SUBR ENTRY/EXIT 05947 M00S05212.dmrec +++| SX6 A0 SAVE (A0) 05948 M00S05213.dmrec +++| SA6 A0S 05949 M00S05214.dmrec +++| SX6 PROC
| Line S05215 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05950 M01S05215.v23l617 ---| SA6 CS SAVE CONTROL STATEMENT POINTER
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05951 M01S00025.v23l617 +++| SA6 CS SAVE COMMAND POINTER 05952 M00S05216.dmrec +++| EXC1 GETACT JA WAIT FOR ACTIVITY TO QUIET 05953 M00S05217.dmrec +++| RECALL 05954 M00S05218.dmrec +++| SA1 JA
| Line S05219 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05955 M01S05219.ns2056 ---| MX0 13
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05956 M01S00039.ns2056 +++| MX0 12 05957 M00S05220.dmrec +++| BX1 X0*X1 05958 M00S05221.dmrec +++| NZ X1,EXC1 IF JOB STILL ACTIVE 05959 M00S05222.dmrec +++| 05960 M00S05223.dmrec +++|* PRESERVE *ARGR* - *OVLFWA* IN *LOWMEM*. 05961 M00S05224.dmrec +++| 05962 M00S05225.dmrec +++| SB2 OVLFWA-ARGR SET UPPER WORD INDEX 05963 M00S05226.dmrec +++| EXC2 SA1 ARGR+B2 05964 M00S05227.dmrec +++| BX6 X1 05965 M00S05228.dmrec +++| SA6 LOWMEM+B2 05966 M00S05229.dmrec +++| SB2 B2-B1 05967 M00S05230.dmrec +++| PL B2,EXC2 IF MORE 05968 M00S05231.dmrec +++| 05969 M00S05232.dmrec +++|* PRESERVE LAST WORD OF *FL* AND LAST WORD ADDRESS. 05970 M00S05233.dmrec +++| 05971 M00S05234.dmrec +++| BX6 X6-X6 CLEAR *MEMORY* STATUS WORD 05972 M00S05235.dmrec +++| SA6 FL 05973 M00S05236.dmrec +++| MEMORY CM,FL,R 05974 M00S05237.dmrec +++| SA1 FL ISOLATE RETURNED FL 05975 M00S05238.dmrec +++| MX0 30 05976 M00S05239.dmrec +++| BX6 X0*X1 05977 M00S05240.dmrec +++| LX6 30 RIGHT JUSTIFY RETURNED FL 05978 M00S05241.dmrec +++| SA6 A1 SET ADJUSTED FL 05979 M00S05242.dmrec +++| SX6 X6-1 05980 M00S05243.dmrec +++| SA6 LWADDR 05981 M00S05244.dmrec +++| SA1 X6 05982 M00S05245.dmrec +++| BX6 X1 05983 M00S05246.dmrec +++| SA6 LW PRESERVE LAST WORD OF FL 05984 M00S05247.dmrec +++| 05985 M00S05248.dmrec +++|* SET LOADER CONTROL WORD IN *OVLFWA*. 05986 M00S05249.dmrec +++| 05987 M00S05250.dmrec +++| SA1 LT50 LOADER 50 TABLE 05988 M00S05251.dmrec +++| BX6 X1 05989 M00S05252.dmrec +++| SA6 OVLFWA 05990 M00S05253.dmrec +++| 05991 M00S05254.dmrec +++|* WRITE OUT USERS *FL* TO *ZZZZZXD*. 05992 M00S05255.dmrec +++| 05993 M00S05256.dmrec +++| SX6 A6
| Line S05257 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05994 M01S05257.ns2056 ---| SA1 ZZZZZXD+1 *FIRST*
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05995 M01S00040.ns2056 +++| SA1 ZZZZZG7+1 *FIRST* 05996 M00S05258.dmrec +++| MX0 42 05997 M00S05259.dmrec +++| BX1 X0*X1 PRESERVE ERP,UPR 05998 M00S05260.dmrec +++| BX6 X1+X6 MERGE *FIRST* 05999 M00S05261.dmrec +++| SA6 A1 06000 M00S05262.dmrec +++| BX6 -X0*X6 ISOLATE *FIRST*
| Line S05263 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06001 M01S05263.ns2056 ---| SA6 ZZZZZXD+3 SET *OUT*
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06002 M01S00041.ns2056 +++| SA6 ZZZZZG7+3 *OUT* 06003 M00S05264.dmrec +++| SA1 FL
| Line S05265 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06004 M01S05265.ns2056 ---| SX6 X1-1 06005 M01S05266.ns2056 ---| SA6 ZZZZZXD+4 SET *LIMIT* = FL - 1
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06006 M01S00042.ns2056 +++| SX6 X1 06007 M01S00043.ns2056 +++| SA6 ZZZZZG7+4 *LIMIT* = FL 06008 M00S05267.dmrec +++| SX6 X6-1
| Line S05268 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06009 M01S05268.ns2056 ---| SA6 ZZZZZXD+2 SET *IN* = FL - 2 06010 M01S05269.ns2056 ---| WRITER ZZZZZXD,R
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06011 M01S00044.ns2056 +++| SA6 ZZZZZG7+2 *IN* = FL - 1 06012 M01S00045.ns2056 +++| WRITER ZZZZZG7,R 06013 M00S05270.dmrec +++|
| Line S05271 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06014 M01S05271.v23l617 ---|* INITIATE USER CONTROL STATEMENT.
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06015 M01S00026.v23l617 +++|* INITIATE USER COMMAND. 06016 M00S05272.dmrec +++|
| Line S05273 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06017 M01S05273.v23l617 ---| SA1 CS RESTORE POINTER TO CONTROL STATEMENT 06018 M01S05274.v23l617 ---| EXCST X1 EXECUTE USER CONTROL STATEMENT
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06019 M01S00027.v23l617 +++| SA1 CS RESTORE POINTER TO COMMAND 06020 M01S00028.v23l617 +++| EXCST X1 EXECUTE USER COMMAND 06021 M00S05275.dmrec +++| MESSAGE =C* RETURN FROM EXC.* 06022 M00S05276.dmrec +++| ABORT 06023 M00S05277.dmrec +++| 06024 M00S05278.dmrec +++|* REENTER HERE WHEN *ZZZZZXD* EXECUTED. 06025 M00S05279.dmrec +++| 06026 M00S05280.dmrec +++| EXC3 BSS 0 06027 M00S05281.dmrec +++| SB1 1 RESTORE B1 = 1
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06028 M01S00046.ns2056 +++| SX6 1 06029 M01S00047.ns2056 +++| SA1 ZZZZZG7 06030 M01S00048.ns2056 +++| BX6 X1+X6 06031 M01S00049.ns2056 +++| SA6 A1 SET COMPLETE BIT 06032 M00S05282.dmrec +++| 06033 M00S05283.dmrec +++|* RESTORE *ARGR* - *OVLFWA*. 06034 M00S05284.dmrec +++| 06035 M00S05285.dmrec +++| SB2 OVLFWA-ARGR SET UPPER WORD INDEX 06036 M00S05286.dmrec +++| EXC4 SA1 LOWMEM+B2 06037 M00S05287.dmrec +++| BX6 X1 06038 M00S05288.dmrec +++| SA6 ARGR+B2 06039 M00S05289.dmrec +++| SB2 B2-B1 DECREMENT WORD INDEX 06040 M00S05290.dmrec +++| PL B2,EXC4 IF MORE WORDS TO MOVE 06041 M00S05291.dmrec +++| 06042 M00S05292.dmrec +++|* RESTORE LAST WORD OF *FL*. 06043 M00S05293.dmrec +++| 06044 M00S05294.dmrec +++| SA1 LWADDR 06045 M00S05295.dmrec +++| SA2 LW 06046 M00S05296.dmrec +++| BX6 X2 06047 M00S05297.dmrec +++| SA6 X1 06048 M00S05298.dmrec +++| 06049 M00S05299.dmrec +++|* RESTORE ORIGINAL *FL*. 06050 M00S05300.dmrec +++| 06051 M00S05301.dmrec +++| SA1 FL 06052 M00S05302.dmrec +++| MEMORY CM,,R,X1 06053 M00S05303.dmrec +++| 06054 M00S05304.dmrec +++|* RESTORE *A0*. 06055 M00S05305.dmrec +++| 06056 M00S05306.dmrec +++| SA1 A0S 06057 M00S05307.dmrec +++| SA0 X1 06058 M00S05308.dmrec +++| EQ EXCX RETURN 06059 M00S05309.dmrec +++| EXP SPACE 4,25 06060 M00S05310.dmrec +++|** EXP - EXPAND DATA FILES. 06061 M00S05311.dmrec +++|* 06062 M00S05312.dmrec +++|* *EXP* EXPANDS FILE SIZE FOR DATA FILES BASED ON 06063 M00S05313.dmrec +++|* EXISTING UNUSED SPACE (FROM *FSTT* AND *CATLIST*) AND 06064 M00S05314.dmrec +++|* PERCENTAGE (BACKUP DIRECTORY FOR THIS DATA BASE 06065 M00S05315.dmrec +++|* FILE). BEFORE A PERCENTAGE IS USED, THE BACKUP DIRECTORY 06066 M00S05316.dmrec +++|* IS UPDATED AT THE DATA BASE AND/OR DATA FILE LEVEL. 06067 M00S05317.dmrec +++|* 06068 M00S05318.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 06069 M00S05319.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 06070 M00S05320.dmrec +++|* (X6) = OPERATION FLAG (VALIDATE PARAMETERS). 06071 M00S05321.dmrec +++|* 06072 M00S05322.dmrec +++|* EXIT ALL INDICATED DATA FILES AND ASSOCIATED INDEX 06073 M00S05323.dmrec +++|* FILES HAVE BEEN EXPANDED IF NECESSARY. BACKUP 06074 M00S05324.dmrec +++|* DIRECTORY FILE (*ZZDBDIR*) WAS REBUILT IF FOUND 06075 M00S05325.dmrec +++|* UNUSABLE. EXIT TO *DMR3* FOR NEXT DIRECTIVE. 06076 M00S05326.dmrec +++|* 06077 M00S05327.dmrec +++|* USES X - 0, 2, 5, 6. 06078 M00S05328.dmrec +++|* A - 2, 5, 6. 06079 M00S05329.dmrec +++|* B - 5, 7. 06080 M00S05330.dmrec +++|* 06081 M00S05331.dmrec +++|* CALLS CWM, DXB, EDF, GXJ, RAF, RXJ, SPR. 06082 M00S05332.dmrec +++|* 06083 M00S05333.dmrec +++|* MACROS ERROR. 06084 M00S05334.dmrec +++| 06085 M00S05335.dmrec +++| 06086 M00S05336.dmrec +++| EXP BSS 0 ENTRY 06087 M00S05337.dmrec +++| RJ SPR SET PARAMETERS 06088 M00S05338.dmrec +++| SB5 B5-2 06089 M00S05339.dmrec +++| NE B5,B0,EXP8 IF OTHER THAN ONE FILE SPECIFIED 06090 M00S05340.dmrec +++| SA5 PERCENT 06091 M00S05341.dmrec +++| SB7 B1 06092 M00S05342.dmrec +++| RJ DXB DISPLAY TO BINARY 06093 M00S05343.dmrec +++| NZ X4,EXP9 IF ERROR IN CONVERSION 06094 M00S05344.dmrec +++| SA6 XXPCT PERCENTAGE (OCTAL) 06095 M00S05345.dmrec +++| SX6 X6-100D 06096 M00S05346.dmrec +++| PL X6,EXP9 IF ERROR IN PERCENT SIZE
| Line S05347 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 06097 M01S05347.dmrec15 ---| SX6 B0+
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 06098 M01S00012.dmrec15 +++| SX6 PTWR WRITE MODE 06099 M00S05348.dmrec +++| SA6 XXMODE ATTACH DATA/INDEX FILE IN WRITE MODE 06100 M00S05349.dmrec +++| SA6 TEMPO TEMPORARY 06101 M00S05350.dmrec +++| SA5 TDFN 06102 M00S05351.dmrec +++| MX0 12 06103 M00S05352.dmrec +++| BX5 X0*X5 DATA BASE NAME ( 2LDB ) 06104 M00S05353.dmrec +++| RJ GXJ GET XXJ FILE 06105 M00S05354.dmrec +++| NZ X1,DMR3 IF ERROR 06106 M00S05355.dmrec +++| SA2 TDFN CHECK FOR MORE THAN TWO CHARACTERS 06107 M00S05356.dmrec +++| MX0 12 06108 M00S05357.dmrec +++| BX2 -X0*X2 06109 M00S05358.dmrec +++| ZR X2,EXP3 IF EXPAND BY DATA BASE 06110 M00S05359.dmrec +++| 06111 M00S05360.dmrec +++|* EXPAND ONE DATA/INDEX FILE. 06112 M00S05361.dmrec +++| 06113 M00S05362.dmrec +++| EXP1 SA5 TDFN 06114 M00S05363.dmrec +++| RJ RXJ FIND THIS FILE 06115 M00S05364.dmrec +++| ZR X1,EXP2 IF FILE FOUND 06116 M00S05365.dmrec +++| PL X1,EXP7 IF FILE NOT FOUND 06117 M00S05366.dmrec +++| ZR X2,EXP7 IF FILE NOT FOUND 06118 M00S05367.dmrec +++| EXP2 RJ CWM CHECK WRITE MODE 06119 M00S05368.dmrec +++| NZ X1,EXP7 IF ERROR 06120 M00S05369.dmrec +++| RJ EDF EXPAND DATA FILE 06121 M00S05370.dmrec +++| NZ X1,DMR3 IF ERROR IN EDF 06122 M00S05371.dmrec +++| EQ EXP7 GO RETURN FILES AND QUIT 06123 M00S05372.dmrec +++| 06124 M00S05373.dmrec +++|* EXPAND BY DATA BASE. 06125 M00S05374.dmrec +++| 06126 M00S05375.dmrec +++| EXP3 SX5 B1 06127 M00S05376.dmrec +++| EXP4 RJ RXJ READ NEXT XXJ ENTRY 06128 M00S05377.dmrec +++| ZR X1,EXP5 IF NO ERROR 06129 M00S05378.dmrec +++| NG X1,EXP6 IF EOF 06130 M00S05379.dmrec +++| EQ DMR3 REAL ERROR 06131 M00S05380.dmrec +++| 06132 M00S05381.dmrec +++| EXP5 RJ CWM CHECK WRITE MODE 06133 M00S05382.dmrec +++| SX5 B0+ SET ENTRY CONDITION FOR *RXJ* 06134 M00S05383.dmrec +++| NZ X1,EXP4 IF READ ONLY FILE 06135 M00S05384.dmrec +++| RJ EDF EXPAND FILE 06136 M00S05385.dmrec +++| NZ X1,DMR3 IF ERROR IN EDF 06137 M00S05386.dmrec +++| SX5 B0+ SET ENTRY CONDITION FOR *RXJ* 06138 M00S05387.dmrec +++| EQ EXP4 GET NEXT FILE 06139 M00S05388.dmrec +++| 06140 M00S05389.dmrec +++| EXP6 ZR X2,EXP7 IF NO MORE FILES 06141 M00S05390.dmrec +++| RJ CWM CHECK WRITE MODE 06142 M00S05391.dmrec +++| NZ X1,EXP7 IF ERROR 06143 M00S05392.dmrec +++| RJ EDF EXPAND LAST FILE 06144 M00S05393.dmrec +++| NZ X1,DMR3 IF ERROR IN EDF 06145 M00S05394.dmrec +++| EXP7 RJ RAF RETURN ALL FILES 06146 M00S05395.dmrec +++| EQ DMR3 RETURN 06147 M00S05396.dmrec +++| 06148 M00S05397.dmrec +++| EXP8 ERROR IFVB,,,EXP7,,E *DB NAME AND FILE NAME BOTH SPECIFIED* 06149 M00S05398.dmrec +++| 06150 M00S05399.dmrec +++| EXP9 ERROR EXPA,,,EXP7,,E *PERCENT PARAMETER NOT SPECIFIED* 06151 M00S05400.dmrec +++| 06152 M00S05401.dmrec +++| EXPA DATA 20H0 ***** 06153 M00S05402.dmrec +++| DATA C*PERCENT PARAMETER NOT SPECIFIED PROPERLY.* 06154 M00S05403.dmrec +++| EXPAL EQU *-EXPA 06155 M00S05404.dmrec +++| FAW SPACE 4,15 06156 M00S05405.dmrec +++|** FAW - FORMAT ALPHA WORD. 06157 M00S05406.dmrec +++|* 06158 M00S05407.dmrec +++|* ENTRY (B2) = ADDRESS OF WORD TO FORMAT TO STRING BUFFER. 06159 M00S05408.dmrec +++|* (SCPC) = BYTE POSITION. 06160 M00S05409.dmrec +++|* 06161 M00S05410.dmrec +++|* EXIT (B2) = UNCHANGED. 06162 M00S05411.dmrec +++|* CHARACTERS PLACED IN STRING BUFFER AND *SCPC* 06163 M00S05412.dmrec +++|* ADVANCED. 06164 M00S05413.dmrec +++|* 06165 M00S05414.dmrec +++|* USES X - 1, 2, 3, 4, 6, 7. 06166 M00S05415.dmrec +++|* A - 1, 3, 4, 6, 7. 06167 M00S05416.dmrec +++|* B - 4, 5, 7. 06168 M00S05417.dmrec +++|* 06169 M00S05418.dmrec +++|* CALLS BSB. 06170 M00S05419.dmrec +++| 06171 M00S05420.dmrec +++| 06172 M00S05421.dmrec +++| FAW SUBR ENTRY/EXIT 06173 M00S05422.dmrec +++| SA3 OPWD 06174 M00S05423.dmrec +++| LX3 59-0 06175 M00S05424.dmrec +++| PL X3,FAW1 IF NOT OCTAL/ALPHA MODE 06176 M00S05425.dmrec +++| SA4 SCPC 06177 M00S05426.dmrec +++| NZ X4,FAW1 IF NOT FIRST WORD 06178 M00S05427.dmrec +++| RJ BSB BLANK BUFFER 06179 M00S05428.dmrec +++| 06180 M00S05429.dmrec +++| FAW1 SA4 SCPC 06181 M00S05430.dmrec +++| SA1 B2 GET DATA WORD 06182 M00S05431.dmrec +++| MX2 10 06183 M00S05432.dmrec +++| SA3 OPWD 06184 M00S05433.dmrec +++| MX6 54 06185 M00S05434.dmrec +++| LX3 59-0 06186 M00S05435.dmrec +++| SB7 1R SET BLANK REPLACE 06187 M00S05436.dmrec +++| NG X3,FAW5 IF OCTAL/ALPHA MODE 06188 M00S05437.dmrec +++| SA3 TAAP+X4 GET STARTING POSITION 06189 M00S05438.dmrec +++| SB5 X3 06190 M00S05439.dmrec +++| SB4 B1 06191 M00S05440.dmrec +++| 06192 M00S05441.dmrec +++| FAW2 LX1 6 06193 M00S05442.dmrec +++| BX7 -X6*X1 06194 M00S05443.dmrec +++| LX2 1 06195 M00S05444.dmrec +++| NZ X7,FAW3 IF NOT 00 CHARACTER 06196 M00S05445.dmrec +++| SX7 B7 FORCE BLANK 06197 M00S05446.dmrec +++| FAW3 SA7 B5 06198 M00S05447.dmrec +++| SB5 B5+B4 ADVANCE STORE 06199 M00S05448.dmrec +++| NG X2,FAW2 IF NOT END OF WORD 06200 M00S05449.dmrec +++| 06201 M00S05450.dmrec +++| SA4 SCPC ADVANCE POSITION 06202 M00S05451.dmrec +++| SA3 OPWD 06203 M00S05452.dmrec +++| SX7 X4+B1 06204 M00S05453.dmrec +++| LX3 59-0 06205 M00S05454.dmrec +++| SX6 X7-TBOPL 06206 M00S05455.dmrec +++| NG X3,FAW4 IF OCTAL ALPHA MODE 06207 M00S05456.dmrec +++| SX6 X7-TAAPL 06208 M00S05457.dmrec +++| FAW4 SA7 A4 06209 M00S05458.dmrec +++| NZ X6,FAW IF NOT END OF LINE 06210 M00S05459.dmrec +++| SA6 A4 SET BEGINNING OF NEXT LINE 06211 M00S05460.dmrec +++| EQ FAWX RETURN 06212 M00S05461.dmrec +++| 06213 M00S05462.dmrec +++| FAW5 SA3 TBOP+X4 SET STARTING POSITION 06214 M00S05463.dmrec +++| SB5 X3+B1 06215 M00S05464.dmrec +++| SB4 B1+B1 SET INCREMENT 06216 M00S05465.dmrec +++| EQ FAW2 LOOP FOR NEXT BYTE 06217 M00S05466.dmrec +++| 06218 M00S05467.dmrec +++|* TABLE OF BYTE FORMAT POSITIONS 06219 M00S05468.dmrec +++| 06220 M00S05469.dmrec +++| TAAP BSS 0 06221 M00S05470.dmrec +++| LOC 0 06222 M00S05471.dmrec +++| CON OLWS+10 06223 M00S05472.dmrec +++| CON OLWS+24 06224 M00S05473.dmrec +++| CON OLWS+38 06225 M00S05474.dmrec +++| CON OLWS+52 06226 M00S05475.dmrec +++| TAAPL EQU * 06227 M00S05476.dmrec +++| LOC *O 06228 M00S05477.dmrec +++| FER SPACE 4,20 06229 M00S05478.dmrec +++|** FER - FIT ERROR STATUS. 06230 M00S05479.dmrec +++|* 06231 M00S05480.dmrec +++|* ENTRY (DIRR) = FWA OF BACKUP DIRECTORY FIT. 06232 M00S05481.dmrec +++|* 06233 M00S05482.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 06234 M00S05483.dmrec +++|* 1, IF KEY NOT FOUND. 06235 M00S05484.dmrec +++|* 2, IF OTHER *CRM* ERROR. 06236 M00S05485.dmrec +++|* 3, IF END OF FILE. 06237 M00S05486.dmrec +++|* 06238 M00S05487.dmrec +++|* USES X - 0, 1, 2, 5, 7. 06239 M00S05488.dmrec +++|* A - 5, 7. 06240 M00S05489.dmrec +++|* B - NONE. 06241 M00S05490.dmrec +++|* 06242 M00S05491.dmrec +++|* CALLS COD. 06243 M00S05492.dmrec +++|* 06244 M00S05493.dmrec +++|* MACROS ERROR, FETCH. 06245 M00S05494.dmrec +++| 06246 M00S05495.dmrec +++| 06247 M00S05496.dmrec +++| FER SUBR ENTRY/EXIT 06248 M00S05497.dmrec +++| FETCH DIRR,FP,X2 FILE POSITION 06249 M00S05498.dmrec +++| SX2 X2-EOFF 06250 M00S05499.dmrec +++| SX1 3 06251 M00S05500.dmrec +++| ZR X2,FERX IF END OF FILE 06252 M00S05501.dmrec +++| MX1 0 06253 M00S05502.dmrec +++| FETCH DIRR,ES,X5 ERROR STATUS 06254 M00S05503.dmrec +++| ZR X5,FERX IF NO ERROR 06255 M00S05504.dmrec +++| SX2 KNFF KEY NOT FOUND 06256 M00S05505.dmrec +++| BX2 X5-X2 06257 M00S05506.dmrec +++| SX1 B1 06258 M00S05507.dmrec +++| ZR X2,FERX IF KEY NOT FOUND 06259 M00S05508.dmrec +++| BX1 X5 06260 M00S05509.dmrec +++| RJ COD CONVERT TO OCTAL DISPLAY CODE 06261 M00S05510.dmrec +++| MX0 18 06262 M00S05511.dmrec +++| BX7 X0*X4 06263 M00S05512.dmrec +++| SA7 HOLD5 06264 M00S05513.dmrec +++| ERROR FERA,HOLD5,,FER1,,E CRM ERROR STATUS 06265 M00S05514.dmrec +++| FER1 SX1 B1+B1 06266 M00S05515.dmrec +++| EQ FERX RETURN - ERROR 06267 M00S05516.dmrec +++| 06268 M00S05517.dmrec +++| FERA DATA 20H0 ***** 06269 M00S05518.dmrec +++| DATA C*ERROR STATUS XXX ON BACKUP DIRECTORY.* 06270 M00S05519.dmrec +++| FERAL EQU *-FERA 06271 M00S05520.dmrec +++| FML SPACE 4,10 06272 M00S05521.dmrec +++|** FML - FORMAT PRINT LINE(S). 06273 M00S05522.dmrec +++|* 06274 M00S05523.dmrec +++|* ENTRY (A0) = INDEX TO LAST ENTRY+1 IN WORD BUFFER. 06275 M00S05524.dmrec +++|* 06276 M00S05525.dmrec +++|* EXIT PRINT LINE FORMATTED 06277 M00S05526.dmrec +++|* 06278 M00S05527.dmrec +++|* USES X - 1, 2, 6, 7. 06279 M00S05528.dmrec +++|* A - 2, 6, 7. 06280 M00S05529.dmrec +++|* B - 2. 06281 M00S05530.dmrec +++|* 06282 M00S05531.dmrec +++|* CALLS ELH, FOW, WSB, FAW. 06283 M00S05532.dmrec +++| 06284 M00S05533.dmrec +++| 06285 M00S05534.dmrec +++| FML SUBR ENTRY/EXIT 06286 M00S05535.dmrec +++| BX1 X1-X1 06287 M00S05536.dmrec +++| SX1 A0-B1 06288 M00S05537.dmrec +++| NG X1,FMLX IF EMPTY LINE 06289 M00S05538.dmrec +++| SA2 OPWD 06290 M00S05539.dmrec +++| LX2 59-0 06291 M00S05540.dmrec +++| PL X2,FML2 IF NOT OCTAL MODE 06292 M00S05541.dmrec +++| BX6 X6-X6 CLEAR BYTE POSITION 06293 M00S05542.dmrec +++| SA6 SCPC 06294 M00S05543.dmrec +++| RJ ELH ENTER LINE HEADER 06295 M00S05544.dmrec +++| SB2 DTOL 06296 M00S05545.dmrec +++| RJ FOW WORD 1 06297 M00S05546.dmrec +++| SB2 B2+B1 06298 M00S05547.dmrec +++| SX1 A0-2 06299 M00S05548.dmrec +++| NG X1,FML1 IF END OF LINE 06300 M00S05549.dmrec +++| RJ FOW WORD 2 06301 M00S05550.dmrec +++| SB2 B2+B1 06302 M00S05551.dmrec +++| SX1 A0-3 06303 M00S05552.dmrec +++| NG X1,FML1 IF END OF LINE 06304 M00S05553.dmrec +++| RJ FOW WORD 3 06305 M00S05554.dmrec +++| SB2 B2+B1 06306 M00S05555.dmrec +++| SX1 A0-4 06307 M00S05556.dmrec +++| NG X1,FML1 IF END OF LINE 06308 M00S05557.dmrec +++| RJ FOW WORD 4 06309 M00S05558.dmrec +++| FML1 RJ WSB WRITE BUFFER 06310 M00S05559.dmrec +++| FML2 SA2 OPWD 06311 M00S05560.dmrec +++| LX2 59-1 06312 M00S05561.dmrec +++| BX6 X6-X6 06313 M00S05562.dmrec +++| PL X2,FML4 IF NOT ALPHA MODE 06314 M00S05563.dmrec +++| SA6 SCPC 06315 M00S05564.dmrec +++| RJ ELH 06316 M00S05565.dmrec +++| SB2 DTOL 06317 M00S05566.dmrec +++| RJ FAW WORD 1 06318 M00S05567.dmrec +++| SB2 B2+B1 06319 M00S05568.dmrec +++| SX1 A0-2 06320 M00S05569.dmrec +++| NG X1,FML3 IF END OF LINE 06321 M00S05570.dmrec +++| RJ FAW WORD 2 06322 M00S05571.dmrec +++| SB2 B2+B1 06323 M00S05572.dmrec +++| SX1 A0-3 06324 M00S05573.dmrec +++| NG X1,FML3 IF END OF LINE 06325 M00S05574.dmrec +++| RJ FAW WORD 3 06326 M00S05575.dmrec +++| SB2 B2+B1 06327 M00S05576.dmrec +++| SX1 A0-4 06328 M00S05577.dmrec +++| NG X1,FML3 IF END OF LINE 06329 M00S05578.dmrec +++| RJ FAW WORD 4 06330 M00S05579.dmrec +++| FML3 RJ WSB WRITE BUFFER 06331 M00S05580.dmrec +++| FML4 SA2 WDCT 06332 M00S05581.dmrec +++| BX7 X2 06333 M00S05582.dmrec +++| SA7 WCBL SET BEGINNING OF NEXT LINE 06334 M00S05583.dmrec +++| EQ FMLX RETURN 06335 M00S05584.dmrec +++| FND SPACE 4,15 06336 M00S05585.dmrec +++|** FND - FIND NEXT DIRECTIVE. 06337 M00S05586.dmrec +++|* 06338 M00S05587.dmrec +++|* ENTRY NONE. 06339 M00S05588.dmrec +++|* 06340 M00S05589.dmrec +++|* EXIT (X1) = 0, IF VALID DIRECTIVE FOUND. 06341 M00S05590.dmrec +++|* 06342 M00S05591.dmrec +++|* USES X - 4. 06343 M00S05592.dmrec +++|* A - NONE. 06344 M00S05593.dmrec +++|* B - NONE. 06345 M00S05594.dmrec +++|* 06346 M00S05595.dmrec +++|* CALLS CND. 06347 M00S05596.dmrec +++| 06348 M00S05597.dmrec +++| 06349 M00S05598.dmrec +++| FND SUBR ENTRY/EXIT 06350 M00S05599.dmrec +++| SX4 3RDA* *ADD* DIRECTIVE 06351 M00S05600.dmrec +++| RJ CND CHECK NEXT DIRECTIVE 06352 M00S05601.dmrec +++| ZR X1,FNDX IF FOUND RETURN 06353 M00S05602.dmrec +++| SX4 3RYC* *CYCLE* DIRECTIVE 06354 M00S05603.dmrec +++| RJ CND CHECK NEXT DIRECTIVE 06355 M00S05604.dmrec +++| ZR X1,FNDX IF FOUND RETURN 06356 M00S05605.dmrec +++| SX4 3RED* *DELETE* DIRECTIVE 06357 M00S05606.dmrec +++| RJ CND CHECK NEXT DIRECTIVE 06358 M00S05607.dmrec +++| EQ FNDX RETURN 06359 M00S05608.dmrec +++| FOW SPACE 4,15 06360 M00S05609.dmrec +++|** FOW - FORMAT OCTAL WORD. 06361 M00S05610.dmrec +++|* 06362 M00S05611.dmrec +++|* ENTRY (B2) = ADDRESS OF WORD TO FORMAT. 06363 M00S05612.dmrec +++|* (SCPC) = BYTE POSITION. 06364 M00S05613.dmrec +++|* 06365 M00S05614.dmrec +++|* EXIT WORD PLACED IN BUFFER. 06366 M00S05615.dmrec +++|* (SCPC) = UPDATED. 06367 M00S05616.dmrec +++|* (X6) = 0 IF LINE IS FILLED. 06368 M00S05617.dmrec +++|* (B2) = UNCHANGED. 06369 M00S05618.dmrec +++|* 06370 M00S05619.dmrec +++|* USES A - 4, 6, 7. 06371 M00S05620.dmrec +++|* X - 2, 3, 4, 6, 7. 06372 M00S05621.dmrec +++|* B - 6, 7. 06373 M00S05622.dmrec +++| 06374 M00S05623.dmrec +++| 06375 M00S05624.dmrec +++| FOW SUBR ENTRY/EXIT 06376 M00S05625.dmrec +++| SA4 SCPC 06377 M00S05626.dmrec +++| SA4 TBOP+X4 GET BEGINNING CHARACTER POSITION 06378 M00S05627.dmrec +++| MX3 20 DIGIT COUNT 06379 M00S05628.dmrec +++| SB7 X4 STORE ADDRESS 06380 M00S05629.dmrec +++| SB6 1R0 06381 M00S05630.dmrec +++| MX2 -3 06382 M00S05631.dmrec +++| SA4 B2 GET INPUT WORD 06383 M00S05632.dmrec +++| FOW1 LX4 3 06384 M00S05633.dmrec +++| BX7 -X2*X4 GET DIGIT 06385 M00S05634.dmrec +++| SX7 X7+B6 06386 M00S05635.dmrec +++| LX3 1 06387 M00S05636.dmrec +++| SA7 B7 STORE CONVERTED DIGIT 06388 M00S05637.dmrec +++| SB7 B7+B1 06389 M00S05638.dmrec +++| NG X3,FOW1 IF NOT END OF WORD 06390 M00S05639.dmrec +++| SA4 SCPC 06391 M00S05640.dmrec +++| SX7 X4+B1 06392 M00S05641.dmrec +++| SX6 X7-TBOPL 06393 M00S05642.dmrec +++| SA7 A4 ADVANCE POSITION 06394 M00S05643.dmrec +++| NZ X6,FOWX IF NOT END OF LINE 06395 M00S05644.dmrec +++| SA6 A4 RESET BYTE POSITION 06396 M00S05645.dmrec +++| EQ FOWX RETURN 06397 M00S05646.dmrec +++| 06398 M00S05647.dmrec +++|* TABLE OF FORMATTING VALUES 06399 M00S05648.dmrec +++| 06400 M00S05649.dmrec +++| TBOP BSS 0 06401 M00S05650.dmrec +++| LOC 0 06402 M00S05651.dmrec +++| CON OLWS+10 06403 M00S05652.dmrec +++| CON OLWS+34 06404 M00S05653.dmrec +++| CON OLWS+58 06405 M00S05654.dmrec +++| CON OLWS+82 06406 M00S05655.dmrec +++| TBOPL EQU * 06407 M00S05656.dmrec +++| LOC *O 06408 M00S05657.dmrec +++| GAL SPACE 4,15 06409 M00S05658.dmrec +++|** GAL - GENERATE AFTER IMAGE HEADER LISTING. 06410 M00S05659.dmrec +++|* 06411 M00S05660.dmrec +++|* ENTRY (DIRR) = FWA OF BACKUP DIRECTORY FIT. 06412 M00S05661.dmrec +++|* (TVSN) = VSN OF AFTER IMAGE LOG DUMP TAPE. 06413 M00S05662.dmrec +++|* (TIME) = HH.MM.SS, IF ENTRIES AFTER THIS TIME NEEDED. 06414 M00S05663.dmrec +++|* 06415 M00S05664.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 06416 M00S05665.dmrec +++|* 06417 M00S05666.dmrec +++|* USES X - ALL. 06418 M00S05667.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 06419 M00S05668.dmrec +++|* B - 6, 7. 06420 M00S05669.dmrec +++|* 06421 M00S05670.dmrec +++|* CALLS BFL, CDD, COD, FER, GNR, LDE, LDH, RQT, SFN, SHT. 06422 M00S05671.dmrec +++|* 06423 M00S05672.dmrec +++|* MACROS EDATE, ERROR, ETIME, READ, READW, REWIND, RMGET. 06424 M00S05673.dmrec +++| 06425 M00S05674.dmrec +++| 06426 M00S05675.dmrec +++| GAL SUBR ENTRY/EXIT 06427 M00S05676.dmrec +++| SA2 TVSN 06428 M00S05677.dmrec +++| MX0 24 06429 M00S05678.dmrec +++| LX2 35-59 06430 M00S05679.dmrec +++| SA3 VSNK SECOND WORD OF THE KEY 06431 M00S05680.dmrec +++| BX4 X0*X3 UPPER FOUR CHARACTERS 06432 M00S05681.dmrec +++| BX6 X2+X4 06433 M00S05682.dmrec +++| SA6 CKY1 06434 M00S05683.dmrec +++| BX6 X3 06435 M00S05684.dmrec +++| SA6 CKY2 06436 M00S05685.dmrec +++| RMGET DIRR,WSAB,0,,CKY1 READ VSN ENTRY 06437 M00S05686.dmrec +++| RJ FER FIT ERROR STATUS 06438 M00S05687.dmrec +++| NZ X1,GAL6 IF ERRORS 06439 M00S05688.dmrec +++| SA2 TVSN 06440 M00S05689.dmrec +++| SX5 B0 READ MODE FOR TAPE REQUEST 06441 M00S05690.dmrec +++| BX6 X2 VSN NUMBER 06442 M00S05691.dmrec +++| SB7 TP TAPE REQUEST FET 06443 M00S05692.dmrec +++| RJ RQT REQUEST TAPE FILE 06444 M00S05693.dmrec +++| SA1 =6L MASS STORAGE FILE EXISTS 06445 M00S05694.dmrec +++| BX2 X1-X6 06446 M00S05695.dmrec +++| ZR X2,GAL2 IF DISK FILE ASSIGNED 06447 M00S05696.dmrec +++| SA1 TVSN 06448 M00S05697.dmrec +++| BX2 X1-X6 06449 M00S05698.dmrec +++| NZ X2,GAL7 IF NOT THE SAME VSN 06450 M00S05699.dmrec +++| REWIND TP,R 06451 M00S05700.dmrec +++| READ TP READ DMREC-S HEADER 06452 M00S05701.dmrec +++| READW TP,WBUF,WBUFL AFTER IMAGE TAPE - NO END OF TAPE 06453 M00S05702.dmrec +++| ZR X1,GAL8 IF ERROR 06454 M00S05703.dmrec +++| NG X1,GAL8 IF ERROR 06455 M00S05704.dmrec +++| GAL2 SX6 8 SET LISTING HEADER 06456 M00S05705.dmrec +++| RJ LPH LIST PAGE HEADER 06457 M00S05706.dmrec +++| SX6 9 SET LINE HEADER 06458 M00S05707.dmrec +++| RJ LPH LIST PAGE HEADER 06459 M00S05708.dmrec +++| MX6 0 06460 M00S05709.dmrec +++| SA6 HOLD INITIAL READ 06461 M00S05710.dmrec +++| SA6 RECC RECORD COUNT 06462 M00S05711.dmrec +++| SX4 TP TAPE FET ADDRESS 06463 M00S05712.dmrec +++| RJ GNR READ FIRST RECORD 06464 M00S05713.dmrec +++| NZ X1,GALX IF ERROR IN TAPE HEADER 06465 M00S05714.dmrec +++| GAL3 SX4 TP TAPE FET ADDRESS 06466 M00S05715.dmrec +++| RJ GNR READ NEXT RECORD 06467 M00S05716.dmrec +++| NG X1,GAL9 IF END OF FILE 06468 M00S05717.dmrec +++| NZ X1,GAL8 IF READ ERROR 06469 M00S05718.dmrec +++| SA1 RECC 06470 M00S05719.dmrec +++| SX2 B1 06471 M00S05720.dmrec +++| IX6 X1+X2 INCREMENT RECORD COUNT 06472 M00S05721.dmrec +++| SA6 RECC 06473 M00S05722.dmrec +++| SB6 X4 FWA OF AFTER IMAGE RECORD 06474 M00S05723.dmrec +++| RJ BFL BLANK FILL LINE 06475 M00S05724.dmrec +++| SA5 B6+XLPDW PACKED DATE/TIME 06476 M00S05725.dmrec +++| ETIME X5 UNPACK TIME 06477 M00S05726.dmrec +++| AX5 18 06478 M00S05727.dmrec +++| SA6 PLIN+6 06479 M00S05728.dmrec +++| EDATE X5 UNPACK DATE 06480 M00S05729.dmrec +++| SA6 PLIN+5 06481 M00S05730.dmrec +++| SA1 TIME 06482 M00S05731.dmrec +++| ZR X1,GAL4 IF ALL HEADERS REQUIRED 06483 M00S05732.dmrec +++| SA2 PLIN+6 06484 M00S05733.dmrec +++| IX2 X1-X2 COMPARE TIMES 06485 M00S05734.dmrec +++| NG X2,GAL4 IF HEADER TIME QUALIFIES 06486 M00S05735.dmrec +++| EQ GAL3 NEXT RECORD 06487 M00S05736.dmrec +++| 06488 M00S05737.dmrec +++| GAL4 SA1 RECC RECORD COUNT 06489 M00S05738.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 06490 M00S05739.dmrec +++| LX6 48 06491 M00S05740.dmrec +++| SA6 PLIN+1 06492 M00S05741.dmrec +++| SA1 B6+XLFNW FILE NAME 06493 M00S05742.dmrec +++| MX0 42 06494 M00S05743.dmrec +++| BX1 X0*X1 06495 M00S05744.dmrec +++| RJ SFN SPACE FILL NAME 06496 M00S05745.dmrec +++| LX6 41-59 06497 M00S05746.dmrec +++| MX0 12 06498 M00S05747.dmrec +++| BX7 -X0*X6 LOWER HALF 06499 M00S05748.dmrec +++| SA1 PLIN+1 06500 M00S05749.dmrec +++| BX1 X0*X1 UPPER PART 06501 M00S05750.dmrec +++| BX7 X1+X7 COMBINE 06502 M00S05751.dmrec +++| SA7 PLIN+1 06503 M00S05752.dmrec +++| SA1 B6+XLBWW FIRST HEADER WORD 06504 M00S05753.dmrec +++| MX0 -19 06505 M00S05754.dmrec +++| BX2 -X0*X1 06506 M00S05755.dmrec +++| LX2 18-17 06507 M00S05756.dmrec +++| SX3 X2 HEADER TYPE 06508 M00S05757.dmrec +++| AX3 1 06509 M00S05758.dmrec +++| LX2 59-19 06510 M00S05759.dmrec +++| PL X2,GAL5 IF NO BEGIN INDICATOR 06511 M00S05760.dmrec +++| SA5 BIND BEGIN INDICATOR 06512 M00S05761.dmrec +++| BX6 X5 06513 M00S05762.dmrec +++| SA6 PLIN+4 06514 M00S05763.dmrec +++| GAL5 RJ SHT SET HEADER TYPE 06515 M00S05764.dmrec +++| NZ X1,GALX IF UNRECOGNIZABLE HEADER 06516 M00S05765.dmrec +++| MX0 24 06517 M00S05766.dmrec +++| SA1 B6+XLBWW TRANSACTION SEQUENCE NUMBER 06518 M00S05767.dmrec +++| BX1 X0*X1 06519 M00S05768.dmrec +++| LX1 23-59 06520 M00S05769.dmrec +++| RJ COD CONSTANT TO OCTAL DISPLAY 06521 M00S05770.dmrec +++| LX6 6 06522 M00S05771.dmrec +++| MX0 54 06523 M00S05772.dmrec +++| SX1 1RB 06524 M00S05773.dmrec +++| BX6 X0*X6 06525 M00S05774.dmrec +++| BX6 X1+X6 06526 M00S05775.dmrec +++| SA6 PLIN+2 06527 M00S05776.dmrec +++| SA1 B6+XLTNW TASK NAME 06528 M00S05777.dmrec +++| MX0 42 06529 M00S05778.dmrec +++| BX1 X0*X1 06530 M00S05779.dmrec +++| RJ SFN SPACE FILL NAME 06531 M00S05780.dmrec +++| LX6 53-59 06532 M00S05781.dmrec +++| SA1 B6+XLKSW RECORD LENGTH 06533 M00S05782.dmrec +++| AX1 24 06534 M00S05783.dmrec +++| SA6 PLIN+3 06535 M00S05784.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 06536 M00S05785.dmrec +++| BX5 X6 06537 M00S05786.dmrec +++| MX0 -24 06538 M00S05787.dmrec +++| SA1 B6+XLKSW KEY LENGTH 06539 M00S05788.dmrec +++| BX1 -X0*X1 06540 M00S05789.dmrec +++| RJ CDD CONVERT BINARY TO DISPLAY 06541 M00S05790.dmrec +++| MX0 -24 06542 M00S05791.dmrec +++| LX5 24 06543 M00S05792.dmrec +++| BX6 -X0*X6 06544 M00S05793.dmrec +++| BX5 X0*X5 06545 M00S05794.dmrec +++| BX6 X5+X6 KEY AND RECORD LENGTH 06546 M00S05795.dmrec +++| SA6 PLIN+7 06547 M00S05796.dmrec +++| MX7 0 06548 M00S05797.dmrec +++| SA7 PLIN+8 TERMINATE LINE 06549 M00S05798.dmrec +++| SX6 B6 06550 M00S05799.dmrec +++| SA6 GALE SAVE *B6* 06551 M00S05800.dmrec +++| RJ LDE LIST ENTRY 06552 M00S05801.dmrec +++| SA1 GALE 06553 M00S05802.dmrec +++| SB6 X1 06554 M00S05803.dmrec +++| SA1 B6+XLKSW KEY LENGTH 06555 M00S05804.dmrec +++| MX0 -24 06556 M00S05805.dmrec +++| BX7 -X0*X1 06557 M00S05806.dmrec +++| ZR X7,GAL3 IF NO KEY PRESENT 06558 M00S05807.dmrec +++| RJ LKC LIST KEY CONTENTS 06559 M00S05808.dmrec +++| EQ GAL3 NEXT RECORD 06560 M00S05809.dmrec +++| 06561 M00S05810.dmrec +++| GAL6 ERROR CVNA,,,GALX,,E VSN DOES NOT EXIST 06562 M00S05811.dmrec +++| 06563 M00S05812.dmrec +++| GAL7 ERROR GALB,,,GALX,,E WRONG VSN USED 06564 M00S05813.dmrec +++| 06565 M00S05814.dmrec +++| GAL8 ERROR GALC,,,GALX,,E READ ERROR ON TAPE 06566 M00S05815.dmrec +++| 06567 M00S05816.dmrec +++| GAL9 ERROR GALD,,,GAL10 END OF FILE REACHED 06568 M00S05817.dmrec +++| GAL10 MX1 0 06569 M00S05818.dmrec +++| EQ GALX RETURN 06570 M00S05819.dmrec +++| 06571 M00S05820.dmrec +++| GALB DATA 20H0 ***** 06572 M00S05821.dmrec +++| DATA C*WRONG VSN USED.* 06573 M00S05822.dmrec +++| GALBL EQU *-GALB 06574 M00S05823.dmrec +++| 06575 M00S05824.dmrec +++| GALC DATA 20H0 ***** 06576 M00S05825.dmrec +++| DATA C*READ ERROR ON TAPE.* 06577 M00S05826.dmrec +++| GALCL EQU *-GALC 06578 M00S05827.dmrec +++| 06579 M00S05828.dmrec +++| GALD DATA 20H0 ***** 06580 M00S05829.dmrec +++| DATA C*END OF FILE REACHED.* 06581 M00S05830.dmrec +++| GALDL EQU *-GALD 06582 M00S05831.dmrec +++| 06583 M00S05832.dmrec +++| GALE BSSZ 1 TEMPORARY SAVE OF *B6*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 06584 M01S00004.dmrec4 +++| GDR SPACE 4,10 06585 M01S00005.dmrec4 +++|** GDR - GET DATA RECORD. 06586 M01S00006.dmrec4 +++|* 06587 M01S00007.dmrec4 +++|* *GDR* RETRIEVES THE NEXT RECORD FROM AN *AFTER IMAGE* 06588 M01S00008.dmrec4 +++|* LOG FILE. 06589 M01S00009.dmrec4 +++|* 06590 M01S00010.dmrec4 +++|* ENTRY (HOLD) = 0 FOR INITIAL CALL ONLY. 06591 M01S00011.dmrec4 +++|* (X4) = FET ADDRESS. 06592 M01S00012.dmrec4 +++|* (HOLD)/(HOLD1) = LAST EXIT IF NOT FIRST CALL. 06593 M01S00013.dmrec4 +++|* 06594 M01S00014.dmrec4 +++|* EXIT (HOLD) = FWA OF NEXT RECORD. 06595 M01S00015.dmrec4 +++|* (HOLD1) = LWA+1 OF DATA BLOCK READ. 06596 M01S00016.dmrec4 +++|* (X1) = 0, IF RECORD RETRIEVED. 06597 M01S00017.dmrec4 +++|* .LT. 0, IF EOF REACHED (PHYSICAL EOF), 06598 M01S00018.dmrec4 +++|* OR ONE WORD TRAILER (ZZDBLNNEND). 06599 M01S00019.dmrec4 +++|* (X5) = RECORD LENGTH. 06600 M01S00020.dmrec4 +++|* (X4) = ADDRESS OF RECORD. 06601 M01S00021.dmrec4 +++|* 06602 M01S00022.dmrec4 +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 06603 M01S00023.dmrec4 +++|* A - 1, 2, 3, 4, 5, 6. 06604 M01S00024.dmrec4 +++|* 06605 M01S00025.dmrec4 +++|* MACROS ERROR, READ, READW. 06606 M01S00026.dmrec4 +++|* 06607 M01S00027.dmrec4 +++|* NOTE - WBUF MUST BE GREATER THAN THE MAXIMUM 06608 M01S00028.dmrec4 +++|* *AI* BUFFER IN AAMI. (SEE COMKCRM.680) 06609 M01S00029.dmrec4 +++| 06610 M01S00030.dmrec4 +++| 06611 M01S00031.dmrec4 +++| GDR SUBR ENTRY/EXIT 06612 M01S00032.dmrec4 +++| BX6 X4 06613 M01S00033.dmrec4 +++| SA3 HOLD 06614 M01S00034.dmrec4 +++| SA6 HOLD2 SAVE FET ADDRESS 06615 M01S00035.dmrec4 +++| NZ X3,GDR4 IF NOT FIRST TRIP 06616 M01S00036.dmrec4 +++| SX6 WBUF 06617 M01S00037.dmrec4 +++| SA6 HOLD1 06618 M01S00038.dmrec4 +++| SA6 A3 06619 M01S00039.dmrec4 +++| READ X4,R 06620 M01S00040.dmrec4 +++| SA4 HOLD2 06621 M01S00041.dmrec4 +++| READW X4,WBUF,WBUFL 06622 M01S00042.dmrec4 +++| SA4 HOLD2 06623 M01S00043.dmrec4 +++| ZR X1,GDR8 IF NO HEADER 06624 M01S00044.dmrec4 +++| NG X1,GDR8 IF NO HEADER 06625 M01S00045.dmrec4 +++| 06626 M01S00046.dmrec4 +++|* EOR ENCOUNTERED. 06627 M01S00047.dmrec4 +++| 06628 M01S00048.dmrec4 +++| SA3 WBUF+3 GET MAXIMUM BUFFER LENGTH 06629 M01S00049.dmrec4 +++| MX0 36 06630 M01S00050.dmrec4 +++| BX6 -X0*X3 06631 M01S00051.dmrec4 +++| SX2 WBUFL 06632 M01S00052.dmrec4 +++| IX6 X6-X2 06633 M01S00053.dmrec4 +++| NG X6,GDR5 IF BUFFER BIG ENOUGH 06634 M01S00054.dmrec4 +++| EQ GDR7 ERROR 06635 M01S00055.dmrec4 +++| 06636 M01S00056.dmrec4 +++|* READ NEXT BLOCK. 06637 M01S00057.dmrec4 +++| 06638 M01S00058.dmrec4 +++| GDR1 READ X4,R 06639 M01S00059.dmrec4 +++| SA4 HOLD2 06640 M01S00060.dmrec4 +++| READW X4,WBUF,WBUFL 06641 M01S00061.dmrec4 +++| SA4 HOLD2 06642 M01S00062.dmrec4 +++| ZR X1,GDR7 IF RECORD TOO LARGE 06643 M01S00063.dmrec4 +++| PL X1,GDR3 IF EOR 06644 M01S00064.dmrec4 +++| GDR2 MX1 1 06645 M01S00065.dmrec4 +++| EQ GDRX RETURN EOF 06646 M01S00066.dmrec4 +++| 06647 M01S00067.dmrec4 +++| GDR3 SX6 WBUF 06648 M01S00068.dmrec4 +++| SA6 HOLD ADDRESS OF NEXT RECORD 06649 M01S00069.dmrec4 +++| BX6 X1 06650 M01S00070.dmrec4 +++| SA6 HOLD1 LWA+1 OF DATA BLOCK 06651 M01S00071.dmrec4 +++| MX0 -18 06652 M01S00072.dmrec4 +++| SX3 3REND 06653 M01S00073.dmrec4 +++| SA5 WBUF CHECK FIRST WORD 06654 M01S00074.dmrec4 +++| BX5 X5-X3 06655 M01S00075.dmrec4 +++| BX5 -X0*X5 06656 M01S00076.dmrec4 +++| ZR X5,GDR2 IF TRAILER RECORD FOUND 06657 M01S00077.dmrec4 +++| GDR4 SA2 HOLD 06658 M01S00078.dmrec4 +++| SA1 HOLD1 06659 M01S00079.dmrec4 +++| IX3 X2-X1 06660 M01S00080.dmrec4 +++| PL X3,GDR1 IF NO MORE RECORDS IN THIS BLOCK
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Removed by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 06661 M02S00081.ns2611 ---| MX0 60
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 06662 M01S00082.dmrec4 +++| SA5 X2
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Removed by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 06663 M02S00083.ns2611 ---| BX3 X0-X5 06664 M02S00084.ns2611 ---| ZR X3,GDR1 IF ALL BITS SET 06665 M02S00085.ns2611 ---| MX0 -XLTYN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 06666 M01S00001.ns2611 +++| NZ X5,GDR4.0 IF NOT WORD OF ALL 1-S 06667 M01S00002.ns2611 +++| NG X5,GDR1 IF WORD OF ALL 1-S 06668 M01S00003.ns2611 +++| GDR4.0 MX0 -XLTYN
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 06669 M01S00086.dmrec4 +++| BX5 -X0*X5 GET FUNCTION 06670 M01S00087.dmrec4 +++| ZR X5,GDR6 IF *COMMIT* STAMP 06671 M01S00088.dmrec4 +++| SX3 X5-XLQD 06672 M01S00089.dmrec4 +++| ZR X3,GDR6 IF *BRF* DOWN STAMP 06673 M01S00090.dmrec4 +++| SX3 X5-TRDF 06674 M01S00091.dmrec4 +++| ZR X3,GDR6 IF *DBFREE* STAMP 06675 M01S00092.dmrec4 +++| SX3 X5-DMCC 06676 M01S00093.dmrec4 +++| ZR X3,GDR6 IF *CEASE* STAMP 06677 M01S00094.dmrec4 +++| SA5 X2+XLRSW 06678 M01S00095.dmrec4 +++| MX0 -XLRSN 06679 M01S00096.dmrec4 +++| LX5 XLRSN-1-XLRSS GET RECORD LENGTH 06680 M01S00097.dmrec4 +++| BX3 -X0*X5 RECORD LENGTH 06681 M01S00098.dmrec4 +++| MX0 -XLKSN 06682 M01S00099.dmrec4 +++| LX5 XLKSN-1-XLKSS-XLRSN+XLRSS+1 06683 M01S00100.dmrec4 +++| BX5 -X0*X5
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Removed by) | dmrec21 |
Seq # *Modification Id* Act ----------------------------+ 06684 M02S00101.dmrec21 ---| IX3 X5+X3 KL + RL IN CHARACTERS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmrec21 |
Seq # *Modification Id* Act ----------------------------+ 06685 M01S00001.dmrec21 +++| SX1 10 ASSUME ONE WORD 06686 M01S00002.dmrec21 +++| LX6 X5 06687 M01S00003.dmrec21 +++| IX4 X6/X1 06688 M01S00004.dmrec21 +++| SX1 10 RESTORE (X1) 06689 M01S00005.dmrec21 +++| IX4 X4*X1 06690 M01S00006.dmrec21 +++| IX5 X4-X5 06691 M01S00007.dmrec21 +++| ZR X5,GDR4.1 IF KL IS A MULTIPLE OF 10 06692 M01S00008.dmrec21 +++| IX4 X4+X1 ROUND KL UP TO THE NEXT MULTIPLE OF 10 06693 M01S00009.dmrec21 +++| 06694 M01S00010.dmrec21 +++| GDR4.1 IX3 X4+X3 KL + RL IN CHARACTERS
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 06695 M01S00102.dmrec4 +++| SX4 9 06696 M01S00103.dmrec4 +++| IX3 X3+X4 ADD 9 TO CHARACTER COUNT 06697 M01S00104.dmrec4 +++| SX5 10 06698 M01S00105.dmrec4 +++| IX4 X3/X5 WORDS 06699 M01S00106.dmrec4 +++| SX3 TARHL 06700 M01S00107.dmrec4 +++| IX5 X3+X4 06701 M01S00108.dmrec4 +++| SX4 X2 RECORD ADDRESS 06702 M01S00109.dmrec4 +++| IX6 X5+X2 06703 M01S00110.dmrec4 +++| SA6 A2+ ADDRESS OF NEXT RECORD 06704 M01S00111.dmrec4 +++| GDR5 SX1 B0 06705 M01S00112.dmrec4 +++| EQ GDRX RETUN WITH RECORD 06706 M01S00113.dmrec4 +++| 06707 M01S00114.dmrec4 +++| GDR6 SX6 X2+TARHL 06708 M01S00115.dmrec4 +++| SX3 TARHL 06709 M01S00116.dmrec4 +++| SA6 A2 FWA OF NEXT RECORD 06710 M01S00117.dmrec4 +++| SX4 X2 06711 M01S00118.dmrec4 +++| EQ GDR5 RETURN 06712 M01S00119.dmrec4 +++| 06713 M01S00120.dmrec4 +++| GDR7 ERROR GNRA,,,GDRX,,E BLOCK BUFFER TOO SMALL 06714 M01S00121.dmrec4 +++| 06715 M01S00122.dmrec4 +++| GDR8 ERROR GNRB,,,GDRX,,E ARF FILE HEADER ERROR 06716 M00S05833.dmrec +++| GFA SPACE 4,20
| Line S05834 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06717 M01S05834.ns2023 ---|** GFA - GET LONG/QUICK RECOVERY FILE LOCAL.
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06718 M01S00130.ns2023 +++|** GFA - GET AFTER/BEFORE IMAGE RECOVERY FILE LOCAL. 06719 M00S05835.dmrec +++|*
| Line S05836 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06720 M01S05836.ns2023 ---|* ENTRY (A0) = FWA OF FET CONTAINED IN *TLRF* OR *TQRF*. 06721 M01S05837.ns2023 ---|* (A5) = FWA OF HEADER CONTAINED IN *TLRF* OR *TQRF*.
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06722 M01S00131.ns2023 +++|* ENTRY (A0) = FWA OF FET CONTAINED IN *TARF* OR *TBRF*. 06723 M01S00132.ns2023 +++|* (A5) = FWA OF HEADER CONTAINED IN *TARF* OR *TBRF*. 06724 M00S05838.dmrec +++|* (X5) = FIRST WORD OF HEADER.
| Line S05839 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06725 M01S05839.ns2023 ---|* (B7) = ZERO IF LRF PROCESS. 06726 M01S05840.ns2023 ---|* = ONE IF QRF PROCESS.
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06727 M01S00133.ns2023 +++|* (B7) = ZERO IF *ARF* PROCESS. 06728 M01S00134.ns2023 +++|* = ONE IF *BRF* PROCESS. 06729 M00S05841.dmrec +++|* 06730 M00S05842.dmrec +++|* EXIT (X6) = 0, IF NO ERRORS. 06731 M00S05843.dmrec +++|* (X6) = 6, IF ERROR ON ATTACH OR DEFINE. 06732 M00S05844.dmrec +++|* = 12, IF *CIO* ERROR ON RECOVERY FILE I/O. 06733 M00S05845.dmrec +++|* 06734 M00S05846.dmrec +++|* USES X - 0, 1, 6, 7. 06735 M00S05847.dmrec +++|* A - 1, 7. 06736 M00S05848.dmrec +++|* B - 7. 06737 M00S05849.dmrec +++|* 06738 M00S05850.dmrec +++|* CALLS ARF, ATF. 06739 M00S05851.dmrec +++|* 06740 M00S05852.dmrec +++|* MACROS STATUS. 06741 M00S05853.dmrec +++| 06742 M00S05854.dmrec +++| GFA SUBR ENTRY/EXIT 06743 M00S05855.dmrec +++| SX0 B7+ SAVE B7 06744 M00S05856.dmrec +++| SA1 A0 FILE NAME LEFT 06745 M00S05857.dmrec +++| BX7 X1 06746 M00S05858.dmrec +++| SA7 RECF FILE NAME TO FET+0 06747 M00S05859.dmrec +++| STATUS RECF 06748 M00S05860.dmrec +++| SA1 RECF 06749 M00S05861.dmrec +++| MX7 11 06750 M00S05862.dmrec +++| LX1 59-11 06751 M00S05863.dmrec +++| BX1 X7*X1
| Line S05864 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06752 M01S05864.ns2023 ---| NZ X1,GFA1 IF LRF OR QRF LOCAL
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06753 M01S00135.ns2023 +++| NZ X1,GFA1 IF *ARF* OR *BRF* LOCAL 06754 M00S05865.dmrec +++| SB7 B1+B1 (B7) = 2 FOR *ATF* ATTACH 06755 M00S05866.dmrec +++| SA1 A0+ FILE NAME FROM FET 06756 M00S05867.dmrec +++| RJ ATF ATTEMPT ATTACH 06757 M00S05868.dmrec +++| ZR X1,GFA1 IF FILE ATTACHED WITHOUT ERROR 06758 M00S05869.dmrec +++| SB7 B1 (B7) = 1 FOR *ATF* DEFINE 06759 M00S05870.dmrec +++| SA1 A0
| Line S05871 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06760 M01S05871.ns2023 ---| RJ ATF DEFINE LRF OR QRF 06761 M01S05872.ns2023 ---| SX6 6 ERROR ON DEFINE LRF OR QRF ERROR CODE
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06762 M01S00136.ns2023 +++| RJ ATF DEFINE *ARF* OR *BRF* 06763 M01S00137.ns2023 +++| SX6 6 ERROR ON DEFINE *ARF* OR *BRF* ERROR CODE 06764 M00S05873.dmrec +++| NZ X1,GFAX IF ERROR ON DEFINE
| Line S05874 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06765 M01S05874.ns2023 ---| GFA1 SB7 X0 ZERO FOR LRF, ONE FOR QRF
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06766 M01S00138.ns2023 +++| GFA1 SB7 X0 ZERO FOR *ARF*, ONE FOR *BRF* 06767 M00S05875.dmrec +++| SA1 DIRECT GET DIRECTIVE 06768 M00S05876.dmrec +++| LX1 59-56 CHECK FOR *D* 06769 M00S05877.dmrec +++| NG X1,GFA2 IF DUMP DIRECTIVE
| Line S05878 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06770 M01S05878.ns2023 ---| RJ ARF ALLOCATE BUFFER
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06771 M01S00139.ns2023 +++| RJ AAF ALLOCATE BUFFER 06772 M00S05879.dmrec +++| EQ GFA3 CHECK FOR COMPLETE ALLOCATION 06773 M00S05880.dmrec +++| 06774 M00S05881.dmrec +++| GFA2 RJ RFH REWRITE FILE HEADER 06775 M00S05882.dmrec +++| GFA3 ZR X6,GFAX IF *ARF* OR *BRF* ALLOCATED 06776 M00S05883.dmrec +++| SX6 12B CIO ERROR ON RECOVERY FILE ERROR CODE 06777 M00S05884.dmrec +++| EQ GFAX ERROR EXIT 06778 M00S05885.dmrec +++| GFL SPACE 4,25 06779 M00S05886.dmrec +++|** GFL - GENERATE FULL LISTING. 06780 M00S05887.dmrec +++|* 06781 M00S05888.dmrec +++|* THIS ROUTINE GENERATES FULL LISTING OF THE BACKUP 06782 M00S05889.dmrec +++|* DIRECTORY. FIRST PART SHOWS ALL ENTRIES IN THE KEY 06783 M00S05890.dmrec +++|* SEQUENCE. SECOND PART SHOWS DUMP ENTRIES IN THE 06784 M00S05891.dmrec +++|* CHRONOLOGICAL SEQUENCE BY DATE/TIME OF THE DUMP. 06785 M00S05892.dmrec +++|* 06786 M00S05893.dmrec +++|* ENTRY (LFNC) = 0 ALL FILES TO BE LISTED. 06787 M00S05894.dmrec +++|* (LSTC) = 0 NO DATE/TIME SPECIFIED. 06788 M00S05895.dmrec +++|* 06789 M00S05896.dmrec +++|* EXIT LISTING GENERATED. 06790 M00S05897.dmrec +++|* 06791 M00S05898.dmrec +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 06792 M00S05899.dmrec +++|* A - 0, 1, 2, 3, 5, 6, 7. 06793 M00S05900.dmrec +++|* B - 2. 06794 M00S05901.dmrec +++|*
| Line S05902 Modification History | |
|---|---|
M01 (Removed by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06795 M01S05902.dmrec20 ---|* CALLS BFL, LDE, LDH, LFH, LPH, RDE, RVE, SFN.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06796 M01S00002.dmrec20 +++|* CALLS BFL, LDE, LDH, LFH, LPH, RDE, RVE, SFN, SM5END, 06797 M01S00003.dmrec20 +++|* SM5FROM, SM5KEY, SM5SORT, SM5TO. 06798 M00S05903.dmrec +++|*
| Line S05904 Modification History | |
|---|---|
M01 (Removed by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06799 M01S05904.dmrec20 ---|* MACROS CLOSEM, EDATE, ETIME, FETCH, FILE, FILES, 06800 M01S05905.dmrec20 ---|* KEY, OPENM, PUT, REWINDM, RMGET, SKIPBL, SORT.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06801 M01S00004.dmrec20 +++|* MACROS CLOSEM, EDATE, ETIME, FETCH, OPENM, PUT, REWINDM, 06802 M01S00005.dmrec20 +++|* RMGET, SKIPBL. 06803 M00S05906.dmrec +++| 06804 M00S05907.dmrec +++| 06805 M00S05908.dmrec +++| GFL SUBR ENTRY/EXIT 06806 M00S05909.dmrec +++| REWINDM DIRR 06807 M00S05910.dmrec +++| OPENM SORTI,I-O 06808 M00S05911.dmrec +++| SA1 GFLA FULL LISTING 06809 M00S05912.dmrec +++| BX6 X1 06810 M00S05913.dmrec +++| SA6 HDR1+1 06811 M00S05914.dmrec +++| SA0 DIRR SET FIT ADDRESS 06812 M00S05915.dmrec +++| MX6 0 FULL PAGE HEADING 06813 M00S05916.dmrec +++| RJ LDH LIST DIRECTORY HEADER 06814 M00S05917.dmrec +++| SA1 BKEY BLANK KEY 06815 M00S05918.dmrec +++| BX6 X1 06816 M00S05919.dmrec +++| SA6 TKY1 PRESET PREVIOUS KEY 06817 M00S05920.dmrec +++| SA6 TKY2 06818 M00S05921.dmrec +++| GFL1 RJ RDE READ DIRECTORY ENTRY 06819 M00S05922.dmrec +++| ZR X6,GFL2 IF NO ERRORS 06820 M00S05923.dmrec +++| SX6 X6-1 06821 M00S05924.dmrec +++| ZR X6,GFL3 IF NEW KEY VALUE FOUND 06822 M00S05925.dmrec +++| MX1 0 06823 M00S05926.dmrec +++| SX6 X6-2 06824 M00S05927.dmrec +++| ZR X6,GFLX IF END OF FILE, RETURN 06825 M00S05928.dmrec +++| EQ GFL4 PROCESS VSN ENTRIES 06826 M00S05929.dmrec +++| 06827 M00S05930.dmrec +++| GFL2 RJ LDE LIST DIRECTORY ENTRY 06828 M00S05931.dmrec +++| PUT SORTI,WSAB WRITE SEQUENTIAL FILE 06829 M00S05932.dmrec +++| EQ GFL1 CONTINUE 06830 M00S05933.dmrec +++| GFL3 RJ LFH LIST FILE HEADER 06831 M00S05934.dmrec +++| EQ GFL1 CONTINUE 06832 M00S05935.dmrec +++| 06833 M00S05936.dmrec +++| GFL4 SX6 5 VSN PAGE HEADER 06834 M00S05937.dmrec +++| RJ LPH LIST PAGE HEADER 06835 M00S05938.dmrec +++| MX6 0 06836 M00S05939.dmrec +++| SA6 HDRC CLEAR FILE HEADER CONTROL 06837 M00S05940.dmrec +++| SKIPBL DIRR,1 06838 M00S05941.dmrec +++| GFL5 RJ RVE READ VSN ENTRY 06839 M00S05942.dmrec +++| NZ X1,GFL6 IF END OF FILE 06840 M00S05943.dmrec +++| RJ LDE LIST ENTRY 06841 M00S05944.dmrec +++| EQ GFL5 CONTINUE 06842 M00S05945.dmrec +++| 06843 M00S05946.dmrec +++| GFL6 SX6 6 CHRONOLOGICAL LIST HEADER 06844 M00S05947.dmrec +++| RJ LPH LIST PAGE HEADER 06845 M00S05948.dmrec +++| SX6 7 DUMP ENTRY HEADER 06846 M00S05949.dmrec +++| RJ LPH LIST PAGE HEADER 06847 M00S05950.dmrec +++| REWINDM SORTI 06848 M00S05951.dmrec +++| OPENM SORTO 06849 M00S05952.dmrec +++| 06850 M00S05953.dmrec +++|* SORT DIRECTORY DUMP ENTRIES 06851 M00S05954.dmrec +++|
| Line S05955 Modification History | |
|---|---|
M01 (Removed by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06852 M01S05955.dmrec20 ---| SORT MAXCM=22000B 06853 M01S05956.dmrec20 ---| FILES (INPUT,SORTI),(OUTPUT,SORTO) 06854 M01S05957.dmrec20 ---| KEY 11,,10,,LOGICAL PACKED DATE/TIME
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06855 M01S00006.dmrec20 +++| SA1 GFLI 06856 M01S00007.dmrec20 +++| RJ =XSM5SORT 06857 M01S00008.dmrec20 +++| SA1 GFLJ 06858 M01S00009.dmrec20 +++| RJ =XSM5FROM SELECT SORT INPUT FILE 06859 M01S00010.dmrec20 +++| SA1 GFLK 06860 M01S00011.dmrec20 +++| RJ =XSM5TO SELECT SORT OUTPUT FILE 06861 M01S00012.dmrec20 +++| SA1 GFLL 06862 M01S00013.dmrec20 +++| RJ =XSM5KEY SELECT SORT KEY 06863 M01S00014.dmrec20 +++| SA1 GFLB 06864 M01S00015.dmrec20 +++| RJ =XSM5END 06865 M00S05958.dmrec +++|
| Line S05959 Modification History | |
|---|---|
M01 (Removed by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06866 M01S05959.dmrec20 ---| REWINDM SORTO
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06867 M01S00016.dmrec20 +++| OPENM SORTO 06868 M00S05960.dmrec +++| GFL7 RMGET SORTO,WSAB GET RECORD 06869 M00S05961.dmrec +++| FETCH SORTO,FP,X1 FILE POSITION 06870 M00S05962.dmrec +++| SX2 EOSF 06871 M00S05963.dmrec +++| IX1 X2-X1 06872 M00S05964.dmrec +++| NZ X1,GFL8 IF NOT END OF FILE 06873 M00S05965.dmrec +++| CLOSEM SORTO,U 06874 M00S05966.dmrec +++| CLOSEM SORTI,U 06875 M00S05967.dmrec +++| MX1 0 06876 M00S05968.dmrec +++| EQ GFLX RETURN 06877 M00S05969.dmrec +++| 06878 M00S05970.dmrec +++| GFL8 RJ BFL BLANK FILL LINE BUFFER 06879 M00S05971.dmrec +++| SA5 WSAB+1 PACKED DATE/TIME 06880 M00S05972.dmrec +++| ETIME X5 UNPACK TIME 06881 M00S05973.dmrec +++| SA6 PLIN+2 06882 M00S05974.dmrec +++| AX5 18 06883 M00S05975.dmrec +++| EDATE X5 UNPACK DATE 06884 M00S05976.dmrec +++| SA6 PLIN+1 06885 M00S05977.dmrec +++| SA2 WSAB FILE NAME 06886 M00S05978.dmrec +++| MX0 42 06887 M00S05979.dmrec +++| BX1 X0*X2 06888 M00S05980.dmrec +++| RJ SFN SPACE FILL NAME 06889 M00S05981.dmrec +++| LX6 47-59 06890 M00S05982.dmrec +++| SA6 PLIN+3 06891 M00S05983.dmrec +++| MX0 -18 06892 M00S05984.dmrec +++| SA2 WSAB DUMP ENTRY TYPE 06893 M00S05985.dmrec +++| BX1 -X0*X2 06894 M00S05986.dmrec +++| SX2 3RBBB FILE DUMP 06895 M00S05987.dmrec +++| BX2 X1-X2 06896 M00S05988.dmrec +++| SA3 LOGT AFTER IMAGE LOG TYPE 06897 M00S05989.dmrec +++| BX3 X0*X3 06898 M00S05990.dmrec +++| BX3 X1+X3 06899 M00S05991.dmrec +++| SA1 WSAB+2 FILE DUMP FORMAT 06900 M00S05992.dmrec +++| NZ X2,GFL9 IF NOT FILE DUMP 06901 M00S05993.dmrec +++| SB2 X1 06902 M00S05994.dmrec +++| SA2 TFOR+B2 06903 M00S05995.dmrec +++| BX6 X2 06904 M00S05996.dmrec +++| SA6 PLIN+6 06905 M00S05997.dmrec +++| SA3 TFIL FILE TYPE 06906 M00S05998.dmrec +++| GFL9 BX6 X3 06907 M00S05999.dmrec +++| SA6 PLIN+4 06908 M00S06000.dmrec +++| MX0 36 06909 M00S06001.dmrec +++| BX1 X0*X1 VSN NUMBER 06910 M00S06002.dmrec +++| RJ SFN SPACE FILL NAME 06911 M00S06003.dmrec +++| LX6 47-59 06912 M00S06004.dmrec +++| SA6 PLIN+5 06913 M00S06005.dmrec +++| MX7 0 06914 M00S06006.dmrec +++| SA7 PLIN+8 06915 M00S06007.dmrec +++| RJ LDE LIST ENTRY 06916 M00S06008.dmrec +++| EQ GFL7 NEXT ENTRY 06917 M00S06009.dmrec +++| 06918 M00S06010.dmrec +++| GFLA DATA 10H FULL LI
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06919 M01S00017.dmrec20 +++| GFLB CON 0 06920 M01S00018.dmrec20 +++| GFLC DATA 10HSORTI SORT INPUT FILE 06921 M01S00019.dmrec20 +++| GFLD DATA 10HSORTO SORT OUTPUT FILE 06922 M01S00020.dmrec20 +++| GFLE DATA 11 POSITION OF FIRST BYTE OF KEY FIELD 06923 M01S00021.dmrec20 +++| GFLF DATA 10 NUMBER OF BYTES IN THE KEY FIELD 06924 M01S00022.dmrec20 +++| GFLG DATA 10HBINARY NUMERIC DATA FORMAT OF KEY 06925 M01S00023.dmrec20 +++| GFLH DATA 10HA ASCENDING ORDER 06926 M01S00024.dmrec20 +++| GFLI CON GFLB,0 06927 M01S00025.dmrec20 +++| GFLJ CON GFLC,0 06928 M01S00026.dmrec20 +++| GFLK CON GFLD,0 06929 M01S00027.dmrec20 +++| GFLL CON GFLE,GFLF,GFLG,GFLH,0
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/dmrec.003.txt · Last modified: by 127.0.0.1