ibm:vm370-lib:cp:dmkvsq.assemble_hst
Table of Contents
DMKVSQ History
References
- Fixes Applied : 4
- Latest Source Date : Thursday, December 14, 1978
- Last Fix ID : [R13052DK]
Update History
CMS File Input : DMKVSQ ASSEMBLE
Date : 12/14/1978 8:56:00 AM
VM Context : MAINT(394)
File Name : DMKVSQ.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
- R09669DK 609 SKIP TO CHAN 1 ON 1403 DOES NOT WORK WHEN SPFILE CLASS =X
- R10556DK 610 ABENDPRG005 REG5 BAD FOR EXECUTE AT MOVEBUFF
- R11232DK 618 UV02264 ABENDPGT002 ABENDPGT003 CHAIN PROBLEMS WITH SPLINKS
- R13052DK 627 UV05903 VIRT.SPOOL FILE NOT BEING PURGED WITH ZERO REC CNT
R09669DK
Date Tuesday Jan 29, 1980 12:12:00 PM
Loaded from MAINT(294)
R09669DK: ./ I 139000 $ 139500 00001000
R09669DK: SR R6,R6 @VA09669 00003000
R09669DK: ./ I 172000 $ 172500 00004000
R09669DK: SR R6,R6 CLEAR REG6 @VA09669 00005000
R09669DK: ./ I 175000 $ 175500 00006000
R09669DK: SR R6,R6 CLEAR REG6 @VA09669 00007000
R09669DK: ./ I 335000 $ 335200 200 00008000
R09669DK: LTR R6,R6 IS IT TIME TO EXIT??? @VA09669 00009000
R09669DK: BZ EXIT YES, BRANCH @VA09669 00010000
R09669DK: BR R6 RETURN TO CLASS X BUFFER SETUP @VA09669 00011000
R09669DK: EXIT DS 0H @VA09669 00012000
BEGIN APPLY >>> ./ I 139000 $ 139500 00001000
END APPLY >>> ./ I 139000 $ 139500 00001000
BEGIN APPLY >>> ./ I 172000 $ 172500 00004000
END APPLY >>> ./ I 172000 $ 172500 00004000
BEGIN APPLY >>> ./ I 175000 $ 175500 00006000
END APPLY >>> ./ I 175000 $ 175500 00006000
BEGIN APPLY >>> ./ I 335000 $ 335200 200 00008000
END APPLY >>> ./ I 335000 $ 335200 200 00008000
Update Succeeded
Update Execution Time 8 milliseconds.
R10556DK
Date Thursday Mar 06, 1980 02:06:00 AM
Loaded from MAINT(294)
R10556DK: ./ I 172000 $ 172250 00001000
R10556DK: L R4,=A(DMKVSPWA) ADDR OF 3211 INDEX WORK AREA @VA10556 00002000
BEGIN APPLY >>> ./ I 172000 $ 172250 00001000
END APPLY >>> ./ I 172000 $ 172250 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11232DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R11232DK: ./ I 112000 $ 112100 100 00050000
R11232DK: EXTRN DMKPGTSD @VA11232 00050000
R11232DK: ./ I 220000 $ 220500 100 00050000
R11232DK: ST R0,SPRMISC SPRMISC = SFBSTART @VA11232 00051000
R11232DK: ./ D 225000 $ 00052000
R11232DK: ./ I 231000 $ 231100 50 00053000
R11232DK: L R1,SFBSTART START CCPD @VA11232 00054000
R11232DK: L R0,SPPREPAG ARE WE WRITING FIRST BUFFER @VA11232 00055000
R11232DK: LTR R0,R0 IF ZERO - YES @VA11232 00056000
R11232DK: BNZ STSTRT NO, USE SFBSTART @VA11232 00057000
R11232DK: C R1,VSPDPAGE ARE WE RE-WRITING FIRST BUFFER ? @VA11232 00058000
R11232DK: BE STSTRT NO, SFBSTART IS OK @VA11232 00059000
R11232DK: L R1,VSPDPAGE WE HAVE A NEW SFBSTART @VA11232 00060000
R11232DK: ST R1,SFBSTART UPDATE SFBSTART AND SFBLAST TO @VA11232
R11232DK: ST R1,SFBLAST NEW START CCPD @VA11232
R11232DK: STSTRT ST R1,SPRMISC SPRMISC CONTAINS START CCPD @VA11232 00061000
R11232DK: ST R0,SFBPNT SFBPNT PTS TO PREV. WHIL WRITE @VA11232
R11232DK: ./ R 238000 $ 238500 100 00062000
R11232DK: OI VSPFLAG1,VSPERR INDICATE BUFFER WRITE ERROR @VA11232 00063000
R11232DK: ./ I 247000 $ 247500 100 00064000
R11232DK: TM VSPFLAG1,VSPERR STILL IN ERROR RECOVERY ? @VA11232 00065000
R11232DK: BO *+8 DON'T UPD. SFBLAST UNTIL FINISHED@VA11232 00066000
R11232DK: ./ R 259000 $ 259100 100 00067000
R11232DK: TM VSPFLAG1,VSPERR STILL IN ERROR RECOVERY ? @VA11232 00068000
R11232DK: ./ R 279000 $ 279100 100 00069000
R11232DK: TM VSPFLAG1,VSPERR PAGE WRITE ERROR ? @VA11232 00070000
R11232DK: ./ R 281000 $ 281100 100 00071000
R11232DK: NI VSPFLAG1,X'FF'-VSPERR RESET ERROR INDICATOR @VA11232 00072000
R11232DK: ./ R 283000 285000 $ 282500
R11232DK: BZ UPSFBPNT UPDATE LAST AND SFBPNT @VA11232
R11232DK: ./ I 289000 $ 289100 100 00073000
R11232DK: LTR R1,R1 DID WE GET A VIRTUAL BUFFER ? @VA11232 00074000
R11232DK: BZ EMSG429A NO, PURGE THE FILE @VA11232 00075000
R11232DK: ST R1,VSPVPG2 SAVE ADDR. OF SEC. VIRTUAL BUFF. @VA11232 00076000
R11232DK: ./ R 290000 $ 290100 100 00077000
R11232DK: TRANS 2,1,OPT=(BRING,DEFER,LOCK,SYSTEM),IOER=EMSG429A @VA11232 00078000
R11232DK: ./ R 293000 $ 293100 100 00079000
R11232DK: BNZ EMSG429A BUFFER READ ERROR @VA11232 00080000
R11232DK: ./ I 294000 $ 294500
R11232DK: MVC SFBPNT,SPPREPAG MOVE PREVIOUS TO SFBPNT @VA11232
R11232DK: ./ R 296000 297000 $ 296100 100 00082000
R11232DK: BNZ EMSG429A BUFFER WRITE ERROR @VA11232 00083000
R11232DK: LR R2,R4 RESTORE SEC. PAGE BUFFER ADDRESS @VA11232 00084000
R11232DK: L R0,SPPREPAG UPD. SFBPNT TO PREV. GOOD WRITE @VA11232 00085000
R11232DK: ST R0,SFBPNT TO POINT TO NEW BUFFER JUST @VA11232 00088000
R11232DK: ST R0,SFBLAST WRITTEN...... @VA11232 00089000
R11232DK: SLR R0,R0 RELEASE STORAGE PAGE @VA11232 00090000
R11232DK: ./ I 299000 $ 299100 100 00091000
R11232DK: ST R0,VSPVPG2 CLEAR PTR TO SECOND VIRTUAL BUFF @VA11232 00092000
R11232DK: ./ I 301000 $ 301100 100 00093000
R11232DK: B CONACT CHECK IF CONSOLE FILE @VA11232 00094000
R11232DK: ./ R 318000 320000 $ 318500 100 00097000
R11232DK: CONSWRT MVC SPNXTPAG(4),SFBSTART CHAIN THIS BUFFER TO START @VA11232 00098000
R11232DK: MVC SFBPNT,SPPREPAG SFBPNT POINTS TO PREV. @VA11232
R11232DK: MVC SPRMISC,SFBSTART SPRMISC CONTAINS START CCPD @VA11232 00099000
R11232DK: ./ R 361000 $ 361100 100 00043000
R11232DK: L R1,VSPVPG2 SECOND VIRTUAL BUFFER ADDRESS @VA11232 00044000
R11232DK: LTR R1,R1 IS THERE ONE ? @VA11232 00045000
R11232DK: BZ NOBUFF2 NO, NOTHING TO RELEASE @VA11232 00046000
R11232DK: CALL DMKRPAGT,PARM=SYSTEM RELEASE CORE PAGE @VA11232 00047000
R11232DK: CALL DMKPGTVR AND RELEASE VIRTUAL BUFFER @VA11232 00048000
R11232DK: NOBUFF2 AL R8,VMDVSTRT RE-ESTABLISH VDEVBLOK ADDRESS @VA11232 00049000
R11232DK: ./ I 381000 $ 381100 50 00111000
R11232DK: EMSG429A EQU * @VA11232 00112000
R11232DK: XC VSPCCW(8),VSPCCW CREATE DUMMY SWAPTABLE ENTRY @VA11232 00113000
R11232DK: LR R2,R4 RESTORE BUFFER ADDRESS @VA11232 00114000
R11232DK: L R4,SPPREPAG GET FIRST CCPD TO DEALLOCATE @VA11232 00115000
R11232DK: ST R4,VSPCCW+4 SAVE IN DUMMY SWAPTABLE ENTRY @VA11232 00116000
R11232DK: LA R5,VSPCCW R5 POINTS TO DUMMY SWAPTABLE @VA11232 00117000
R11232DK: CALL DMKPGTSD DEALLOCATE PAGE @VA11232 00118000
R11232DK: XC VSPCCW(8),VSPCCW CREATE DUMMY SWAPTABLE ENTRY @VA11232 00120000
R11232DK: L R4,VSPDPAGE SECOND CCPD TO DEALLOCATE @VA11232 00123000
R11232DK: ST R4,VSPCCW+4 SAVE IN DUMMY SWAPTABLE ENTRY @VA11232 00124000
R11232DK: CALL DMKPGTSD DEALLOCATE PAGE @VA11232 00125000
BEGIN APPLY >>> ./ I 112000 $ 112100 100 00050000
END APPLY >>> ./ I 112000 $ 112100 100 00050000
BEGIN APPLY >>> ./ I 220000 $ 220500 100 00050000
END APPLY >>> ./ I 220000 $ 220500 100 00050000
BEGIN APPLY >>> ./ D 225000 $ 00052000
END APPLY >>> ./ D 225000 $ 00052000
BEGIN APPLY >>> ./ I 231000 $ 231100 50 00053000
END APPLY >>> ./ I 231000 $ 231100 50 00053000
BEGIN APPLY >>> ./ R 238000 $ 238500 100 00062000
END APPLY >>> ./ R 238000 $ 238500 100 00062000
BEGIN APPLY >>> ./ I 247000 $ 247500 100 00064000
END APPLY >>> ./ I 247000 $ 247500 100 00064000
BEGIN APPLY >>> ./ R 259000 $ 259100 100 00067000
END APPLY >>> ./ R 259000 $ 259100 100 00067000
BEGIN APPLY >>> ./ R 279000 $ 279100 100 00069000
END APPLY >>> ./ R 279000 $ 279100 100 00069000
BEGIN APPLY >>> ./ R 281000 $ 281100 100 00071000
END APPLY >>> ./ R 281000 $ 281100 100 00071000
BEGIN APPLY >>> ./ R 283000 285000 $ 282500
END APPLY >>> ./ R 283000 285000 $ 282500
BEGIN APPLY >>> ./ I 289000 $ 289100 100 00073000
END APPLY >>> ./ I 289000 $ 289100 100 00073000
BEGIN APPLY >>> ./ R 290000 $ 290100 100 00077000
END APPLY >>> ./ R 290000 $ 290100 100 00077000
BEGIN APPLY >>> ./ R 293000 $ 293100 100 00079000
END APPLY >>> ./ R 293000 $ 293100 100 00079000
BEGIN APPLY >>> ./ I 294000 $ 294500
END APPLY >>> ./ I 294000 $ 294500
BEGIN APPLY >>> ./ R 296000 297000 $ 296100 100 00082000
END APPLY >>> ./ R 296000 297000 $ 296100 100 00082000
BEGIN APPLY >>> ./ I 299000 $ 299100 100 00091000
END APPLY >>> ./ I 299000 $ 299100 100 00091000
BEGIN APPLY >>> ./ I 301000 $ 301100 100 00093000
END APPLY >>> ./ I 301000 $ 301100 100 00093000
BEGIN APPLY >>> ./ R 318000 320000 $ 318500 100 00097000
END APPLY >>> ./ R 318000 320000 $ 318500 100 00097000
BEGIN APPLY >>> ./ R 361000 $ 361100 100 00043000
END APPLY >>> ./ R 361000 $ 361100 100 00043000
BEGIN APPLY >>> ./ I 381000 $ 381100 50 00111000
END APPLY >>> ./ I 381000 $ 381100 50 00111000
Update Succeeded
Update Execution Time 16 milliseconds.
R13052DK
Date Friday Jan 15, 1982 04:27:00 PM
Loaded from MAINT(294)
R13052DK: ./ D 272000 $ 00001000
R13052DK: ./ I 274000 $ 274500 100 00002000
R13052DK: OI SFBFLAG2,SFBFLNMT INDICATE FILE NOT EMPTY @VA13052 00003000
BEGIN APPLY >>> ./ D 272000 $ 00001000
END APPLY >>> ./ D 272000 $ 00001000
BEGIN APPLY >>> ./ I 274000 $ 274500 100 00002000
END APPLY >>> ./ I 274000 $ 274500 100 00002000
Update Succeeded
Update Execution Time 8 milliseconds.
ibm/vm370-lib/cp/dmkvsq.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator