Seq # *Modification Id* Act
----------------------------+
03308 M01S02730.dmrec2 ---| SA6 B5 ZERO ENTRY
| Line S00082 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03309 M01S00082.dmrec2 +++| NZ X6,BRT8 IF TS AND BEGIN ID DO NOT MATCH
| Line S00083 Modification History |
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03310 M02S00083.ns2023 ---| SA1 BRTI
03311 M02S00084.ns2023 ---| ZR X1,BRT9.1 IF NOT BRF CEASE
03312 M02S00085.ns2023 ---| MX6 0
03313 M02S00086.ns2023 ---| SA6 BRTI RESET BRF CEASE FLAG
03314 M02S00087.ns2023 ---| EQ BRT2 CONTINUE
03315 M02S00088.ns2023 ---|
03316 M02S00089.ns2023 ---| BRT9.1 SA6 B5 ZERO ENTRY
03317 M02S00090.ns2023 ---|
| Line S00077 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03318 M01S00077.ns2023 +++| SA6 B5 ZERO ENTRY
03319 M00S02731.dmrec +++| EQ BRT2 RETURN FOR NEXT RECORD
03320 M00S02732.dmrec +++|
| Line S02733 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03321 M01S02733.ns2023 ---|* PROCESS NEXT LONG RECOVERY FILE.
| Line S00078 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03322 M01S00078.ns2023 +++|* PROCESS NEXT AFTER IMAGE RECOVERY FILE.
03323 M00S02734.dmrec +++|
| Line S02735 Modification History |
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03324 M01S02735.dmrec2 ---| BRT10 SA2 TVSN
| Line S00091 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03325 M01S00091.dmrec2 +++| BRT10 RETURN TP,R
| Line S00092 Modification History |
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03326 M02S00092.ns2023 ---| SA1 QRFFLG
| Line S00079 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03327 M01S00079.ns2023 +++| SA1 BRFFLG
| Line S00093 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03328 M01S00093.dmrec2 +++| PL X1,BRT10.1 IF NOT BRF RECOVERY
03329 M01S00094.dmrec2 +++| SA2 TVSN
03330 M00S02736.dmrec +++| MX0 36
03331 M00S02737.dmrec +++| BX6 X0*X2
03332 M00S02738.dmrec +++| LX6 36
03333 M00S02739.dmrec +++| SA1 FILLER
03334 M00S02740.dmrec +++| BX6 X6+X1
03335 M00S02741.dmrec +++| SA6 EVSN SET KEY
03336 M00S02742.dmrec +++| RJ ACF ATTACH DIRECTORY
03337 M00S02743.dmrec +++| OPENM DIRR
03338 M00S02744.dmrec +++| RMGET DIRR,XXBUF,0,,EVSN
03339 M00S02745.dmrec +++| RJ FER CHECK FIT ERROR
03340 M00S02746.dmrec +++| NZ X1,BRT16 IF ERROR
| Line S02747 Modification History |
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03341 M01S02747.dmrec2 ---| RETURN TP,R
03342 M01S02748.dmrec2 ---| SA2 XXBUF+2
03343 M01S02749.dmrec2 ---| ZR X2,BRT11 IF NO MORE *LRF-S*
| Line S00095 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03344 M01S00095.dmrec2 +++| SA2 XXBUF+2
03345 M01S00096.dmrec2 +++| ZR X2,BRT11 IF NO MORE ARF-S CONTINUATION TAPES
03346 M00S02750.dmrec +++| BX6 X2
| Line S00097 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03347 M01S00097.dmrec2 +++| SX7 TVSN
03348 M01S00098.dmrec2 +++| SA6 TVSN
03349 M01S00099.dmrec2 +++| SA7 IVSN
03350 M00S02751.dmrec +++| EQ BRT1 CONTINUE
03351 M00S02752.dmrec +++|
| Line S00100 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03352 M01S00100.dmrec2 +++| BRT10.1 SA2 IVSN
03353 M01S00101.dmrec2 +++| SA1 X2
03354 M01S00102.dmrec2 +++| NZ X1,BRT1 IF MORE VSN-S
03355 M00S02753.dmrec +++|* TABLE *FTAB* BUILT. NOW BUILD IGNORE TABLE *TTIG*.
03356 M00S02754.dmrec +++|
03357 M00S02755.dmrec +++| BRT11 SB2 TTIG
03358 M00S02756.dmrec +++| SB3 FTAB
| Line S00103 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03359 M01S00103.dmrec2 +++| BRT11.1 SA3 B2
03360 M01S00104.dmrec2 +++| ZR X3,BRT12 CONTINUE
03361 M01S00105.dmrec2 +++| SB2 B2+2
03362 M01S00106.dmrec2 +++| EQ BRT11.1 CHECK NEXT ENTRY
03363 M01S00107.dmrec2 +++|
03364 M00S02757.dmrec +++| BRT12 SA1 B3
03365 M00S02758.dmrec +++| NG X1,BRT15 IF NO MORE TS
03366 M00S02759.dmrec +++| NZ X1,BRT14 IF LEGAL TS
03367 M00S02760.dmrec +++| BRT13 SB3 B3+2
03368 M00S02761.dmrec +++| EQ BRT12 GET NEXT ENTRY
03369 M00S02762.dmrec +++|
03370 M00S02763.dmrec +++| BRT14 SB4 TTIG+TTIGL
03371 M00S02764.dmrec +++| EQ B4,B2,BRT20 IF *TTIG* OVERFLOW
03372 M00S02765.dmrec +++| SA1 A1+B1 GET TS FROM *FTAB*
03373 M00S02766.dmrec +++| SX7 2RTS
03374 M00S02767.dmrec +++| MX0 24
03375 M00S02768.dmrec +++| BX0 X0*X1
03376 M00S02769.dmrec +++| BX6 X7+X0
03377 M00S02770.dmrec +++| SA6 B2 ENTER *TTIG*
03378 M00S02771.dmrec +++| MX0 30
03379 M00S02772.dmrec +++| BX6 -X0*X1
03380 M00S02773.dmrec +++| SA6 A6+B1 SAVE BEGIN ID IN *TTIG*
03381 M00S02774.dmrec +++| SB2 B2+2
03382 M00S02775.dmrec +++| EQ BRT13 GET NEXT ENTRY
03383 M00S02776.dmrec +++|
03384 M00S02777.dmrec +++| BRT15 SX7 B0
03385 M00S02778.dmrec +++| SA7 B2 END TABLE *TTIG*
| Line S02779 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03386 M01S02779.ns2023 ---| SA1 IIQRF
03387 M01S02780.ns2023 ---| SA7 X1 END TABLE *TTQRF*
| Line S00080 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03388 M01S00080.ns2023 +++| SA1 IIBRF
03389 M01S00081.ns2023 +++| SA7 X1 END TABLE *TTBRF*
03390 M00S02781.dmrec +++| CLOSEM DIRR,U
03391 M00S02782.dmrec +++| SX1 B0
03392 M00S02783.dmrec +++| EQ BRTX EXIT NORMAL
03393 M00S02784.dmrec +++|
03394 M00S02785.dmrec +++| BRTA BSSZ 2 KEY FOR DB HEADER
03395 M00S02786.dmrec +++|
03396 M00S02787.dmrec +++| BRT16 ERROR BRTB,,,BRTX,,E ERROR IN BUILDING RECOVERY TABLES
03397 M00S02788.dmrec +++|
03398 M00S02789.dmrec +++| BRT17 ERROR BLTC,,,BRTX,,E ARF HEADER ERROR
03399 M00S02790.dmrec +++|
03400 M00S02791.dmrec +++| BRT18 ERROR BRTD,,,BRTX,,E DATA BLOCK BUFFER OVERFLOW
03401 M00S02792.dmrec +++|
03402 M00S02793.dmrec +++| BRT19 ERROR BRTE,,,BRTX,,E INTERMEDIATE IGNORE TABLE OVERFLOW
03403 M00S02794.dmrec +++|
03404 M00S02795.dmrec +++| BRT20 ERROR BRTF,,,BRTX,,E IGNORE TABLE OVERFLOW
03405 M00S02796.dmrec +++|
03406 M00S02797.dmrec +++| BRT21 ERROR BRTG,,,BRTX,,E DOWNED BRF TABLE OVERFLOW
03407 M00S02798.dmrec +++|
03408 M00S02799.dmrec +++| BRT22 ERROR UPDC,,,BRTX,,E DMREC TAPE LABEL ERROR
03409 M00S02800.dmrec +++|
03410 M00S02801.dmrec +++| BRTB DATA 20H0 *****
03411 M00S02802.dmrec +++| DATA C*ERROR IN BUILDING RECOVERY TABLES.*
03412 M00S02803.dmrec +++| BRTBL EQU *-BRTB
03413 M00S02804.dmrec +++|
03414 M00S02805.dmrec +++| BRTD DATA 20H0 *****
03415 M00S02806.dmrec +++| DATA C*DATA BLOCK BUFFER OVERFLOW.*
03416 M00S02807.dmrec +++| BRTDL EQU *-BRTD
03417 M00S02808.dmrec +++|
03418 M00S02809.dmrec +++| BRTE DATA 20H0 *****
03419 M00S02810.dmrec +++| DATA C*INTERMEDIATE IGNORE TABLE OVERFLOW.*
03420 M00S02811.dmrec +++| BRTEL EQU *-BRTE
03421 M00S02812.dmrec +++|
03422 M00S02813.dmrec +++| BRTF DATA 20H0 *****
03423 M00S02814.dmrec +++| DATA C*IGNORE TABLE OVERFLOW.*
03424 M00S02815.dmrec +++| BRTFL EQU *-BRTF
03425 M00S02816.dmrec +++|
03426 M00S02817.dmrec +++| BRTG DATA 20H0 *****
03427 M00S02818.dmrec +++| DATA C*DOWNED BRF TABLE OVERFLOW.*
03428 M00S02819.dmrec +++| BRTGL EQU *-BRTG
| Line S00108 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
03429 M01S00108.dmrec2 +++| BRTH BSSZ 1 BRF FLAG
03430 M01S00109.dmrec2 +++| BRTI BSSZ 1 BRF CEASE FLAG
03431 M01S00110.dmrec2 +++| BRTJ BSSZ 1 NEXT ARF DUMP TAPE
| Line S00111 Modification History |
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03432 M02S00111.ns2023 ---| BRTK BSSZ 1 CEASE FLAG
03433 M00S02820.dmrec +++| BSB SPACE 4,10
03434 M00S02821.dmrec +++|** BSB - BLANK FILL STRING BUFFER.
03435 M00S02822.dmrec +++|*
03436 M00S02823.dmrec +++|* ENTRY NONE.
03437 M00S02824.dmrec +++|*
03438 M00S02825.dmrec +++|* EXIT (OLWS) = BLANK FILLED.
03439 M00S02826.dmrec +++|*
03440 M00S02827.dmrec +++|* USES X - 7.
03441 M00S02828.dmrec +++|* A - 7.
03442 M00S02829.dmrec +++|* B - 6, 7.
03443 M00S02830.dmrec +++|
03444 M00S02831.dmrec +++|
03445 M00S02832.dmrec +++| BSB SUBR ENTRY/EXIT
03446 M00S02833.dmrec +++| SX7 1R
03447 M00S02834.dmrec +++| SB7 OLWS+OLWSL
03448 M00S02835.dmrec +++| SB6 OLWS
03449 M00S02836.dmrec +++| BSB1 SA7 B6
03450 M00S02837.dmrec +++| SB6 B6+B1
03451 M00S02838.dmrec +++| NE B6,B7,BSB1 IF NOT BLANK FILLED
03452 M00S02839.dmrec +++| EQ BSBX RETURN
03453 M00S02840.dmrec +++| BVT SPACE 4,25
03454 M00S02841.dmrec +++|** BVT - BUILD VSN TABLE.
03455 M00S02842.dmrec +++|*
03456 M00S02843.dmrec +++|* *BVT* WILL BUILD A TABLE OF *AFTER IMAGE* LOG DUMP TAPES
03457 M00S02844.dmrec +++|* VSN-S THAT CONTAIN ENTRIES NECESSARY FOR THE GIVEN
03458 M00S02845.dmrec +++|* DATE/TIME WINDOW.
03459 M00S02846.dmrec +++|*
03460 M00S02847.dmrec +++|* ENTRY (DATE) = DIRECTIVE BEGIN DATE.
03461 M00S02848.dmrec +++|* (TIME) = DIRECTIVE BEGIN TIME.
03462 M00S02849.dmrec +++|* (DATE1) = DIRECTIVE END DATE.
03463 M00S02850.dmrec +++|* (TIME1) = DIRECTIVE END TIME.
03464 M00S02851.dmrec +++|*
03465 M00S02852.dmrec +++|* EXIT TABLE TVSN BUILT.
03466 M00S02853.dmrec +++|* (X1) = 0 IF NO ERRORS
03467 M00S02854.dmrec +++|* (STPDT) = START PACKED DATE/TIME
03468 M00S02855.dmrec +++|* (ENPDT) = END PACKED DATE/TIME
03469 M00S02856.dmrec +++|*
03470 M00S02857.dmrec +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
03471 M00S02858.dmrec +++|* A - 2, 3, 4, 5, 6, 7.
03472 M00S02859.dmrec +++|*
03473 M00S02860.dmrec +++|* CALLS FER, PDT, UDT.
03474 M00S02861.dmrec +++|*
03475 M00S02862.dmrec +++|* MACROS ERROR, FETCH, GETN, MOVE, PDATE, RMGET, STORE.
03476 M00S02863.dmrec +++|
03477 M00S02864.dmrec +++|
03478 M00S02865.dmrec +++| BVT SUBR ENTRY/EXIT
03479 M00S02866.dmrec +++| STORE DIRR,MKL=10
03480 M00S02867.dmrec +++| SA3 XXPFN
03481 M00S02868.dmrec +++| SX2 3RBBB
03482 M00S02869.dmrec +++| BX6 X2+X3
03483 M00S02870.dmrec +++| SA6 TEMPO SET KEY
03484 M00S02871.dmrec +++| RMGET DIRR,XXBUF,0,,TEMPO GET FIRST LOG DUMP ENTRY
03485 M00S02872.dmrec +++| RJ FER CHECK FIT ERROR
03486 M00S02873.dmrec +++| NZ X1,BVT18 IF ERROR
03487 M00S02874.dmrec +++| SA3 TVSN
03488 M00S02875.dmrec +++| ZR X3,BVT4 IF NO VSN GIVEN
03489 M00S02876.dmrec +++| EQ BVT2 CHECK FIRST DB DUMP ENTRY
03490 M00S02877.dmrec +++|
03491 M00S02878.dmrec +++| BVT1 GETN DIRR,XXBUF,,SKEY
03492 M00S02879.dmrec +++| FETCH DIRR,ES,X2
03493 M00S02880.dmrec +++| SX2 X2-100B
03494 M00S02881.dmrec +++| ZR X2,BVT19 IF ERROR
03495 M00S02882.dmrec +++| SA2 SKEY
03496 M00S02883.dmrec +++| SA3 TEMPO
03497 M00S02884.dmrec +++| BX2 X2-X3
03498 M00S02885.dmrec +++| NZ X2,BVT19 IF NO MORE ENTRIES (RECORD NOT FOUND)
03499 M00S02886.dmrec +++| BVT2 SA2 XXBUF+2
03500 M00S02887.dmrec +++| MX0 36
03501 M00S02888.dmrec +++| BX4 X0*X2
03502 M00S02889.dmrec +++| SA2 TVSN
03503 M00S02890.dmrec +++| BX6 X2-X4
03504 M00S02891.dmrec +++| NZ X6,BVT1 IF NOT A CORRECT VSN
03505 M00S02892.dmrec +++|
03506 M00S02893.dmrec +++|* DUMP RECORD IN XXBUF - GET DATE/TIME. THIS DATE/TIME
03507 M00S02894.dmrec +++|* WILL BE USED FOR BEGIN WINDOW.
03508 M00S02895.dmrec +++|
03509 M00S02896.dmrec +++| SA5 XXBUF+B1
03510 M00S02897.dmrec +++| BVT3 RJ UDT UNPACK D/T
03511 M00S02898.dmrec +++| SA6 STDT START DATE ( UNPACKED )
03512 M00S02899.dmrec +++| SA7 STTM START TIME ( UNPACKED )
03513 M00S02900.dmrec +++| EQ BVT5 CONTINUE WITH THESE STDT + STTM
03514 M00S02901.dmrec +++|
03515 M00S02902.dmrec +++| BVT4 MOVE 6,XXBUF,YYBUF
03516 M00S02903.dmrec +++| GETN DIRR,XXBUF,,SKEY
03517 M00S02904.dmrec +++| RJ FER CHECK FIT ERROR
03518 M00S02905.dmrec +++| NZ X1,BVT18 IF ERROR
03519 M00S02906.dmrec +++| SA2 SKEY
03520 M00S02907.dmrec +++| SA3 TEMPO
03521 M00S02908.dmrec +++| BX3 X2-X3
03522 M00S02909.dmrec +++| ZR X3,BVT4 IF NOT DONE
03523 M00S02910.dmrec +++| SA5 YYBUF+B1
03524 M00S02911.dmrec +++| EQ BVT3 CONTINUE
03525 M00S02912.dmrec +++|
03526 M00S02913.dmrec +++| BVT5 SA2 DATE DIRECTIVE DATE
03527 M00S02914.dmrec +++| ZR X2,BVT6 IF BEGIN DATE NOT GIVEN
03528 M00S02915.dmrec +++| BX6 X2
03529 M00S02916.dmrec +++| SA6 STDT NEW START DATE
03530 M00S02917.dmrec +++| SA2 TIME
03531 M00S02918.dmrec +++| NZ X2,BVT7 IF BEGIN DATE AND TIME GIVEN
03532 M00S02919.dmrec +++| SA2 BVTD USE BEGINNING OF DAY
03533 M00S02920.dmrec +++| EQ BVT7 CONTINUE
03534 M00S02921.dmrec +++| BVT6 SA2 TIME DIRECTIVE TIME
03535 M00S02922.dmrec +++| ZR X2,BVT8 IF BEGIN TIME NOT GIVEN
03536 M00S02923.dmrec +++| BVT7 BX6 X2
03537 M00S02924.dmrec +++| SA6 STTM NEW START TIME
03538 M00S02925.dmrec +++| BVT8 SA2 DATE1
03539 M00S02926.dmrec +++| ZR X2,BVT9 IF END DATE NOT GIVEN
03540 M00S02927.dmrec +++| BX6 X2
03541 M00S02928.dmrec +++| SA6 ENDT NEW END DATE
03542 M00S02929.dmrec +++| EQ BVT10 CHECK END TIME
03543 M00S02930.dmrec +++|
03544 M00S02931.dmrec +++| BVT9 PDATE TEMP10
03545 M00S02932.dmrec +++| SA5 TEMP10
03546 M00S02933.dmrec +++| RJ UDT UNPACK D/T
03547 M00S02934.dmrec +++| SA6 ENDT END DATE - TODAY
03548 M00S02935.dmrec +++| BVT10 SA2 TIME1
03549 M00S02936.dmrec +++| ZR X2,BVT11 IF END TIME NOT GIVEN
03550 M00S02937.dmrec +++| BX6 X2
03551 M00S02938.dmrec +++| SA6 ENTM END TIME
03552 M00S02939.dmrec +++| EQ BVT12 CONTINUE
03553 M00S02940.dmrec +++|
03554 M00S02941.dmrec +++| BVT11 SA2 NTIME
03555 M00S02942.dmrec +++| BX6 X2
03556 M00S02943.dmrec +++| SA6 ENTM END TIME - 23.59.59.
03557 M00S02944.dmrec +++|
03558 M00S02945.dmrec +++|* CONVERT EXPANDED DATE/TIME TO PACKED FORMAT FOR
03559 M00S02946.dmrec +++|* EASE OF TAPE SELECTION.
03560 M00S02947.dmrec +++|
03561 M00S02948.dmrec +++| BVT12 SA2 STDT
03562 M00S02949.dmrec +++| SA3 STTM
03563 M00S02950.dmrec +++| RJ PDT PACK DATE AND TIME
03564 M00S02951.dmrec +++| NZ X1,BVTX IF ERROR
03565 M00S02952.dmrec +++| SA6 STPDT START PACKED DATE/TIME
03566 M00S02953.dmrec +++| SA2 ENDT
03567 M00S02954.dmrec +++| SA3 ENTM
03568 M00S02955.dmrec +++| RJ PDT PACK DATE AND TIME
03569 M00S02956.dmrec +++| NZ X1,BVTX IF ERROR
03570 M00S02957.dmrec +++| SA6 ENPDT END PACKED DATE/TIME
03571 M00S02958.dmrec +++|
03572 M00S02959.dmrec +++|* SEARCH FOR VSN-S WITHIN DATE/TIME WINDOW.
03573 M00S02960.dmrec +++|
03574 M00S02961.dmrec +++| STORE DIRR,MKL=10
03575 M00S02962.dmrec +++| SA2 XXPFN
03576 M00S02963.dmrec +++| SA5 =3R 1
03577 M00S02964.dmrec +++| BX6 X2+X5
03578 M00S02965.dmrec +++| SA6 TEMPO
03579 M00S02966.dmrec +++| RMGET DIRR,XXBUF,0,,TEMPO
03580 M00S02967.dmrec +++| RJ FER CHECK FIT ERROR
03581 M00S02968.dmrec +++| NZ X1,BVT18 IF ERROR
03582 M00S02969.dmrec +++| STORE DIRR,MKL=20
03583 M00S02970.dmrec +++| BVT13 SA2 XXBUF+5 DATE/TIME OF LAST RECORD ON THIS *ARF*
03584 M00S02971.dmrec +++| SA4 STPDT
03585 M00S02972.dmrec +++| IX3 X2-X4
03586 M00S02973.dmrec +++| PL X3,BVT14 IF LAST RECORD AFTER START DATE/TIME
03587 M00S02974.dmrec +++| GETN DIRR,XXBUF,,SKEY
03588 M00S02975.dmrec +++| FETCH DIRR,ES,X2
03589 M00S02976.dmrec +++| SX2 X2-100B
03590 M00S02977.dmrec +++| ZR X2,BVT18 IF EOF
03591 M00S02978.dmrec +++| SA2 SKEY
03592 M00S02979.dmrec +++| SA3 TEMPO
03593 M00S02980.dmrec +++| BX2 X2-X3
03594 M00S02981.dmrec +++| ZR X2,BVT13 IF MORE ENTRIES TO SEARCH
03595 M00S02982.dmrec +++| EQ BVT18 ERROR
03596 M00S02983.dmrec +++| BVT14 SX6 TVSN INITIALIZE IVSN
03597 M00S02984.dmrec +++| SA6 IVSN
| Line S00111 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
03598 M01S00111.dmrec7 +++| SX7 TREC
03599 M01S00112.dmrec7 +++| SA7 PREC INITIALIZE TREC POINTER
03600 M00S02985.dmrec +++| BVT15 SA4 ENPDT
03601 M00S02986.dmrec +++| SA5 XXBUF+1
03602 M00S02987.dmrec +++| IX3 X4-X5
03603 M00S02988.dmrec +++| NG X3,BVT15.1 IF FIRST RECORD AFTER END DATE/TIME
03604 M00S02989.dmrec +++| SX3 TVSN+TVSNL-1
03605 M00S02990.dmrec +++| SA4 IVSN
03606 M00S02991.dmrec +++| IX3 X3-X4
03607 M00S02992.dmrec +++| NG X3,BVT17 IF TVSN OVERFLOW
03608 M00S02993.dmrec +++| SA2 XXBUF+2
03609 M00S02994.dmrec +++| SA3 A2+2
| Line S00113 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
03610 M01S00113.dmrec7 +++| SA1 PREC
03611 M01S00114.dmrec7 +++| BX7 X2
03612 M01S00115.dmrec7 +++| SA7 X1 ENTER VSN INTO TREC TABLE
03613 M01S00116.dmrec7 +++| SX7 X1+1
03614 M01S00117.dmrec7 +++| SA7 A1 INCREMENT PREC
03615 M00S02995.dmrec +++| BX6 X2+X3 VSN + NUMBER OF RECORDS
03616 M00S02996.dmrec +++| SA6 X4
03617 M00S02997.dmrec +++| SX6 X4+B1
03618 M00S02998.dmrec +++| SA6 A4 INCREMENT IVSN
03619 M00S02999.dmrec +++| BX6 X5
03620 M00S03000.dmrec +++| SA6 TKY2 SAVE PACKED DATE/TIME
03621 M00S03001.dmrec +++| SA4 TEMPO
03622 M00S03002.dmrec +++| BX7 X4
03623 M00S03003.dmrec +++| SA7 TKY1
03624 M00S03004.dmrec +++| SA7 BVTE
03625 M00S03005.dmrec +++| SA1 XXBUF+2
03626 M00S03006.dmrec +++| BVT15.0 RJ SVK SET VSN KEY
03627 M00S03007.dmrec +++| RMGET DIRR,WSAB,0,,VKY1 GET VSN ENTRY
03628 M00S03008.dmrec +++| RJ FER CHECK FIT ERROR
03629 M00S03009.dmrec +++| NZ X1,BVT19 IF ERROR
03630 M00S03010.dmrec +++| SA3 XXBUF+4
03631 M00S03011.dmrec +++| SA1 WSAB+2
03632 M00S03012.dmrec +++| ZR X1,BVT15.1 IF NO MORE CONTINUATION REELS
03633 M00S03013.dmrec +++| BX6 X3+X1
03634 M00S03014.dmrec +++| SA4 IVSN
03635 M00S03015.dmrec +++| SA6 X4 PLACE VSN INTO TVSN TABLE
03636 M00S03016.dmrec +++| SX6 X4+B1
03637 M00S03017.dmrec +++| SA6 A4 INCREMENT IVSN
03638 M00S03018.dmrec +++| EQ BVT15.0 GET NEXT ENTRY
03639 M00S03019.dmrec +++|
03640 M00S03020.dmrec +++| BVT15.1 SA2 BVTE
03641 M00S03021.dmrec +++| ZR X2,BVT18 IF FIRST TIME THROUGH
03642 M00S03022.dmrec +++| REWIND DIRR,R
03643 M00S03023.dmrec +++| RMGET DIRR,XXBUF,0,,TKY1
03644 M00S03024.dmrec +++| RJ FER CHECK FIT ERROR
03645 M00S03025.dmrec +++| NZ X1,BVT19 IF ERROR
03646 M00S03026.dmrec +++| GETN DIRR,XXBUF,,SKEY
03647 M00S03027.dmrec +++| FETCH DIRR,ES,X2
03648 M00S03028.dmrec +++| SX2 X2-100B
03649 M00S03029.dmrec +++| ZR X2,BVT16 IF EOF
03650 M00S03030.dmrec +++| SA2 SKEY
03651 M00S03031.dmrec +++| SA3 TEMPO
03652 M00S03032.dmrec +++| BX2 X2-X3
03653 M00S03033.dmrec +++| ZR X2,BVT15 IF MORE ENTRIES
03654 M00S03034.dmrec +++| BVT16 SA2 IVSN
03655 M00S03035.dmrec +++| SX6 B0
03656 M00S03036.dmrec +++| SA6 X2 END LIST
03657 M00S03037.dmrec +++| SX1 B0
03658 M00S03038.dmrec +++| EQ BVTX RETURN NORMAL
03659 M00S03039.dmrec +++|
03660 M00S03040.dmrec +++| BVT17 ERROR BVTC,,,BVTX,,E VSN TABLE OVERFLOW
03661 M00S03041.dmrec +++|
03662 M00S03042.dmrec +++| BVT18 ERROR BVTA,,,BVTX,,E NO LOG DUMP ENTRIES
03663 M00S03043.dmrec +++|
03664 M00S03044.dmrec +++| BVT19 ERROR BVTB,,,BVTX,,E NO DUMP RECORD
03665 M00S03045.dmrec +++|
03666 M00S03046.dmrec +++| STDT BSS 1 START DATE
03667 M00S03047.dmrec +++| STTM BSS 1 START TIME
03668 M00S03048.dmrec +++| ENDT BSS 1 END TIME
03669 M00S03049.dmrec +++| ENTM BSS 1 END TIME
03670 M00S03050.dmrec +++| STPDT BSS 1 START DATE/TIME - PACKED
03671 M00S03051.dmrec +++| ENPDT BSS 1 END DATE/TIME - PACKED
03672 M00S03052.dmrec +++| TEMP10 BSS 1 TEMPORARY
03673 M00S03053.dmrec +++| NTIME VFD 60/6L235959
03674 M00S03054.dmrec +++|
03675 M00S03055.dmrec +++| BVTA DATA 20H0 *****
03676 M00S03056.dmrec +++| DATA C*NO ARF DUMP ENTRIES IN DIRECTORY.*
03677 M00S03057.dmrec +++| BVTAL EQU *-BVTA
03678 M00S03058.dmrec +++|
03679 M00S03059.dmrec +++| BVTB DATA 20H0 *****
03680 M00S03060.dmrec +++| DATA C*NO DUMP RECORD WITH SPECIFIED VSN.*
03681 M00S03061.dmrec +++| BVTBL EQU *-BVTB
03682 M00S03062.dmrec +++|
03683 M00S03063.dmrec +++| BVTC DATA 20H0 *****
03684 M00S03064.dmrec +++| DATA C*VSN TABLE OVERFLOW.*
03685 M00S03065.dmrec +++| BVTCL EQU *-BVTC
03686 M00S03066.dmrec +++|
03687 M00S03067.dmrec +++| BVTD VFD 36/6L000000,24/0
03688 M00S03068.dmrec +++| BVTE BSSZ 1 FIRST TIME THROUGH COUNTER
03689 M00S03069.dmrec +++| CER SPACE 4,15
03690 M00S03070.dmrec +++|** CER - CHECK ERROR STATUS.
03691 M00S03071.dmrec +++|*
03692 M00S03072.dmrec +++|* *CER* EXAMINES THE ERROR STATUS IN A FET.
03693 M00S03073.dmrec +++|* IT CLEARS THE STATUS IN THE FET AND THEN RETURNS.
03694 M00S03074.dmrec +++|*
03695 M00S03075.dmrec +++|* ENTRY (X2) = FWA OF FET.
03696 M00S03076.dmrec +++|*
03697 M00S03077.dmrec +++|* EXIT (X1) = STATUS FROM FET.
03698 M00S03078.dmrec +++|*
03699 M00S03079.dmrec +++|* USES X - 1, 3, 7.
03700 M00S03080.dmrec +++|* A - 1, 7.
03701 M00S03081.dmrec +++|
03702 M00S03082.dmrec +++|
03703 M00S03083.dmrec +++| CER SUBR ENTRY/EXIT
03704 M00S03084.dmrec +++| MX7 42
03705 M00S03085.dmrec +++| SA1 X2
03706 M00S03086.dmrec +++| MX3 -4
03707 M00S03087.dmrec +++| BX7 X7*X1
03708 M00S03088.dmrec +++| AX1 10-0
03709 M00S03089.dmrec +++| BX1 -X3*X1 ERROR STATUS BIT
03710 M00S03090.dmrec +++| SX3 B1
03711 M00S03091.dmrec +++| IX7 X7+X3
03712 M00S03092.dmrec +++| SA7 A1 CLEAR ERROR STATUS BIT
03713 M00S03093.dmrec +++| EQ CERX RETURN
03714 M00S03094.dmrec +++| CFD SPACE 4,15
03715 M00S03095.dmrec +++|** CFD - CHECK FOR DELETE.
03716 M00S03096.dmrec +++|*
03717 M00S03097.dmrec +++|* ENTRY (B6) = 0, IF FILE DUMP ENTRY.
03718 M00S03098.dmrec +++|* 1, IF *AFTER IMAGE* DUMP ENTRY.
03719 M00S03099.dmrec +++|* (DELF) = 0, IF CYCLE DELETE.
03720 M00S03100.dmrec +++|* 1, IF DATE/TIME DELETE.
03721 M00S03101.dmrec +++|* (WSAB) = ENTRY TO BE CHECKED.
03722 M00S03102.dmrec +++|*
03723 M00S03103.dmrec +++|* EXIT (X1) = 1, IF ENTRY IS TO BE DELETED.
03724 M00S03104.dmrec +++|*
03725 M00S03105.dmrec +++|* USES X - 1, 2, 3, 5, 6, 7.
03726 M00S03106.dmrec +++|* A - 1, 2, 3, 5, 6, 7.
03727 M00S03107.dmrec +++|* B - NONE.
03728 M00S03108.dmrec +++|*
03729 M00S03109.dmrec +++|* MACROS EDATE, ETIME.
03730 M00S03110.dmrec +++|
03731 M00S03111.dmrec +++|
03732 M00S03112.dmrec +++| CFD SUBR ENTRY/EXIT
03733 M00S03113.dmrec +++| EQ B6,B1,CFD2 IF AFTER IMAGE DUMP ENTRY
03734 M00S03114.dmrec +++| SA1 DELF DELETE FLAG
03735 M00S03115.dmrec +++| NZ X1,CFD2 IF DATE/TIME DELETE
03736 M00S03116.dmrec +++| SA1 CYCC CYCLE COUNT
03737 M00S03117.dmrec +++| SX6 X1+B1 INCREMENT COUNT
03738 M00S03118.dmrec +++| SA6 A1 REPLACE COUNT
03739 M00S03119.dmrec +++| SA2 CYCT NUMBER OF CYCLES
03740 M00S03120.dmrec +++| IX2 X2-X6
03741 M00S03121.dmrec +++| SX1 B1
03742 M00S03122.dmrec +++| ZR X2,CFD1 IF ENTRY TO BE RETAINED
03743 M00S03123.dmrec +++| NG X2,CFDX IF ENTRY IS TO BE DELETED
03744 M00S03124.dmrec +++| CFD1 SA1 WSAB+1 PACKED DATE/TIME
03745 M00S03125.dmrec +++| BX7 X1
03746 M00S03126.dmrec +++| SA7 LDATE SAVE LAST CYCLE DATE/TIME
03747 M00S03127.dmrec +++| MX1 0
03748 M00S03128.dmrec +++| EQ CFDX RETURN
03749 M00S03129.dmrec +++|
03750 M00S03130.dmrec +++| CFD2 SA5 WSAB+1 PACKED DATE/TIME
03751 M00S03131.dmrec +++| ETIME X5 UNPACK TIME
03752 M00S03132.dmrec +++| SA6 CFDA SAVE TIME
03753 M00S03133.dmrec +++| AX5 18
03754 M00S03134.dmrec +++| EDATE X5 UNPACK DATE
03755 M00S03135.dmrec +++| MX1 0
03756 M00S03136.dmrec +++| SA2 DATE DATE PARAMETER
03757 M00S03137.dmrec +++| IX3 X2-X6
03758 M00S03138.dmrec +++| NG X3,CFDX IF ENTRY DOES NOT QUALIFY
03759 M00S03139.dmrec +++| NZ X3,CFD3 IF DATES NOT EQUAL
03760 M00S03140.dmrec +++| SA2 TIME TIME PARAMETER
03761 M00S03141.dmrec +++| SA3 CFDA SAVED TIME
03762 M00S03142.dmrec +++| IX3 X2-X3
03763 M00S03143.dmrec +++| NG X3,CFDX IF ENTRY DOES NOT QUALIFY
03764 M00S03144.dmrec +++| CFD3 SX1 B1
03765 M00S03145.dmrec +++| EQ CFDX RETURN
03766 M00S03146.dmrec +++|
03767 M00S03147.dmrec +++| CFDA BSSZ 1 SAVE CELL FOR TIME
03768 M00S03148.dmrec +++| CND SPACE 4,20
03769 M00S03149.dmrec +++|** CND - CHECK NEXT DIRECTIVE.
03770 M00S03150.dmrec +++|*
03771 M00S03151.dmrec +++|* *CND* CHECKS THE INPUT CHARACTER STRING BUFFER FOR
03772 M00S03152.dmrec +++|* THE SPECIFIED DIRECTIVE.
03773 M00S03153.dmrec +++|*
03774 M00S03154.dmrec +++|* ENTRY DIR = FWA OF BUFFER.
03775 M00S03155.dmrec +++|* (X4) = 3RDA* (*ADD DIRECTIVE)
03776 M00S03156.dmrec +++|* 3RYC* (*CYCLE DIRECTIVE)
03777 M00S03157.dmrec +++|* 3RED* (*DELETE DIRECTIVE)
03778 M00S03158.dmrec +++|* 3RGI* (*IGNORE DIRECTIVE)
03779 M00S03159.dmrec +++|*
03780 M00S03160.dmrec +++|* EXIT (X1) = 0, IF DIRECTIVE FOUND.
03781 M00S03161.dmrec +++|*
03782 M00S03162.dmrec +++|* USES X - 0, 1, 3, 4, 5.
03783 M00S03163.dmrec +++|* A - 3.
03784 M00S03164.dmrec +++|* B - 2, 3.
03785 M00S03165.dmrec +++|
03786 M00S03166.dmrec +++|
03787 M00S03167.dmrec +++| CND2 SX1 B0
03788 M00S03168.dmrec +++| CND SUBR ENTRY/EXIT
03789 M00S03169.dmrec +++| SB2 3
03790 M00S03170.dmrec +++| MX0 54
03791 M00S03171.dmrec +++| SB3 B0-B1
03792 M00S03172.dmrec +++| LX4 6
03793 M00S03173.dmrec +++| CND1 SB3 B3+B1
03794 M00S03174.dmrec +++| EQ B2,B3,CND2 IF END OF SEARCH
03795 M00S03175.dmrec +++| SA3 DIR+B3 NEXT WORD OF BUFFER
03796 M00S03176.dmrec +++| AX4 6 SHIFT FOR NEXT CHARACTER
03797 M00S03177.dmrec +++| BX5 -X0*X4
03798 M00S03178.dmrec +++| BX5 X3-X5
03799 M00S03179.dmrec +++| ZR X5,CND1 IF STILL OK
03800 M00S03180.dmrec +++| SX1 B1
03801 M00S03181.dmrec +++| EQ CNDX RETURN - NO DIRECTIVE FOUND
03802 M00S03182.dmrec +++| CRT SPACE 4,30
03803 M00S03183.dmrec +++|** CRT - CREATE LOG FILES.
03804 M00S03184.dmrec +++|*
03805 M00S03185.dmrec +++|* THIS ROUTINE CREATES QUICK (BEFORE IMAGE) OR
03806 M00S03186.dmrec +++|* LONG (AFTER IMAGE) RECOVERY FILES WHICH ARE USED
03807 M00S03187.dmrec +++|* BY *TAF/CRM* RECOVERY.
03808 M00S03188.dmrec +++|*
03809 M00S03189.dmrec +++|* *CRT* WILL TEST IF LOCAL FILE WITH THE SAME NAME EXISTS.
03810 M00S03190.dmrec +++|* IF YES, IT IS THE USERS RESPONSIBILITY TO SAVE THE FILE.
03811 M00S03191.dmrec +++|* IF NO, *CRT* WILL TRY TO ATTACH THE DIRECT ACCESS FILE
03812 M00S03192.dmrec +++|* WITH THE SAME NAME. IF PFN EXISTS IT WILL BE OVERWRITTEN.
03813 M00S03193.dmrec +++|* OTHERWISE THE FILE WILL BE DEFINED.
03814 M00S03194.dmrec +++|*
03815 M00S03195.dmrec +++|* *CRT* USES PREALLOCATION ROUTINES FROM COMMON DECK *COMKARF*
03816 M00S03196.dmrec +++|* USED IN *AAMI* INITIALIZATION.
03817 M00S03197.dmrec +++|*
03818 M00S03198.dmrec +++|* ENTRY (X6) = OPERATION FLAG.
03819 M00S03199.dmrec +++|*
| Line S03200 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03820 M01S03200.ns2023 ---|* EXIT TO REC9 - IF *QRF* RECOVERY.
03821 M01S03201.ns2023 ---|* TO DMP10 - IF *LRF* DUMP.
| Line S00082 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03822 M01S00082.ns2023 +++|* EXIT TO REC9 - IF *BRF* RECOVERY.
03823 M01S00083.ns2023 +++|* TO DMP10 - IF *ARF* DUMP.
03824 M00S03202.dmrec +++|* TO DMR3, OTHERWISE.
03825 M00S03203.dmrec +++|*
03826 M00S03204.dmrec +++|* USES X - ALL.
03827 M00S03205.dmrec +++|* A - 0, 1, 2, 3, 5, 6, 7.
03828 M00S03206.dmrec +++|* B - 1, 5, 6, 7.
03829 M00S03207.dmrec +++|*
03830 M00S03208.dmrec +++|* CALLS ARB, DXB, GFA, GXJ, SFN, SPR.
03831 M00S03209.dmrec +++|*
03832 M00S03210.dmrec +++|* MACROS ERROR, RETURN.
03833 M00S03211.dmrec +++|
03834 M00S03212.dmrec +++|
03835 M00S03213.dmrec +++| CRT BSS 0 ENTRY
03836 M00S03214.dmrec +++| SB1 1
03837 M00S03215.dmrec +++| RJ SPR SET PARAMETERS
03838 M00S03216.dmrec +++| SB5 B5-2 SET FOR ONE LFN ONLY TEST
03839 M00S03217.dmrec +++| NZ B5,CRT11 IF MORE THAN ONE LFN
03840 M00S03218.dmrec +++|
| Line S03219 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03841 M01S03219.ns2023 ---|* ENTRY FROM DMP OR QRF RECOVERY.
| Line S00084 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03842 M01S00084.ns2023 +++|* ENTRY FROM DMP OR *BRF* RECOVERY.
03843 M00S03220.dmrec +++|
03844 M00S03221.dmrec +++| CRT1 SX6 CRMARFN USE DEFAULT LENGTH
03845 M00S03222.dmrec +++| SA5 LENGTH LENGTH PARAMETER
03846 M00S03223.dmrec +++| ZR X5,CRT2 IF LENGTH NOT SPECIFIED
03847 M00S03224.dmrec +++| SB7 B1
03848 M00S03225.dmrec +++| RJ DXB CONVERT PRU COUNT INTO BINARY
03849 M00S03226.dmrec +++| NZ X4,CRT16 IF ERROR
03850 M00S03227.dmrec +++|
03851 M00S03228.dmrec +++|* ENTRY POINT FROM *DMP* (X6) = LENGTH IN PRU-S.
03852 M00S03229.dmrec +++|
03853 M00S03230.dmrec +++| CRT2 SA6 LENGTH STORE BINARY VALUE
03854 M00S03231.dmrec +++| SA2 TDFN LFN FROM PARAMETER TABLE
03855 M00S03232.dmrec +++| MX0 42
03856 M00S03233.dmrec +++| BX6 X0*X2 EXTRACT LFN
03857 M00S03234.dmrec +++| SA6 CRTI SAVE FULL LFN
03858 M00S03235.dmrec +++| AX6 18 POSITION NN FIELD (ORDINAL)
03859 M00S03236.dmrec +++| MX0 -12
03860 M00S03237.dmrec +++| BX7 -X0*X6 EXTRACT NN FIELD (ORDINAL)
03861 M00S03238.dmrec +++| AX6 12
03862 M00S03239.dmrec +++| SA7 CRTJ SAVE NN FIELD RIGHT JUSTIFIED (ORDINAL)
03863 M00S03240.dmrec +++| MX0 -6
| Line S03241 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03864 M01S03241.ns2023 ---| BX7 -X0*X6 EXTRACT *LRF* OR *QRF* FIELD
| Line S00085 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03865 M01S00085.ns2023 +++| BX7 -X0*X6 EXTRACT *ARF* OR *BRF* FIELD
03866 M00S03242.dmrec +++| SA7 CRTK SAVE FILE TYPE RIGHT JUSTIFIED
03867 M00S03243.dmrec +++| AX6 6 POSITION DB FIELD
03868 M00S03244.dmrec +++| MX0 -12
03869 M00S03245.dmrec +++| BX5 -X0*X6 EXTRACT DB FIELD
03870 M00S03246.dmrec +++| AX6 12
03871 M00S03247.dmrec +++| SX4 2RZZ
03872 M00S03248.dmrec +++| BX4 X4-X6
03873 M00S03249.dmrec +++| NZ X4,CRT13 IF FILE NAME INCORRECT
03874 M00S03250.dmrec +++|
03875 M00S03251.dmrec +++|* EXTRACT ALL REQUIRED PARAMETERS FROM *XXJ* FILE.
03876 M00S03252.dmrec +++|
03877 M00S03253.dmrec +++| LX5 -12 POSITION DATA BASE IDENTIFIER
03878 M00S03254.dmrec +++| RJ GXJ PROCESS *XXJ* FILE
03879 M00S03255.dmrec +++| NZ X1,CRT8 IF ERRORS
03880 M00S03256.dmrec +++| SA2 CRTK FILE TYPE
03881 M00S03257.dmrec +++| SX3 1RB
03882 M00S03258.dmrec +++| BX3 X2-X3
03883 M00S03259.dmrec +++| ZR X3,CRT4 IF *BRF*
03884 M00S03260.dmrec +++| SX3 1RA
03885 M00S03261.dmrec +++| BX3 X2-X3
03886 M00S03262.dmrec +++| NZ X3,CRT13 IF NOT *ARF*
03887 M00S03263.dmrec +++| CRT3 SA2 CRTJ FILE ORDINAL (01 OR 02)
03888 M00S03264.dmrec +++| SX3 2R01
03889 M00S03265.dmrec +++| BX3 X2-X3
03890 M00S03266.dmrec +++| ZR X3,CRT5 IF FILE ORDINAL 01
03891 M00S03267.dmrec +++| SX3 2R02
03892 M00S03268.dmrec +++| BX2 X2-X3
03893 M00S03269.dmrec +++| NZ X2,CRT14 IF NOT FILE ORDINAL 02
03894 M00S03270.dmrec +++| EQ CRT5 FILE ORDINAL 02
03895 M00S03271.dmrec +++|
03896 M00S03272.dmrec +++|
| Line S03273 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03897 M01S03273.ns2023 ---|* PRESET *TQRF* TABLE FET AND HEADER FIELDS
| Line S00086 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03898 M01S00086.ns2023 +++|* PRESET *TBRF* TABLE FET AND HEADER FIELDS
03899 M00S03274.dmrec +++|
| Line S03275 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03900 M01S03275.ns2023 ---| CRT4 SB6 B0 *QRF* BUFFER
| Line S00087 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03901 M01S00087.ns2023 +++| CRT4 SB6 B0 *BRF* BUFFER
03902 M00S03276.dmrec +++| RJ ARB ALLOCATE BUFFER SPACE
03903 M00S03277.dmrec +++| NZ X1,CRT15 IF NO SPACE FOR BUFFER
03904 M00S03278.dmrec +++| SA2 CRTI FILE NAME
03905 M00S03279.dmrec +++| SX3 B1
03906 M00S03280.dmrec +++| BX7 X2+X3 SET COMPLETION BIT
| Line S03281 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03907 M01S03281.ns2023 ---| SA7 TQRF+TQFFW STORE FET+0 IN *TQRF* TABLE
| Line S00088 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03908 M01S00088.ns2023 +++| SA7 TQRF+TQFFW STORE FET+0 IN *TBRF* TABLE
03909 M00S03282.dmrec +++| SX3 CRMUPM NUMBER OF RECORDS PER SEGMENT
03910 M00S03283.dmrec +++| BX7 X2+X3
| Line S03284 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03911 M01S03284.ns2023 ---| SA7 TQRF+TQFNW NAME AND REC/SEG IN FILE HEADER
| Line S00089 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03912 M01S00089.ns2023 +++| SA7 TQRF+TQFNW NAME AND REC/SEG IN FILE HEADER
03913 M00S03285.dmrec +++| SA1 XXBRF NUMBER OF *BRF-S* FROM XXJ FILE
03914 M00S03286.dmrec +++| BX6 X1
| Line S03287 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03915 M01S03287.ns2023 ---| SB7 B1 DEFINE *QRF* PROCESS
03916 M01S03288.ns2023 ---| SA6 A7+B1 STORE NUMBER OF *QRF* FILES
03917 M01S03289.ns2023 ---| SA0 TQRF+TQFFW SET FET ADDRESS
03918 M01S03290.ns2023 ---| SA5 TQRF+TQFNW SET FILE HEADER ADDRESS
03919 M01S03291.ns2023 ---| EQ CRT6 ALLOCATE *QRF* FILE
| Line S00090 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03920 M01S00090.ns2023 +++| SB7 B1 DEFINE *BRF* PROCESS
03921 M01S00091.ns2023 +++| SA6 A7+B1 STORE NUMBER OF *BRF* FILES
03922 M01S00092.ns2023 +++| SA0 TQRF+TQFFW SET FET ADDRESS
03923 M01S00093.ns2023 +++| SA5 TQRF+TQFNW SET FILE HEADER ADDRESS
03924 M01S00094.ns2023 +++| EQ CRT6 ALLOCATE *BRF* FILE
03925 M00S03292.dmrec +++|
| Line S03293 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03926 M01S03293.ns2023 ---|* PRESET *TLRF* TABLE FET AND FILE HEADER
| Line S00095 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03927 M01S00095.ns2023 +++|* PRESET *TARF* TABLE FET AND FILE HEADER
03928 M00S03294.dmrec +++|
| Line S03295 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03929 M01S03295.ns2023 ---| CRT5 SB6 B1 *LRF* BUFFER
| Line S00096 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03930 M01S00096.ns2023 +++| CRT5 SB6 B1 *ARF* BUFFER
03931 M00S03296.dmrec +++| RJ ARB ALLOCATE BUFFER
03932 M00S03297.dmrec +++| NZ X1,CRT15 IF NO SPACE FOR BUFFER
03933 M00S03298.dmrec +++| SA2 CRTI FILE NAME
03934 M00S03299.dmrec +++| SX3 B1
03935 M00S03300.dmrec +++| BX7 X2+X3 SET COMPLETION BIT
| Line S03301 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03936 M01S03301.ns2023 ---| SA7 TLRF+TAFFW STORE FET+0 IN *TLRF* TABLE
| Line S00097 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03937 M01S00097.ns2023 +++| SA7 TARF+TAFFW STORE FET+0 IN *TARF* TABLE
03938 M00S03302.dmrec +++| BX7 X2
| Line S03303 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03939 M01S03303.ns2023 ---| SA7 TLRF+TAFNW STORE NAME IN FILE HEADER
| Line S00098 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03940 M01S00098.ns2023 +++| SA7 TARF+TAFNW STORE NAME IN FILE HEADER
03941 M00S03304.dmrec +++| MX7 0
| Line S03305 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03942 M01S03305.ns2023 ---| SA7 TLRF+TADDW DUMP DATE AND TIME
03943 M01S03306.ns2023 ---| SA0 TLRF+TAFFW FWA OF FET
03944 M01S03307.ns2023 ---| SA5 TLRF+TAFNW FWA OF FILE HEADER
03945 M01S03308.ns2023 ---| SB7 B0+ DEFINE *LRF* PROCESS
| Line S00099 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03946 M01S00099.ns2023 +++| SA7 TARF+TADDW DUMP DATE AND TIME
03947 M01S00100.ns2023 +++| SA0 TARF+TAFFW FWA OF FET
03948 M01S00101.ns2023 +++| SA5 TARF+TAFNW FWA OF FILE HEADER
03949 M01S00102.ns2023 +++| SB7 B0+ DEFINE *ARF* PROCESS
03950 M00S03309.dmrec +++|
03951 M00S03310.dmrec +++|* FIND IF FILE LOCAL OR PERMANENT, OTHERWISE DEFINE IT
03952 M00S03311.dmrec +++|
03953 M00S03312.dmrec +++| CRT6 RJ GFA GET FILE AND ALLOCATE IT
03954 M00S03313.dmrec +++| ZR X6,CRT7 IF FILE ALLOCATED
03955 M00S03314.dmrec +++| SX6 X6-6 DEFINE ERROR
03956 M00S03315.dmrec +++| NZ X6,CRT17 IF CIO ERROR
03957 M00S03316.dmrec +++| EQ CRT16 CAN NOT DEFINE FILE
03958 M00S03317.dmrec +++|
03959 M00S03318.dmrec +++| CRT7 SA1 CRTI FILE NAME
03960 M00S03319.dmrec +++| RJ SFN BLANK FILL FILE NAME
03961 M00S03320.dmrec +++| SA6 CRTH+2
03962 M00S03321.dmrec +++| RETURN RECF,R
| Line S03322 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03963 M01S03322.ns2023 ---| SA1 QRFFLG
03964 M01S03323.ns2023 ---| PL X1,CRT9 IF NOT *QRF* RECOVERY
03965 M01S03324.ns2023 ---| EQ REC9 RETURN FOR NEXT POSSIBLE *QRF*
| Line S00103 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03966 M01S00103.ns2023 +++| SA1 BRFFLG
03967 M01S00104.ns2023 +++| PL X1,CRT9 IF NOT *BRF* RECOVERY
03968 M01S00105.ns2023 +++| EQ REC9 RETURN FOR NEXT POSSIBLE *BRF*
03969 M00S03325.dmrec +++|
03970 M00S03326.dmrec +++| CRT8 RETURN RECF
03971 M00S03327.dmrec +++| EQ DMR3 RETURN
03972 M00S03328.dmrec +++|
| Line S03329 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03973 M01S03329.ns2023 ---| CRT9 SA1 DMPFLG CHECK FOR *LRF* DUMP
03974 M01S03330.ns2023 ---| NZ X1,CRT10 IF NOT *LRF* DUMP
| Line S00106 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
03975 M01S00106.ns2023 +++| CRT9 SA1 DMPFLG CHECK FOR *ARF* DUMP
03976 M01S00107.ns2023 +++| NZ X1,CRT10 IF NOT *ARF* DUMP
03977 M00S03331.dmrec +++| EQ DMP10 CONTINUE WITH DUMP PROCESSING
03978 M00S03332.dmrec +++|
03979 M00S03333.dmrec +++| CRT10 ERROR CRTH,,,DMR3 ISSUE FILE ALLOCATED MESSAGE
03980 M00S03334.dmrec +++|
03981 M00S03335.dmrec +++| CRT11 ERROR DMRA,,,CRT8,,E ONLY ONE LFN ALLOWED
03982 M00S03336.dmrec +++|
03983 M00S03337.dmrec +++| CRT13 ERROR CRTC,,,CRT8,,E INCORRECT FILE TYPE
03984 M00S03338.dmrec +++|
03985 M00S03339.dmrec +++| CRT14 ERROR CRTD,,,CRT8,,E INCORRECT FILE ORDINAL
03986 M00S03340.dmrec +++|
03987 M00S03341.dmrec +++| CRT15 ERROR CRTE,,,CRT8,,E NO SPACE FOR BUFFER
03988 M00S03342.dmrec +++|
03989 M00S03343.dmrec +++| CRT16 ERROR CRTF,,,CRT8,,E DEFINE ERROR
03990 M00S03344.dmrec +++|
03991 M00S03345.dmrec +++| CRT17 ERROR CRTG,,,CRT8,,E CIO ERROR
03992 M00S03346.dmrec +++|
03993 M00S03347.dmrec +++|
03994 M00S03348.dmrec +++| CRTC DATA 20H0 *****
03995 M00S03349.dmrec +++| DATA C*FILE TYPE NOT ARF OR BRF.*
03996 M00S03350.dmrec +++| CRTCL EQU *-CRTC
03997 M00S03351.dmrec +++|
03998 M00S03352.dmrec +++| CRTD DATA 20H0 *****
03999 M00S03353.dmrec +++| DATA C*ARF ORDINAL MUST BE 01 OR 02.*
04000 M00S03354.dmrec +++| CRTDL EQU *-CRTD
04001 M00S03355.dmrec +++|
04002 M00S03356.dmrec +++| CRTE DATA 20H0 *****
04003 M00S03357.dmrec +++| DATA C*NO SPACE FOR ARF/BRF BUFFER.*
04004 M00S03358.dmrec +++| CRTEL EQU *-CRTE
04005 M00S03359.dmrec +++|
04006 M00S03360.dmrec +++| CRTF DATA 20H0 *****
04007 M00S03361.dmrec +++| DATA C*DEFINE ERROR ON FILE.*
04008 M00S03362.dmrec +++| CRTFL EQU *-CRTF
04009 M00S03363.dmrec +++|
04010 M00S03364.dmrec +++| CRTG DATA 20H0 *****
04011 M00S03365.dmrec +++| DATA C*CRT - CIO ERROR.*
04012 M00S03366.dmrec +++| CRTGL EQU *-CRTG
04013 M00S03367.dmrec +++|
04014 M00S03368.dmrec +++| CRTH DATA 20H0 *****
04015 M00S03369.dmrec +++| DATA C* ALLOCATED.*
04016 M00S03370.dmrec +++| CRTHL EQU *-CRTH
04017 M00S03371.dmrec +++|
04018 M00S03372.dmrec +++| CRTI BSSZ 1 FILE NAME - ZZDBXNN
04019 M00S03373.dmrec +++| CRTJ BSSZ 1 NN FIELD
04020 M00S03374.dmrec +++| CRTK BSSZ 1 X FIELD
04021 M00S03375.dmrec +++|
04022 M00S03376.dmrec +++|
04023 M00S03377.dmrec +++| CTD SPACE 4,15
04024 M00S03378.dmrec +++|** CTD - CHECK TIME AND DATE.
04025 M00S03379.dmrec +++|*
04026 M00S03380.dmrec +++|* ENTRY (DATE) = BEGIN DATE. YYMMDD.
04027 M00S03381.dmrec +++|* (TIME) = BEGIN TIME. HHMMSS.
04028 M00S03382.dmrec +++|* (DATE1) = END DATE.
04029 M00S03383.dmrec +++|* (TIME1) = END TIME.
04030 M00S03384.dmrec +++|*
04031 M00S03385.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS.
04032 M00S03386.dmrec +++|* 1, IF INCORRECT FORMAT.
04033 M00S03387.dmrec +++|*
04034 M00S03388.dmrec +++|* USES X - 0, 1, 2, 3, 4, 5.
04035 M00S03389.dmrec +++|* A - 2.
04036 M00S03390.dmrec +++|* B - 6.
04037 M00S03391.dmrec +++|*
04038 M00S03392.dmrec +++|* CALLS DXB.
04039 M00S03393.dmrec +++|
04040 M00S03394.dmrec +++|
04041 M00S03395.dmrec +++| CTD6 MX1 0 NO ERROR RETURN
04042 M00S03396.dmrec +++|
04043 M00S03397.dmrec +++| CTD SUBR ENTRY/EXIT
04044 M00S03398.dmrec +++| SB6 B0
04045 M00S03399.dmrec +++| SA2 DATE BEGIN DATE
04046 M00S03400.dmrec +++| CTD1 ZR X2,CTD2 IF DATE NOT GIVEN
04047 M00S03401.dmrec +++| MX0 12
04048 M00S03402.dmrec +++| BX5 X0*X2 YY
04049 M00S03403.dmrec +++| RJ DXB CONVERT TO BINARY
04050 M00S03404.dmrec +++| SX1 B1 ERROR RETURN
04051 M00S03405.dmrec +++| NZ X4,CTDX IF NOT NUMERIC
04052 M00S03406.dmrec +++| SA2 A2
04053 M00S03407.dmrec +++| MX0 12
04054 M00S03408.dmrec +++| LX2 12
04055 M00S03409.dmrec +++| BX5 X0*X2 MM
04056 M00S03410.dmrec +++| RJ DXB CONVERT TO BINARY
04057 M00S03411.dmrec +++| SX1 B1
04058 M00S03412.dmrec +++| NZ X4,CTDX IF NOT NUMERIC
04059 M00S03413.dmrec +++| ZR X6,CTDX IF OUT OF RANGE
04060 M00S03414.dmrec +++| SX3 12
04061 M00S03415.dmrec +++| IX4 X3-X6
04062 M00S03416.dmrec +++| NG X4,CTDX IF OUT RANGE
04063 M00S03417.dmrec +++| MX0 12
04064 M00S03418.dmrec +++| SA2 A2
04065 M00S03419.dmrec +++| LX2 24
04066 M00S03420.dmrec +++| BX5 X0*X2 DD
04067 M00S03421.dmrec +++| RJ DXB CONVERT TO BINARY
04068 M00S03422.dmrec +++| SX1 B1
04069 M00S03423.dmrec +++| NZ X4,CTDX IF NOT NUMERIC
04070 M00S03424.dmrec +++| ZR X6,CTDX IF OUT OF RANGE
04071 M00S03425.dmrec +++| SX3 31
04072 M00S03426.dmrec +++| IX4 X3-X6
04073 M00S03427.dmrec +++| NG X4,CTDX IF OUT OF RANGE
04074 M00S03428.dmrec +++| CTD2 EQ B6,B1,CTD3 IF BOTH DATES CHECKED
04075 M00S03429.dmrec +++| SA2 DATE1 END DATE
04076 M00S03430.dmrec +++| SB6 B6+B1
04077 M00S03431.dmrec +++| EQ CTD1 CHECK END DATE
04078 M00S03432.dmrec +++|
04079 M00S03433.dmrec +++| CTD3 SA2 TIME BEGIN TIME
04080 M00S03434.dmrec +++| SB6 B0
04081 M00S03435.dmrec +++| CTD4 ZR X2,CTD5 IF TIME NOT GIVEN
04082 M00S03436.dmrec +++| MX0 12
04083 M00S03437.dmrec +++| BX5 X0*X2 HH
04084 M00S03438.dmrec +++| RJ DXB DISPLAY TO BINARY
04085 M00S03439.dmrec +++| SX1 B1
04086 M00S03440.dmrec +++| NZ X4,CTDX IF NOT NUMERIC
04087 M00S03441.dmrec +++| SX3 23
04088 M00S03442.dmrec +++| IX4 X3-X6
04089 M00S03443.dmrec +++| NG X4,CTDX IF OUT OF RANGE
04090 M00S03444.dmrec +++| SA2 A2
04091 M00S03445.dmrec +++| MX0 12
04092 M00S03446.dmrec +++| LX2 12
04093 M00S03447.dmrec +++| BX5 X0*X2 MM
04094 M00S03448.dmrec +++| RJ DXB DISPLAY TO BINARY
04095 M00S03449.dmrec +++| SX1 B1
04096 M00S03450.dmrec +++| NZ X4,CTDX IF NOT NUMERIC
04097 M00S03451.dmrec +++| SX3 59
04098 M00S03452.dmrec +++| IX4 X3-X6
04099 M00S03453.dmrec +++| NG X4,CTDX IF OUT OF RANGE
04100 M00S03454.dmrec +++| MX0 12
04101 M00S03455.dmrec +++| SA2 A2
04102 M00S03456.dmrec +++| LX2 24
04103 M00S03457.dmrec +++| BX5 X0*X2 SS
04104 M00S03458.dmrec +++| RJ DXB DISPLAY TO BINARY
04105 M00S03459.dmrec +++| SX1 B1
04106 M00S03460.dmrec +++| NZ X4,CTDX IF NOT NUMERIC
04107 M00S03461.dmrec +++| SX3 59
04108 M00S03462.dmrec +++| IX4 X3-X6
04109 M00S03463.dmrec +++| NG X4,CTDX IF OUT OF RANGE
04110 M00S03464.dmrec +++| CTD5 EQ B6,B1,CTD6 IF BOTH TIMES CHECKED
04111 M00S03465.dmrec +++| SB6 B6+B1
04112 M00S03466.dmrec +++| SA2 TIME1 END TIME
04113 M00S03467.dmrec +++| EQ CTD4 CHECK TIME
04114 M00S03468.dmrec +++| CTW SPACE 4,10
04115 M00S03469.dmrec +++|** CTW - CHARACTERS TO WORDS.
04116 M00S03470.dmrec +++|*
04117 M00S03471.dmrec +++|* ENTRY (X7) = LENGTH IN CHARACTERS.
04118 M00S03472.dmrec +++|*
04119 M00S03473.dmrec +++|* EXIT (X1) = LENGTH IN WORDS.
04120 M00S03474.dmrec +++|* (X6) = REMAINDER IN CHARACTERS.
04121 M00S03475.dmrec +++|*
04122 M00S03476.dmrec +++|* USES X - 1, 4, 5, 6.
04123 M00S03477.dmrec +++|* B - 7.
04124 M00S03478.dmrec +++|
04125 M00S03479.dmrec +++|
04126 M00S03480.dmrec +++| CTW SUBR ENTRY/EXIT
04127 M00S03481.dmrec +++| SX6 10
04128 M00S03482.dmrec +++| PX4 X7
04129 M00S03483.dmrec +++| PX5 X6
04130 M00S03484.dmrec +++| NX6 X5
04131 M00S03485.dmrec +++| FX4 X4/X6
04132 M00S03486.dmrec +++| UX6 B7,X4
04133 M00S03487.dmrec +++| LX1 B7,X6
04134 M00S03488.dmrec +++| PX6 X1 COMPUTE REMAINDER
04135 M00S03489.dmrec +++| DX4 X6*X5
04136 M00S03490.dmrec +++| UX6 X4
04137 M00S03491.dmrec +++| IX6 X7-X6 REMAINDER
04138 M00S03492.dmrec +++| ZR X6,CTWX IF REMAINDER .EQ. ZERO - RETURN
04139 M00S03493.dmrec +++| SX1 X1+1
04140 M00S03494.dmrec +++| EQ CTWX RETURN
04141 M00S03495.dmrec +++| CVN SPACE 4,10
04142 M00S03496.dmrec +++|** CVN - CHECK VSN NUMBER.
04143 M00S03497.dmrec +++|*
04144 M00S03498.dmrec +++|* ENTRY (TVSN) = VSN NUMBER.
04145 M00S03499.dmrec +++|* (ADDF) = 0, IF DELETE ENTRY.
04146 M00S03500.dmrec +++|* 1, IF ADD ENTRY.
04147 M00S03501.dmrec +++|* (FITA) = FWA OF AUXILARY FIT TABLE.
04148 M00S03502.dmrec +++|*
04149 M00S03503.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS.
04150 M00S03504.dmrec +++|* (X6) = COUNT OF ACTIVE FILES.
04151 M00S03505.dmrec +++|* (A0) = CORRECT FIT ADDRESS FOR PROCESS.
04152 M00S03506.dmrec +++|* (WSAB) = FWA OF VSN ENTRY.
04153 M00S03507.dmrec +++|*
04154 M00S03508.dmrec +++|* USES X - 0, 1, 2, 6.
04155 M00S03509.dmrec +++|* A - 0, 1, 2.
04156 M00S03510.dmrec +++|* B - NONE.
04157 M00S03511.dmrec +++|*
04158 M00S03512.dmrec +++|* CALLS SVK.
04159 M00S03513.dmrec +++|*
04160 M00S03514.dmrec +++|* MACROS ERROR, FETCH, RMGET.
04161 M00S03515.dmrec +++|
04162 M00S03516.dmrec +++|
04163 M00S03517.dmrec +++| CVN SUBR ENTRY/EXIT
04164 M00S03518.dmrec +++| SA1 ADDF ADD/DELETE FLAG
04165 M00S03519.dmrec +++| SA0 DIRR DIRECTORY FIT ADDRESS
04166 M00S03520.dmrec +++| ZR X1,CVN1 IF DELETE PROCESS
04167 M00S03521.dmrec +++| SA0 FITA AUXILARY FIT ADDRESS
04168 M00S03522.dmrec +++| CVN1 SA1 TVSN
04169 M00S03523.dmrec +++| RJ SVK SET VSN KEY
04170 M00S03524.dmrec +++| RMGET A0,WSAB,0,,VKY1 READ VSN ENTRY
04171 M00S03525.dmrec +++| FETCH A0,ES,X1 FIT ERROR STATUS
04172 M00S03526.dmrec +++| NZ X1,CVN2 IF VSN DOES NOT EXIST
04173 M00S03527.dmrec +++| SX1 B1
04174 M00S03528.dmrec +++| SA2 WSAB+5 FIRST VSN INDICATOR
04175 M00S03529.dmrec +++| ZR X2,CVN3 IF NOT FIRST VSN
04176 M00S03530.dmrec +++| SA2 WSAB+4 COUNT OF ACTIVE FILES
04177 M00S03531.dmrec +++| BX6 X2
04178 M00S03532.dmrec +++| MX1 0
04179 M00S03533.dmrec +++| EQ CVNX NORMAL RETURN
04180 M00S03534.dmrec +++|
04181 M00S03535.dmrec +++| CVN2 ERROR CVNA,,,CVNX,,E VSN DOES NOT EXIST
04182 M00S03536.dmrec +++|
04183 M00S03537.dmrec +++| CVN3 ERROR CVNB,,,CVNX,,E VSN NOT FIRST REEL
04184 M00S03538.dmrec +++|
04185 M00S03539.dmrec +++| CVNA DATA 20H0 *****
04186 M00S03540.dmrec +++| DATA C*VSN DOES NOT EXIST.*
04187 M00S03541.dmrec +++| CVNAL EQU *-CVNA
04188 M00S03542.dmrec +++|
04189 M00S03543.dmrec +++| CVNB DATA 20H0 *****
04190 M00S03544.dmrec +++| DATA C*VSN IS NOT FIRST REEL.*
04191 M00S03545.dmrec +++| CVNBL EQU *-CVNB
04192 M00S03546.dmrec +++| CWM SPACE 4,15
04193 M00S03547.dmrec +++|** CWM - CHECK WRITE MODE.
04194 M00S03548.dmrec +++|*
04195 M00S03549.dmrec +++|* *CWM* CHECKS THE MODE INDICATOR IN THE *XXJ* FILE FOR
04196 M00S03550.dmrec +++|* WRITE PERMISSION TO THE FILE IN QUESTION.
04197 M00S03551.dmrec +++|*
04198 M00S03552.dmrec +++|* ENTRY (XXACC) = MODE INDICATOR.
04199 M00S03553.dmrec +++|*
04200 M00S03554.dmrec +++|* EXIT (X1) = 0 - IF NO ERROR.
04201 M00S03555.dmrec +++|*
04202 M00S03556.dmrec +++|* USES X - 1, 2.
04203 M00S03557.dmrec +++|* A - 2.
04204 M00S03558.dmrec +++|* B - NONE.
04205 M00S03559.dmrec +++|
04206 M00S03560.dmrec +++|
04207 M00S03561.dmrec +++| CWM SUBR ENTRY/EXIT
04208 M00S03562.dmrec +++| SA2 XXACC GET MODE
04209 M00S03563.dmrec +++| LX2 6
04210 M00S03564.dmrec +++| SX1 X2-1RM
04211 M00S03565.dmrec +++| ZR X1,CWMX IF MODIFY MODE - OK
04212 M00S03566.dmrec +++| SX1 X2-1RW
04213 M00S03567.dmrec +++| ZR X1,CWMX IF WRITE MODE - OK
04214 M00S03568.dmrec +++| ERROR CWM1,XXPFN,,CWMX,,E PF XXXXXXX - READ ONLY
04215 M00S03569.dmrec +++|
04216 M00S03570.dmrec +++| CWM1 DATA 20H0 *****
04217 M00S03571.dmrec +++| DATA C*PF XXXXXXX - READ ONLY.*
04218 M00S03572.dmrec +++| CWM1L EQU *-CWM1
04219 M00S03573.dmrec +++| CYC SPACE 4,25
04220 M00S03574.dmrec +++|** CYC - CHANGE CYCLE NUMBER.
04221 M00S03575.dmrec +++|*
04222 M00S03576.dmrec +++|* *CYC* CHANGES THE NUMBER OF CYCLES TO RETAIN IN THE BACKUP
04223 M00S03577.dmrec +++|* DIRECTORY HEADER OR IN THE FILE HEADER, DEPENDING ON
04224 M00S03578.dmrec +++|* PARAMETERS SPECIFIED ON THE EDIT DIRECTIVE. IF DATA
04225 M00S03579.dmrec +++|* BASE NAME IS SPECIFIED THE DIRECTORY HEADER IS MODIFIED,
04226 M00S03580.dmrec +++|* OTHERWISE FILE HEADERS FOR SELECTIVE FILES ARE CHANGED.
04227 M00S03581.dmrec +++|*
04228 M00S03582.dmrec +++|* ENTRY (CYCL) = CYCLE NUMBER.
04229 M00S03583.dmrec +++|* (LFNC) = 0, IF DIRECTORY HEADER IS MODIFIED.
04230 M00S03584.dmrec +++|* N, IF SELECTIVE FILE HEADERS ARE MODIFIED.
04231 M00S03585.dmrec +++|*
04232 M00S03586.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS.
04233 M00S03587.dmrec +++|*
04234 M00S03588.dmrec +++|* USES X - 1, 2, 5, 6, 7.
04235 M00S03589.dmrec +++|* A - 1, 5, 6, 7.
04236 M00S03590.dmrec +++|* B - NONE.
04237 M00S03591.dmrec +++|*
04238 M00S03592.dmrec +++|* CALLS DXB, EFD, FER.
04239 M00S03593.dmrec +++|*
04240 M00S03594.dmrec +++|* MACROS GETN, RMREP, REWINDM.
04241 M00S03595.dmrec +++|
04242 M00S03596.dmrec +++|
04243 M00S03597.dmrec +++| CYC3 BX6 X6-X6
04244 M00S03598.dmrec +++| SA6 CYCF CLEAR CYCLE CHANGE FLAG
04245 M00S03599.dmrec +++|
04246 M00S03600.dmrec +++| CYC SUBR ENTRY/EXIT
04247 M00S03601.dmrec +++| SA5 CYCL CYCLE NUMBER
04248 M00S03602.dmrec +++| RJ DXB CONVERT DISPLAY TO BINARY
04249 M00S03603.dmrec +++| BX2 X6
04250 M00S03604.dmrec +++| SA6 CYCL REPLACE WITH BINARY VALUE
04251 M00S03605.dmrec +++| SX1 B1
04252 M00S03606.dmrec +++| ZR X2,CYC2 IF NUMBER EQUAL ZERO
04253 M00S03607.dmrec +++| SX1 CYCM MAXIMUM CYCLE NUMBER
04254 M00S03608.dmrec +++| IX2 X1-X2
| Line S03609 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04255 M01S03609.v23l617 ---| NG X2,CYC2 IF ILLEGAL CYCLE NUMBER
| Line S00020 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04256 M01S00020.v23l617 +++| NG X2,CYC2 IF INCORRECT CYCLE NUMBER
04257 M00S03610.dmrec +++| SX7 -2
04258 M00S03611.dmrec +++| SA7 LFNP PRESET FILE NAME POINTER
04259 M00S03612.dmrec +++| SX6 B1
04260 M00S03613.dmrec +++| SA6 CYCF CYCLE CHANGE FLAG
04261 M00S03614.dmrec +++| SA1 LFNC NUMBER OF FILES
04262 M00S03615.dmrec +++| NZ X1,CYC1 IF FILE HEADERS ARE MODIFIED
04263 M00S03616.dmrec +++| REWINDM DIRR
04264 M00S03617.dmrec +++| GETN DIRR,WSAB,,TKY1 READ DIRECTORY HEADER
04265 M00S03618.dmrec +++| RJ FER FIT ERROR STATUS
04266 M00S03619.dmrec +++| NZ X1,CYC3 IF CRM ERROR
04267 M00S03620.dmrec +++| SA1 CYCL NEW CYCLE NUMBER
04268 M00S03621.dmrec +++| BX6 X1
04269 M00S03622.dmrec +++| SA6 WSAB+5 REPLACE CYCLE NUMBER
04270 M00S03623.dmrec +++| RMREP DIRR,WSAB,WSAL,,TKY1 REPLACE DIRECTORY HEADER
04271 M00S03624.dmrec +++| RJ FER FIT ERROR STATUS
04272 M00S03625.dmrec +++| CYC0 GETN DIRR,WSAB,,TKY1 GET NEXT FILE HEADER
04273 M00S03626.dmrec +++| RJ FER FIT ERROR STATUS
04274 M00S03627.dmrec +++| NZ X1,CYC3 IF CRM ERROR
04275 M00S03628.dmrec +++| SX2 3RAAA FILE HEADER TYPE
04276 M00S03629.dmrec +++| SA3 TKY1 NEXT FILE HEADER ENTRY
04277 M00S03630.dmrec +++| MX0 -18
04278 M00S03631.dmrec +++| BX1 -X0*X3
04279 M00S03632.dmrec +++| BX2 X2-X1 COMPARE TYPES
04280 M00S03633.dmrec +++| MX1 0 CLEAR ERROR RETURN FLAG
04281 M00S03634.dmrec +++| NZ X2,CYC3 IF ALL DONE PROCESING FILE HEADERS
04282 M00S03635.dmrec +++| RJ EFD EDIT FILE HEADER
04283 M00S03636.dmrec +++| NZ X1,CYC3 IF CRM ERROR
04284 M00S03637.dmrec +++| EQ CYC0 PROCESS NEXT FILE HEADER
04285 M00S03638.dmrec +++|
04286 M00S03639.dmrec +++| CYC1 SA1 LFNP FILE POINTER IN *TDFS* TABLE
04287 M00S03640.dmrec +++| SX6 X1+2 INCREMENT POINTER
04288 M00S03641.dmrec +++| SA6 LFNP REPLACE POINTER
04289 M00S03642.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFS* TABLE
04290 M00S03643.dmrec +++| LX1 1 NUMBER OF ENTRIES
04291 M00S03644.dmrec +++| IX2 X6-X1
04292 M00S03645.dmrec +++| MX1 0
04293 M00S03646.dmrec +++| ZR X2,CYC3 IF END OF TABLE
04294 M00S03647.dmrec +++| SA1 TDFS+X6 NEXT FILE FROM *TDFS* TABLE
04295 M00S03648.dmrec +++| BX6 X1
04296 M00S03649.dmrec +++| SA6 TKY1 SET KEY
04297 M00S03650.dmrec +++| RJ EFD EDIT FILE HEADER
04298 M00S03651.dmrec +++| NZ X1,CYC3 IF CRM ERROR
04299 M00S03652.dmrec +++| EQ CYC1 NEXT FILE
04300 M00S03653.dmrec +++|
04301 M00S03654.dmrec +++| CYC2 ERROR CYCA,,,CYCX,,E CYCLE NUMBER IS OUTSIDE LIMITS
04302 M00S03655.dmrec +++|
04303 M00S03656.dmrec +++| CYCA DATA 20H0 *****
04304 M00S03657.dmrec +++| DATA C*CYCLE NUMBER IS OUTSIDE LIMITS.*
04305 M00S03658.dmrec +++| CYCAL EQU *-CYCA
04306 M00S03659.dmrec +++| DBF SPACE 4,20
04307 M00S03660.dmrec +++|** DBF - DUMP BLOCK FORMAT.
04308 M00S03661.dmrec +++|*
04309 M00S03662.dmrec +++|* DUMP FILE IN BLOCK FORMAT. IF END-OF-TAPE IS REACHED
04310 M00S03663.dmrec +++|* RETURN CURRENT ONE AND REQUEST NEXT.
04311 M00S03664.dmrec +++|*
04312 M00S03665.dmrec +++|* ENTRY (X4) = FWA OF FET.
04313 M00S03666.dmrec +++|*
04314 M00S03667.dmrec +++|* EXIT DATA FILE DUMPED IN BLOCK MODE.
04315 M00S03668.dmrec +++|* (X1) = 0 IF NO ERRORS.
04316 M00S03669.dmrec +++|*
04317 M00S03670.dmrec +++|* USES X - 0, 1, 2, 4, 6.
04318 M00S03671.dmrec +++|* A - 1, 4, 6.
04319 M00S03672.dmrec +++|* B - NONE.
04320 M00S03673.dmrec +++|*
04321 M00S03674.dmrec +++|* CALLS DER.
04322 M00S03675.dmrec +++|*
04323 M00S03676.dmrec +++|* MACROS ERROR, READ, READW, RECALL, REWIND, WRITEF,
04324 M00S03677.dmrec +++|* WRITER, WRITEW.
04325 M00S03678.dmrec +++|
04326 M00S03679.dmrec +++|
04327 M00S03680.dmrec +++| DBF SUBR ENTRY/EXIT
04328 M00S03681.dmrec +++| BX6 X4
04329 M00S03682.dmrec +++| SA6 HOLD SAVE REGISTER.
04330 M00S03683.dmrec +++| REWIND X4,R
| Line S00118 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04331 M01S00118.dmrec7 +++| SX6 TEOR TABLE OF EOR-S
04332 M01S00119.dmrec7 +++| SA6 PEOR INITIALIZE POINTER
04333 M00S03684.dmrec +++|
04334 M00S03685.dmrec +++| DBF1 SA4 HOLD
04335 M00S03686.dmrec +++| DBF2 READ X4,R
04336 M00S03687.dmrec +++| DBF3 SA4 HOLD
04337 M00S03688.dmrec +++| READW X4,WBUF,WBUFL
04338 M00S03689.dmrec +++| ZR X1,DBF5 IF NO EOR/EOF
04339 M00S03690.dmrec +++| NG X1,DBF6 IF EOF/EOI
04340 M00S03691.dmrec +++|
04341 M00S03692.dmrec +++|* EOR ENCOUNTERED.
04342 M00S03693.dmrec +++|
04343 M00S03694.dmrec +++| WRITEW TP,WBUF,X1-WBUF
04344 M00S03695.dmrec +++| RJ DER DETECT END OF REEL
04345 M00S03696.dmrec +++| NG X1,DBF4 IF END OF TAPE
04346 M00S03697.dmrec +++| NZ X1,DBFX IF ERROR
04347 M00S03698.dmrec +++| DBF4 WRITER TP,R
| Line S00120 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04348 M01S00120.dmrec7 +++| SA2 EORCNT
04349 M01S00121.dmrec7 +++| SX6 X2+B1
04350 M01S00122.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT
04351 M00S03699.dmrec +++| RJ DER DETECT END OF REEL
04352 M00S03700.dmrec +++| NG X1,DBF1 IF END OF TAPE
04353 M00S03701.dmrec +++| NZ X1,DBFX IF ERROR
04354 M00S03702.dmrec +++| EQ DBF1 GET NEXT RECORD
04355 M00S03703.dmrec +++|
04356 M00S03704.dmrec +++| DBF5 WRITEW TP,WBUF,WBUFL
04357 M00S03705.dmrec +++| RJ DER DETECT END OF REEL
04358 M00S03706.dmrec +++| NG X1,DBF3 IF END OF TAPE
04359 M00S03707.dmrec +++| NZ X1,DBFX IF ERROR
04360 M00S03708.dmrec +++| EQ DBF3 GET NEXT BUFFER
04361 M00S03709.dmrec +++|
04362 M00S03710.dmrec +++| DBF6 SA1 XXPFN
04363 M00S03711.dmrec +++| SX2 3REND
04364 M00S03712.dmrec +++| MX0 42
04365 M00S03713.dmrec +++| SA4 ACFA
04366 M00S03714.dmrec +++| BX4 X4-X1
04367 M00S03715.dmrec +++| BX4 X0*X4
04368 M00S03716.dmrec +++| ZR X4,DBF7 IF DIRECTORY FILE
04369 M00S03717.dmrec +++| SA4 DMPFLG
| Line S03718 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04370 M01S03718.ns2023 ---| NZ X4,DBF7 IF NOT *LRF*
04371 M01S03719.ns2023 ---| LX1 48 POSITION FILE NAME FOR *LRF*
| Line S00108 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04372 M01S00108.ns2023 +++| NZ X4,DBF7 IF NOT *ARF*
04373 M01S00109.ns2023 +++| LX1 48 POSITION FILE NAME FOR *ARF*
04374 M00S03720.dmrec +++| DBF7 BX6 X1+X2
04375 M00S03721.dmrec +++| SA6 TEMPP TRAILER WORD
04376 M00S03722.dmrec +++| WRITEW TP,TEMPP,B1
04377 M00S03723.dmrec +++| RJ DER DETECT END OF REEL
04378 M00S03724.dmrec +++| NG X1,DBF8 IF END OF TAPE
04379 M00S03725.dmrec +++| NZ X1,DBFX IF ERROR
04380 M00S03726.dmrec +++| DBF8 WRITEF TP,R
| Line S00123 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04381 M01S00123.dmrec7 +++| SA2 EORCNT
04382 M01S00124.dmrec7 +++| SX6 X2+B1
04383 M01S00125.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT
04384 M00S03727.dmrec +++| RJ DER DETECT END OF REEL
04385 M00S03728.dmrec +++| NG X1,DBF9 IF END OF TAPE
04386 M00S03729.dmrec +++| NZ X1,DBFX IF ERROR
04387 M00S03730.dmrec +++| DBF9 SX1 B0
04388 M00S03731.dmrec +++| EQ DBFX RETURN
04389 M00S03732.dmrec +++| DCK SPACE 4,15
04390 M00S03733.dmrec +++|** DCK - DECOLLATE KEY.
04391 M00S03734.dmrec +++|*
04392 M00S03735.dmrec +++|* DECOLLATE PRIMARY KEY IN PLACE. ALL SYMBOLIC
04393 M00S03736.dmrec +++|* KEYS IN *IS* FILES MUST BE DECOLLATED.
04394 M00S03737.dmrec +++|*
04395 M00S03738.dmrec +++|* ENTRY (A1) = ADDRESS OF VECTOR TABLE.
04396 M00S03739.dmrec +++|*
04397 M00S03740.dmrec +++|* EXIT KEYS TRANSLATED TO ORIGINAL FORM.
04398 M00S03741.dmrec +++|* (X1) = 0 - IF NO ERRORS.
04399 M00S03742.dmrec +++|*
04400 M00S03743.dmrec +++|* USES X - ALL.
04401 M00S03744.dmrec +++|* A - 0, 1, 2, 3, 5, 7.
04402 M00S03745.dmrec +++|* B - 2, 3, 4, 5, 6, 7.
04403 M00S03746.dmrec +++|
04404 M00S03747.dmrec +++|
04405 M00S03748.dmrec +++| DCK SUBR ENTRY/EXIT
04406 M00S03749.dmrec +++| SA2 A1 FWA OF VECTOR TABLE
04407 M00S03750.dmrec +++| SA1 X2 FIRST PARAMETER
04408 M00S03751.dmrec +++| SA1 X1 GET SOURCE KEY
04409 M00S03752.dmrec +++| SA2 A2+B1 KEY POSITION
04410 M00S03753.dmrec +++| SA3 X2 BEGIN CHARACTER POSITION OF SOURCE KEY
04411 M00S03754.dmrec +++| IX6 X3+X3 BCP*2
04412 M00S03755.dmrec +++| LX7 B1,X6 BCP*4
04413 M00S03756.dmrec +++| IX5 X6+X7 BCP*6
04414 M00S03757.dmrec +++| SB3 X5
04415 M00S03758.dmrec +++| SA2 A2+B1 KEY SIZE
04416 M00S03759.dmrec +++| SA3 X2
04417 M00S03760.dmrec +++| SB7 X3 KEY LENGTH
04418 M00S03761.dmrec +++| ZR B7,DCKX IF ZERO CHARACTERS TO TRANSLATE
04419 M00S03762.dmrec +++| SA2 A2+B1 DECOLLATING TABLE ADDRESS
04420 M00S03763.dmrec +++| SA3 X2
04421 M00S03764.dmrec +++| SB4 X3 B4 IS ADDR OF TRANSLATION TABLE
04422 M00S03765.dmrec +++| SA3 DFIT
04423 M00S03766.dmrec +++| SA0 X3
04424 M00S03767.dmrec +++| MX6 0 CLEAR FOR TRANSLATED KEY
04425 M00S03768.dmrec +++| SB2 60 BIT COUNTER FOR OUTPUT WORD, 60,54,..,6,0
04426 M00S03769.dmrec +++| MX2 60-3
04427 M00S03770.dmrec +++| SB6 6 DECREMENTS B2
04428 M00S03771.dmrec +++| BX2 -X2 MASK, BITS 0-2
04429 M00S03772.dmrec +++| LX3 B1,X2 MASK, BITS 1-3
04430 M00S03773.dmrec +++| MX4 60-6
04431 M00S03774.dmrec +++| BX4 -X4 MASK, BITS 0-5
04432 M00S03775.dmrec +++| MX0 1 MASK, BIT 59
04433 M00S03776.dmrec +++| AX7 B3,X0
04434 M00S03777.dmrec +++| BX7 X7-X0
04435 M00S03778.dmrec +++| LX7 1 MASK FOR CHARS TO LEFT OF BCP OF KEY
04436 M00S03779.dmrec +++| BX6 X1*X7
04437 M00S03780.dmrec +++| LX6 B3,X6 RIGHT JUSTIFY SAVED CHARACTERS
04438 M00S03781.dmrec +++| LX1 B3,X1 LEFT JUSTIFY FIRST CHAR OF KEY
04439 M00S03782.dmrec +++| LX1 1 BIT 0 IS HIGH BIT OF FIRST CHAR OF KEY
04440 M00S03783.dmrec +++| DCK1 LX1 2 BITS 0-2= UPPER OCTAL DIGET OF NEXT CHAR
04441 M00S03784.dmrec +++| BX5 X2*X1
04442 M00S03785.dmrec +++| SA5 X5+B4 LOAD X-LATION TABLE WORD FROM TABLE + UPP
04443 M00S03786.dmrec +++| LX1 4 BITS 1-3 = LOWER OCTAL DIGIT OF CHAR
04444 M00S03787.dmrec +++| BX7 X3*X1
04445 M00S03788.dmrec +++| SB5 X7+B6 B5= 2*LOWER DIGIT+6
04446 M00S03789.dmrec +++| SB7 B7-B1 INCREMENT TOTAL CHAR COUNTER
04447 M00S03790.dmrec +++| LX6 6 ALIGN TRANSLATED KEY WORD FOR NEXT CHAR
04448 M00S03791.dmrec +++| IX7 X7+X7 4*LOWER DIGIT
04449 M00S03792.dmrec +++| SB2 B2-B6 BUMP BIT COUNTER
04450 M00S03793.dmrec +++| SB5 X7+B5 6*LOWER DIGIT+6. SHIFT CONSTANT
04451 M00S03794.dmrec +++| LX5 B5,X5 SHIFT TRANSLATED CHAR TO BITS 0-5
04452 M00S03795.dmrec +++| BX7 X4*X5 ISOLATE CHARACTER
04453 M00S03796.dmrec +++| EQ B7,DCK2 IF LAST CHARACTER IS TRANSLATED
04454 M00S03797.dmrec +++| BX6 X6+X7 ADD TRANSLATED CHARACTER TO OUTPUT WORD
04455 M00S03798.dmrec +++| NE B2,B3,DCK1 IF WORD NOT COMPLETELY TRANSLATED
04456 M00S03799.dmrec +++| SA6 A1 STORE TRANSLATED WORD
04457 M00S03800.dmrec +++| MX6 0 CLEAR FOR NEXT WORD OF TRANSLATED KEY
04458 M00S03801.dmrec +++| SA1 A1+B1 LOAD NEXT WORD TO BE TRANSLATED
04459 M00S03802.dmrec +++| SB2 60 RESET BIT COUNTER
04460 M00S03803.dmrec +++| SB3 B0 B3 IS NO LONGER BCP*6
04461 M00S03804.dmrec +++| LX1 1
04462 M00S03805.dmrec +++| EQ DCK1 BACK
04463 M00S03806.dmrec +++|
04464 M00S03807.dmrec +++| DCK2 BX6 X6+X7 ADD LAST CHAR TO OUTPUT WORD
04465 M00S03808.dmrec +++| SB2 B2-B3
04466 M00S03809.dmrec +++| LX6 B2,X6 LEFT JUSTIFY TRANSLATED KEY IN OUTPUT WORD
04467 M00S03810.dmrec +++| AX7 B2,X0
04468 M00S03811.dmrec +++| IX7 X7-X0
04469 M00S03812.dmrec +++| LX7 1
04470 M00S03813.dmrec +++| LX7 B2,X7 MASK FOR CHAR RIGHT OF KEY IN LAST WORD
04471 M00S03814.dmrec +++| SA5 A1 LAST WORD OF KEY
04472 M00S03815.dmrec +++| BX7 X5*X7 MASK OFF CHAR SO THEY CAN BE RESTORED
04473 M00S03816.dmrec +++| BX6 X6+X7 ADD SAVED CHARS TO TRANSLATED KEY WORD
04474 M00S03817.dmrec +++| SA6 A1 STORE TRANSLATED KEY
04475 M00S03818.dmrec +++| SX1 B0
04476 M00S03819.dmrec +++| EQ DCKX RETURN
04477 M00S03820.dmrec +++| DCR SPACE 4,20
04478 M00S03821.dmrec +++|** DCR - DECOMPRESS RECORD
04479 M00S03822.dmrec +++|*
04480 M00S03823.dmrec +++|* *DCR* DECOMPRESSES *CRM* RECORDS. THIS ROUTINE
04481 M00S03824.dmrec +++|* IS TAKEN, INTACT, FROM *CRM* (SEE *CRM CAPSULE CMPR$01*).
04482 M00S03825.dmrec +++|*
04483 M00S03826.dmrec +++|* ENTRY (A1) = ADDRESS OF PARAMETER BLOCK.
04484 M00S03827.dmrec +++|* (X1) = FIRST PARAMETER.
04485 M00S03828.dmrec +++|*
04486 M00S03829.dmrec +++|* EXIT RECORD EXPANDED.
04487 M00S03830.dmrec +++|*
04488 M00S03831.dmrec +++|* USES X - ALL.
04489 M00S03832.dmrec +++|* A - 1, 2, 3, 4, 5, 6.
04490 M00S03833.dmrec +++|* B - 1, 2, 3, 4, 5, 6, 7.
04491 M00S03834.dmrec +++|*
04492 M00S03835.dmrec +++|* MACROS ZIPPP, ZAPPP.
04493 M00S03836.dmrec +++|
04494 M00S03837.dmrec +++|
04495 M00S03838.dmrec +++| DCR SUBR ENTRY/EXIT
04496 M00S03839.dmrec +++| SB1 1
04497 M00S03840.dmrec +++| SA2 A1+B1 GET PARAMETERS
04498 M00S03841.dmrec +++| SA3 A2+B1
04499 M00S03842.dmrec +++| SA4 A3+B1
04500 M00S03843.dmrec +++| SA5 A4+B1
04501 M00S03844.dmrec +++| SA1 X1
04502 M00S03845.dmrec +++| SA4 X4
04503 M00S03846.dmrec +++| SB3 X4 CHARACTER POSITION
04504 M00S03847.dmrec +++| SA4 X1 FWA OF RECORD
04505 M00S03848.dmrec +++| SA1 X2
04506 M00S03849.dmrec +++| SB2 X1 LENGTH OF RECORD IN CHARACTERS
04507 M00S03850.dmrec +++| SA1 X3
04508 M00S03851.dmrec +++| BX7 X1 FWA OF KEY IN RECORD
04509 M00S03852.dmrec +++| SA1 X5
04510 M00S03853.dmrec +++| SB7 X1 LENGTH OF KEY IN CHARACTERS
04511 M00S03854.dmrec +++| SA1 A5+B1
04512 M00S03855.dmrec +++| SA2 A1+B1
04513 M00S03856.dmrec +++| SA3 A2+B1
04514 M00S03857.dmrec +++| SA1 X1
04515 M00S03858.dmrec +++| SB4 X1 FWA OF DESTINATION
04516 M00S03859.dmrec +++| SA1 X2
04517 M00S03860.dmrec +++| SB6 X1
04518 M00S03861.dmrec +++| BX6 X3
04519 M00S03862.dmrec +++| SA6 DCRB
04520 M00S03863.dmrec +++| SX6 B6 LENGTH OF DESTINATION AREA
04521 M00S03864.dmrec +++| SA6 X3
04522 M00S03865.dmrec +++| SB5 10
04523 M00S03866.dmrec +++| ZR B7,DCR1 IF KEY LENGTH IS ZERO
04524 M00S03867.dmrec +++| LX7 1 CALCULATE FWA OF KEY IN CHARACTERS
04525 M00S03868.dmrec +++| IX2 X7+X7
04526 M00S03869.dmrec +++| LX2 1
04527 M00S03870.dmrec +++| IX7 X7+X2
04528 M00S03871.dmrec +++| SX7 X7+B3 10*WORD+CHARACTER
04529 M00S03872.dmrec +++| SB7 X7+B7
04530 M00S03873.dmrec +++| DCR1 SA1 B4-B1
04531 M00S03874.dmrec +++| BX6 X1
04532 M00S03875.dmrec +++| SA6 A1
04533 M00S03876.dmrec +++| LT B6,B7,DCR10 IF DESTINATION AREA TOO SMALL
04534 M00S03877.dmrec +++| SX6 B0
04535 M00S03878.dmrec +++| SB4 B5
04536 M00S03879.dmrec +++| ZR B7,DCR4 IF NOT EMBEDDED KEY
04537 M00S03880.dmrec +++| DCR2 SB7 B7-B5 TRANSFER RECORD UP TO LWA OF KEY
04538 M00S03881.dmrec +++| BX6 X4
04539 M00S03882.dmrec +++| SB6 B6-B5
04540 M00S03883.dmrec +++| SB2 B2-B5
04541 M00S03884.dmrec +++| NG B7,DCR3 IF ENTIRE KEY TRANSFERED
04542 M00S03885.dmrec +++| SA6 A6+B1
04543 M00S03886.dmrec +++| SA4 A4+B1
04544 M00S03887.dmrec +++| EQ DCR2 CONTINUE TRANSFERING WORDS TO LWA OF KEY
04545 M00S03888.dmrec +++|
04546 M00S03889.dmrec +++|* SET UP REGISTERS FOR EXPANSION.
04547 M00S03890.dmrec +++|
04548 M00S03891.dmrec +++|
04549 M00S03892.dmrec +++| DCR3 SB4 -B7
04550 M00S03893.dmrec +++| SB6 B6+B4
04551 M00S03894.dmrec +++| SB2 B2+B4
04552 M00S03895.dmrec +++| SX6 B0
04553 M00S03896.dmrec +++| SX1 B7+B7
04554 M00S03897.dmrec +++| SX1 X1+B7
04555 M00S03898.dmrec +++| LX1 1
04556 M00S03899.dmrec +++| SB3 X1+60
04557 M00S03900.dmrec +++| ZR B3,DCR4 IF TRANSFERED ENTIRE WORD
04558 M00S03901.dmrec +++| LX4 X4,B3
04559 M00S03902.dmrec +++| SB7 B3-B1
04560 M00S03903.dmrec +++| MX0 1
04561 M00S03904.dmrec +++| AX0 X0,B7
04562 M00S03905.dmrec +++| LX0 X0,B3
04563 M00S03906.dmrec +++| BX6 X0*X4 REMAINING CHARACTERS TO BE TRANSFERED
04564 M00S03907.dmrec +++| DCR4 SB3 B4 NUMBER OF CHARACTERS NOT YET TRANSFERED
04565 M00S03908.dmrec +++| MX0 -6
04566 M00S03909.dmrec +++|
04567 M00S03910.dmrec +++| DCR5 ZR B2,DCR9 IF DONE EXPANSION
04568 M00S03911.dmrec +++| ZAPPP GET NEXT CHARACTER
04569 M00S03912.dmrec +++| SX1 X5-1R< KEY CHARACTER (72B)
04570 M00S03913.dmrec +++| ZR X1,DCR6 IF KEY CHARACTER (72B) ENCOUNTERED
04571 M00S03914.dmrec +++| ZIPPP X5,DCR10
04572 M00S03915.dmrec +++| EQ DCR5 CONTINUE NEXT CHARACTER
04573 M00S03916.dmrec +++|
04574 M00S03917.dmrec +++| DCR6 ZR B2,DCR10 IF DESTINATION AREA TOO SMALL
04575 M00S03918.dmrec +++| ZAPPP GET NEXT CHARACTER
04576 M00S03919.dmrec +++| SX1 60B
04577 M00S03920.dmrec +++| BX7 X1*X5
04578 M00S03921.dmrec +++| IX5 X5-X7
04579 M00S03922.dmrec +++| IX1 X1-X7
04580 M00S03923.dmrec +++| ZR X1,DCR7 IF TO EXPAND *>*
04581 M00S03924.dmrec +++| SX5 X5+2
04582 M00S03925.dmrec +++| DCR7 SB7 X5+B1
04583 M00S03926.dmrec +++| AX7 4
04584 M00S03927.dmrec +++| SA5 X7+DCRA
04585 M00S03928.dmrec +++| DCR8 ZIPPP X5,DCR10 ADD NEXT CHARACTER
04586 M00S03929.dmrec +++| SB7 B7-B1
04587 M00S03930.dmrec +++| NZ B7,DCR8 IF NOT DONE WITH CURRENT CHARACTER
04588 M00S03931.dmrec +++| EQ DCR5 CONTINUE EXPAND
04589 M00S03932.dmrec +++|
04590 M00S03933.dmrec +++| DCR9 SX1 B4+B4 SET UP EXIT CONDITIONS
04591 M00S03934.dmrec +++| SX1 X1+B4
04592 M00S03935.dmrec +++| LX1 1
04593 M00S03936.dmrec +++| SB4 X1
04594 M00S03937.dmrec +++| LX6 X6,B4
04595 M00S03938.dmrec +++| SB5 B4-B1
04596 M00S03939.dmrec +++| MX0 1
04597 M00S03940.dmrec +++| AX0 B5,X0
04598 M00S03941.dmrec +++| LX0 B4,X0
04599 M00S03942.dmrec +++| SA1 A6+B1
04600 M00S03943.dmrec +++| BX1 X0*X1
04601 M00S03944.dmrec +++| BX6 X6+X1
04602 M00S03945.dmrec +++| SA6 A1
04603 M00S03946.dmrec +++| SA1 DCRB
04604 M00S03947.dmrec +++| SA2 X1
04605 M00S03948.dmrec +++| SX3 B6 NUMBER OF CHARACTERS TRANSFERED
04606 M00S03949.dmrec +++| IX6 X2-X3
04607 M00S03950.dmrec +++| SA6 A2
04608 M00S03951.dmrec +++| EQ DCRX RETURN
04609 M00S03952.dmrec +++|
04610 M00S03953.dmrec +++| DCR10 MX6 1 RETURN ERROR STATUS
04611 M00S03954.dmrec +++| SA1 DCRB
04612 M00S03955.dmrec +++| SA6 X1
04613 M00S03956.dmrec +++| EQ DCRX RETURN
04614 M00S03957.dmrec +++|
04615 M00S03958.dmrec +++| DCRA DATA 0
04616 M00S03959.dmrec +++| DATA 1R0
04617 M00S03960.dmrec +++| DATA 1R
04618 M00S03961.dmrec +++| DATA 1R<
04619 M00S03962.dmrec +++|
04620 M00S03963.dmrec +++| DCRB BSSZ 1 EIGHTH PARAMETER ADDRESS
04621 M00S03964.dmrec +++| DDF SPACE 4,25
04622 M00S03965.dmrec +++|** DDF - DUMP DATA FILE.
04623 M00S03966.dmrec +++|*
04624 M00S03967.dmrec +++|* *DDF* DUMPS A FILE TO THE TAPES INDICATED
04625 M00S03968.dmrec +++|* IN TABLE TVSN.
04626 M00S03969.dmrec +++|*
04627 M00S03970.dmrec +++|* ENTRY DATA/INDEX OR LOG FILE ATTACHED.
04628 M00S03971.dmrec +++|* (IDFN) = INDEX TO TDFN.
04629 M00S03972.dmrec +++|* (IVSN) = INDEX TO TVSN.
04630 M00S03973.dmrec +++|* (X2) = PFN
04631 M00S03974.dmrec +++|* (XXIXN) = INDEX FILE NAME.
04632 M00S03975.dmrec +++|* = 0 IF NONE.
04633 M00S03976.dmrec +++|* (X4) = (XXMODE)
04634 M00S03977.dmrec +++|*
04635 M00S03978.dmrec +++|* EXIT DUMP FILE RECORDS CREATED IN TDFN.
04636 M00S03979.dmrec +++|* VSN RECORDS CREATED IN TVSN.
04637 M00S03980.dmrec +++|* (X1) = 0 IF NO ERRORS.
04638 M00S03981.dmrec +++|*
04639 M00S03982.dmrec +++|* USES X - 2, 3, 4, 6, 7.
04640 M00S03983.dmrec +++|* A - 2, 3, 4, 6, 7.
04641 M00S03984.dmrec +++|* B - 3.
04642 M00S03985.dmrec +++|*
04643 M00S03986.dmrec +++|* CALLS DBF, DRF, WFH.
04644 M00S03987.dmrec +++|*
04645 M00S03988.dmrec +++|* MACROS ERROR.
04646 M00S03989.dmrec +++|
04647 M00S03990.dmrec +++|
04648 M00S03991.dmrec +++| DDF SUBR ENTRY/EXIT
04649 M00S03992.dmrec +++| RJ WFH WRITE FILE HEADER
04650 M00S03993.dmrec +++| NZ X1,DDFX IF ERROR
04651 M00S03994.dmrec +++| SX4 DF
04652 M00S03995.dmrec +++| SA3 XXMODE GET MODE
04653 M00S03996.dmrec +++| ZR X3,DDF1 IF BLOCK DUMP
04654 M00S03997.dmrec +++| RJ DRF DUMP RECORD FORMAT
04655 M00S03998.dmrec +++| EQ DDF2 CHECK FOR ERROR
04656 M00S03999.dmrec +++|
04657 M00S04000.dmrec +++| DDF1 RJ DBF DUMP BLOCK FORMAT
04658 M00S04001.dmrec +++| DDF2 NZ X1,DDFX IF ERROR
04659 M00S04002.dmrec +++| SA2 IDFN
04660 M00S04003.dmrec +++| SB3 X2
04661 M00S04004.dmrec +++| SA2 TDFN+B3
04662 M00S04005.dmrec +++| SA4 FORD
04663 M00S04006.dmrec +++| BX6 X2+X4
04664 M00S04007.dmrec +++| SA6 A2
04665 M00S04008.dmrec +++| SX6 X4+1
04666 M00S04009.dmrec +++| SA2 NFLS
04667 M00S04010.dmrec +++| SA6 A4
04668 M00S04011.dmrec +++| SX6 X2+B1
04669 M00S04012.dmrec +++| SA6 A2
04670 M00S04013.dmrec +++| SA2 XXIXN
04671 M00S04014.dmrec +++| ZR X2,DDFX IF NO INDEX FILE
04672 M00S04015.dmrec +++| BX6 X2
04673 M00S04016.dmrec +++| SA6 XXPFN SET FN FOR INDEX FILE TRAILER
04674 M00S04017.dmrec +++| SA4 XXMODE SET MODE
04675 M00S04018.dmrec +++| RJ WFH WRITE FILE HEADER
04676 M00S04019.dmrec +++| NZ X1,DDFX IF ERROR
04677 M00S04020.dmrec +++| SA2 XXMODE
04678 M00S04021.dmrec +++| SX4 IF SET INDEX FILE FET ADDRESS
04679 M00S04022.dmrec +++| ZR X2,DDF3 IF BLOCK DUMP
04680 M00S04023.dmrec +++| RJ DRF DUMP RECORD FORMAT
04681 M00S04024.dmrec +++| EQ DDF4 CHECK FOR ERROR
04682 M00S04025.dmrec +++|
04683 M00S04026.dmrec +++| DDF3 RJ DBF DUMP BLOCK FORMAT
04684 M00S04027.dmrec +++| DDF4 NZ X1,DDFX IF ERROR
04685 M00S04028.dmrec +++| SA2 IDFN
04686 M00S04029.dmrec +++| SB3 X2+1
04687 M00S04030.dmrec +++| SA2 TDFN+B3
04688 M00S04031.dmrec +++| SA4 FORD
04689 M00S04032.dmrec +++| BX6 X2+X4
04690 M00S04033.dmrec +++| SA6 A2
04691 M00S04034.dmrec +++| SX6 X4+1
04692 M00S04035.dmrec +++| SA2 NFLS
04693 M00S04036.dmrec +++| SA6 A4 INCREMENT FILE ORDINAL
04694 M00S04037.dmrec +++| SX7 X2+1
04695 M00S04038.dmrec +++| SA7 A2 INCREMENT NUMBER OF EOF COUNT
04696 M00S04039.dmrec +++| EQ DDFX RETURN
04697 M00S04040.dmrec +++| DEL SPACE 4,25
04698 M00S04041.dmrec +++|** DEL - DELETE ENTRIES IN BACKUP DIRECTORY.
04699 M00S04042.dmrec +++|*
04700 M00S04043.dmrec +++|* *DEL* DELETES A GIVEN VSN ENTRY AND ALL DUMP ENTRIES
04701 M00S04044.dmrec +++|* REFERENCING THAT VSN, OR DELETES ALL DUMP ENTRIES AND
04702 M00S04045.dmrec +++|* CORRESPONDING VSN ENTRIES BEFORE A GIVEN DATE/TIME.
04703 M00S04046.dmrec +++|*
04704 M00S04047.dmrec +++|* ENTRY (TVSN) = VSN NUMBER, IF VSN TYPE DELETE.
04705 M00S04048.dmrec +++|* (DATE) = YY/MM/DD.
04706 M00S04049.dmrec +++|* (TIME) = HH.MM.SS.
04707 M00S04050.dmrec +++|* (LFNC) = 0, IF ALL FILES.
04708 M00S04051.dmrec +++|* 1, IF SELECTIVE FILES.
04709 M00S04052.dmrec +++|*
04710 M00S04053.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS.
04711 M00S04054.dmrec +++|*
04712 M00S04055.dmrec +++|* USES X - 0, 1, 6.
04713 M00S04056.dmrec +++|* A - 1, 6.
04714 M00S04057.dmrec +++|* B - NONE.
04715 M00S04058.dmrec +++|*
04716 M00S04059.dmrec +++|* CALLS EDI, FER, MDI, MDS, SDT.
04717 M00S04060.dmrec +++|*
04718 M00S04061.dmrec +++|* MACROS ERROR, GETN, REWINDM.
04719 M00S04062.dmrec +++|
04720 M00S04063.dmrec +++|
04721 M00S04064.dmrec +++| DEL SUBR ENTRY/EXIT
04722 M00S04065.dmrec +++| RJ SDT SET DATE AND TIME
04723 M00S04066.dmrec +++| SA1 LSTC DATE/TIME FLAG
04724 M00S04067.dmrec +++| ZR X1,DEL1 IF NO DATE/TIME GIVEN
04725 M00S04068.dmrec +++| SA1 TVSN VSN PARAMETER
04726 M00S04069.dmrec +++| NZ X1,DEL3 IF VSN ALSO GIVEN
04727 M00S04070.dmrec +++| SX6 B1
04728 M00S04071.dmrec +++| SA6 DELF DELETE FLAG - DATE/TIME DELETE
04729 M00S04072.dmrec +++| REWINDM DIRR
04730 M00S04073.dmrec +++| GETN DIRR,WSAB,,TKY1 DIRECTORY HEADER
04731 M00S04074.dmrec +++| GETN DIRR,WSAB,,TKY1 FIRST FILE HEADER
04732 M00S04075.dmrec +++| RJ FER FIT ERROR STATUS
04733 M00S04076.dmrec +++| NZ X1,DELX IF CRM ERROR
04734 M00S04077.dmrec +++| SA1 TKY1
04735 M00S04078.dmrec +++| MX0 42
04736 M00S04079.dmrec +++| BX6 X0*X1
04737 M00S04080.dmrec +++| SA6 A1 PRESET FIRST FILE NAME
04738 M00S04081.dmrec +++| RJ EDI EDIT DIRECTORY
04739 M00S04082.dmrec +++| EQ DELX RETURN
04740 M00S04083.dmrec +++|
04741 M00S04084.dmrec +++| DEL1 SA1 TVSN
04742 M00S04085.dmrec +++| ZR X1,DEL4 IF NO VSN AND NO DATE/TIME
04743 M00S04086.dmrec +++| MX6 0
04744 M00S04087.dmrec +++| SA6 ADDF SET FLAG TO DELETE
04745 M00S04088.dmrec +++| SA1 LFNC
04746 M00S04089.dmrec +++| NZ X1,DEL2 IF SELECTIVE FILES
04747 M00S04090.dmrec +++| RJ MDI MODIFY DIRECTORY
04748 M00S04091.dmrec +++| EQ DELX RETURN
04749 M00S04092.dmrec +++| DEL2 RJ MDS MODIFY SELECTIVE FILES IN DIRECTORY
04750 M00S04093.dmrec +++| EQ DELX RETURN
04751 M00S04094.dmrec +++|
04752 M00S04095.dmrec +++| DEL3 ERROR DMRA,,,DELX,,E BOTH VSN AND DATE/TIME SPECIFIED
04753 M00S04096.dmrec +++|
04754 M00S04097.dmrec +++| DEL4 ERROR DELB,,,DELX,,E VSN OR DATE/TIME NOT SPECIFIED
04755 M00S04098.dmrec +++|
04756 M00S04099.dmrec +++| DELB DATA 20H0 *****
04757 M00S04100.dmrec +++| DATA C*VSN OR DATE/TIME NOT SPECIFIED.*
04758 M00S04101.dmrec +++| DELBL EQU *-DELB
04759 M00S04102.dmrec +++| DER SPACE 4,20
04760 M00S04103.dmrec +++|** DER - DETECT END-OF-REEL.
04761 M00S04104.dmrec +++|*
04762 M00S04105.dmrec +++|* DETECT END-OF-REEL. IF END-OF-REEL IS REACHED, CLOSE
04763 M00S04106.dmrec +++|* TAPE FILE AND REQUEST NEXT CANDIDATE FROM *TVSN*.
04764 M00S04107.dmrec +++|* ON WRITES, AN END-OF-TAPE BIT IS SET IN THE FET. ON
04765 M00S04108.dmrec +++|* READS, AN EOI STATUS IS CONSIDERED TO BE AN END-OF-TAPE.
04766 M00S04109.dmrec +++|*
04767 M00S04110.dmrec +++|* ENTRY (TP+0) = CONTAINS ERROR CODE.
04768 M00S04111.dmrec +++|*
04769 M00S04112.dmrec +++|* EXIT (X1) = 0, IF NO ERROR.
04770 M00S04113.dmrec +++|* POSITIVE, IF ERROR.
04771 M00S04114.dmrec +++|* NEGATIVE, IF END OF TAPE.
04772 M00S04115.dmrec +++|*
04773 M00S04116.dmrec +++|* USES X - 1, 2, 3, 4, 5, 6.
04774 M00S04117.dmrec +++|* A - 1, 2, 3, 4, 5, 6.
04775 M00S04118.dmrec +++|* B - 7.
04776 M00S04119.dmrec +++|*
04777 M00S04120.dmrec +++|* CALLS RTF.
04778 M00S04121.dmrec +++|*
04779 M00S04122.dmrec +++|* MACROS CLOSE.
04780 M00S04123.dmrec +++|
04781 M00S04124.dmrec +++|
04782 M00S04125.dmrec +++| DER SUBR ENTRY/EXIT
04783 M00S04126.dmrec +++| MX3 -4
04784 M00S04127.dmrec +++| SA1 TP
04785 M00S04128.dmrec +++| LX1 59-9
04786 M00S04129.dmrec +++| NG X1,DER1 IF EOI - END OF TAPE ASSUMED
04787 M00S04130.dmrec +++| BX1 -X3*X1
04788 M00S04131.dmrec +++| ZR X1,DERX IF NO ERROR
04789 M00S04132.dmrec +++| SX1 X1-1
04790 M00S04133.dmrec +++| NZ X1,DER2 IF ERROR OTHER THAN END OF TAPE
04791 M00S04134.dmrec +++|
04792 M00S04135.dmrec +++|* END OF REEL.
04793 M00S04136.dmrec +++|
04794 M00S04137.dmrec +++| DER1 CLOSE TP,UNLOAD,R
04795 M00S04138.dmrec +++| SA1 TP
04796 M00S04139.dmrec +++| MX2 42
04797 M00S04140.dmrec +++| BX1 X2*X1
04798 M00S04141.dmrec +++| SX3 B1
04799 M00S04142.dmrec +++| BX6 X3+X1
| Line S04143 Modification History |
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04800 M01S04143.dmrec7 ---| SA6 A1 CLEAR EOI STATUS
04801 M00S04144.dmrec +++| SA2 IVSN
04802 M00S04145.dmrec +++| SX2 X2-1 GET PREVEOUS TAPE ENTRY
| Line S00126 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04803 M01S00126.dmrec7 +++| SA6 A1 CLEAR EOI STATUS
04804 M00S04146.dmrec +++| SA3 X2
04805 M00S04147.dmrec +++| SA4 NFLS
04806 M00S04148.dmrec +++| BX6 X3+X4
04807 M00S04149.dmrec +++| SA6 A3
04808 M00S04150.dmrec +++| SX6 B0
04809 M00S04151.dmrec +++| SA6 A4
04810 M00S04152.dmrec +++| SB7 TP
04811 M00S04153.dmrec +++| SA5 TPMODE GET MODE INDICATOR
04812 M00S04154.dmrec +++| RJ RTF REQUEST NEXT TAPE
04813 M00S04155.dmrec +++| ZR X1,DER1.1 IF NO ERROR
04814 M00S04156.dmrec +++| SX1 2
04815 M00S04157.dmrec +++| EQ DERX RETURN ERROR
04816 M00S04158.dmrec +++|
04817 M00S04159.dmrec +++| DER1.1 MX1 1 SET END OF TAPE
| Line S00127 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04818 M01S00127.dmrec7 +++| SA3 PEOR
04819 M01S00128.dmrec7 +++| MX0 36
04820 M01S00129.dmrec7 +++| SA4 IVSN
04821 M01S00130.dmrec7 +++| SA5 X4-2 VSN OF PREVIOUS TAPE
04822 M01S00131.dmrec7 +++| BX6 X0*X5
04823 M01S00132.dmrec7 +++| SA4 EORCNT COUNT OF EOR-S ON *ARF*
04824 M01S00133.dmrec7 +++| BX7 X6+X4 COMBINE VSN WITH EOR COUNT
04825 M01S00134.dmrec7 +++| SA7 X3 ENTER INTO *TEOR* TABLE
04826 M01S00135.dmrec7 +++| SX6 X3+B1
04827 M01S00136.dmrec7 +++| SA6 A3 INCREMENT *PEOR*
04828 M01S00137.dmrec7 +++| MX7 0
04829 M01S00138.dmrec7 +++| SA7 A4 ZERO OUT EORCNT
04830 M00S04160.dmrec +++| SA2 DMTAPE
| Line S04161 Modification History |
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04831 M01S04161.dmrec7 ---| SX6 X2+1
| Line S00139 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04832 M01S00139.dmrec7 +++| SX6 X2+B1
04833 M00S04162.dmrec +++| SA6 DMTAPE INCREMENT TAPE COUNT
04834 M00S04163.dmrec +++| EQ DERX RETURN
04835 M00S04164.dmrec +++|
04836 M00S04165.dmrec +++| DER2 ERROR DERA,,,DERX,,E READ/WRITE ERROR ON TAPE
04837 M00S04166.dmrec +++|
04838 M00S04167.dmrec +++| DERA DATA 20H0 *****
04839 M00S04168.dmrec +++| DATA C*READ/WRITE ERROR ON TAPE.*
04840 M00S04169.dmrec +++| DERAL EQU *-DERA
04841 M00S04170.dmrec +++| DMP SPACE 4,25
04842 M00S04171.dmrec +++|** DMP - DUMP DATA BASE FILES.
04843 M00S04172.dmrec +++|*
04844 M00S04173.dmrec +++|* *DMP* DUMPS DATA BASE FILES SPECIFIED TO TAPE. THE
04845 M00S04174.dmrec +++|* FORMAT OF THE DUMP CAN BE EXPLICITLY SPECIFIED OR
04846 M00S04175.dmrec +++|* IMPLIED BY THE MODE BY WHICH IT CAN BE ATTACHED.
04847 M00S04176.dmrec +++|*
04848 M00S04177.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER.
04849 M00S04178.dmrec +++|* (X2) = NEXT WORD IN BUFFER.
04850 M00S04179.dmrec +++|* (X6) = OPERATION FLAG (VALIDATES PARAMETERS).
04851 M00S04180.dmrec +++|* (B7) = LWA+1 OF STRING BUFFER.
04852 M00S04181.dmrec +++|*
04853 M00S04182.dmrec +++|* EXIT ALL INDICATED DATA FILES HAVE BEEN DUMPED IN
04854 M00S04183.dmrec +++|* THE PROPER FORMAT TO THE SPECIFIED VSN-S.
04855 M00S04184.dmrec +++|*
04856 M00S04185.dmrec +++|* USES X - ALL.
04857 M00S04186.dmrec +++|* A - 1, 2, 3 ,4, 6, 7.
04858 M00S04187.dmrec +++|* B - 3, 5, 7.
04859 M00S04188.dmrec +++|*
04860 M00S04189.dmrec +++|* CALLS ACF, ADF, BBE, BLT, CER, DBF, DDF, GXJ, RAF, RDF,
04861 M00S04190.dmrec +++|* RTE, RTF, RXJ, SPR, WFH.
04862 M00S04191.dmrec +++|*
04863 M00S04192.dmrec +++|* MACROS ATTACH, CLOSEM, ERROR, OPENM, READ, READW,
04864 M00S04193.dmrec +++|* RETURN, REWIND.
04865 M00S04194.dmrec +++|
04866 M00S04195.dmrec +++|
04867 M00S04196.dmrec +++| DMP BSS 0
04868 M00S04197.dmrec +++| RJ SPR STORE PARAMETERS
04869 M00S04198.dmrec +++| DMP1 SX6 B5
04870 M00S04199.dmrec +++| SA6 NUMF
04871 M00S04200.dmrec +++| DMP1.1 SX6 TVSN
04872 M00S04201.dmrec +++| SA6 IVSN
04873 M00S04202.dmrec +++| SX6 B0
04874 M00S04203.dmrec +++| SA6 IDFN
04875 M00S04204.dmrec +++| SA6 NFLS
04876 M00S04205.dmrec +++| SA6 FORD
04877 M00S04206.dmrec +++| SA6 FIRSTT
04878 M00S04207.dmrec +++| SA6 LASTT
| Line S00140 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04879 M01S00140.dmrec7 +++| SA6 EORCNT
04880 M00S04208.dmrec +++| SA6 TRIP1
04881 M00S04209.dmrec +++| SA6 NUMV INITIALIZE COUNT OF VSN-S USED
04882 M00S04210.dmrec +++| SA2 TDFN
04883 M00S04211.dmrec +++| MX0 12 GET DATA BASE NAME
04884 M00S04212.dmrec +++| BX5 X0*X2
04885 M00S04213.dmrec +++| ZR X5,DMP12 IF NO FILES TO DUMP
04886 M00S04214.dmrec +++| SA1 DMPA
04887 M00S04215.dmrec +++| SA3 TDFN
04888 M00S04216.dmrec +++| LX3 30
04889 M00S04217.dmrec +++| MX0 -30
04890 M00S04218.dmrec +++| BX6 -X0*X3
04891 M00S04219.dmrec +++| SA3 DMPB
04892 M00S04220.dmrec +++| BX6 X3*X6
04893 M00S04221.dmrec +++| BX7 X6-X1
04894 M00S04222.dmrec +++| SA7 DMPFLG
04895 M00S04223.dmrec +++| SB7 TP
04896 M00S04224.dmrec +++| BX6 X5
04897 M00S04225.dmrec +++| SA6 XXPFN SET DATA BASE FOR RTF CALL TO ACF
04898 M00S04226.dmrec +++| MX5 1 WRITE MODE REQUEST
04899 M00S04227.dmrec +++| BX6 X5
04900 M00S04228.dmrec +++| SA6 TPMODE SAVE MODE
04901 M00S04229.dmrec +++| RJ RTF REQUEST TAPE FILE
04902 M00S04230.dmrec +++| NZ X1,DMP11 IF ERROR
04903 M00S04231.dmrec +++| SA2 DMPFLG
04904 M00S04232.dmrec +++| NZ X2,DMP2 IF DATA FILE
04905 M00S04233.dmrec +++|
| Line S04234 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04906 M01S04234.ns2023 ---|* DUMP LONG RECOVERY FILE.
| Line S00110 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04907 M01S00110.ns2023 +++|* DUMP AFTER IMAGE RECOVERY FILE.
04908 M00S04235.dmrec +++|
04909 M00S04236.dmrec +++| SA1 NUMF
04910 M00S04237.dmrec +++| SX6 X1-2
04911 M00S04238.dmrec +++| NZ X6,DMP13 IF MORE THAN ONE FILE SPECIFIED
| Line S04239 Modification History |
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
04912 M01S04239.dmrec2 ---| SX6 B1 *LRF* DUMP
| Line S00112 Modification History |
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act
----------------------------+
04913 M01S00112.dmrec2 +++| SA4 EXCOPY
04914 M01S00113.dmrec2 +++| SX4 X4-1
04915 M01S00114.dmrec2 +++| NZ X4,DMP1.11 IF NOT FIRST COPY
04916 M01S00115.dmrec2 +++| SA2 IVSN
04917 M01S00116.dmrec2 +++| SA5 X2-1
04918 M01S00117.dmrec2 +++| BX7 X5
04919 M01S00118.dmrec2 +++| SA7 FSTVSN SAVE FIRST VSN
| Line S00119 Modification History |
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04920 M02S00119.ns2023 ---| DMP1.11 SX6 B1 *LRF* DUMP
| Line S00111 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04921 M01S00111.ns2023 +++| DMP1.11 SX6 B1 *ARF* DUMP
04922 M00S04240.dmrec +++| SA6 TTFLG SET FLAG
04923 M00S04241.dmrec +++| MX0 42
04924 M00S04242.dmrec +++| SA4 TDFN
04925 M00S04243.dmrec +++| BX1 X0*X4
04926 M00S04244.dmrec +++| BX6 X1
| Line S00141 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04927 M01S00141.dmrec7 +++| SA6 XXPFN2
04928 M00S04245.dmrec +++| LX6 12 XXPFN MUST HAVE DB IN FIRST 2 CHARACTERS
04929 M00S04246.dmrec +++| SA6 XXPFN
| Line S04247 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04930 M01S04247.ns2023 ---| ATTACH LRF,X1,,,W LOG FILE IS UNDER USERS USER NUMBER
04931 M01S04248.ns2023 ---| SX2 LRF SET FET ADDRESS
| Line S00112 Modification History |
M01 (Added by) | ns2023 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04932 M02S00112.v23l617 ---| ATTACH ARF,X1,,,W LOG FILE IS UNDER USERS USER NUMBER
| Line S00021 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04933 M01S00021.v23l617 +++| ATTACH ARF,X1,,,W LOG FILE IS UNDER USERS USER NAME
| Line S00113 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04934 M01S00113.ns2023 +++| SX2 ARF SET FET ADDRESS
04935 M00S04249.dmrec +++| RJ CER CHECK ERROR
04936 M00S04250.dmrec +++| NZ X1,DMP15 IF ATTACH ERROR
| Line S04251 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04937 M01S04251.ns2023 ---| SA2 XXPFN FN OF *LRF*
| Line S00114 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04938 M01S00114.ns2023 +++| SA2 XXPFN FN OF *ARF*
| Line S04252 Modification History |
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
04939 M01S04252.dmrec15 ---| SX4 B0 SET BLOCK MODE
| Line S00008 Modification History |
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
04940 M01S00008.dmrec15 +++| SX4 PTWR SET WRITE MODE
04941 M00S04253.dmrec +++| RJ WFH WRITE FILE HEADER
04942 M00S04254.dmrec +++| NZ X1,DMP11 IF ERROR
| Line S04255 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04943 M01S04255.ns2023 ---| SX4 LRF SET FET ADDRESS
04944 M01S04256.ns2023 ---| RJ DBF DUMP BLOCK FORMAT - *LRF*
| Line S00115 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04945 M01S00115.ns2023 +++| SX4 ARF SET FET ADDRESS
04946 M01S00116.ns2023 +++| RJ DBF DUMP BLOCK FORMAT - *ARF*
04947 M00S04257.dmrec +++| NZ X1,DMP10.1 IF ERROR
| Line S00142 Modification History |
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act
----------------------------+
04948 M01S00142.dmrec7 +++| SA3 PEOR
04949 M01S00143.dmrec7 +++| SA4 IVSN
04950 M01S00144.dmrec7 +++| SA5 X4-1 GET VSN OF PREVIOUS TAPE
04951 M01S00145.dmrec7 +++| MX0 36
04952 M01S00146.dmrec7 +++| BX6 X0*X5
04953 M01S00147.dmrec7 +++| SA4 EORCNT COUNT OF EOR-S ON ARF
04954 M01S00148.dmrec7 +++| BX7 X6+X4 COMBINE VSN WITH EOR COUNT
04955 M01S00149.dmrec7 +++| SA7 X3 ENTER INTO *TEOR* TABLE
04956 M01S00150.dmrec7 +++| SX6 X3+B1
04957 M01S00151.dmrec7 +++| SA6 A3 INCREMENT PEOR POINTER
04958 M01S00152.dmrec7 +++| MX7 0
04959 M01S00153.dmrec7 +++| SA7 A4 ZERO OUT EOR COUNT
| Line S04258 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04960 M01S04258.ns2023 ---| REWIND LRF,R
04961 M01S04259.ns2023 ---| SA2 XXPFN FN OF *LRF*
| Line S00117 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04962 M01S00117.ns2023 +++| REWIND ARF,R
04963 M01S00118.ns2023 +++| SA2 XXPFN FN OF *ARF*
04964 M00S04260.dmrec +++| SX4 B0 SET BLOCK MODE
04965 M00S04261.dmrec +++| RJ BLT BUILD LOG TABLE
04966 M00S04262.dmrec +++| NZ X1,DMP11 IF ERROR
04967 M00S04263.dmrec +++|
| Line S04264 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04968 M01S04264.ns2023 ---|* RESET *LRF* HEADER FIELDS.
| Line S00119 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04969 M01S00119.ns2023 +++|* RESET *ARF* HEADER FIELDS.
04970 M00S04265.dmrec +++|
| Line S04266 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04971 M01S04266.ns2023 ---| REWIND LRF,R
04972 M01S04267.ns2023 ---| READ LRF,R
04973 M01S04268.ns2023 ---| READW LRF,WBUF,WBUFL READ *LRF* HEADER
04974 M01S04269.ns2023 ---| SA2 WBUF GET *LRF* STATUS
| Line S00120 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04975 M01S00120.ns2023 +++| REWIND ARF,R
04976 M01S00121.ns2023 +++| READ ARF,R
04977 M01S00122.ns2023 +++| READW ARF,WBUF,WBUFL READ *ARF* HEADER
04978 M01S00123.ns2023 +++| SA2 WBUF GET *ARF* STATUS
04979 M00S04270.dmrec +++| MX0 -18
04980 M00S04271.dmrec +++| BX3 -X0*X2
04981 M00S04272.dmrec +++| SX3 X3-3 CHECK FOR POSSIBLE ERROR
| Line S04273 Modification History |
M01 (Removed by) | dmrec1 |
Seq # *Modification Id* Act
----------------------------+
04982 M01S04273.dmrec1 ---| ZR X3,DMP14 IF POSSIBLE *LRF* ERROR
04983 M01S04274.dmrec1 ---| RETURN LRF,R
| Line S00001 Modification History |
M01 (Added by) | dmrec1 |
Seq # *Modification Id* Act
----------------------------+
04984 M01S00001.dmrec1 +++| NZ X3,DMP1.2 IF NO *ARF* HEADER ERROR
04985 M01S00002.dmrec1 +++| SX6 B1+ SET ERROR FLAG
04986 M01S00003.dmrec1 +++| SA6 DMPF
| Line S00004 Modification History |
M01 (Added by) | dmrec1 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04987 M02S00004.ns2023 ---| DMP1.2 RETURN LRF,R
| Line S00124 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04988 M01S00124.ns2023 +++| DMP1.2 RETURN ARF,R
04989 M00S04275.dmrec +++| SA1 EXCOPY GET COPY NUMBER
04990 M00S04276.dmrec +++| SX2 X1-NUMARF
| Line S04277 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04991 M01S04277.ns2023 ---| NZ X2,DMP10 IF NOT LAST *LRF* TO DUMP
04992 M01S04278.ns2023 ---| SA1 WBUF+TAFLW-TAFNW GET LENGTH FROM OLD *LRF*
| Line S00125 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04993 M01S00125.ns2023 +++| NZ X2,DMP10 IF NOT LAST *ARF* TO DUMP
04994 M01S00126.ns2023 +++| SA1 WBUF+TAFLW-TAFNW GET LENGTH FROM OLD *ARF*
04995 M00S04279.dmrec +++| MX0 -TAFLN
04996 M00S04280.dmrec +++| LX1 TAFLN-1-TAFLS
04997 M00S04281.dmrec +++| BX6 -X0*X1
| Line S04282 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04998 M01S04282.ns2023 ---| EQ CRT2 ALLOCATE *LRF* (RETURN TO DMP10)
| Line S00127 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
04999 M01S00127.ns2023 +++| EQ CRT2 ALLOCATE *ARF* (RETURN TO DMP10)
05000 M00S04283.dmrec +++|
05001 M00S04284.dmrec +++|* DUMP DATA BASE FILE.
05002 M00S04285.dmrec +++|
05003 M00S04286.dmrec +++| DMP2 SA1 TDFN
05004 M00S04287.dmrec +++| MX0 12
05005 M00S04288.dmrec +++| BX5 X0*X1
05006 M00S04289.dmrec +++| RJ GXJ GET *XXJ* FILE
05007 M00S04290.dmrec +++| NZ X1,DMP11 IF ERROR
05008 M00S04291.dmrec +++| DMP3 SA2 IDFN
05009 M00S04292.dmrec +++| SB3 X2
05010 M00S04293.dmrec +++| MX0 42
05011 M00S04294.dmrec +++| SA3 TDFN+B3
05012 M00S04295.dmrec +++| ZR X3,DMP9 IF NO MORE FILES
05013 M00S04296.dmrec +++| BX5 X0*X3 GET FILE NAME
05014 M00S04297.dmrec +++| LX3 48
05015 M00S04298.dmrec +++| MX0 -6
05016 M00S04299.dmrec +++| BX7 -X0*X3
| Line S04300 Modification History |
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
05017 M01S04300.dmrec15 ---| SX6 B1+B1
| Line S00009 Modification History |
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
05018 M01S00009.dmrec15 +++| SX6 -1
05019 M00S04301.dmrec +++| ZR X7,DMP6 IF NULL
| Line S04302 Modification History |
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
05020 M01S04302.dmrec15 ---| SX6 B1
| Line S00010 Modification History |
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
05021 M01S00010.dmrec15 +++| SX6 PTRM READ MODIFY MODE
05022 M00S04303.dmrec +++| SX3 X7-1RB
05023 M00S04304.dmrec +++| NZ X3,DMP6 IF NOT BLOCK
| Line S04305 Modification History |
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
05024 M01S04305.dmrec15 ---| SX6 B0+
| Line S00011 Modification History |
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act
----------------------------+
05025 M01S00011.dmrec15 +++| SX6 PTWR WRITE MODE
05026 M00S04306.dmrec +++| DMP6 SA6 XXMODE
05027 M00S04307.dmrec +++| RJ RXJ READ *XXJ* FILE
05028 M00S04308.dmrec +++| ZR X1,DMP7 IF FILE FOUND
05029 M00S04309.dmrec +++| PL X1,DMP11 IF FILE NOT FOUND
05030 M00S04310.dmrec +++| ZR X2,DMP11 IF NO ADDITIONIAL FILE
05031 M00S04311.dmrec +++| DMP7 RJ ADF ATTACH DATA FILE
05032 M00S04312.dmrec +++| NZ X1,DMP11 IF ERROR
05033 M00S04313.dmrec +++| SA3 IDFN
05034 M00S04314.dmrec +++| SB3 X3
05035 M00S04315.dmrec +++| SA3 TDFN+B3
05036 M00S04316.dmrec +++| SA4 XXMODE
05037 M00S04317.dmrec +++| LX4 12
05038 M00S04318.dmrec +++| MX0 54
05039 M00S04319.dmrec +++| LX0 12
05040 M00S04320.dmrec +++| BX6 X0*X3
05041 M00S04321.dmrec +++| BX6 X6+X4
05042 M00S04322.dmrec +++| SA6 A3 RESET MODE
05043 M00S04323.dmrec +++| SA2 XXIXN GET INDEX FILE NAME IF ANY
05044 M00S04324.dmrec +++| ZR X2,DMP8 IF NO INDEX FILE
05045 M00S04325.dmrec +++| BX6 X0*X2
05046 M00S04326.dmrec +++| BX6 X6+X4
05047 M00S04327.dmrec +++| SA6 A3+B1 SAVE INDEX FILE NAME AND MODE
05048 M00S04328.dmrec +++| DMP8 SA2 XXPFN
05049 M00S04329.dmrec +++| LX4 48 POSITION MODE
05050 M00S04330.dmrec +++| RJ DDF DUMP DATA FILE
05051 M00S04331.dmrec +++| NZ X1,DMP10.1 IF ERROR
05052 M00S04332.dmrec +++| RJ RDF RETURN DATA FILES
05053 M00S04333.dmrec +++| SA2 IDFN
05054 M00S04334.dmrec +++| SX6 X2+2
05055 M00S04335.dmrec +++| SA6 A2 GET NEXT PFN
05056 M00S04336.dmrec +++| EQ DMP3 CONTINUE FOR NEXT FILE
05057 M00S04337.dmrec +++|
05058 M00S04338.dmrec +++| DMP9 SA2 IVSN
05059 M00S04339.dmrec +++| SA3 X2-1
05060 M00S04340.dmrec +++| SA4 NFLS
05061 M00S04341.dmrec +++| BX6 X4+X3
05062 M00S04342.dmrec +++| SA6 A3 STORE NUMBER OF FILES ( LAST )
05063 M00S04343.dmrec +++| DMP10 RJ ACF ATTACH ZZDBDIR FILE
05064 M00S04344.dmrec +++| RJ BBE BUILD BACK-UP ENTRIES
05065 M00S04345.dmrec +++| NZ X1,DMP11 IF ERRORS
05066 M00S04346.dmrec +++| CLOSEM DIRR,U
05067 M00S04347.dmrec +++| SX4 B0 SET BLOCK MODE
05068 M00S04348.dmrec +++| SA2 ACFA SET FILE NAME
05069 M00S04349.dmrec +++| RJ WFH WRITE FILE HEADER
05070 M00S04350.dmrec +++| NZ X1,DMP11 IF ERROR
05071 M00S04351.dmrec +++| RJ ACF ATTACH DIRECTORY
05072 M00S04352.dmrec +++| SA2 ACFA REPLACE DIRECTORY PFN FOR TRAILER
05073 M00S04353.dmrec +++| BX6 X2
05074 M00S04354.dmrec +++| SA6 XXPFN
05075 M00S04355.dmrec +++| SX4 ZZDBDIR SET FET ADDRESS
05076 M00S04356.dmrec +++| RJ DBF DUMP BLOCK FORMAT - DIRECTORY FILE