Date Tuesday Jan 23, 1979 12:37:00 PM
Loaded from MAINT(294)
R09273DK: ./ R 287000 291000 $ 287300 300 DMK00010
R09273DK: * 3. IF NEW TAG DATA HAS BEEN SPECIFIED, GO TO STEP 6. DMK00020
R09273DK: * 4. IF OLD VSPXBLOK IS LONGER THAN MINIMUM, GET A SHORT DMK00030
R09273DK: * ONE, MOVE IN THE OLD HEADER INFO AND FRET THE OLD ONE. DMK00040
R09273DK: * 5. GO TO STEP 8. DMK00050
R09273DK: * 6. GET A NEW VSPXBLOK WHICH IS LONG ENOUGH FOR THE NEW DMK00060
R09273DK: * TAG INFORMATION, MOVE IN THE OLD HEADER INFO DMK00070
R09273DK: * AND FRET THE OLD ONE. DMK00080
R09273DK: * 7. MOVE THE NEW TAG DATA AND TAG LENGTH INTO THE VSPXBLOK. DMK00090
R09273DK: * 8. CALL GETDEVIC; IF LAST DEVICE, EXIT; OTHERWISE GO TO DMK00100
R09273DK: ./ R 335000 349000 $ 335000 500 DMK00110
R09273DK: CLI VSPXLEN,VSPXSIZ1 ALREADY AT MINIMUM? @VA09273 DMK00120
R09273DK: BE TD11 XFER IF SO @VA09273 DMK00130
R09273DK: LA R0,VSPXSIZ1 GET A MINIMUM LENGTH BLOCK @VA09273 DMK00140
R09273DK: CALL DMKFREE GET THE STORAGE @VA09273 DMK00150
R09273DK: MVC 0(VSPXSIZ1*8,R1),VSPXBLOK MOVE IN OLD HDR @VA09273 DMK00160
R09273DK: MVI VSPXTGLN-VSPXBLOK(R1),X'00' ZERO TAG LENGTH @VA09273 DMK00170
R09273DK: STC R0,VSPXLEN-VSPXBLOK(R1) LENGTH OF THE BLOCK @VA09273 DMK00180
R09273DK: ST R1,VDEVEXTN THE NEW VSPXBLOK @VA09273 DMK00190
R09273DK: SR R0,R0 GET THE LENGTH @VA09273 DMK00200
R09273DK: IC R0,VSPXLEN OF THE OLD ONE @VA09273 DMK00210
R09273DK: LR R1,R6 ADDRESS OF THE OLD ONE @VA09273 DMK00220
R09273DK: CALL DMKFRET FRET THE STORAGE @VA09273 DMK00230
R09273DK: B TD11 GO LOOK AT NEXT DEVICE @VA09273 DMK00240
R09273DK: SPACE DMK00250
R09273DK: TD08 LA R0,VSPXSIZ1*8+7 HEADER LENGTH @VA09273 DMK00260
R09273DK: AL R0,SAVEWRK6 TAG LENGTH @VA09273 DMK00270
R09273DK: SRL R0,3 CONVERT TO DOUBLEWORDS @VA09273 DMK00280
R09273DK: CALL DMKFREE STORAGE FOR NEW VSPXBLOK @VA09273 DMK00290
R09273DK: MVC 0(VSPXSIZ1*8,R1),VSPXBLOK MOVE IN OLD HDR @VA09273 DMK00300
R09273DK: STC R0,VSPXLEN-VSPXBLOK(R1) LGTH OF NEW VSPXBLOK @VA09273 DMK00310
R09273DK: MVC VSPXTGLN-VSPXBLOK(1,R1),SAVEWRK6+3 NEW TAG LGTH @VA09273 DMK00320
R09273DK: ST R1,VDEVEXTN SAVE ADDRESS IN VDEVBLOK @VA09273 DMK00330
R09273DK: SR R0,R0 PREPARE TO FRET OLD ONE @VA09273 DMK00340
R09273DK: IC R0,VSPXLEN OLD LENGTH IN DBLWDS @VA09273 DMK00350
R09273DK: LR R1,R6 ADDRESS OF OLD ONE @VA09273 DMK00360
R09273DK: CALL DMKFRET FRET THE STORAGE @VA09273 DMK00370
R09273DK: L R6,VDEVEXTN RESTORE ADDRESSIBILITY @VA09273 DMK00380
BEGIN APPLY >>> ./ R 287000 291000 $ 287300 300 DMK00010
END APPLY >>> ./ R 287000 291000 $ 287300 300 DMK00010
BEGIN APPLY >>> ./ R 335000 349000 $ 335000 500 DMK00110
END APPLY >>> ./ R 335000 349000 $ 335000 500 DMK00110
Update Succeeded
Update Execution Time 16 milliseconds.
Date Monday Dec 03, 1979 12:03:00 PM
Loaded from MAINT(294)
R09783DK: ./ I 423600 $ 423750 100 00001000
R09783DK: CLI 24(R2),X'08' IS THIS REALLY A TAG RECORD? @VA09783 00002000
R09783DK: BNE TF04 NONE--SHOULD NOT HAPPEN. @VA09783 00003000
R09783DK: ./ I 573600 $ 573750 100 00004000
R09783DK: CLI 24(R2),X'08' IS THIS REALLY A TAG RECORD? @VA09783 00005000
R09783DK: BNE QF07 NONE--TAG MISSING. @VA09783 00006000
BEGIN APPLY >>> ./ I 423600 $ 423750 100 00001000
END APPLY >>> ./ I 423600 $ 423750 100 00001000
BEGIN APPLY >>> ./ I 573600 $ 573750 100 00004000
END APPLY >>> ./ I 573600 $ 573750 100 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Tuesday Jul 29, 1980 05:16:00 AM
Loaded from MAINT(294)
R09978DK: ./ R 78400 $ 78400 00001000
R09978DK: * SAVEWRK9 - SAVEAREA TO SAVE SFBFLAG 00002000
R09978DK: ./ I 420000 $ 420100 100 00003000
R09978DK: MVC SAVEWRK9(1),SFBFLAG SAVE FLAGS @VA09978 00004000
R09978DK: OI SFBFLAG,SFBINUSE MARK SPOOL FILE BLOCK IN USE @VA09978 00005000
R09978DK: ./ I 422000 $ 422100 100 00006000
R09978DK: MVC SFBFLAG,SAVEWRK9 RESTORE FLAG IF IT WAS ORIG.ON @VA09978 00008000
R09978DK: ./ I 447000 $ 00009000
R09978DK: BNZ MSG424E PAGING ERROR ON WRITE - QUIT @VA09978 00010000
R09978DK: ./ I 570000 $ 570100 100 00011000
R09978DK: MVC SAVEWRK9(1),SFBFLAG SAVE FLAG @VA09978 00012000
R09978DK: OI SFBFLAG,SFBINUSE MARK SPOOL FILE BLOCK IN USE @VA09978 00013000
R09978DK: ./ I 572000 $ 572100 100 00014000
R09978DK: MVC SFBFLAG,SAVEWRK9 RESTORE FLAG IF IT WAS ORIG.ON @VA09978 00016000
R09978DK: ./ I 912000 $ 912100 100 00017000
R09978DK: MVC SFBFLAG,SAVEWRK9 RESTORE FLAG IF IT WAS ORIG.ON @VA09978 00019000
BEGIN APPLY >>> ./ R 78400 $ 78400 00001000
END APPLY >>> ./ R 78400 $ 78400 00001000
BEGIN APPLY >>> ./ I 420000 $ 420100 100 00003000
END APPLY >>> ./ I 420000 $ 420100 100 00003000
BEGIN APPLY >>> ./ I 422000 $ 422100 100 00006000
END APPLY >>> ./ I 422000 $ 422100 100 00006000
BEGIN APPLY >>> ./ I 447000 $ 00009000
END APPLY >>> ./ I 447000 $ 00009000
BEGIN APPLY >>> ./ I 570000 $ 570100 100 00011000
END APPLY >>> ./ I 570000 $ 570100 100 00011000
BEGIN APPLY >>> ./ I 572000 $ 572100 100 00014000
END APPLY >>> ./ I 572000 $ 572100 100 00014000
BEGIN APPLY >>> ./ I 912000 $ 912100 100 00017000
END APPLY >>> ./ I 912000 $ 912100 100 00017000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Wednesday Apr 08, 1981 04:07:00 AM
Loaded from MAINT(294)
R12943DK: ./ R 423600 $ 423610 00001000
R12943DK: BNE MSG027E INVALID FILE MESSAGE @VA12943 00002000
R12943DK: ./ R 423850 $ 423860 00003000
R12943DK: BNE MSG027E INVALID FILE TYPE @VA12943 00004000
R12943DK: ./ R 425000 $ 425010 00005000
R12943DK: BO MSG027E INVALID FILE @VA12943 00006000
BEGIN APPLY >>> ./ R 423600 $ 423610 00001000
END APPLY >>> ./ R 423600 $ 423610 00001000
BEGIN APPLY >>> ./ R 423850 $ 423860 00003000
END APPLY >>> ./ R 423850 $ 423860 00003000
BEGIN APPLY >>> ./ R 425000 $ 425010 00005000
END APPLY >>> ./ R 425000 $ 425010 00005000
Update Succeeded
Update Execution Time 16 milliseconds.