DMKCFP History
References
-
-
Fixes Applied : 14
-
Last Fix ID : [HRC065DK]
Update History
CMS File Input : DMKCFP ASSEMBLE
Date : 12/7/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKCFP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R08629DK 603 2250/3250
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R08652DK 606 USER HUNG AFTER RESET AND DIAG 20
R10854DK 612 UV00609 ABENDPGT007 TWO (2) OR MORE CONSOLES
R11455DK 615 UV01415 SPLIT OF DMKSSS INTO DMKSSS AND DMKSSU
R11340DK 616 ABENDFRE013 AFTER INSTALLATION OF VM08652
R11970DK 617 UV02557 PROG005 FOR MSS DEVICES AT DETACH OR LOGOFF
R13280DK 622 UV04520 RESET DEDICATED CHANNEL FLAG AT LOGOFF TIME.
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13704DK 623 UV04950 SPLIT DMKDIA FOR MAINTAINENCE
R13588DK 623 UV05274 ISSUE DETACH MSG TO OPERATOR
HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
HRC065DK V01 Logical Device Support Facility
R08629DK
Date Thursday May 10, 1979 04:50:00 PM
Loaded from MAINT(294)
R08629DK: ./ R 504000 504000 $ 503100 100 00001000
R08629DK: SLR R2,R2 CLEAR @VA08629 00002000
R08629DK: ICM R2,7,VDEVIO ANY PENDING I/O? @VA08629 00003000
R08629DK: BZ CHKPEND NO, CONTINUE @VA08629 00004000
R08629DK: LR R1,R2 IOBLOK ADDRESS TO R1 @VA08629 00005000
R08629DK: CFPRUNQ L R2,IOBFPNT-IOBLOK(R1) ADDRESS OF NEXT ON QUEUE @VA08629 00006000
R08629DK: LA R0,IOBSIZE PREPARE TO FRET IOBLOKS @VA08629 00007000
R08629DK: CALL DMKFRET RELEASE BLOCK @VA08629 00008000
R08629DK: LTR R2,R2 ANY MORE? @VA08629 00009000
R08629DK: BZ CFPCLR NO @VA08629 00010000
R08629DK: LR R1,R2 PREPARE TO GO THRU LOOP AGAIN @VA08629 00011000
R08629DK: B CFPRUNQ REPEAT @VA08629 00012000
R08629DK: CFPCLR STCM R2,7,VDEVIO CLEAR CHAIN POINTER @VA08629 00013000
R08629DK: CHKPEND TM VDEVSTAT,VDEVPEND+VDEVCHAN+VDEVCUE ANYTHING @VA08629 00014000
R08629DK: * PENDING? 00015000
BEGIN APPLY >>> ./ R 504000 504000 $ 503100 100 00001000
END APPLY >>> ./ R 504000 504000 $ 503100 100 00001000
Update Succeeded
Update Execution Time 16 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.
R08652DK
Date Wednesday Oct 31, 1979 08:29:00 AM
Loaded from MAINT(294)
R08652DK: ./ I 152000 $ 152500 00001000
R08652DK: EXTRN DMKDGDIN @VA08652 00002000
R08652DK: ./ I 811000 $ 811050 50 00003000
R08652DK: TM IOBFLAG,IOBHVC DIAGNOSE IOB ? @VA08652 00004000
R08652DK: BNO NOTDG20 NO @VA08652 00005000
R08652DK: L R14,IOBIRA GET IOB'S RETURN ADDRESS @VA08652 00006000
R08652DK: CL R14,=A(DMKDGDIN) IS IT DIAG 20 IOB @VA08652 00007000
R08652DK: BE NOTDG20 NO, IF NOT EQUAL MUST BE DIAG 20 @VA08652 00008000
R08652DK: LR R14,R13 HOLD OUR SAVEAREA @VA08652 00009000
R08652DK: L R13,IOBMISC2 GET GIO SAVE AREA @VA08652 00010000
R08652DK: SVC 16 GIVE IT BACK @VA08652 00011000
R08652DK: LR R13,R14 RESTORE OUR SAVEAREA @VA08652 00012000
R08652DK: NOTDG20 EQU * @VA08652 00013000
R08652DK: ./ I 853000 $ 853300 300 00014000
R08652DK: TM IOBFLAG,IOBHVC WAS THIS IOB FOR DIAG ? @VA08652 00015000
R08652DK: BO FORDIAG YES, CLEANUP @VA08652 00016000
R08652DK: ./ I 855000 $ 855500 500 00017000
R08652DK: FORDIAG EQU * @VA08652 00018000
BEGIN APPLY >>> ./ I 152000 $ 152500 00001000
END APPLY >>> ./ I 152000 $ 152500 00001000
BEGIN APPLY >>> ./ I 811000 $ 811050 50 00003000
END APPLY >>> ./ I 811000 $ 811050 50 00003000
BEGIN APPLY >>> ./ I 853000 $ 853300 300 00014000
END APPLY >>> ./ I 853000 $ 853300 300 00014000
BEGIN APPLY >>> ./ I 855000 $ 855500 500 00017000
END APPLY >>> ./ I 855000 $ 855500 500 00017000
Update Succeeded
Update Execution Time 16 milliseconds.
R10854DK
Date Monday May 05, 1980 05:05:00 AM
Loaded from MAINT(294)
R10854DK: ./ R 959000 $ 959010 10 00001000
R10854DK: RESCSPL DS 0H @VA10854 00002000
R10854DK: TM VDEVTYPE,TYPSS COMMUN CONSOL ? @VA10854 00003000
R10854DK: BM RESEXIT TTY OR SS @VA10854 00004000
R10854DK: NI VDEVFLAG,X'FF'-VDEVCSPL @VA10854 00005000
BEGIN APPLY >>> ./ R 959000 $ 959010 10 00001000
END APPLY >>> ./ R 959000 $ 959010 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11455DK
Date Friday Jul 25, 1980 07:25:00 AM
Loaded from MAINT(294)
R11455DK: ./ R 146100 $ 146110 00001000
R11455DK: EXTRN DMKSSUCF @VA11455 00002000
R11455DK: ./ R 506120 $ 506121 00003000
R11455DK: CALL DMKSSUCF @VA11455 00004000
BEGIN APPLY >>> ./ R 146100 $ 146110 00001000
END APPLY >>> ./ R 146100 $ 146110 00001000
BEGIN APPLY >>> ./ R 506120 $ 506121 00003000
END APPLY >>> ./ R 506120 $ 506121 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R11340DK
Date Friday Sep 26, 1980 09:04:00 AM
Loaded from MAINT(294)
R11340DK: ./ D 152500 00001000
R11340DK: ./ D 811050 811500 00002000
R11340DK: ./ D 853300 853600 00003000
R11340DK: ./ D 855500 00004000
BEGIN APPLY >>> ./ D 152500 00001000
END APPLY >>> ./ D 152500 00001000
BEGIN APPLY >>> ./ D 811050 811500 00002000
END APPLY >>> ./ D 811050 811500 00002000
BEGIN APPLY >>> ./ D 853300 853600 00003000
END APPLY >>> ./ D 853300 853600 00003000
BEGIN APPLY >>> ./ D 855500 00004000
END APPLY >>> ./ D 855500 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R11970DK
Date Wednesday Oct 29, 1980 10:29:00 AM
Loaded from MAINT(294)
R11970DK: ./ I 506030 $ 506032 2 00001000
R11970DK: TM VDEVTYPC,CLASDASD @VA11970 00002000
R11970DK: BNO NOTVUA @VA11970 00003000
BEGIN APPLY >>> ./ I 506030 $ 506032 2 00001000
END APPLY >>> ./ I 506030 $ 506032 2 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R13280DK
Date Wednesday Jun 24, 1981 05:27:00 AM
Loaded from MAINT(294)
R13280DK: ./ I 384000 $ 384100 100 00001000
R13280DK: TM VMRSTAT,VMLOGOFF IS USER LOGGING OFF ? @VA13280 00002000
R13280DK: BZ RESXCH NO, SKIP DEDICATED CHAN. CHECK @VA13280 00003000
R13280DK: TM VCHSTAT,VCHDED IS THIS A DEDICATED CHANNEL ? @VA13280 00004000
R13280DK: BZ RESXCH NO, SKIP DEDICATED CHAN. CHECK @VA13280 00005000
R13280DK: *-------RESET DEDICATED CHANNEL FLAG IN RCHBLOK-------* 00006000
R13280DK: L R9,VCHRCHAD GET RCHBLOK ADDRESS @VA13280 00007000
R13280DK: NI RCHSTAT-RCHBLOK(R9),X'FF'-RCHDED @VA13280 00008000
BEGIN APPLY >>> ./ I 384000 $ 384100 100 00001000
END APPLY >>> ./ I 384000 $ 384100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:27:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 8 milliseconds.
R13704DK
Date Friday Aug 07, 1981 07:17:00 AM
Loaded from MAINT(294)
R13704DK: ./ R 00062000 $ 62000 1000 06/26/81 07:56:15 00001000
R13704DK: * DMKDIBDR - TO DROP A DIALED LINE 00002000
R13704DK: ./ R 00143000 $ 143000 1000 06/26/81 07:56:15 00003000
R13704DK: EXTRN DMKDIBDR @VA13704 00004000
R13704DK: ./ R 00461000 $ 461000 1000 06/26/81 07:56:15 00005000
R13704DK: * VIA A CALL TO DMKDIBDR. 00006000
R13704DK: ./ R 00544000 $ 544000 1000 06/26/81 07:56:15 00007000
R13704DK: CALL DMKDIBDR DROP THE LINE @VA13704 00008000
R13704DK: ./ R 00881000 $ 881000 1000 06/26/81 07:56:15 00009000
R13704DK: CALL DMKDIBDR IF SO, INFORM THE PREVIOUS USER @VA13704 00010000
BEGIN APPLY >>> ./ R 00062000 $ 62000 1000 06/26/81 07:56:15 00001000
END APPLY >>> ./ R 00062000 $ 62000 1000 06/26/81 07:56:15 00001000
BEGIN APPLY >>> ./ R 00143000 $ 143000 1000 06/26/81 07:56:15 00003000
END APPLY >>> ./ R 00143000 $ 143000 1000 06/26/81 07:56:15 00003000
BEGIN APPLY >>> ./ R 00461000 $ 461000 1000 06/26/81 07:56:15 00005000
END APPLY >>> ./ R 00461000 $ 461000 1000 06/26/81 07:56:15 00005000
BEGIN APPLY >>> ./ R 00544000 $ 544000 1000 06/26/81 07:56:15 00007000
END APPLY >>> ./ R 00544000 $ 544000 1000 06/26/81 07:56:15 00007000
BEGIN APPLY >>> ./ R 00881000 $ 881000 1000 06/26/81 07:56:15 00009000
END APPLY >>> ./ R 00881000 $ 881000 1000 06/26/81 07:56:15 00009000
Update Succeeded
Update Execution Time 23 milliseconds.
R13588DK
Date Thursday Aug 27, 1981 08:24:00 AM
Loaded from MAINT(294)
R13588DK: ./ I 00384700 $ 00384710 10 00001000
R13588DK: *DETACH CHANNEL MSG TO OPERATOR AT LOGOFF IF NO DET CMD ISSUED 00002000
R13588DK: LR R3,R1 SAVE R1 TEMPORARILY @VA13588 00003000
R13588DK: LH R1,RCHADD-RCHBLOK(R9) REAL CHANNEL ADDRESS @VA13588 00004000
R13588DK: CALL DMKCVTBH CONVERT CHAN ADDR TO HEX @VA13588 00005000
R13588DK: LR R9,R1 SAVE R1 TEMPORARILY @VA13588 00006000
R13588DK: LA R0,DETDSIZE SEZE OF THE MSG @VA13588 00007000
R13588DK: CALL DMKFREE GET FREE STORAGE @VA13588 00008000
R13588DK: USING DETMSG,R1 TEMP ADDRESSABILITY @VA13588 00009000
R13588DK: MVC DETMSG(DETSIZE1),=C'CHAN X DETACHED ' @VA13588 00010000
R13588DK: MVC DETUSER(8),VMUSER THE USERID @VA13588 00011000
R13588DK: STCM R9,B'0100',DETRADD CHANNEL NUMBER @VA13588 00012000
R13588DK: LA R0,DETSIZE SIZE OF THE MESSAGE @VA13588 00013000
R13588DK: CALL DMKQCNWT,PARM=NORET+OPERATOR WRITE TO OPERATOR @VA13588 00014000
R13588DK: LA R0,DETDSIZE SIZE OF THE MSG @VA13588 00015000
R13588DK: CALL DMKFRET FRET THE MSG STORAGE @VA13588 00016000
R13588DK: DROP R1 DROP TEMP ADDRESSABILITY @VA13588 00017000
R13588DK: SLR R0,R0 RESTORE R0 @VA13588 00018000
R13588DK: LR R1,R3 RESTORE R1 @VA13588 00019000
R13588DK: ./ R 00999000 $ 00999000 1000 00020000
R13588DK: EJECT 00021000
R13588DK: ./ I 01026000 $ 01026090 50 00022000
R13588DK: DETMSG DSECT RESPONSE FOR DETACH CHANNEL AT LOGOFF TIME@VA13588 00023000
R13588DK: DS CL4,CL1 CHANNEL,BLANK @VA13588 00024000
R13588DK: DETRADD DS CL1,CL2 CHANNEL ADDRESS,BLANK @VA13588 00025000
R13588DK: DS CL8,CL2 DETACHED,BLANK @VA13588 00026000
R13588DK: DETSIZE1 EQU *-DETMSG MSG SIZE(MINUS USERID) @VA13588 00027000
R13588DK: DETUSER DS CL8 USERID @VA13588 00028000
R13588DK: DETSIZE EQU *-DETMSG MSG SIZE @VA13588 00029000
R13588DK: DETDSIZE EQU (DETSIZE+7)/8 SIZE IN DOUBLE WORDS @VA13588 00030000
BEGIN APPLY >>> ./ I 00384700 $ 00384710 10 00001000
END APPLY >>> ./ I 00384700 $ 00384710 10 00001000
BEGIN APPLY >>> ./ R 00999000 $ 00999000 1000 00020000
END APPLY >>> ./ R 00999000 $ 00999000 1000 00020000
BEGIN APPLY >>> ./ I 01026000 $ 01026090 50 00022000
END APPLY >>> ./ I 01026000 $ 01026090 50 00022000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC013DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC013DK: ./ * ************* PER001 00001000
HRC013DK: ./ * * PER001 00002000
HRC013DK: ./ * * PER001 10/24/77 ADD "P.E.R." TRACE FACILITY PER001 00003000
HRC013DK: ./ * * PER001 00004000
HRC013DK: ./ * ************* PER001 00005000
HRC013DK: ./ * PER001 00006000
HRC013DK: ./ D 338000 $ PER001 00007000
BEGIN APPLY >>> ./ * ************* PER001 00001000
Comment >>> ./ * ************* PER001 00001000
END APPLY >>> ./ * ************* PER001 00001000
BEGIN APPLY >>> ./ * * PER001 00002000
Comment >>> ./ * * PER001 00002000
END APPLY >>> ./ * * PER001 00002000
BEGIN APPLY >>> ./ * * PER001 10/24/77 ADD "P.E.R." TRACE FACILITY PER001 00003000
Comment >>> ./ * * PER001 10/24/77 ADD "P.E.R." TRACE FACILITY PER001 00003000
END APPLY >>> ./ * * PER001 10/24/77 ADD "P.E.R." TRACE FACILITY PER001 00003000
BEGIN APPLY >>> ./ * * PER001 00004000
Comment >>> ./ * * PER001 00004000
END APPLY >>> ./ * * PER001 00004000
BEGIN APPLY >>> ./ * ************* PER001 00005000
Comment >>> ./ * ************* PER001 00005000
END APPLY >>> ./ * ************* PER001 00005000
BEGIN APPLY >>> ./ * PER001 00006000
Comment >>> ./ * PER001 00006000
END APPLY >>> ./ * PER001 00006000
BEGIN APPLY >>> ./ D 338000 $ PER001 00007000
END APPLY >>> ./ D 338000 $ PER001 00007000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00936000 $ 936490 490 03/11/06 20:43:50
HRC101DK: LH R0,VCONRBSZ YES - GET SIZE IN DWDS HRC101DK 00936000
BEGIN APPLY >>> ./ R 00936000 $ 936490 490 03/11/06 20:43:50
END APPLY >>> ./ R 00936000 $ 936490 490 03/11/06 20:43:50
Update Succeeded
Update Execution Time 23 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00073000 $ 00073100 100
HRC065DK: * HDKD7CTM - TERMINATE ACTIVE LOGICAL DEVICES HRC065DK
HRC065DK: ./ I 00155000 $ 00155100 100
HRC065DK: EXTRN HDKD7CTM HRC065DK
HRC065DK: ./ I 00237000 $ 00237100 100
HRC065DK: CLC INSTWRD1+1(3),ZEROES Are LDEVs active? HRC065DK
HRC065DK: BE LDEVDONE No, anchor is zero HRC065DK
HRC065DK: CALL HDKD7CTM Call rtn to term LDEVs HRC065DK
HRC065DK: *
HRC065DK: LDEVDONE EQU * HRC065DK
BEGIN APPLY >>> ./ I 00073000 $ 00073100 100
END APPLY >>> ./ I 00073000 $ 00073100 100
BEGIN APPLY >>> ./ I 00155000 $ 00155100 100
END APPLY >>> ./ I 00155000 $ 00155100 100
BEGIN APPLY >>> ./ I 00237000 $ 00237100 100
END APPLY >>> ./ I 00237000 $ 00237100 100
Update Succeeded
Update Execution Time 23 milliseconds.