DMKCFG History
References
-
-
Fixes Applied : 13
-
Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKCFG ASSEMBLE
Date : 12/7/1978 4:55:00 PM
VM Context : MAINT(394)
File Name : DMKCFG.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
R09192DK 610 CP IPL DEVICE ADDRESS TOO LONG CAUSES DMKCFG TO DESTROY STORAGE
R10481DK 610 LOOP DMKPGS, DMKBLD AND DMKPTR RELEASING SHARED SEGMENTS
R09458DK 610 DMKCFG, DIAGNOSE X'64' RETURNS INVALID CONDITION CODE OF ONE
R09952DK 610 ADDITIONAL DIAGNOSE FOR CP UNDER CP
R11699DK 616 UV01947 ABENDPGU003 ABEND WHEN IPLING SAVED SYSTEM
R11919DK 616 UV01988 REMOVED ENTRY POINT DMKPGSFS FOR RELEASE 6
R12820DK 620 UV04446 DMKCFG DIAG 64 IN V=R AREA, INCORRECT RET CODE
R13356DK 623 UV04697 TTSEGCNT NOT BEING DECREMENTED CAUSING MIGRATION
R13054DK 625 UV04517 MSDMKCFG040E DURING LOGON IF IPL CMD IN DIR D/T3850
HRC066DK H40 Fix FRE013 failure with AP page tables
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
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.
R10074DK
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10074DK: ./ I 1037000 $ 1037100 DMK00010
R10074DK: * (INDICATES 2ND SET OF PG/SWAP TABLES) DMK00020
R10074DK: ./ R 1097000 $ 1097100 DMK00030
R10074DK: TM APSTAT1,PROCIPL RUNNING ON THE MAIN (IPL) PROC? @V60B7AA DMK00040
R10074DK: ./ R 1107000 1108000 $ 1107100 1000 DMK00050
R10074DK: L R1,SEGPAGE ADDR. OF MAIN (IPL) PROC PAGTABLE@V60B7AA DMK00060
R10074DK: LA R1,PAGBMP(,R1) BUMP TO 2ND SET OF PG/SWP TABLES @V60B7AA DMK00070
BEGIN APPLY >>> ./ I 1037000 $ 1037100 DMK00010
END APPLY >>> ./ I 1037000 $ 1037100 DMK00010
BEGIN APPLY >>> ./ R 1097000 $ 1097100 DMK00030
END APPLY >>> ./ R 1097000 $ 1097100 DMK00030
BEGIN APPLY >>> ./ R 1107000 1108000 $ 1107100 1000 DMK00050
END APPLY >>> ./ R 1107000 1108000 $ 1107100 1000 DMK00050
Update Succeeded
Update Execution Time 23 milliseconds.
R09192DK
Date Monday Mar 03, 1980 12:07:00 PM
Loaded from MAINT(294)
R09192DK: ./ D 454000 454000 $ 00001000
BEGIN APPLY >>> ./ D 454000 454000 $ 00001000
END APPLY >>> ./ D 454000 454000 $ 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10481DK
Date Thursday Mar 06, 1980 01:03:00 AM
Loaded from MAINT(294)
R10481DK: ./ R 1154000 $ 1154200 00001000
R10481DK: N R7,=AL4(X'00FFFFFE') CLEAR EXTENSION BITS @VA10481 00002000
BEGIN APPLY >>> ./ R 1154000 $ 1154200 00001000
END APPLY >>> ./ R 1154000 $ 1154200 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09458DK
Date Friday Mar 14, 1980 02:01:00 AM
Loaded from MAINT(294)
R09458DK: ./ R 1414900 1414900 $ 1414900 00001000
R09458DK: BNL SETCC1 NO, CANNOT HAVE NAMED SEGMENT @VA09458 00002000
R09458DK: ./ R 1415200 1415400 $ 1415225 25 00003000
R09458DK: ICM R6,B'0110',(SEGPAGE+1)-SEGTABLE(R1) ANY PTE PT @VA09458 00004000
R09458DK: BZ SETCC1 NO,CANNOT HAVE NAMED SEGMENT @VA09458 00005000
R09458DK: IC R6,(SEGPAGE+3)-SEGTABLE(,R1) GET REST OF PTE @VA09458 00006000
R09458DK: * POINTER 00007000
R09458DK: N R6,=A(X'00FFFFFF'-SEGINV) CLEAR UNWANTED BITS @VA09458 00008000
R09458DK: SL R6,F16 BACKUP TO PAGTABLE HEADER @VA09458 00009000
R09458DK: L R10,PAGSHR-PAGTABLE(,R6) GET ADDR OF SHRTABLE @VA09458 00010000
BEGIN APPLY >>> ./ R 1414900 1414900 $ 1414900 00001000
END APPLY >>> ./ R 1414900 1414900 $ 1414900 00001000
BEGIN APPLY >>> ./ R 1415200 1415400 $ 1415225 25 00003000
END APPLY >>> ./ R 1415200 1415400 $ 1415225 25 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R09952DK
Date Friday Mar 14, 1980 02:14:00 AM
Loaded from MAINT(294)
R09952DK: ./ I 356000 $ 356100 100 00001000
R09952DK: NI VMSPMFLG,X'FF'-VMCPVIRT RESET CP VIRT @VA09952 00002000
BEGIN APPLY >>> ./ I 356000 $ 356100 100 00001000
END APPLY >>> ./ I 356000 $ 356100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11699DK
Date Monday Sep 15, 1980 08:07:00 AM
Loaded from MAINT(294)
R11699DK: ./ R 449000 $ 449100
R11699DK: BNZ IPLSETR2 NO --- @VA11699
R11699DK: ./ D 453000 $
R11699DK: ./ R 462000 464000 $ 462100 1000
R11699DK: TM SAVEWRK1,NAMEDIPL IPL BY NAME????? @VA11699 00002000
R11699DK: BO IPLBYNAM BRANCH IF YES -- @VA11699 00003000
R11699DK: CALL DMKPGSPO CLEAR STORAGE (MAYBE) @VA11699 00004000
R11699DK: ./ R 558000 561000 $ 557500 500 00005000
R11699DK: SPACE 00006000
R11699DK: NAMEHIT DS 0H @VA11699 00007000
R11699DK: TM SAVEWRK1+2,LOADFLG ARE WE HERE ON A LOADSYS? @VA11699 00008000
R11699DK: BO CKVOL YES, NO NEED TO CLEAN UP @VA11699 00009000
R11699DK: TM SAVEWRK1,FRMLOGON ENTERED FROM LOGON??? @VA11699
R11699DK: BO NOPGS YES, NO NEED TO CLEAN UP @VA11699
R11699DK: SR R2,R2 PARM FOR DMKPGS @VA11699
R11699DK: CALL DMKPGSPO @VA11699 00010000
R11699DK: NOPGS DS 0H @VA11699 00011000
BEGIN APPLY >>> ./ R 449000 $ 449100
END APPLY >>> ./ R 449000 $ 449100
BEGIN APPLY >>> ./ D 453000 $
END APPLY >>> ./ D 453000 $
BEGIN APPLY >>> ./ R 462000 464000 $ 462100 1000
END APPLY >>> ./ R 462000 464000 $ 462100 1000
BEGIN APPLY >>> ./ R 558000 561000 $ 557500 500 00005000
END APPLY >>> ./ R 558000 561000 $ 557500 500 00005000
Update Succeeded
Update Execution Time 23 milliseconds.
R11919DK
Date Friday Oct 03, 1980 09:18:00 AM
Loaded from MAINT(294)
R11919DK: ./ R 142000 $ 142100 00001000
R11919DK: EXTRN DMKPGSPS @VA11919 00002000
BEGIN APPLY >>> ./ R 142000 $ 142100 00001000
END APPLY >>> ./ R 142000 $ 142100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12820DK
Date Thursday May 07, 1981 04:15:00 AM
Loaded from MAINT(294)
R12820DK: ./ I 323000 $ 323100 00001000
R12820DK: * DMKCFG203E V=R AREA REQUIRES IPL BY DEVICE ADDRESS 00002000
R12820DK: ./ R 1343000 1344000 $ 1343100 500 00003000
R12820DK: * 5. IF THIS USER IS THE V=R USER, RETURN TO CALLER WITH 00004000
R12820DK: * CONDITION CODE 2. 00005000
R12820DK: ./ D 1368050 1368250 $ 00006000
R12820DK: ./ I 1372000 $ 1372100 100 00009000
R12820DK: CL R11,AVMREAL IS USER IN A V=R AREA ? @VA12820 00010000
R12820DK: BE CFG203 YES.. CAN'T ISSUE THIS FUNCTION @VA12820 00011000
BEGIN APPLY >>> ./ I 323000 $ 323100 00001000
END APPLY >>> ./ I 323000 $ 323100 00001000
BEGIN APPLY >>> ./ R 1343000 1344000 $ 1343100 500 00003000
END APPLY >>> ./ R 1343000 1344000 $ 1343100 500 00003000
BEGIN APPLY >>> ./ D 1368050 1368250 $ 00006000
END APPLY >>> ./ D 1368050 1368250 $ 00006000
BEGIN APPLY >>> ./ I 1372000 $ 1372100 100 00009000
END APPLY >>> ./ I 1372000 $ 1372100 100 00009000
Update Succeeded
Update Execution Time 16 milliseconds.
R13356DK
Date Friday Aug 07, 1981 06:30:00 AM
Loaded from MAINT(294)
R13356DK: ./ D 00904000 00001000
R13356DK: ./ I 00914000 $ 914100 100 00002000
R13356DK: L R15,PREFIXA PREFIX VALUE TO ADDRESS PSA @VA13356 00003000
R13356DK: * AT ABSOLUTE 0 00004000
R13356DK: L R0,TTSEGCNT-PSA(,R15) NUM OF PG/SWP TBLS IN SYS @VA13356 00005000
R13356DK: BCTR R0,R0 DECREMENT PAG/SWP TABLE COUNT @VA13356 00006000
R13356DK: ST R0,TTSEGCNT-PSA(,R15) STORE IT BACK IN PSA @VA13356 00007000
BEGIN APPLY >>> ./ D 00904000 00001000
END APPLY >>> ./ D 00904000 00001000
BEGIN APPLY >>> ./ I 00914000 $ 914100 100 00002000
END APPLY >>> ./ I 00914000 $ 914100 100 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
R13054DK
Date Friday Nov 06, 1981 03:13:00 PM
Loaded from MAINT(294)
R13054DK: ./ R 487000 $ 487000 500 00001000
R13054DK: GETVMI L R4,ASYSVM ADDRESS OF SYSTEM VMBLOK @VA13054 00002000
R13054DK: ./ I 503000 $ 503500 400 00003000
R13054DK: * IF MSS DEVICE, IT IS POSSIBLE R1-IPL PAGE ADDR WAS ZEROED 00004000
R13054DK: L R1,VMPSW+4 GET ADDR OF IPL PAGE @VA13054 00005000
R13054DK: ./ R 510000 $ 510500 200 00006000
R13054DK: BNZ CHKMOUNT COULD BE A MSS DEVICE WITH AN @VA13054 00007000
R13054DK: * OUTSTANDING MOUNT PENDING 00008000
R13054DK: ./ R 531000 $ 531020 20 00009000
R13054DK: CHKMOUNT EQU * @VA13054 00010000
R13054DK: * 00011000
R13054DK: * AT THIS POINT WE ARE ABOUT TO RETURN TO THE CALLER 00012000
R13054DK: * WITH A CONDITION CODE 3 (DEVICE NOT AVAILABLE). 00013000
R13054DK: * IF THE MSS IS IN THE SYSTEM, THE DEVICE MAY 00014000
R13054DK: * BE "NOT AVAILABLE" BECAUSE AN MSS MOUNT IS IN 00015000
R13054DK: * PROCESS. IF THAT IS THE CASE, STACK THIS VIRTUAL 00016000
R13054DK: * REQUEST UNTIL THE MOUNT COMPLETES. 00017000
R13054DK: * 00018000
R13054DK: TM PSAMSS,MSSPRES IS THE MSS IN THIS SYSTEM @VA13054 00019000
R13054DK: BZ CFG040 NO, THEN THE DEVICE DOES EXIST @VA13054 00020000
R13054DK: L R2,SAVEWRK2 GET IPL VADRR @VA13054 00021000
R13054DK: L R3,=V(DMKSSSMQ) WAIT Q FOR MSS MOUNTS @VA13054 00022000
R13054DK: L R3,0(R3) PICK UP ACTUAL QUEUE @VA13054 00023000
R13054DK: USING OSVSCOM,R3 ASSEMBLER ADDRESSABILITY @VA13054 00024000
R13054DK: TESTCOM EQU * IS THERE A MSSCOM BLOCK @VA13054 00025000
R13054DK: LTR R3,R3 IS THE CHAIN PTR 0 @VA13054 00026000
R13054DK: BZ CFG040 YES, WERE NOT WAITING ON MSS @VA13054 00027000
R13054DK: CLC VMUSER(VMUSERL),MSSUSER ARE WE WAITING @VA13054 00028000
R13054DK: BNE NXTCOM NOT ON THIS BLOCK @VA13054 00029000
R13054DK: L R4,MSSTASK1 TASK THAT IS WAITING @VA13054 00030000
R13054DK: CH R2,CPEXMISC-CPEXBLOK(R4) VIRT DEV WAITING @VA13054 00031000
R13054DK: BNE NXTCOM THIS VIRT DEV NOT WAITING @VA13054 00032000
R13054DK: LA R0,CPEXSIZE SIZE OF A CPEXBLOK @VA13054 00033000
R13054DK: CALL DMKFREE GET DYNAMIC STORAGE @VA13054 00034000
R13054DK: USING CPEXBLOK,R1 @VA13054 00035000
R13054DK: ST R1,MSSTASK3 @VA13054 00036000
R13054DK: STM R0,R15,CPEXREGS SAVE REGS FOR LATER DISPATCH @VA13054 00037000
R13054DK: LA R0,MSSRETRN RE-DISPATCH ADDRESS @VA13054 00038000
R13054DK: ST R0,CPEXADD FIELD FOR DISPATCHER LATER @VA13054 00039000
R13054DK: ST R2,CPEXMISC SAVE VADDR WHICH IS WAITING @VA13054 00040000
R13054DK: LR R2,R12 GET MODULE ADDRESS FOR LOCK @VA13054 00041000
R13054DK: CALL DMKPTRLK PAGEABLE MODULE - BETTER LOCK IT @VA13054 00042000
R13054DK: GOTO DMKDSPCH WAIT FOR THE MSS @VA13054 00043000
R13054DK: DROP R1 @VA13054 00044000
R13054DK: NXTCOM EQU * GET NEXT MSSCOM BLOCK @VA13054 00045000
R13054DK: L R3,MSSNEXT CHAIN PTR @VA13054 00046000
R13054DK: B TESTCOM SEE IF THERE IS ONE @VA13054 00047000
R13054DK: DROP R3 @VA13054 00048000
R13054DK: MSSRETRN LR R2,R12 ALSO NEED BASE ADDR TO UNLOCK @VA13054 00049000
R13054DK: CALL DMKPTRUL GO UNLOCK PAGE @VA13054 00050000
R13054DK: B GETVMI MAKE IT LOOK LIKE WE NEVER LEFT @VA13054 00051000
R13054DK: EJECT 00052000
R13054DK: ./ I 1563000 $ 1563500 00053000
R13054DK: VMUSERL EQU 8 LENGHT OF VMUSER FIELD @VA13054 00054000
R13054DK: ./ R 1577000 $ 1577200 200 00055000
R13054DK: EJECT 00056000
R13054DK: OSVSCOM MSSCOM @VA13054 00057000
R13054DK: SPACE 1 00058000
BEGIN APPLY >>> ./ R 487000 $ 487000 500 00001000
END APPLY >>> ./ R 487000 $ 487000 500 00001000
BEGIN APPLY >>> ./ I 503000 $ 503500 400 00003000
END APPLY >>> ./ I 503000 $ 503500 400 00003000
BEGIN APPLY >>> ./ R 510000 $ 510500 200 00006000
END APPLY >>> ./ R 510000 $ 510500 200 00006000
BEGIN APPLY >>> ./ R 531000 $ 531020 20 00009000
END APPLY >>> ./ R 531000 $ 531020 20 00009000
BEGIN APPLY >>> ./ I 1563000 $ 1563500 00053000
END APPLY >>> ./ I 1563000 $ 1563500 00053000
BEGIN APPLY >>> ./ R 1577000 $ 1577200 200 00055000
END APPLY >>> ./ R 1577000 $ 1577200 200 00055000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC066DK
Date Tuesday Mar 08, 2016 06:42:00 PM
Loaded from MAINT(094)
HRC066DK: ./ I 00909100 $ 00909200 100
HRC066DK: L R15,=A(DMKSYSAP) -> DMKSYS AP setting HRC066DK
HRC066DK: CLI 0(R15),YES Is AP enabled? HRC066DK
HRC066DK: BNE *+6 No HRC066DK
HRC066DK: AR R0,R0 Double table size for APHRC066DK
HRC066DK: ./ I 01039000 $ 01039100 100
HRC066DK: OI PAGBMP+PAGSWP,X'80' Indicate AP table HRC066DK
HRC066DK: ./ R 01056500 $ 01056500
HRC066DK: LA R0,PAGBMP+PAGBMP Size of tables for AP HRC066DK
BEGIN APPLY >>> ./ I 00909100 $ 00909200 100
END APPLY >>> ./ I 00909100 $ 00909200 100
BEGIN APPLY >>> ./ I 01039000 $ 01039100 100
END APPLY >>> ./ I 01039000 $ 01039100 100
BEGIN APPLY >>> ./ R 01056500 $ 01056500
END APPLY >>> ./ R 01056500 $ 01056500
Update Succeeded
Update Execution Time 31 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:15:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00615000 $ 00615100 100
HRC106DK: LA R0,PAGE3375 Maximum pages/cyl on 3375 HRC106DK
HRC106DK: TM RDEVTYPE,TYP3375 Is this a 3375 HRC106DK
HRC106DK: BO SAVMAXPG Yes ----- HRC106DK
HRC106DK: LA R0,PAGE3380 Maximum pages/cyl on 3380 HRC106DK
HRC106DK: TM RDEVTYPE,TYP3380 Is this a 3380 HRC106DK
HRC106DK: BO SAVMAXPG Yes ----- HRC106DK
HRC106DK: ./ I 01514000 $ 01514100 100
HRC106DK: PAGE3375 EQU 96 Number of pages per cylinder HRC106DK
HRC106DK: * (3375) HRC106DK
HRC106DK: PAGE3380 EQU 150 Number of pages per cylinder HRC106DK
HRC106DK: * (3380) HRC106DK
BEGIN APPLY >>> ./ I 00615000 $ 00615100 100
END APPLY >>> ./ I 00615000 $ 00615100 100
BEGIN APPLY >>> ./ I 01514000 $ 01514100 100
END APPLY >>> ./ I 01514000 $ 01514100 100
Update Succeeded
Update Execution Time 16 milliseconds.