DMKDEF History
References
-
-
Fixes Applied : 14
-
Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKDEF ASSEMBLE
Date : 12/13/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKDEF.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R08560DK 602 SHARE BIT INCORRECTLY SET IN VCUBLOK FOR CONSOLES
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09651DK 610 ABENDPRG005 ISSUING DET CHANNEL WITH 256 DEVICES
R10849DK 611 UV00387 VCUTYPE NOT UPDATED ON REDEFINE
R11150DK 613 UV00731 ABENDVIO002 REDEFINING WITH I/O OUTSTANDING
R11122DK 613 UV00942 ELIMINATE RANGE TABLE PROCESSING FOR SINGLE ADDR
R12263DK 618 UV03058 REDEFINE OF VIRT UR OUTPUT DEV DOES NOT FRET VSPXBK
R12606DK 619 UV03759 REDEFINING VIRTUAL D/T3800, MSDMKDEF136E
R13361DK 620 UV04197 SPLIT DMKDEF INTO DMKDEF AND DMKDEH FOR R060 ONLY
R12868DK 620 UV04198 MSDMKDEF026 DEF 3330V S OR V RETURNS INV OPERAND.
R12273DK 622 UV04665 ABENDPRG001 IN DMKDEF AT DISP X'800' AFTER VM09651
R13632DK 623 UV05054 ALLOW OMISSION OF LEADING ZEROES IN VADDR
R13217DK 628 UV06065 AFTER VM09651 MSDMKDEF040E AND MSDMKLNK022E MISLEAD
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R08560DK
Date Monday Apr 02, 1979 03:30:00 AM
Loaded from MAINT(294)
R08560DK: ./ I 65000 $ 65100 100 00001000
R08560DK: * | | <3033> | 00002000
R08560DK: * | | <3036> | 00003000
R08560DK: ./ D 356000 359000 $ 00004000
R08560DK: ./ D 389000 389000 $ 00005000
R08560DK: ./ R 390000 $ 390000 100 00006000
R08560DK: CLC 0(4,R1),=CL4'3270' IS IT A 3270 @VA08560 00007000
R08560DK: ./ R 392000 $ 392100 00008000
R08560DK: CLC 0(4,R1),=CL4'3138' IS IT A 3138 CONSOLE @VA08560 00009000
R08560DK: ./ R 394000 $ 394000 100 00010000
R08560DK: CLC 0(4,R1),=CL4'3148' IS IT A 3148 CONSOLE @VA08560 00011000
R08560DK: ./ R 396000 $ 396000 100 00012000
R08560DK: CLC 0(4,R1),=CL4'3158' IS IT A 3158 CONSOLE @VA08560 00013000
R08560DK: ./ R 397000 $ 397100 100 00014000
R08560DK: BE IND3158 YES,INDICATE CONSOLE @VA08560 00015000
R08560DK: CLC 0(4,R1),=CL4'3036' IS IT A 3036 CONSOLE @VA08560 00016000
R08560DK: BE IND3158 YES,INDICATE CONSOLE @VA08560 00017000
R08560DK: CLC 0(4,R1),=CL4'3066' IS IT A 3066 CONSOLE @VA08560 00018000
R08560DK: BE IND3158 YES,INDICATE CONSOLE @VA08560 00019000
BEGIN APPLY >>> ./ I 65000 $ 65100 100 00001000
END APPLY >>> ./ I 65000 $ 65100 100 00001000
BEGIN APPLY >>> ./ D 356000 359000 $ 00004000
END APPLY >>> ./ D 356000 359000 $ 00004000
BEGIN APPLY >>> ./ D 389000 389000 $ 00005000
END APPLY >>> ./ D 389000 389000 $ 00005000
BEGIN APPLY >>> ./ R 390000 $ 390000 100 00006000
END APPLY >>> ./ R 390000 $ 390000 100 00006000
BEGIN APPLY >>> ./ R 392000 $ 392100 00008000
END APPLY >>> ./ R 392000 $ 392100 00008000
BEGIN APPLY >>> ./ R 394000 $ 394000 100 00010000
END APPLY >>> ./ R 394000 $ 394000 100 00010000
BEGIN APPLY >>> ./ R 396000 $ 396000 100 00012000
END APPLY >>> ./ R 396000 $ 396000 100 00012000
BEGIN APPLY >>> ./ R 397000 $ 397100 100 00014000
END APPLY >>> ./ R 397000 $ 397100 100 00014000
Update Succeeded
Update Execution Time 31 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:51: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 8 milliseconds.
R09651DK
Date Wednesday Mar 12, 1980 01:24:00 AM
Loaded from MAINT(294)
R09651DK: ./ I 464000 $ 464100 100 00001000
R09651DK: CLI 3(R2),X'50' X'7FFF' LIMIT FROM VDS? @VA09651 00002000
R09651DK: BE INVFADD YES @VA09651 00003000
R09651DK: ./ I 559000 $ 559030 30 00004000
R09651DK: CLI 3(R2),X'50' X'7FFF' LIMIT FROM VDS? @VA09651 00005000
R09651DK: BE INVFADD YES @VA09651 00006000
BEGIN APPLY >>> ./ I 464000 $ 464100 100 00001000
END APPLY >>> ./ I 464000 $ 464100 100 00001000
BEGIN APPLY >>> ./ I 559000 $ 559030 30 00004000
END APPLY >>> ./ I 559000 $ 559030 30 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R10849DK
Date Monday Apr 07, 1980 02:28:00 AM
Loaded from MAINT(294)
R10849DK: ./ R 556000 $ 556100 100 00001000
R10849DK: MVC UDEVTYPC(2),VDEVTYPC MAKE NEW ONE LOOK LIKE OLD @VA10849 00002000
BEGIN APPLY >>> ./ R 556000 $ 556100 100 00001000
END APPLY >>> ./ R 556000 $ 556100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11150DK
Date Thursday Jun 05, 1980 04:01:00 AM
Loaded from MAINT(294)
R11150DK: ./ I 513000 $ 513100 100 00001000
R11150DK: ST R1,CKSAVE SAVE ACROSS TEST FOR VDEVIOB @VA11150 00002000
R11150DK: L R1,VDEVIOB @VA11150 00003000
R11150DK: LTR R1,R1 ACTIVE I/O? @VA11150 00004000
R11150DK: BZ AROUNDER NO! @VA11150 00005000
R11150DK: B DEDCHAN BR TO ERRMSG @VA11150 00006000
R11150DK: CKSAVE DS F @VA11150 00007000
R11150DK: AROUNDER L R1,CKSAVE RESTORE R1 AND CONTINUE @VA11150 00008000
BEGIN APPLY >>> ./ I 513000 $ 513100 100 00001000
END APPLY >>> ./ I 513000 $ 513100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11122DK
Date Thursday Jun 05, 1980 04:21:00 AM
Loaded from MAINT(294)
R11122DK: ./ R 1204000 $ 1204010 10 00001000
R11122DK: TABLADD DS 0H @VA11122 00002000
R11122DK: CLC FIRSTADR,LASTADDR RANGE SPECIFIED ? @VA11122 00003000
R11122DK: BER R5 YES RETURN - NO TABLE @VA11122 00004000
BEGIN APPLY >>> ./ R 1204000 $ 1204010 10 00001000
END APPLY >>> ./ R 1204000 $ 1204010 10 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R12263DK
Date Friday Jan 09, 1981 11:24:00 AM
Loaded from MAINT(294)
R12263DK: ./ I 556100 $ 556200 00001000
R12263DK: OI UDEVSTAT,UDEVRDEF VSPXBLOK POINTER @VA12263 00002000
BEGIN APPLY >>> ./ I 556100 $ 556200 00001000
END APPLY >>> ./ I 556100 $ 556200 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12606DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12606DK: ./ R 513100 513700 $ 513150 100 00001000
R12606DK: TM VDEVSTAT,VDEVDED+VDEVCATT DEDICATED OR ATTACHED?@VA12606 00002000
R12606DK: BZ NODEDATT NO CHECK FOR ACTIVE ACTIVE I/O @VA12606 00003000
R12606DK: OC VDEVIOB,VDEVIOB ACTIVE I/O? @VA12606 00004000
R12606DK: BNZ DEDCHAN YES @VA12606 00005000
R12606DK: NODEDATT DS 0H @VA12606 00006000
BEGIN APPLY >>> ./ R 513100 513700 $ 513150 100 00001000
END APPLY >>> ./ R 513100 513700 $ 513150 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13361DK
Date Wednesday Apr 08, 1981 04:07:00 AM
Loaded from MAINT(294)
R13361DK: ./ I 33000 $ 33300 300 00001000
R13361DK: EXTRN DMKDEHIN @VA13361 00002000
R13361DK: ./ R 146000 $ 146000 200 00003000
R13361DK: * THIS MODULE WAS SPLIT FOR REL 060. CODE FOR DEFINE STORAGE 00004000
R13361DK: * AND DEFINE CHANNEL WAS MOVED TO DMKDEH. DESCRIPTIONS OF 00005000
R13361DK: * THOSE FUNCTIONS REMAIN HERE ALSO WITH AN ANNOTATION THAT 00006000
R13361DK: * THE CODE EXISTS IN DMKDEH. 00007000
R13361DK: ./ R 217000 $ 217000 300 00008000
R13361DK: * 5. FOR DEFINE STORAGE AND DEFINE CHANNEL, A CALL IS MADE TO 00009000
R13361DK: * DMKDEHIN. THAT MODULE WILL: 00010000
R13361DK: * A. FOR DEFINE STORAGE, AFTER THE USUAL CHECKS FOR COMMAND 00011000
R13361DK: ./ I 225000 $ 225300 300 00012000
R13361DK: * 00013000
R13361DK: * B. FOR DEFINE CHANNELS, AFTER THE VALIDATION OF THE COMMAND, 00014000
R13361DK: ./ R 237000 238000 $ 237000 600 00015000
R13361DK: * ++ 'STORAGE = NNNNNK' 00016000
R13361DK: * ++ 'CHANNELS = XXX' 00017000
R13361DK: ./ I 241000 $ 241300 300 00018000
R13361DK: * - ++ INDICATES THAT RESPONSE IS FROM DMKDEHIN 00019000
R13361DK: * 00020000
R13361DK: ./ R 247000 248000 $ 247000 1000 00021000
R13361DK: * ++ DMKDEF025E STORAGE MISSING OR INVALID 00022000
R13361DK: ./ R 251000 $ 251000 1000 00023000
R13361DK: * DMKDEF091E TYPE VADDR NOT DEFINED; TEMP SPACE NOT AVAILABLE 00024000
R13361DK: ./ R 253000 $ 253000 1000 00025000
R13361DK: * ++ DMKDEF094E STORAGE EXCEEDS ALLOWED MAXIMUM 00026000
R13361DK: ./ I 255000 $ 255300 300 00027000
R13361DK: * 00028000
R13361DK: * ++ - INDICATES THAT MESSAGE COME FROM DMKDEH (WITH DEH PREFIX) 00029000
R13361DK: ./ R 678000 767000 $ 678000 20000 00030000
R13361DK: * CALL DMKDEHIN WITH R0= LENGTH OF ARGUMENT, R1= ADDDRESS OF 00031000
R13361DK: * ARGUMENT, R10= DUMMY UDEVBLOK ADDRESS. 00032000
R13361DK: CALL DMKDEHIN @VA13361 00033000
R13361DK: B DEFEXIT CLEAN UP AND BEAT IT @VA13361 00034000
R13361DK: ./ R 769000 818000 $ 769000 8000 00035000
R13361DK: DEFCHAN EQU * @VA13361 00036000
R13361DK: * CALL DMKDEHIN WITH R0= LENGTH OF ARGUMENT, R1= ADDDRESS OF 00037000
R13361DK: * ARGUMENT, R10= DUMMY UDEVBLOK ADDRESS. 00038000
R13361DK: SPACE 00039000
R13361DK: CALL DMKDEHIN @VA13361 00040000
R13361DK: SPACE 00041000
BEGIN APPLY >>> ./ I 33000 $ 33300 300 00001000
END APPLY >>> ./ I 33000 $ 33300 300 00001000
BEGIN APPLY >>> ./ R 146000 $ 146000 200 00003000
END APPLY >>> ./ R 146000 $ 146000 200 00003000
BEGIN APPLY >>> ./ R 217000 $ 217000 300 00008000
END APPLY >>> ./ R 217000 $ 217000 300 00008000
BEGIN APPLY >>> ./ I 225000 $ 225300 300 00012000
END APPLY >>> ./ I 225000 $ 225300 300 00012000
BEGIN APPLY >>> ./ R 237000 238000 $ 237000 600 00015000
END APPLY >>> ./ R 237000 238000 $ 237000 600 00015000
BEGIN APPLY >>> ./ I 241000 $ 241300 300 00018000
END APPLY >>> ./ I 241000 $ 241300 300 00018000
BEGIN APPLY >>> ./ R 247000 248000 $ 247000 1000 00021000
END APPLY >>> ./ R 247000 248000 $ 247000 1000 00021000
BEGIN APPLY >>> ./ R 251000 $ 251000 1000 00023000
END APPLY >>> ./ R 251000 $ 251000 1000 00023000
BEGIN APPLY >>> ./ R 253000 $ 253000 1000 00025000
END APPLY >>> ./ R 253000 $ 253000 1000 00025000
BEGIN APPLY >>> ./ I 255000 $ 255300 300 00027000
END APPLY >>> ./ I 255000 $ 255300 300 00027000
BEGIN APPLY >>> ./ R 678000 767000 $ 678000 20000 00030000
END APPLY >>> ./ R 678000 767000 $ 678000 20000 00030000
BEGIN APPLY >>> ./ R 769000 818000 $ 769000 8000 00035000
END APPLY >>> ./ R 769000 818000 $ 769000 8000 00035000
Update Succeeded
Update Execution Time 47 milliseconds.
R12868DK
Date Wednesday Apr 08, 1981 04:07:00 AM
Loaded from MAINT(294)
R12868DK: ./ I 279000 $ 279100 100 00001000
R12868DK: MVI SAVEWRK1,VIRTUAL SET FLAG, JUST IN CASE @VA12868 00002000
R12868DK: EX R6,VIRTUAL1 CHECK FOR 'VIRTUAL' @VA12868 00003000
R12868DK: BE TESTCLAS YES...MUST BE CLASS 'B' @VA12868 00004000
R12868DK: MVI SAVEWRK1,SYSVIRT SET FLAG, JUST IN CASE @VA12868 00005000
R12868DK: EX R6,SYSVIRT1 CHECK FOR 'SYSVIRT' @VA12868 00006000
R12868DK: BE TESTCLAS YES...MUST BE CLASS 'B' @VA12868 00007000
R12868DK: ./ R 281000 $ 281100 00008000
R12868DK: BL INVTYPE NO GOOD @VA12868 00009000
R12868DK: ./ D 290000 296000 $ 00010000
R12868DK: ./ I 361000 $ 361100 100 00011000
R12868DK: VIRTUAL1 CLC 0(*-*,R1),=CL8'VIRTUAL ' DEF VIRTUAL @VA12868 00012000
R12868DK: SYSVIRT1 CLC 0(*-*,R1),=CL8'SYSVIRT ' DEF SYSVIRT @VA12868 00013000
BEGIN APPLY >>> ./ I 279000 $ 279100 100 00001000
END APPLY >>> ./ I 279000 $ 279100 100 00001000
BEGIN APPLY >>> ./ R 281000 $ 281100 00008000
END APPLY >>> ./ R 281000 $ 281100 00008000
BEGIN APPLY >>> ./ D 290000 296000 $ 00010000
END APPLY >>> ./ D 290000 296000 $ 00010000
BEGIN APPLY >>> ./ I 361000 $ 361100 100 00011000
END APPLY >>> ./ I 361000 $ 361100 100 00011000
Update Succeeded
Update Execution Time 23 milliseconds.
R12273DK
Date Wednesday Jul 01, 1981 06:15:00 AM
Loaded from MAINT(294)
R12273DK: ./ R 464100 $ 464150 00001000
R12273DK: CLM R2,1,RC50 X'7FFF' LIMIT FROM VDS ? @VA12273 00002000
R12273DK: ./ R 559030 $ 559045 00003000
R12273DK: CLM R2,1,RC50 X'7FFF' LIMIT FROM VDS ? @VA12273 00004000
R12273DK: ./ I 1348000 $ 1348500 00005000
R12273DK: RC50 DC X'50' @VA12273 00006000
BEGIN APPLY >>> ./ R 464100 $ 464150 00001000
END APPLY >>> ./ R 464100 $ 464150 00001000
BEGIN APPLY >>> ./ R 559030 $ 559045 00003000
END APPLY >>> ./ R 559030 $ 559045 00003000
BEGIN APPLY >>> ./ I 1348000 $ 1348500 00005000
END APPLY >>> ./ I 1348000 $ 1348500 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R13632DK
Date Tuesday Aug 11, 1981 02:22:00 PM
Loaded from MAINT(294)
R13632DK: ./ I 279600 $ 279700 100 00001000
R13632DK: NI SAVEWRK1,255-SYSVIRT ZERO OUT BIT AGAIN @VA13632 00002000
R13632DK: ./ R 281100 $ 281200 100 00003000
R13632DK: BH INVTYPE NO GOOD @VA13632 00004000
BEGIN APPLY >>> ./ I 279600 $ 279700 100 00001000
END APPLY >>> ./ I 279600 $ 279700 100 00001000
BEGIN APPLY >>> ./ R 281100 $ 281200 100 00003000
END APPLY >>> ./ R 281100 $ 281200 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R13217DK
Date Monday Feb 15, 1982 09:27:00 AM
Loaded from MAINT(294)
R13217DK: ./ I 250000 $ 250500 00001000
R13217DK: * DMKDEF153E DEVICE VADDR EXCEEDS MAX NUM OF VIRTUAL DEVICES 00002000
R13217DK: ./ R 464150 464200 $ 464150 400 00003000
R13217DK: CH R2,=H'124' EXCEEDED MAX DEVICES ? @VA13217 00004000
R13217DK: BE ERR153 YES, MSG 153 @VA13217 00005000
R13217DK: ./ R 559045 559060 $ 559045 400 00006000
R13217DK: CH R2,=H'124' EXCEEDED MAX DEVICES? @VA13217 00007000
R13217DK: BE ERR153 YES MSG 153 @VA13217 00008000
R13217DK: ./ I 894000 $ 894100 100 00009000
R13217DK: ERR153 DS 0H ERROR MSG 153 @VA13217 00010000
R13217DK: BAL R5,FREUSER RELEASE LOCK @VA13217 00011000
R13217DK: LH R1,UDEVADD VIRTUAL DEVICE ADDRESS DEFINED @VA13217 00012000
R13217DK: CALL DMKCVTBH CONVERT TO CHARS IN REG1 @VA13217 00013000
R13217DK: STCM R1,7,SAVEWRK2 DATA TO INSERT IN MSG 153 @VA13217 00014000
R13217DK: LA R0,L3 LENGTH OF DATA TO INSERT @VA13217 00015000
R13217DK: LA R2,EMSG153 MSG ID @VA13217 00016000
R13217DK: B MSGSEND SEND MSG 153 AND NO RETURN @VA13217 00017000
R13217DK: ./ I 1311000 $ 1311500 00018000
R13217DK: EMSG153 EQU 153 MAX NUM OF DEVICES REACHED @VA13217 00019000
R13217DK: ./ D 1348500 $ 00020000
BEGIN APPLY >>> ./ I 250000 $ 250500 00001000
END APPLY >>> ./ I 250000 $ 250500 00001000
BEGIN APPLY >>> ./ R 464150 464200 $ 464150 400 00003000
END APPLY >>> ./ R 464150 464200 $ 464150 400 00003000
BEGIN APPLY >>> ./ R 559045 559060 $ 559045 400 00006000
END APPLY >>> ./ R 559045 559060 $ 559045 400 00006000
BEGIN APPLY >>> ./ I 894000 $ 894100 100 00009000
END APPLY >>> ./ I 894000 $ 894100 100 00009000
BEGIN APPLY >>> ./ I 1311000 $ 1311500 00018000
END APPLY >>> ./ I 1311000 $ 1311500 00018000
BEGIN APPLY >>> ./ D 1348500 $ 00020000
END APPLY >>> ./ D 1348500 $ 00020000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Monday Feb 22, 2016 12:44:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00074000 $ 00074100 100
HRC106DK: * | | T3375 <AS> VADDR <CYL> NNN | HRC106DK
HRC106DK: * | | T3380 <AS> VADDR <CYL> NNN | HRC106DK
HRC106DK: ./ I 00188000 $ 00188100 100
HRC106DK: * T3375 VIRTUAL 3375 HRC106DK
HRC106DK: * T3380 VIRTUAL 3380 HRC106DK
HRC106DK: ./ R 00345000 $ 00345100 100
HRC106DK: C R0,F4 NNNN parm greater than 4 chars? HRC106DK
HRC106DK: ./ R 00490000 00492000 $ 00490100 1000
HRC106DK: STCM R1,B'1111',SAVEWRK6+1 TDSK size (4 digits) HRC106DK
HRC106DK: MVC SAVEWRK7+2(3),=C'CYL' HRC106DK
HRC106DK: LA R0,SAVEWRK8+1-SAVEWRK2 Length HRC106DK
HRC106DK: ./ I 01000000 $ 01000100 100
HRC106DK: DC C'T3375 ',H'4',AL1(CLASDASD,TYP3375) (TDISK) HRC106DK
HRC106DK: DC C'T3380 ',H'4',AL1(CLASDASD,TYP3380) (TDISK) HRC106DK
BEGIN APPLY >>> ./ I 00074000 $ 00074100 100
END APPLY >>> ./ I 00074000 $ 00074100 100
BEGIN APPLY >>> ./ I 00188000 $ 00188100 100
END APPLY >>> ./ I 00188000 $ 00188100 100
BEGIN APPLY >>> ./ R 00345000 $ 00345100 100
END APPLY >>> ./ R 00345000 $ 00345100 100
BEGIN APPLY >>> ./ R 00490000 00492000 $ 00490100 1000
END APPLY >>> ./ R 00490000 00492000 $ 00490100 1000
BEGIN APPLY >>> ./ I 01000000 $ 01000100 100
END APPLY >>> ./ I 01000000 $ 01000100 100
Update Succeeded
Update Execution Time 31 milliseconds.