ibm:vm370-lib:cp:dmkdrd.assemble_hst
Table of Contents
DMKDRD History
References
- Fixes Applied : 10
- Latest Source Date : Thursday, December 7, 1978
- 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.
ibm/vm370-lib/cp/dmkdrd.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator