DMKRSP History
References
-
-
Fixes Applied : 21
-
Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKRSP ASSEMBLE
Date : 1/10/1979 8:51:00 AM
VM Context : MAINT(394)
File Name : DMKRSP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
R09263DK 601 ISSUE MARK FORMS ON DRAIN PRINTING MULT COPIES
R09313DK 601 ISSUE MARK FORMS BEFORE RECHAINING SPFBLOK
R08952DK 601 FUTURE SERVICEABILITY
R09343DK 602 FLUSH PRINT HOLD (3800) CAUSES LOST PRINT FILES
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10076DK 604 CP DUMP SERVICES SUPPORT
R09992DK 604 FLUSH COMMAND TO 3203-5 PRINTER CAUSES SYSTEM LOOP
R09027DK 609 RDR DRAINED MSG CONTAINS GARBAGE IF RDR IS ACTIVE AT DRAIN COMMAND
R09420DK 609 DMKRSP RESETS SPOOL FILE ID UNNECESSARILY WHEN QUEUES EMPTY
R09859DK 610 3800 CHANNEL PROGRAM CHECK WITH OP CODE X'00' PRINT MULT COPIES
R10003DK 610 MSDMKRSP500I COMMAND REJECT WHEN FLUSH HOLD COMMAND
R10572DK 611 DMKTCS FRETS STORAGE, THEN TRIES TO USE AREA FOR RESTART CAW
R10868DK 611 3203-5 LOST LINES WHEN START/STOP AND CHAN 9
R09471DK 611 SAVING 3800 IMAGELIB AFTER FATAL I/O ERROR
R11068DK 614 UV00862 D/T 3800 HANGS DURING BACKSPACE.
R11232DK 618 UV02264 ABENDPGT002 ABENDPGT003 CHAIN PROBLEMS WITH SPLINKS
R11799DK 618 UV02386 SYSTEM OR USER HOLD STATUS NOT BEING CHECKPOINTED
R13267DK 622 UV04657 D/T3800 GOES IDLE THOUGH FILE IS AVAILABLE
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R12900DK 623 UV04857 DMKTCS FAILING TO CHECK FOR A CC FROM DMKRPAGT
HRC302DK V04 CREATE INDIVIDUAL PRINT/PUNCH FILES IF HERCULES
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R09263DK
Date Monday Jan 22, 1979 02:23:00 PM
Loaded from MAINT(294)
R09263DK: ./ I 934900 $ 934950 25
R09263DK: NI RSPFLAG1,X'FF'-(RSPBF1IO+RSPBF2IO+RSPBF1VL+RSPBF2VL) X
R09263DK: RESET THE I/O FLAGS @VA09263
R09263DK: ./ I 1261000 $ 1261100 100
R09263DK: OC RSPVPAG2,RSPVPAG2 DOUBLE BUFFERING ACTIVE? @VA09263
R09263DK: BNZ PRCCWS2 XFER IF SO @VA09263
R09263DK: ./ R 1263000 $ 1263000
R09263DK: PRCCWS2 TM RDEVTYPE,TYPPUN IS IT A PUNCH? @VA09263
R09263DK: ./ I 1299240 $ 1299247 6
R09263DK: L R2,RSPRPAGE GET THE DASD BUFFER ADDRESS @VA09263
R09263DK: LA R1,SPSIZE(,R2) POINT TO FIRST CCW @VA09263
R09263DK: ST R1,IOBCAW ADDRESS OF CHANNEL PROGRAM @VA09263
R09263DK: ./ I 1299930 $ 1299937 6
R09263DK: L R2,RSPRPAG2 GET THE DASD BUFFER ADDRESS @VA09263
R09263DK: LA R1,SPSIZE(,R2) POINT TO FIRST CCW @VA09263
R09263DK: ST R1,IOBCAW ADDRESS OF CHANNEL PROGRAM @VA09263
R09263DK: ./ I 1495000 $ 1495050 50
R09263DK: TM RDEVFLAG,RDEVSEP SEPARATOR PRINTED? @VA09263
R09263DK: BZ SAVEFIL2 XFER IF NOT @VA09263
R09263DK: LH R2,SFBCOPY SAVE NUMBER OF COPIES @VA09263
R09263DK: MVC SFBCOPY,=H'1' FORCE IT TO 1 @VA09263
R09263DK: CALL DMKTCSCO DO THE 'MARK FORM' @VA09263
R09263DK: STH R2,SFBCOPY RESTORE NUMBER OF COPIES @VA09263
R09263DK: ./ R 1496000 $ 1496000
R09263DK: SAVEFIL2 LA R2,30 SET FUNCTION INDEX @VA09263
BEGIN APPLY >>> ./ I 934900 $ 934950 25
END APPLY >>> ./ I 934900 $ 934950 25
BEGIN APPLY >>> ./ I 1261000 $ 1261100 100
END APPLY >>> ./ I 1261000 $ 1261100 100
BEGIN APPLY >>> ./ R 1263000 $ 1263000
END APPLY >>> ./ R 1263000 $ 1263000
BEGIN APPLY >>> ./ I 1299240 $ 1299247 6
END APPLY >>> ./ I 1299240 $ 1299247 6
BEGIN APPLY >>> ./ I 1299930 $ 1299937 6
END APPLY >>> ./ I 1299930 $ 1299937 6
BEGIN APPLY >>> ./ I 1495000 $ 1495050 50
END APPLY >>> ./ I 1495000 $ 1495050 50
BEGIN APPLY >>> ./ R 1496000 $ 1496000
END APPLY >>> ./ R 1496000 $ 1496000
Update Succeeded
Update Execution Time 23 milliseconds.
R09313DK
Date Tuesday Jan 30, 1979 01:18:00 PM
Loaded from MAINT(294)
R09313DK: ./ D 1495000
R09313DK: ./ I 1495300 $ 1495400 100
R09313DK: SAVEFIL2 BAL R5,RECHAIN RECHAIN THE FILE @VA09313
R09313DK: ./ R 1496000 $ 1496000
R09313DK: LA R2,30 SET FUNCTION INDEX @VA09313
BEGIN APPLY >>> ./ D 1495000
END APPLY >>> ./ D 1495000
BEGIN APPLY >>> ./ I 1495300 $ 1495400 100
END APPLY >>> ./ I 1495300 $ 1495400 100
BEGIN APPLY >>> ./ R 1496000 $ 1496000
END APPLY >>> ./ R 1496000 $ 1496000
Update Succeeded
Update Execution Time 16 milliseconds.
R08952DK
Date Wednesday Jan 24, 1979 01:02:00 AM
Loaded from MAINT(294)
R08952DK: ./ I 1338000 $ 1338500 500 00001000
R08952DK: DROP R12,R13 @VA08952 00002000
R08952DK: ./ R 1343000 $ 1343100 00003000
R08952DK: USING DMKRSP,R12,R13 @VA08952 00004000
BEGIN APPLY >>> ./ I 1338000 $ 1338500 500 00001000
END APPLY >>> ./ I 1338000 $ 1338500 500 00001000
BEGIN APPLY >>> ./ R 1343000 $ 1343100 00003000
END APPLY >>> ./ R 1343000 $ 1343100 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R09343DK
Date Wednesday Mar 28, 1979 02:08:00 AM
Loaded from MAINT(294)
R09343DK: ./ I 1458800 $ 1458840 35
R09343DK: TM SFBFLAG,SFBSHOLD IS FILE TO BE SAVED? @VA09343
R09343DK: BO SAVEFILE XFER IF SO @VA09343
R09343DK: TM RDEVFLAG,RDEVSEP SEPARATOR PRINTED? @VA09343
R09343DK: BZ PRDELET2 XFER IF NOT @VA09343
R09343DK: LH R2,SFBCOPY SAVE NUMBER OF COPIES @VA09343
R09343DK: MVC SFBCOPY,=H'1' FORCE IT TO 1 @VA09343
R09343DK: ./ I 1459200 $ 1459300 100
R09343DK: STH R2,SFBCOPY RESTORE NUMBER OF COPIES @VA09343
BEGIN APPLY >>> ./ I 1458800 $ 1458840 35
END APPLY >>> ./ I 1458800 $ 1458840 35
BEGIN APPLY >>> ./ I 1459200 $ 1459300 100
END APPLY >>> ./ I 1459200 $ 1459300 100
Update Succeeded
Update Execution Time 16 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:53:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.
R10076DK
Date Monday Jul 02, 1979 11:07:00 AM
Loaded from MAINT(294)
R10076DK: ./ I 00177000 $ 177500 500 04/12/79 08:04:36
R10076DK: ENTRY DMKRSPDP @V67CAH7 00177100
R10076DK: ./ I 01655000 $ 1655200 200 04/12/79 08:04:36
R10076DK: DC CL4'DUMP' @V67CAH7 01655100
R10076DK: DMKRSPDP DC A(0) ANCHOR OF DUMP IN @V67CAH7 01655200
R10076DK: * PROGRESS CHAIN 01655300
BEGIN APPLY >>> ./ I 00177000 $ 177500 500 04/12/79 08:04:36
END APPLY >>> ./ I 00177000 $ 177500 500 04/12/79 08:04:36
BEGIN APPLY >>> ./ I 01655000 $ 1655200 200 04/12/79 08:04:36
END APPLY >>> ./ I 01655000 $ 1655200 200 04/12/79 08:04:36
Update Succeeded
Update Execution Time 16 milliseconds.
R09992DK
Date Wednesday Sep 05, 1979 05:29:00 PM
Loaded from MAINT(294)
R09992DK: ./ R 1361000 $ 1361200 200 00001000
R09992DK: TERMCCW1 CCW X'1B',*-*,CC+SILI,1 SPACE 3 @VA09992 00002000
BEGIN APPLY >>> ./ R 1361000 $ 1361200 200 00001000
END APPLY >>> ./ R 1361000 $ 1361200 200 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09027DK
Date Tuesday Feb 05, 1980 12:11:00 PM
Loaded from MAINT(294)
R09027DK: ./ I 1593000 $ 1593300 300 00001000
R09027DK: LA R0,DRANMSZR READER MESSAGE SIZE @VA09027 00002000
R09027DK: TM RDEVTYPC,CLASURI IS IT A READER TYPE? @VA09027 00003000
R09027DK: BO GOMSG YES, DON'T RELOAD SIZE @VA09027 00004000
R09027DK: ./ I 1594000 $ 1594500 00005000
R09027DK: GOMSG EQU * @VA09027 00006000
R09027DK: ./ I 1633000 $ 1633500 00007000
R09027DK: DRANMSZR EQU *-DRANMSG @VA09027 00008000
BEGIN APPLY >>> ./ I 1593000 $ 1593300 300 00001000
END APPLY >>> ./ I 1593000 $ 1593300 300 00001000
BEGIN APPLY >>> ./ I 1594000 $ 1594500 00005000
END APPLY >>> ./ I 1594000 $ 1594500 00005000
BEGIN APPLY >>> ./ I 1633000 $ 1633500 00007000
END APPLY >>> ./ I 1633000 $ 1633500 00007000
Update Succeeded
Update Execution Time 16 milliseconds.
R09420DK
Date Tuesday Feb 05, 1980 12:12:00 PM
Loaded from MAINT(294)
R09420DK: ./ D 01564000 01573000 $
BEGIN APPLY >>> ./ D 01564000 01573000 $
END APPLY >>> ./ D 01564000 01573000 $
Update Succeeded
Update Execution Time 23 milliseconds.
R09859DK
Date Friday Mar 14, 1980 05:15:00 AM
Loaded from MAINT(294)
R09859DK: ./ I 1488000 $ 1488100 100 000001000
R09859DK: NI IOBFLAG,X'FF'-IOBRSTRT RESET RESTART IN IOBLOK @VA09859 00002000
BEGIN APPLY >>> ./ I 1488000 $ 1488100 100 000001000
END APPLY >>> ./ I 1488000 $ 1488100 100 000001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10003DK
Date Friday Mar 14, 1980 07:13:00 AM
Loaded from MAINT(294)
R10003DK: ./ I 1495100 $ 1495110 10 00001000
R10003DK: CLI RDEVTYPE,TYP3800 IS IT 3800 ? @VA10003 00002000
R10003DK: BNE SAVEFIL2 NO,CONTINUE AS BEFORE @VA10003 00003000
BEGIN APPLY >>> ./ I 1495100 $ 1495110 10 00001000
END APPLY >>> ./ I 1495100 $ 1495110 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10572DK
Date Saturday Mar 29, 1980 01:29:00 AM
Loaded from MAINT(294)
R10572DK: ./ R 934200 $ 934200 00001000
R10572DK: BZ PROCESS3 TRANSFER IF EVERYTHING OK @VA10572 00002000
R10572DK: ./ I 934400 $ 934405 5 00003000
R10572DK: NI IOBFLAG,X'FF'-IOBRSTRT RESET RESTART IN IOBLOK @VA10572 00004000
R10572DK: ./ I 934850 $ 934855 5 00005000
R10572DK: PROCESS3 DS 0H @VA10572 00006000
R10572DK: NI IOBFLAG,X'FF'-IOBRSTRT RESET RESTART IN IOBLOK @VA10572 00007000
BEGIN APPLY >>> ./ R 934200 $ 934200 00001000
END APPLY >>> ./ R 934200 $ 934200 00001000
BEGIN APPLY >>> ./ I 934400 $ 934405 5 00003000
END APPLY >>> ./ I 934400 $ 934405 5 00003000
BEGIN APPLY >>> ./ I 934850 $ 934855 5 00005000
END APPLY >>> ./ I 934850 $ 934855 5 00005000
Update Succeeded
Update Execution Time 23 milliseconds.
R10868DK
Date Saturday Mar 29, 1980 03:29:00 AM
Loaded from MAINT(294)
R10868DK: ./ I 1733000 $ 1733050 50 00001000
R10868DK: CLC RDEVTYPC(2),=AL1(CLASURO,TYP3203) 3203? @VA10868
R10868DK: BNE NOT3203 NO, DON'T CARE @VA10868 00003000
R10868DK: TM IOERDATA,X'FE' CHANNEL 9 ALONE ? @VA10868 00004000
R10868DK: BZ NOT3203 YES, DON'T UPDATE CSW @VA10868 00005000
R10868DK: L R15,IOERCSW GET FAILING CCW ADDR @VA10868 00006000
R10868DK: CLI 0(R15),X'08' IS NEXT CCW A TIC ? @VA10868 00007000
R10868DK: BNE SAVECSW NO, GO BUMP CSW @VA10868 00008000
R10868DK: L R15,0(R15) GET CORRECT CCW ADDR @VA10868 00009000
R10868DK: SAVECSW LA R15,8(R15) ADJUST CSW FOR RSE @VA10868 00010000
R10868DK: STCM R15,7,IOERCSW+1 SAVE UPDATED CSW @VA10868 00011000
R10868DK: B CALLSPL AND CALL DMKRSERR @VA10868 00012000
R10868DK: NOT3203 DS 0H @VA10868 00013000
BEGIN APPLY >>> ./ I 1733000 $ 1733050 50 00001000
END APPLY >>> ./ I 1733000 $ 1733050 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09471DK
Date Saturday Mar 29, 1980 03:27:00 AM
Loaded from MAINT(294)
R09471DK: ./ I 101000 $ 101100 00001000
R09471DK: * DMKQNTBL - ANCHOR FOR 3800 NAMED SYSTEMS (IMAGLIBS) 00002000
R09471DK: ./ I 188000 $ 188100 00003000
R09471DK: EXTRN DMKQNTBL @VA09471 00004000
R09471DK: ./ R 881000 $ 881100 00005000
R09471DK: BAL R5,DRAINPRT DO EMERG DRAIN @VA09471 00006000
R09471DK: ./ R 1384000 $ 1384100 00007000
R09471DK: BAL R5,DRAINPRT DO EMERG DRAIN @VA09471 00008000
R09471DK: ./ I 1598000 $ 1598020 20 00009000
R09471DK: DRAINPRT DS 0H @VA09471 00010000
R09471DK: TM RDEVFLAG,RDEVDRAN ALREADY DRAINED ? @VA09471 00011000
R09471DK: BOR R5 YES - 3800 ACT COUNT CORRECT @VA09471 00012000
R09471DK: OI RDEVFLAG,RDEVDRAN SET DEVICE AS DRAINED @VA09471 00013000
R09471DK: CLI RDEVTYPE,TYP3800 IS IT A 3800 ? @VA09471 00014000
R09471DK: BNER R5 NO - RETURN TO CALLER @VA09471 00015000
R09471DK: L R14,RDEVEXTN POINT TO RDEVBLOK EXT @VA09471 00016000
R09471DK: USING RSPXBLOK,R14 @VA09471 00017000
R09471DK: XC RSPXBLOK(RSPXSIZE*8),RSPXBLOK CLEAR BLOCK @VA09471 00018000
R09471DK: DROP R14 @VA09471 00019000
R09471DK: * NOW DECR ACT COUNT FOR IMAGELIB CONTAINED IN RDEVIMAG 00020000
R09471DK: L R1,=A(DMKQNTBL) START OF 3800 IMAGELIBS @VA09471 00021000
R09471DK: LTR R1,R1 ARE THERE ANY ? @VA09471 00022000
R09471DK: BZR R5 NO - GET OUT FAST @VA09471 00023000
R09471DK: TRANS 2,1,OPT=(BRING,DEFER,SYSTEM) GET IT IN @VA09471 00024000
R09471DK: LR R14,R2 POINT TO FIRST SYSTEM ENTRY @VA09471 00025000
R09471DK: USING NPRTBL,R14 @VA09471 00026000
R09471DK: LTR R14,R14 ANY IMAGELIBS ? @VA09471 00027000
R09471DK: BZR R5 NO - GET OUT FAST @VA09471 00028000
R09471DK: NXTIMAG DS 0H @VA09471 00029000
R09471DK: CLC RDEVIMAG,NPRNAME IS THIS CURRENT SYSTEM ? @VA09471 00030000
R09471DK: BE GOTIMAG YES - GO DECR ACT COUNT @VA09471 00031000
R09471DK: AL R14,NPRPNT NEXT SYSTEM @VA09471 00032000
R09471DK: CLC NPRPNT,ZEROES IS IT DUMMY LAST ENTRY ? @VA09471 00033000
R09471DK: BNE NXTIMAG NO GO CHECK IT OUT @VA09471 00034000
R09471DK: BR R5 YES - GET OUT FAST @VA09471 00035000
R09471DK: GOTIMAG DS 0H @VA09471 00036000
R09471DK: SR R15,R15 CLEAR WORK REGISTER @VA09471 00037000
R09471DK: IC R15,NPRCNT GET OLD ACT COUNT @VA09471 00038000
R09471DK: LTR R15,R15 ALREADY ZERO ? @VA09471 00039000
R09471DK: BZR R5 YES - GET OUT FAST @VA09471 00040000
R09471DK: BCTR R15,0 DECR COUNT @VA09471 00041000
R09471DK: STC R15,NPRCNT SAVE NEW COUNT @VA09471 00042000
R09471DK: BR R5 RETURN TO CALLER @VA09471 00043000
R09471DK: DROP R14 @VA09471 00044000
R09471DK: SPACE 3 00045000
R09471DK: ./ I 1811000 $ 1811100 00046000
R09471DK: COPY NPRTBL @VA09471 00047000
BEGIN APPLY >>> ./ I 101000 $ 101100 00001000
END APPLY >>> ./ I 101000 $ 101100 00001000
BEGIN APPLY >>> ./ I 188000 $ 188100 00003000
END APPLY >>> ./ I 188000 $ 188100 00003000
BEGIN APPLY >>> ./ R 881000 $ 881100 00005000
END APPLY >>> ./ R 881000 $ 881100 00005000
BEGIN APPLY >>> ./ R 1384000 $ 1384100 00007000
END APPLY >>> ./ R 1384000 $ 1384100 00007000
BEGIN APPLY >>> ./ I 1598000 $ 1598020 20 00009000
END APPLY >>> ./ I 1598000 $ 1598020 20 00009000
BEGIN APPLY >>> ./ I 1811000 $ 1811100 00046000
END APPLY >>> ./ I 1811000 $ 1811100 00046000
Update Succeeded
Update Execution Time 31 milliseconds.
R11068DK
Date Tuesday Jul 08, 1980 06:18:00 AM
Loaded from MAINT(294)
R11068DK: ./ I 993800 $ 993850 20
R11068DK: NI RSPFLAG1,X'FF'-(RSPBF1VL+RSPBF1IO+RSPBF2VL+RSPBF2IO) X
R11068DK: TURN OFF BUFFER FLAGS @VA11068
R11068DK: ./ I 01082000 $ 01082100 100
R11068DK: OC RSPVPAG2,RSPVPAG2 DOUBLE BUFFERING ACTIVE? @VA11068
R11068DK: BZ *+8 NO @VA11068
R11068DK: OI RSPFLAG1,RSPBF1VL MARK BUFFER VALID @VA11068
BEGIN APPLY >>> ./ I 993800 $ 993850 20
END APPLY >>> ./ I 993800 $ 993850 20
BEGIN APPLY >>> ./ I 01082000 $ 01082100 100
END APPLY >>> ./ I 01082000 $ 01082100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R11232DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R11232DK: ./ R 179000 179000 $ 179000 100 00001000
R11232DK: EXTRN DMKPGTSG,DMKRSERR,DMKPGTVG,DMKPGTVR,DMKPGTSD @VA11232 00002000
R11232DK: ./ D 366000 366000 $ 00003000
R11232DK: ./ R 368000 368000 $ 368000 050 00004000
R11232DK: LR R3,R1 SAVE ADDRESS OF NEXT PAGE @VA11232 00005000
R11232DK: L R1,SFBSTART START CCPD @VA11232 00006000
R11232DK: L R0,SPPREPAG IS THIS THE FIRST BUFFER ? @VA11232 00007000
R11232DK: LTR R0,R0 IF BACK PTR = ZERO, IT IS @VA11232 00008000
R11232DK: BNZ STSTRT WE ARE NOT REWRITING FIRST BUFFER@VA11232 00009000
R11232DK: C R1,RSPDPAGE FIRST TIME WRITING FIRST BUFFER? @VA11232 00010000
R11232DK: BE STSTRT YES, SFBSTART IS GOOD @VA11232 00011000
R11232DK: L R1,RSPDPAGE GET NEW CCPD FOR FIRST BUFFER @VA11232 00012000
R11232DK: ST R1,SFBSTART SAVE NEW START CCPD IN SFBSTART @VA11232 00013000
R11232DK: ST R1,SFBLAST AND SFBLAST @VA11232 00014000
R11232DK: STSTRT ST R1,SPRMISC SPRMISC CONTAINS START CCPD @VA11232 00015000
R11232DK: ./ R 378000 379000 $ 378000 1000 00016000
R11232DK: OI RSPFLAG2,RSPERR INDICATE WRITE ERROR @VA11232 00017000
R11232DK: MVC RSPDPAGE(4),SPNXTPAG USE NEXT CCPD AS CURRENT @VA11232 00018000
R11232DK: ./ R 390000 390000 $ 390000 100 00019000
R11232DK: TM RSPFLAG2,RSPERR STILL IN ERROR RECOVERY ? @VA11232 00020000
R11232DK: ./ R 392000 392000 $ 392000 100 00021000
R11232DK: NI RSPFLAG2,X'FF'-RSPERR RESET ERROR FLAG @VA11232 00022000
R11232DK: ./ R 394000 396000 $ 394000 100 00023000
R11232DK: BZ RDRSIO NO PREVIOUS BUFFER TO UPDATE @VA11232 00024000
R11232DK: ./ R 405000 406000 $ 405000 500 00025000
R11232DK: BZ MSG428A NO VIRTUAL ADDRESSES @VA11232 00026000
R11232DK: ST R1,RSPVPG2 SAVE SEC. VIRTUAL BUFF FOR FRET @VA11232 00027000
R11232DK: TRANS 2,1,OPT=(BRING,DEFER,LOCK,SYSTEM),IOER=MSG428A @VA11232 00028000
R11232DK: ./ R 409000 409000 $ 409000 100 00029000
R11232DK: BNZ MSG428A ERROR READING PREVIOUS BUFFER @VA11232 00030000
R11232DK: ./ R 413000 414000 $ 413000 100 00031000
R11232DK: BNZ MSG428A BUFFER WRITE ERROR @VA11232 00032000
R11232DK: LR R2,R4 RESTORE ORIGINAL BUFFER ADDRESS @VA11232 00033000
R11232DK: L R0,SPPREPAG UPDATE SFBPNT AND SFBLAST @VA11232 00034000
R11232DK: ST R0,SFBPNT ... @VA11232 00035000
R11232DK: ST R0,SFBLAST SFBLAST ALSO @VA11232 00036000
R11232DK: SLR R0,R0 RELEASE STORAGE PAGE @VA11232 00037000
R11232DK: ./ R 417000 418000 $ 417000 100 00038000
R11232DK: LR R2,R4 POINT TO ORIGINAL BUFFER @VA11232 00039000
R11232DK: ST R0,RSPVPG2 CLEAR PTR TO SECOND VIRTUAL BUFF @VA11232 00040000
R11232DK: B STARTIO CALL FOR SIO @VA11232 00041000
R11232DK: RDRSIO MVC SFBLAST,SPPREPAG SAVE LAST GOOD BUFFER @VA11232 00042000
R11232DK: RDRSIO2 MVC SFBPNT,SPPREPAG AND IN LAST TOO @VA11232 00043000
R11232DK: STARTIO NI IOBFLAG,X'FF'-IOBRSTRT CLR RESTART FLAG @VA11232 00044000
R11232DK: ./ R 453000 453000 $ 453000 100 00045000
R11232DK: B RDRSIO2 GO READ NEXT CARD @VA11232 00046000
R11232DK: ./ R 573000 573000 $ 573000 100 00047000
R11232DK: L R9,RDEVSPL GET RSPLCTL CONTROL BLOCK @VA11232 00048000
R11232DK: L R2,RSPRPAGE GET REAL BUFFER ADDRESS @VA11232 00049000
R11232DK: SLR R15,R15 CLEAR @VA11232 00050000
R11232DK: ST R15,SPRMISC RESET TO ZERO FOR NOW @VA11232 00051000
R11232DK: ./ D 578000 578000 $ 00052000
R11232DK: ./ R 581000 581000 $ 581000 100 00053000
R11232DK: B RDRSIO2 FILL BUFFER @VA11232 00054000
R11232DK: ./ R 604000 605000 $ 604000 100 00055000
R11232DK: CLWRITE L R1,SFBSTART GET ORIGINAL START CCPD @VA11232 00056000
R11232DK: L R6,SPPREPAG SEE IF FIRST PAGE IS BEING @VA11232 00057000
R11232DK: LTR R6,R6 RE-WRITTEN @VA11232 00058000
R11232DK: BNZ USESTRT NO, USE SFBSTART @VA11232 00059000
R11232DK: C R1,RSPDPAGE RE-WRITTEN IN SAME SPOT ? @VA11232 00060000
R11232DK: BE USESTRT YES, USE SFBSTART @VA11232 00061000
R11232DK: L R1,RSPDPAGE SPRMISC MUST EQUAL NEW START @VA11232 00062000
R11232DK: ST R1,SFBSTART SAVE NEW START CCPD @VA11232 00063000
R11232DK: ST R1,SFBLAST MAKE IT LAST TOO @VA11232 00064000
R11232DK: USESTRT ST R1,SPNXTPAG CHAIN TAIL TO HEAD @VA11232 00065000
R11232DK: ST R1,SPRMISC SAVE IN SPRMISC ALSO @VA11232 00066000
R11232DK: LM R0,R1,RSPDPAGE GET BUFF ADDRESS AND SLOT @VA11232 00067000
R11232DK: ./ R 607000 608000 $ 607000 100 00068000
R11232DK: L R2,RSPRPAGE RESTORE BUFFER ADDRESS @VA11232 00069000
R11232DK: BZ RDRGOOD BUFFER WRITE SUCCESSFUL @VA11232 00070000
R11232DK: OI RSPFLAG2,RSPERR INDICATE WRITE ERROR @VA11232 00071000
R11232DK: ./ R 614000 616000 $ 614000 1000 00072000
R11232DK: RDRGOOD TM RSPFLAG2,RSPERR IN ERROR RECOVERY ? @VA11232 00073000
R11232DK: ./ R 618000 618000 $ 618000 100 00074000
R11232DK: NI RSPFLAG2,X'FF'-RSPERR RESET ERROR INDICATOR @VA11232 00075000
R11232DK: LR R4,R2 SAVE BUFFER ADDRESS @VA11232 00076000
R11232DK: ./ R 621000 622000 $ 621000 100 00077000
R11232DK: BZ CHFILE CHAIN FILE @VA11232 00078000
R11232DK: UPDPREV LR R0,R15 GET LAST BUFFER ADDRESS @VA11232 00079000
R11232DK: ./ R 624000 624000 $ 624000 100 00080000
R11232DK: BNZ BUFFERR PAGE READ ERROR @VA11232 00081000
R11232DK: ./ R 625000 625000 $ 625000 100 00082000
R11232DK: WRLAST MVC SPNXTPAG(4),RSPDPAGE UPDATE FORWARD POINTER @VA11232 00083000
R11232DK: ./ R 627000 627000 $ 627000 100 00084000
R11232DK: BZ CHFILE CHAIN COMPLETED SPOOL FILE @VA11232 00085000
R11232DK: BUFFERR LR R2,R4 RE-ESTABLISH BUFFER @VA11232 00086000
R11232DK: MVC SPNXTPAG(4),RSPDPAGE UPDATE FORWARD POINTER @VA11232 00087000
R11232DK: B MSG428B DEALLOCATE BUFFER @VA11232 00088000
R11232DK: ./ I 629000 $ 629100 100 00089000
R11232DK: L R2,RSPDPAGE RESTORE REAL BUFFER CCPD @VA11232 00090000
R11232DK: ST R2,SFBLAST MAKE IT LAST CCPD @VA11232 00091000
R11232DK: ./ R 648000 648000 $ 647100 100 00092000
R11232DK: SPACE 00093000
R11232DK: MSG428A EQU * @VA11232 00094000
R11232DK: XC RSPSWAP(8),RSPSWAP PREPARE DUMMY SWAPTABLE @VA11232 00095000
R11232DK: LR R2,R4 RESTORE ORIGINAL BUFFER @VA11232 00096000
R11232DK: L R4,SPPREPAG FIRST OF TWO CCPDS TO RELEASE @VA11232 00097000
R11232DK: ST R4,RSPSWAP+4 SAVE IN DUMMY SWAPTABLE ENTRY @VA11232 00098000
R11232DK: LA R5,RSPSWAP POINT TO DUMMY SWAPTABLE ENTRY @VA11232 00099000
R11232DK: CALL DMKPGTSD RELEASE SLOT @VA11232 00100000
R11232DK: B MSG428C GO DEALLOCATE SECOND SLOT @VA11232 00101000
R11232DK: MSG428B XC RSPSWAP(8),RSPSWAP CLEAR DUMMY SWAPTABLE @VA11232 00102000
R11232DK: LR R2,R4 RE-ESTABLISH BUFFER PTR. @VA11232 00103000
R11232DK: LA R5,RSPSWAP POINT TO DUMMY SWAPTABLE ENTRY @VA11232 00104000
R11232DK: MSG428C L R4,SPNXTPAG NEXT CCPD TO DEALLOCATE @VA11232 00105000
R11232DK: XC RSPSWAP(8),RSPSWAP CLEAR DUMMY SWAPTABLE ENTRY @VA11232 00106000
R11232DK: ST R4,RSPSWAP+4 STORE IN DUMMY SWAPTABLE ENTRY @VA11232 00107000
R11232DK: CALL DMKPGTSD DEALLOCATE PAGE @VA11232 00108000
R11232DK: SPACE 00109000
R11232DK: ./ R 665000 665000 $ 665000 100 00110000
R11232DK: NI RSPFLAG2,X'FF'-RSPERR RESET BUFFER ERROR FLAG @VA11232 00111000
R11232DK: ./ R 705000 705000 $ 705000 100 00112000
R11232DK: L R1,RSPVPG2 SECOND VIRTUAL BUFFER ADDRESS @VA11232 00113000
R11232DK: LTR R1,R1 IS THERE ONE ? @VA11232 00114000
R11232DK: BZ NOBUFF2 NO, NOTHING TO RELEASE @VA11232 00115000
R11232DK: CALL DMKRPAGT,PARM=SYSTEM RELEASE CORE PAGE @VA11232 00116000
R11232DK: CALL DMKPGTVR AND RELEASE VIRTUAL BUFFER @VA11232 00117000
R11232DK: NOBUFF2 LR R1,R9 PTR TO RSPLCTL WORKAREA @VA11232 00118000
R11232DK: ./ I 986000 $ 986100 100 00119000
R11232DK: EX R15,TSTALLOC SEE IF PAGE ALREADY ALLOCATED @VA11232 00120000
R11232DK: BOR R6 YES, DON'T ALLOCATE AGAIN @VA11232 00121000
R11232DK: ./ I 1357000 $ 1357100 100 00122000
R11232DK: TSTALLOC TM 0(R14),0 TEST IS PAGE ALLOCATED @VA11232 00123000
R11232DK: ./ R 1417000 1417000 $ 1416200 200 00124000
R11232DK: L R6,SPRMISC LOOK FOR NON-ZERO START CCPD @VA11232 00125000
R11232DK: LTR R6,R6 HAS SFBSTART BEEN SAVED THERE @VA11232 00126000
R11232DK: BZ PCHTST NO, USE VALUE IN SPNXTPAG @VA11232 00127000
R11232DK: ST R6,SFBPNT USE START CCPD @VA11232 00128000
R11232DK: PCHTST TM RDEVTYPE,TYPPUN PUNCH DEVICE @VA11232 00129000
R11232DK: ./ R 1482000 1484000 $ 1482200 200 00130000
R11232DK: L R2,RSPRPAGE RESTORE ADDRESS OF REAL PAGE @VA11232
R11232DK: L R0,SPRMISC LOOK FOR NON-ZERO START CCPD @VA11232 00131000
R11232DK: LTR R0,R0 HAS SFBSTART BEEN SAVED THERE @VA11232 00132000
R11232DK: BNZ BEGCCPD USE START CCPD FROM SPRMISC @VA11232 00133000
R11232DK: L R0,SPNXTPAG GET CCPD OF FIRST PAGE @VA11232
R11232DK: BEGCCPD ST R0,RSPDPAGE STORE START CCPD @VA11232 00135000
BEGIN APPLY >>> ./ R 179000 179000 $ 179000 100 00001000
END APPLY >>> ./ R 179000 179000 $ 179000 100 00001000
BEGIN APPLY >>> ./ D 366000 366000 $ 00003000
END APPLY >>> ./ D 366000 366000 $ 00003000
BEGIN APPLY >>> ./ R 368000 368000 $ 368000 050 00004000
END APPLY >>> ./ R 368000 368000 $ 368000 050 00004000
BEGIN APPLY >>> ./ R 378000 379000 $ 378000 1000 00016000
END APPLY >>> ./ R 378000 379000 $ 378000 1000 00016000
BEGIN APPLY >>> ./ R 390000 390000 $ 390000 100 00019000
END APPLY >>> ./ R 390000 390000 $ 390000 100 00019000
BEGIN APPLY >>> ./ R 392000 392000 $ 392000 100 00021000
END APPLY >>> ./ R 392000 392000 $ 392000 100 00021000
BEGIN APPLY >>> ./ R 394000 396000 $ 394000 100 00023000
END APPLY >>> ./ R 394000 396000 $ 394000 100 00023000
BEGIN APPLY >>> ./ R 405000 406000 $ 405000 500 00025000
END APPLY >>> ./ R 405000 406000 $ 405000 500 00025000
BEGIN APPLY >>> ./ R 409000 409000 $ 409000 100 00029000
END APPLY >>> ./ R 409000 409000 $ 409000 100 00029000
BEGIN APPLY >>> ./ R 413000 414000 $ 413000 100 00031000
END APPLY >>> ./ R 413000 414000 $ 413000 100 00031000
BEGIN APPLY >>> ./ R 417000 418000 $ 417000 100 00038000
END APPLY >>> ./ R 417000 418000 $ 417000 100 00038000
BEGIN APPLY >>> ./ R 453000 453000 $ 453000 100 00045000
END APPLY >>> ./ R 453000 453000 $ 453000 100 00045000
BEGIN APPLY >>> ./ R 573000 573000 $ 573000 100 00047000
END APPLY >>> ./ R 573000 573000 $ 573000 100 00047000
BEGIN APPLY >>> ./ D 578000 578000 $ 00052000
END APPLY >>> ./ D 578000 578000 $ 00052000
BEGIN APPLY >>> ./ R 581000 581000 $ 581000 100 00053000
END APPLY >>> ./ R 581000 581000 $ 581000 100 00053000
BEGIN APPLY >>> ./ R 604000 605000 $ 604000 100 00055000
END APPLY >>> ./ R 604000 605000 $ 604000 100 00055000
BEGIN APPLY >>> ./ R 607000 608000 $ 607000 100 00068000
END APPLY >>> ./ R 607000 608000 $ 607000 100 00068000
BEGIN APPLY >>> ./ R 614000 616000 $ 614000 1000 00072000
END APPLY >>> ./ R 614000 616000 $ 614000 1000 00072000
BEGIN APPLY >>> ./ R 618000 618000 $ 618000 100 00074000
END APPLY >>> ./ R 618000 618000 $ 618000 100 00074000
BEGIN APPLY >>> ./ R 621000 622000 $ 621000 100 00077000
END APPLY >>> ./ R 621000 622000 $ 621000 100 00077000
BEGIN APPLY >>> ./ R 624000 624000 $ 624000 100 00080000
END APPLY >>> ./ R 624000 624000 $ 624000 100 00080000
BEGIN APPLY >>> ./ R 625000 625000 $ 625000 100 00082000
END APPLY >>> ./ R 625000 625000 $ 625000 100 00082000
BEGIN APPLY >>> ./ R 627000 627000 $ 627000 100 00084000
END APPLY >>> ./ R 627000 627000 $ 627000 100 00084000
BEGIN APPLY >>> ./ I 629000 $ 629100 100 00089000
END APPLY >>> ./ I 629000 $ 629100 100 00089000
BEGIN APPLY >>> ./ R 648000 648000 $ 647100 100 00092000
END APPLY >>> ./ R 648000 648000 $ 647100 100 00092000
BEGIN APPLY >>> ./ R 665000 665000 $ 665000 100 00110000
END APPLY >>> ./ R 665000 665000 $ 665000 100 00110000
BEGIN APPLY >>> ./ R 705000 705000 $ 705000 100 00112000
END APPLY >>> ./ R 705000 705000 $ 705000 100 00112000
BEGIN APPLY >>> ./ I 986000 $ 986100 100 00119000
END APPLY >>> ./ I 986000 $ 986100 100 00119000
BEGIN APPLY >>> ./ I 1357000 $ 1357100 100 00122000
END APPLY >>> ./ I 1357000 $ 1357100 100 00122000
BEGIN APPLY >>> ./ R 1417000 1417000 $ 1416200 200 00124000
END APPLY >>> ./ R 1417000 1417000 $ 1416200 200 00124000
BEGIN APPLY >>> ./ R 1482000 1484000 $ 1482200 200 00130000
END APPLY >>> ./ R 1482000 1484000 $ 1482200 200 00130000
Update Succeeded
Update Execution Time 156 milliseconds.
R11799DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R11799DK: ./ I 1404000 $ 1404100 100 00001000
R11799DK: * THE CALL TO DMKCKSPL HAS BEEN MOVED FROM ROUTINE SAVEFILE 00004000
R11799DK: * SO THAT SYSTEM HOLD AND USER HOLD STATUS SET HERE IN DMKRSP 00005000
R11799DK: * AS A RESULT OF SOME KIND OF ERROR IN PRINTING THESE FILES 00006000
R11799DK: * WILL BE CHECKPOINTED. NOTE: SAVEFILE ALWAYS COMES HERE. 00007000
R11799DK: CALL DMKCKSPL,PARM=CHGSFB CHECKPOINT @VA11799 00008000
R11799DK: ./ D 1494000 $
BEGIN APPLY >>> ./ I 1404000 $ 1404100 100 00001000
END APPLY >>> ./ I 1404000 $ 1404100 100 00001000
BEGIN APPLY >>> ./ D 1494000 $
END APPLY >>> ./ D 1494000 $
Update Succeeded
Update Execution Time 23 milliseconds.
R13267DK
Date Wednesday Jun 24, 1981 06:16:00 AM
Loaded from MAINT(294)
R13267DK: ./ I 1505000 $ 1505500 500 00001000
R13267DK: XC RDEVSPL,RDEVSPL CLEAR POOINTER TO RSPLCTL @VA13267 00002000
R13267DK: ./ R 1518000 1519000 $ 1518000 2000 00003000
R13267DK: SR R9,R9 CLEAR THE ACTIVE FILE PTR @VA13267 00004000
BEGIN APPLY >>> ./ I 1505000 $ 1505500 500 00001000
END APPLY >>> ./ I 1505000 $ 1505500 500 00001000
BEGIN APPLY >>> ./ R 1518000 1519000 $ 1518000 2000 00003000
END APPLY >>> ./ R 1518000 1519000 $ 1518000 2000 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:37:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R12900DK
Date Friday Aug 07, 1981 06:30:00 AM
Loaded from MAINT(294)
R12900DK: ./ I 934200 $ 934225 25
R12900DK: BM MSG428E SPOOL PAGING ERROR @VA12900
BEGIN APPLY >>> ./ I 934200 $ 934225 25
END APPLY >>> ./ I 934200 $ 934225 25
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:17:00 PM
Loaded from MAINT(094)
HRC106DK: ./ * Reassemble to pick up new RECBLOK
BEGIN APPLY >>> ./ * Reassemble to pick up new RECBLOK
Comment >>> ./ * Reassemble to pick up new RECBLOK
END APPLY >>> ./ * Reassemble to pick up new RECBLOK
Update Succeeded
Update Execution Time 16 milliseconds.