DMKVCH History
References
-
-
Fixes Applied : 7
-
Last Fix ID : [HRC040DK]
Update History
CMS File Input : DMKVCH ASSEMBLE
Date : 12/7/1978 5:18:00 PM
VM Context : MAINT(394)
File Name : DMKVCH.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
R09651DK 610 ABENDPRG005 ISSUING DET CHANNEL WITH 256 DEVICES
R11369DK 612 UV00908 ATT CHAN CMD LEAVES INVALID DATA BETWEEN NEW VDEVBLOKS
R12940DK 620 UV03991 ABENDPRG009 WHEN ATT CHN TO USER AND D/T2305 IS ON
R13060DK 620 UV04249 VM09651 CHECKS FOR CC3, NOT 1 OR 2 NEAR LBL DETCHAN
R13280DK 622 UV04520 RESET DEDICATED CHANNEL FLAG AT LOGOFF TIME.
R13217DK 628 UV06065 AFTER VM09651 MSDMKDEF040E AND MSDMKLNK022E MISLEAD
HRC040DK V01 Fix FRE013 caused by DMKVCH R13280DK (UV04520)
R09651DK
Date Wednesday Mar 12, 1980 01:24:00 AM
Loaded from MAINT(294)
R09651DK: ./ I 584000 $ 584100 00001000
R09651DK: BC 1,VCH040 @VA09651 00002000
R09651DK: ./ I 669000 $ 669100 100 00003000
R09651DK: VCH040 DS 0H @VA09651 00004000
R09651DK: SLR R0,R0 CLEAR R0 SO THAT NN FIELD WILL @VA09651 00005000
R09651DK: * BE ZERO AND R1 WILL CONTAIN 00006000
R09651DK: * THE DEVICE ADDRESS FOR DMKERM 00007000
R09651DK: LA R2,40 MESSAGE NUMBER DMKVCH040E @VA09651 00008000
R09651DK: CALL DMKCVTBH @VA09651 00009000
R09651DK: B NODATA @VA09651 00010000
BEGIN APPLY >>> ./ I 584000 $ 584100 00001000
END APPLY >>> ./ I 584000 $ 584100 00001000
BEGIN APPLY >>> ./ I 669000 $ 669100 100 00003000
END APPLY >>> ./ I 669000 $ 669100 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R11369DK
Date Monday May 05, 1980 04:17:00 AM
Loaded from MAINT(294)
R11369DK: ./ I 374000 $ 374100 00001000
R11369DK: NI DEDBITS,X'FF'-CUBLD RESET VCUBLOK INDICATOR @VA11369 00002000
R11369DK: ./ I 398000 $ 398100 00003000
R11369DK: NI DEDBITS,X'FF'-DEVBLD RESET VDEVBLOK INDICATOR @VA11369 00004000
R11369DK: ./ R 498000 $ 498100 00005000
R11369DK: CLRDEV DS 0H @VA11369 00006000
R11369DK: ./ R 503000 $ 503100 00007000
R11369DK: CLRCU DS 0H @VA11369 00008000
BEGIN APPLY >>> ./ I 374000 $ 374100 00001000
END APPLY >>> ./ I 374000 $ 374100 00001000
BEGIN APPLY >>> ./ I 398000 $ 398100 00003000
END APPLY >>> ./ I 398000 $ 398100 00003000
BEGIN APPLY >>> ./ R 498000 $ 498100 00005000
END APPLY >>> ./ R 498000 $ 498100 00005000
BEGIN APPLY >>> ./ R 503000 $ 503100 00007000
END APPLY >>> ./ R 503000 $ 503100 00007000
Update Succeeded
Update Execution Time 16 milliseconds.
R12940DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12940DK: ./ I 308000 $ 308100 100 00001000
R12940DK: * MUST RESET MY 'DEVCOUNT' MARK IN 'RDEVADD' (OF A 2305) FOR ALL 00002000
R12940DK: * THE RDEVBLOKS EXCEPT THE FIRST ONE. DMKVDS ATTACHES ALL 8 OF THEM 00003000
R12940DK: * WITH ONE CALL. (FIRST ONE IS RESET WHEN I CALL DMKVDS). 00004000
R12940DK: CLC RDEVTYPC(2),=AL1(CLASDASD,TYP2305) @VA12940 00005000
R12940DK: BNE INCRDEV2 NOT A 2305; WE'RE OK @VA12940 00006000
R12940DK: TM RDEVADD+1,7 IS THE ADDRESS 1-7 OR 9-F? @VA12940 00008000
R12940DK: BZ INCRDEV2 ADDRESS IS 0 OR 8: MARK IS OK @VA12940 00010000
R12940DK: NI RDEVADD,X'FF'-DEVCOUNT RESET 'MARK' @VA12940 00012000
BEGIN APPLY >>> ./ I 308000 $ 308100 100 00001000
END APPLY >>> ./ I 308000 $ 308100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13060DK
Date Thursday May 07, 1981 04:14:00 AM
Loaded from MAINT(294)
R13060DK: ./ I 127000 $ 127500 00001000
R13060DK: * DMKVCH040E DEV ADDR DOES NOT EXIST @VA13060 00002000
R13060DK: ./ I 129000 $ 129500 00003000
R13060DK: * DMKVCH130E CHANNEL X <PROC NN> NOT ATTACHED TO USERID @VA13060 00004000
R13060DK: ./ R 584100 $ 584150 00006000
R13060DK: BC 7,VCH040 BRANCH IF CC=1, 2, OR 3 @VA13060 00007000
BEGIN APPLY >>> ./ I 127000 $ 127500 00001000
END APPLY >>> ./ I 127000 $ 127500 00001000
BEGIN APPLY >>> ./ I 129000 $ 129500 00003000
END APPLY >>> ./ I 129000 $ 129500 00003000
BEGIN APPLY >>> ./ R 584100 $ 584150 00006000
END APPLY >>> ./ R 584100 $ 584150 00006000
Update Succeeded
Update Execution Time 16 milliseconds.
R13280DK
Date Wednesday Jun 24, 1981 05:27:00 AM
Loaded from MAINT(294)
R13280DK: ./ R 178000 $ 178000 1000 00001000
R13280DK: ST R6,SAVERCH SAVE THE RCHBLOK ADDRESS @VA13280 00002000
R13280DK: ./ R 188000 $ 188000 1000 00003000
R13280DK: L R6,SAVERCH RESTORE RCHBLOK ADDRESS @VA13280 00004000
R13280DK: ./ R 202000 $ 202000 1000 00005000
R13280DK: L R6,SAVERCH BACK TO THE RCHBLOK FOR SCAN @VA13280 00006000
R13280DK: ./ I 570000 $ 570500 500 00007000
R13280DK: MVC VCHRCHAD,SAVERCH SAVE RCHBLOK ADDRESS @VA13280 00008000
R13280DK: ./ R 758000 $ 758000 1000 00009000
R13280DK: DS 0CL68 @VA13280 00010000
R13280DK: ./ I 768000 $ 768500 500 00011000
R13280DK: SAVERCH DS 1F RCHBLOK ADDRESS @VA13280 00012000
BEGIN APPLY >>> ./ R 178000 $ 178000 1000 00001000
END APPLY >>> ./ R 178000 $ 178000 1000 00001000
BEGIN APPLY >>> ./ R 188000 $ 188000 1000 00003000
END APPLY >>> ./ R 188000 $ 188000 1000 00003000
BEGIN APPLY >>> ./ R 202000 $ 202000 1000 00005000
END APPLY >>> ./ R 202000 $ 202000 1000 00005000
BEGIN APPLY >>> ./ I 570000 $ 570500 500 00007000
END APPLY >>> ./ I 570000 $ 570500 500 00007000
BEGIN APPLY >>> ./ R 758000 $ 758000 1000 00009000
END APPLY >>> ./ R 758000 $ 758000 1000 00009000
BEGIN APPLY >>> ./ I 768000 $ 768500 500 00011000
END APPLY >>> ./ I 768000 $ 768500 500 00011000
Update Succeeded
Update Execution Time 16 milliseconds.
R13217DK
Date Monday Feb 15, 1982 09:29:00 AM
Loaded from MAINT(294)
R13217DK: ./ I 131000 $ 131500 00001000
R13217DK: * DMKVCH153E DEVICE VADDR EXCEEDS MAX NO. OF VIRTUAL DEVICES 00002000
R13217DK: ./ I 352000 $ 352050 50 00003000
R13217DK: SLR R7,R7 CLEAR R7 FOR NEXT COUNTER @VA13217 00004000
R13217DK: LA R0,VDEVSIZE SIZE OF VDEVBLOK @VA13217 00006000
R13217DK: L R1,VMDVSTRT POINT TO VDEVBLOK TABLE @VA13217 00008000
R13217DK: LH R2,VMDVCNT NUMBER OF VDEVBLOKS IN TABLE @VA13217 00010000
R13217DK: BAL R5,EMPSLOT FIND EMPTY SLOTS IN VDEVBLOKS @VA13217 00012000
R13217DK: STH R7,SAVEWRK2 REMEMBER THIS FOR LATER @VA13217 00014000
R13217DK: LH R1,DEVNUM WILL THE REQ'D NO. OF VDEVBLOKS @VA13217 00016000
R13217DK: AH R1,VMDVCNT FIT IN THE HALFWORD OFFSET @VA13217 00018000
R13217DK: SLR R1,R7 ALLOWED? @VA13217 00020000
R13217DK: MH R1,=Y(VDEVSIZE*8) @VA13217 00022000
R13217DK: CL R1,=A(X'8000') @VA13217 00023000
R13217DK: BH ERR153 .. NO, VIRT DEV MAX EXCEEDED @VA13217 00024000
R13217DK: ./ R 385000 389000 $ 385100 00026000
R13217DK: EMPVDEV DS 0H @VA13217 00027000
R13217DK: ./ R 391000 392000 $ 391100 1000 00028000
R13217DK: SH R6,SAVEWRK2 ACTUAL NO. VDEVBLOKS TO ACQUIRE @VA13217 00029000
R13217DK: BNP ENDPASS4 IF .LE. 0, THIS PASS DONE @VA13217 00031000
R13217DK: ./ I 555000 $ 555300 300 00033000
R13217DK: CH R2,=H'124' EXCEEDED MAX VIRTUAL DEVICES? @VA13217 00034000
R13217DK: BE ERR153 YES, WE MUST'VE GOOFED--ABEND @VA13217 00036000
R13217DK: ./ D 669200 669400 00038000
R13217DK: ./ I 669600 $ 669610 00039000
R13217DK: SR R0,R0 R0, BYTE 3 = 0 => DATA IN R1 @VA13217 00040000
R13217DK: ./ I 672000 $ 672100 100 00042000
R13217DK: SPACE 1 00043000
R13217DK: ERR153 LA R2,EMSG153 MSG ID @VA13217 00047000
R13217DK: L R1,CHANADDR GET CHANNEL NUMBER @VA13217 00049000
R13217DK: CALL DMKCVTBH CONVERT TO EBCDIC @VA13217 00051000
R13217DK: ICM R1,B'1110',=C'CH ' DATA IS "CH N" @VA13217 00053000
R13217DK: SR R0,R0 R0 LOW ORDER=0:DATA IN R1 @VA13217 00055000
R13217DK: B NODATA GO SET UP OTHER THINGS @VA13217 00057000
R13217DK: ./ I 752000 $ 752500 00059000
R13217DK: EMSG153 EQU 153 EXCEEDED MAX VIRTUAL DEVICES @VA13217 00060000
BEGIN APPLY >>> ./ I 131000 $ 131500 00001000
END APPLY >>> ./ I 131000 $ 131500 00001000
BEGIN APPLY >>> ./ I 352000 $ 352050 50 00003000
END APPLY >>> ./ I 352000 $ 352050 50 00003000
BEGIN APPLY >>> ./ R 385000 389000 $ 385100 00026000
END APPLY >>> ./ R 385000 389000 $ 385100 00026000
BEGIN APPLY >>> ./ R 391000 392000 $ 391100 1000 00028000
END APPLY >>> ./ R 391000 392000 $ 391100 1000 00028000
BEGIN APPLY >>> ./ I 555000 $ 555300 300 00033000
END APPLY >>> ./ I 555000 $ 555300 300 00033000
BEGIN APPLY >>> ./ D 669200 669400 00038000
END APPLY >>> ./ D 669200 669400 00038000
BEGIN APPLY >>> ./ I 669600 $ 669610 00039000
END APPLY >>> ./ I 669600 $ 669610 00039000
BEGIN APPLY >>> ./ I 672000 $ 672100 100 00042000
END APPLY >>> ./ I 672000 $ 672100 100 00042000
BEGIN APPLY >>> ./ I 752000 $ 752500 00059000
END APPLY >>> ./ I 752000 $ 752500 00059000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC040DK
Date Wednesday Feb 15, 2017 06:10:00 PM
Loaded from MAINT(094)
HRC040DK: ./ R 00163000 $ 00163100 100
HRC040DK: LA R0,9 Get 9 doublewords of storage HRC040DK
HRC040DK: ./ R 00695000 $ 00695100 100
HRC040DK: ICM R3,B'1000',=X'09' Size of area to be fretted HRC040DK
HRC040DK: ./ R 00704000 $ 00704100 100
HRC040DK: FRETMSG LA R0,9 Size in double words HRC040DK
BEGIN APPLY >>> ./ R 00163000 $ 00163100 100
END APPLY >>> ./ R 00163000 $ 00163100 100
BEGIN APPLY >>> ./ R 00695000 $ 00695100 100
END APPLY >>> ./ R 00695000 $ 00695100 100
BEGIN APPLY >>> ./ R 00704000 $ 00704100 100
END APPLY >>> ./ R 00704000 $ 00704100 100
Update Succeeded
Update Execution Time 23 milliseconds.