DMKDRD History
References
-
-
Fixes Applied : 10
-
Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKDRD ASSEMBLE
Date : 12/7/1978 5:03:00 PM
VM Context : MAINT(394)
File Name : DMKDRD.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R10076DK 604 CP DUMP SERVICES SUPPORT
R09560DK 608 DMKDRD DOES NOT CHECK IF RY IS REGISTER FOR DIAGNOSE CODE 34
R08925DK 610 DIAGNOSE14,SUBCODE0,CC3,ERROR CODE14,PAGE LOCKED,V=R USER
R09119DK 610 CODED ADDED TO KEEP FROM LOSING SFBLOKS
R11232DK 618 UV02264 ABENDPGT002 ABENDPGT003 CHAIN PROBLEMS WITH SPLINKS
R12226DK 618 UV02890 RSCS GETTING 0C5, CP PASSING NULL BUFFER
R12474DK 623 UV04177 LOSE STORAGE WHEN DIAG14 AFTER SINGLE-RECORD READ.
R14052DK 624 UV05361 POSSIBLE LOST FILES AFTER VM09119
R14190DK 625 UV05750 MIXUP BECAUSE DIAG14, DIAG34 USE SAME OPEN ROUTINE
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R10076DK
Date Monday Jul 02, 1979 11:07:00 AM
Loaded from MAINT(294)
R10076DK: ./ R 00403000 $ 403000 10 04/12/79 08:04:00
R10076DK: BNO CHKMON IF NOT DUMP CONTINUE @V67CAH7 00402100
R10076DK: CLI SFBMISC1+1,C'V' 'VMDUMP' IS ACCEPTABLE @V67CAH7 00402200
R10076DK: BNE BEGINB NOPE, IT'S CP DUMP. GETNEXT @V67CAH7 00402300
R10076DK: CHKMON DS 0H @V67CAH7 00402400
R10076DK: ./ I 00860000 $ 860300 300 04/12/79 08:04:00
R10076DK: CLI SFBMISC1+1,C'V' * IS THIS A VMDUMP? @V67CAH7 00860100
R10076DK: BE BEGINB * YES...DON'T ALLOW DIAG X34 @V67CAH7 00860200
BEGIN APPLY >>> ./ R 00403000 $ 403000 10 04/12/79 08:04:00
END APPLY >>> ./ R 00403000 $ 403000 10 04/12/79 08:04:00
BEGIN APPLY >>> ./ I 00860000 $ 860300 300 04/12/79 08:04:00
END APPLY >>> ./ I 00860000 $ 860300 300 04/12/79 08:04:00
Update Succeeded
Update Execution Time 16 milliseconds.
R09560DK
Date Tuesday Jan 15, 1980 06:22:00 AM
Loaded from MAINT(294)
R09560DK: ./ I 841000 $ 841100 100 00002000
R09560DK: LA R1,VMGPRS+(4*15) GET ADDRESS OF R15 @VA09560 00003000
R09560DK: CR R1,R6 IS RY = R15 @VA09560 00004000
R09560DK: BE DRDSPEC SORRY NOT ALLOWED @VA09560 00005000
BEGIN APPLY >>> ./ I 841000 $ 841100 100 00002000
END APPLY >>> ./ I 841000 $ 841100 100 00002000
Update Succeeded
Update Execution Time 8 milliseconds.
R08925DK
Date Friday Mar 14, 1980 03:14:00 AM
Loaded from MAINT(294)
R08925DK: ./ I 294500 $ 294750 00002000
R08925DK: SETCC3 DS 0H @VA08925 00003000
R08925DK: ./ I 873000 $ 873100 00004000
R08925DK: BC 4,DRDLOCK PAGE LOCKED FOR I/O @VA08925 00005000
R08925DK: ./ R 1072000 $ 1072500 00006000
R08925DK: * SPECIFICATION EXCEPTION IS GENERATED IF THE ADDRESS IS 00007000
R08925DK: ./ R 1077000 $ 1077300 300 00008000
R08925DK: * THAT NO SYMBOL TABLE IS AVAILABLE. IF THE PAGE BUFFER IS 00009000
R08925DK: * LOCKED FOR AN I/O OPERATION, CC=3 IS SET. OTHERWISE, THE FULL 00010000
R08925DK: ./ I 1111000 $ 1111500 00011000
R08925DK: BC 4,SETCC3 PAGE LOCKED FOR I/O @VA08925 00012000
BEGIN APPLY >>> ./ I 294500 $ 294750 00002000
END APPLY >>> ./ I 294500 $ 294750 00002000
BEGIN APPLY >>> ./ I 873000 $ 873100 00004000
END APPLY >>> ./ I 873000 $ 873100 00004000
BEGIN APPLY >>> ./ R 1072000 $ 1072500 00006000
END APPLY >>> ./ R 1072000 $ 1072500 00006000
BEGIN APPLY >>> ./ R 1077000 $ 1077300 300 00008000
END APPLY >>> ./ R 1077000 $ 1077300 300 00008000
BEGIN APPLY >>> ./ I 1111000 $ 1111500 00011000
END APPLY >>> ./ I 1111000 $ 1111500 00011000
Update Succeeded
Update Execution Time 16 milliseconds.
R09119DK
Date Friday Mar 14, 1980 10:25:00 AM
Loaded from MAINT(294)
R09119DK: ./ I 635000 $ 635100 100 00001000
R09119DK: MVC SAVEWRK7(1),SFBFLAG SAVE FLAG BYTE IF ON @VA09119 00002000
R09119DK: OI SFBFLAG,SFBINUSE MARK SPOOL FILE BLOK IN USE @VA09119 00003000
R09119DK: ./ R 645000 $ 645100 100 00004000
R09119DK: BNZ SVCIOERR QUIT IF I/O ERROR @VA09119 00005000
R09119DK: ./ I 649000 $ 649100 100 00006000
R09119DK: MVC SFBFLAG,SAVEWRK7 RESTORE FLAG IF ORIG.ON @VA09119 00008000
R09119DK: ./ I 688000 $ 688100 100 00009000
R09119DK: SVCIOERR EQU * @VA09119 00010000
R09119DK: MVC SFBFLAG,SAVEWRK7 RESTORE FLAG IF ORIG. ON @VA09119 00012000
BEGIN APPLY >>> ./ I 635000 $ 635100 100 00001000
END APPLY >>> ./ I 635000 $ 635100 100 00001000
BEGIN APPLY >>> ./ R 645000 $ 645100 100 00004000
END APPLY >>> ./ R 645000 $ 645100 100 00004000
BEGIN APPLY >>> ./ I 649000 $ 649100 100 00006000
END APPLY >>> ./ I 649000 $ 649100 100 00006000
BEGIN APPLY >>> ./ I 688000 $ 688100 100 00009000
END APPLY >>> ./ I 688000 $ 688100 100 00009000
Update Succeeded
Update Execution Time 23 milliseconds.
R11232DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R11232DK: ./ R 447000 447000 $ 447000 100 00001000
R11232DK: OI SFBFLAG,SFBINUSE+SFBOPEN INDICATE INUSE AND OPEN@VA11232 00002000
R11232DK: ./ R 534000 534000 $ 534000 100 00003000
R11232DK: NI SFBFLAG,X'FF'-(SFBEOF+SFBINUSE) RESET FLAGS @VA11232 00004000
BEGIN APPLY >>> ./ R 447000 447000 $ 447000 100 00001000
END APPLY >>> ./ R 447000 447000 $ 447000 100 00001000
BEGIN APPLY >>> ./ R 534000 534000 $ 534000 100 00003000
END APPLY >>> ./ R 534000 534000 $ 534000 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R12226DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R12226DK: ./ I 495000 $ 495300 300 00001000
R12226DK: ICM R4,B'1111',SPRECNUM GET THE RECORD COUNT @VA12226 00002000
R12226DK: BZ EXAMA IF ZERO GIVE EOF @VA12226 00003000
R12226DK: ./ I 501000 $ 501500 00004000
R12226DK: EXAMA OI SFBFLAG,SFBEOF SET EOF INDICATOR @VA12226 00005000
BEGIN APPLY >>> ./ I 495000 $ 495300 300 00001000
END APPLY >>> ./ I 495000 $ 495300 300 00001000
BEGIN APPLY >>> ./ I 501000 $ 501500 00004000
END APPLY >>> ./ I 501000 $ 501500 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R12474DK
Date Friday Aug 14, 1981 08:07:00 AM
Loaded from MAINT(294)
R12474DK: ./ I 00161000 $ 00161200 50 00001000
R12474DK: * IF A SPOOL FILE IS ALREADY ATTACHED TO THE SPECIFIED @VA12474 00002000
R12474DK: * VIRTUAL READER, CC = 3, RC = 12 IS SET. @VA12474 00003000
R12474DK: ./ I 00414000 $ 00414200 100 00014000
R12474DK: L R0,VSPSFBLK IS THERE A SFBLOK ATTACHED @VA12474 00015000
R12474DK: LTR R0,R0 TO THE VSPLCTL? @VA12474 00016000
R12474DK: BNZ DRDBUSY YES - RETURN BUSY CONDITION @VA12474 00017000
R12474DK: ./ R 00447000 00448000 $ 00447000 1000
R12474DK: BAL R6,GETVSPL GET VSPLCTL BLOCK IF NEEDED @VA12474
R12474DK: OI SFBFLAG,SFBINUSE+SFBOPEN INDICATE INUSE AND OPEN@VA12474
BEGIN APPLY >>> ./ I 00161000 $ 00161200 50 00001000
END APPLY >>> ./ I 00161000 $ 00161200 50 00001000
BEGIN APPLY >>> ./ I 00414000 $ 00414200 100 00014000
END APPLY >>> ./ I 00414000 $ 00414200 100 00014000
BEGIN APPLY >>> ./ R 00447000 00448000 $ 00447000 1000
END APPLY >>> ./ R 00447000 00448000 $ 00447000 1000
Update Succeeded
Update Execution Time 16 milliseconds.
R14052DK
Date Tuesday Sep 15, 1981 01:14:00 PM
Loaded from MAINT(294)
R14052DK: ./ I 00226000 $ 00226010 10
R14052DK: SPACE
R14052DK: * WARNING: SINCE THIS SUBCODE DOES NOT CONSIDER THE STATE@VA14052
R14052DK: * OF THE "INUSE" FLAG, IT IS POSSIBLE FOR THE @VA14052
R14052DK: * FILE FOUND TO BE CHANGED, PURGED, ETC BEFORE DMKDRD @VA14052
R14052DK: * FINISHES PROCESSING AND RETURNS THE ABOVE DATA IN A @VA14052
R14052DK: * BUFFER. AS A RESULT, THE CONTENTS OF THE BUFFER MAY @VA14052
R14052DK: * NOT BE VALID DATA; THE FILE MAY HAVE BEEN CHANGED OR @VA14052
R14052DK: * DELETED.
R14052DK: ./ D 00635100 00635200 $
R14052DK: ./ R 00645100 $ 00645110 10
R14052DK: BNZ SUCIOER QUIT IF I/O ERROR @V293598
R14052DK: ./ D 00649100 $
R14052DK: ./ D 00688100 00688200 $
BEGIN APPLY >>> ./ I 00226000 $ 00226010 10
END APPLY >>> ./ I 00226000 $ 00226010 10
BEGIN APPLY >>> ./ D 00635100 00635200 $
END APPLY >>> ./ D 00635100 00635200 $
BEGIN APPLY >>> ./ R 00645100 $ 00645110 10
END APPLY >>> ./ R 00645100 $ 00645110 10
BEGIN APPLY >>> ./ D 00649100 $
END APPLY >>> ./ D 00649100 $
BEGIN APPLY >>> ./ D 00688100 00688200 $
END APPLY >>> ./ D 00688100 00688200 $
Update Succeeded
Update Execution Time 16 milliseconds.
R14190DK
Date Tuesday Nov 10, 1981 04:02:00 PM
Loaded from MAINT(294)
R14190DK: ./ I 00480000 $ 00480010 20 00000100
R14190DK: CKACTIVE DS 0H SEE IF THE ACTIVE FILE IS THE RIGHT TYPE @VA14190 00000200
R14190DK: TM SFBFLAG,SFBDUMP IS IT A DUMP? @VA14190 00000300
R14190DK: BNO MONCK NO - CHECK FOR MONITOR FILE @VA14190 00000400
R14190DK: CLI SFBMISC1+1,C'V' YES - IS IT A VMDUMP? @VA14190 00000500
R14190DK: BNE DRDBUSY CP DUMP - WE CAN'T HANDLE IT @VA14190 00000600
R14190DK: MONCK TM SFBFLAG2,SFBMON IS THIS A MONITOR FILE? @VA14190 00000700
R14190DK: BNO NOTMON NO - CHECK FOR SUBCODE '000' @VA14190 00000800
R14190DK: CLI SAVEWRK6+1,X'00' YES - IS IT SUBCODE '020'? @VA14190 00000900
R14190DK: BE DRDBUSY WRONG SUBCODE FOR MONITOR FILE @VA14190 00001000
R14190DK: B FILEOK MON. FILE, SUBCODE '020 IS OK @VA14190 00001100
R14190DK: NOTMON CLI SAVEWRK6+1,X'00' IS IT SUBCODE '000'? @VA14190 00001200
R14190DK: BNE DRDBUSY NO - MUST HAVE MONITOR FILE @VA14190 00001300
R14190DK: FILEOK EQU * ACTIVE FILE MATCHES THE SUBCODE 00001400
R14190DK: * ISSUED @VA14190 00001500
R14190DK: ./ I 00861000 $ 00861010 100 00001600
R14190DK: B DMPAGET1 NO NEED TO CHECK FILE AGAIN @VA14190 00001700
R14190DK: ./ R 00862000 $ 00862010 20 00001800
R14190DK: DMPAGET DS 0H SEE IF ACTIVE FILE IS CP DUMP @VA14190 00001900
R14190DK: TM SFBFLAG,SFBDUMP IS IT A DUMP? @VA14190 00002000
R14190DK: BZ DRDBUSY NO - DIAG34 CAN'T READ IT @VA14190 00002100
R14190DK: CLI SFBMISC1+1,C'V' IS IT A VMDUMP? @VA14190 00002200
R14190DK: BE DRDBUSY YES - NOT RIGHT FOR DIAG34 @VA14190 00002300
R14190DK: DMPAGET1 EQU * GIVE ONE PAGE OF DATA TO USER @VA14190 00002400
BEGIN APPLY >>> ./ I 00480000 $ 00480010 20 00000100
END APPLY >>> ./ I 00480000 $ 00480010 20 00000100
BEGIN APPLY >>> ./ I 00861000 $ 00861010 100 00001600
END APPLY >>> ./ I 00861000 $ 00861010 100 00001600
BEGIN APPLY >>> ./ R 00862000 $ 00862010 20 00001800
END APPLY >>> ./ R 00862000 $ 00862010 20 00001800
Update Succeeded
Update Execution Time 16 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:16:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00901000 $ 00901100 100
HRC106DK: LA R3,1(,R3) Jump to 3375 entry HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 3375 DASD device ? HRC106DK
HRC106DK: BE FNDTYPE Yes - 96 pages/cylinder HRC106DK
HRC106DK: LA R3,1(,R3) Jump to 3380 entry HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 3380 DASD device ? HRC106DK
HRC106DK: BE FNDTYPE Yes - 150 pages/cylinder HRC106DK
BEGIN APPLY >>> ./ I 00901000 $ 00901100 100
END APPLY >>> ./ I 00901000 $ 00901100 100
Update Succeeded
Update Execution Time 16 milliseconds.