DMKDMP History
References
-
-
Fixes Applied : 11
-
Last Fix ID : [HRC075DK]
Update History
CMS File Input : DMKDMP ASSEMBLE
Date : 12/7/1978 5:03:00 PM
VM Context : MAINT(394)
File Name : DMKDMP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R08883DK 601 FAIL TO CHECK FOR NORMAL COMPLETION OF FIRST SIO ON RESTART
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10076DK 604 CP DUMP SERVICES SUPPORT
R09426DK 605 CORRECT LOSS OF LINES ON 3203-5 FOR CP ABEND DUMPS
R09846DK 608 DUMP FAILS FOR A 3350 DEVICE
R09171DK 609 CP DMKDMP TIO LOOP GOTIO CSW STORED CHANNEL CHECK DUMP TO PRINTER
R10548DK 609 DMKDMP LOOPS WHEN ATTEMPT IS MADE TO SEND DUMP TO TAPE
R13645DK 623 UV04727 MESSAGE TEXT INCORRECT IN SRL FOR MSDMKDMP913I
R14457DK 625 UV05788 ABEND CODE IS NOLONGER PUT IN SFBLOK FOR DUMP
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
HRC075DK V01 Alternate nucleus support
R08883DK
Date Friday Jan 26, 1979 02:32:00 PM
Loaded from MAINT(294)
R08883DK: ./ I 776000 $ 776500 100 00001000
R08883DK: CLC CSW+4(2),=AL1(CE+DE,0) IS IT CE DE CLEAN? @VA08883 00002000
R08883DK: BNE IPLUC NO, SEE WHAT WENT WRONG @VA08883 00003000
R08883DK: ./ R 783000 $ 783500 100 00004000
R08883DK: CLC CSW+4(2),=AL1(CE+DE,0) IS IT CE DE CLEAN? @VA08883 00005000
R08883DK: ./ R 785000 $ 785100 100 00006000
R08883DK: B IPLUC SEE WHAT WENT WRONG @VA08883 00007000
R08883DK: ./ D 786000 00008000
R08883DK: ./ I 807000 $ 807100 100 00009000
R08883DK: CLC CSW+4(2),=AL1(CE+DE,0) IS IT CE DE CLEAN? @VA08883 00010000
R08883DK: BE B2A OK @VA08883 00011000
R08883DK: BAL R14,LOADWAIT UNEXPLAINED ERROR FROM SENSE @VA08883 00012000
R08883DK: B2A EQU * @VA08883 00013000
R08883DK: ./ I 1245000 $ 1245030 30 00014000
R08883DK: SPACE 1 00015000
R08883DK: *************************************************************** 00016000
R08883DK: * THE FOLLOWING FIELDS ARE INITIALIZED BY DMKCPI 00017000
R08883DK: * DMKDMPMA, DMKDMPAA AND DMKDMPSA ARE ALSO INITIALIZED 00018000
R08883DK: * BY DMKCPU 00019000
R08883DK: SPACE 1 00020000
R08883DK: DMKDMPDV DC A(0) PTR TO DUMP DEVICE RDEVBLOK 00021000
R08883DK: DMKDMPAU DC A(0) PTR TO AUTOMATIC DUMP DEVICE RDEVBLOK 00022000
R08883DK: DMKDMPRC DC A(0) PTR TO RECBLOK CHAIN FOR AUTOMATIC DUMP *00023000
R08883DK: DEVICE 00024000
R08883DK: DMKDMPTD DC D'0' TOD CLOCK AT 00.00.00 TODAY @V407510 00025000
R08883DK: TODATE2W EQU DMKDMPTD+4 SECOND WORD OF TODATE @V407510 00026000
R08883DK: DMKDMPDT DC D'0' DATE - MM/DD/YY - EDITED EBCDIC @V407510 00027000
R08883DK: DMKDMPSD DC H'0' SYSTEM IPL DEVICE @V407510 00028000
R08883DK: * DMKDMPMA & DMKDMPAA ARE EQUAL IN UNIPROCESSOR MODE 00029000
R08883DK: DMKDMPMA DC H'0' MAIN PROCESSOR ADDRESS @V407510 00030000
R08883DK: DMKDMPAA DC H'0' ATTACHED PROCESSOR ADDRESS @V407510 00031000
R08883DK: * DMKDMPSA IS EQUAL ZERO IN UNIPROCESSOR MODE 00032000
R08883DK: DMKDMPSA DC D'0' SAVE AREA FOR THE PSA ADDRESSES @V5BC0AB 00033000
R08883DK: ORG DMKDMPSA 00034000
R08883DK: MAINPSA DS F ADDRESS OF THE MAIN PSA @V5BC0AB 00035000
R08883DK: ATTPSA DS F ADDRESS OF THE APU PSA @V5BC0AB 00036000
R08883DK: *************************************************************** 00037000
R08883DK: ./ D 1360000 1374000 00038000
BEGIN APPLY >>> ./ I 776000 $ 776500 100 00001000
END APPLY >>> ./ I 776000 $ 776500 100 00001000
BEGIN APPLY >>> ./ R 783000 $ 783500 100 00004000
END APPLY >>> ./ R 783000 $ 783500 100 00004000
BEGIN APPLY >>> ./ R 785000 $ 785100 100 00006000
END APPLY >>> ./ R 785000 $ 785100 100 00006000
BEGIN APPLY >>> ./ D 786000 00008000
END APPLY >>> ./ D 786000 00008000
BEGIN APPLY >>> ./ I 807000 $ 807100 100 00009000
END APPLY >>> ./ I 807000 $ 807100 100 00009000
BEGIN APPLY >>> ./ I 1245000 $ 1245030 30 00014000
END APPLY >>> ./ I 1245000 $ 1245030 30 00014000
BEGIN APPLY >>> ./ D 1360000 1374000 00038000
END APPLY >>> ./ D 1360000 1374000 00038000
Update Succeeded
Update Execution Time 23 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:52: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 16 milliseconds.
R10076DK
Date Monday Jul 02, 1979 11:07:00 AM
Loaded from MAINT(294)
R10076DK: ./ I 00458000 $ 458200 200 04/12/79 08:03:39
R10076DK: L R7,=A(DMKSYSRM) POINT TO REAL STORAGE SIZE @V67CAH7 00458100
R10076DK: L R7,0(R7) GET REAL STOR VALUE @V67CAH7 00458200
R10076DK: ST R7,DMPSYSRM SAVE IT IN DMPINREC @V67CAH7 00458300
R10076DK: MVC DMPCPUID,CPUID SAVE CPU'S ID IN DMPINREC @V67CAH7 00458400
BEGIN APPLY >>> ./ I 00458000 $ 458200 200 04/12/79 08:03:39
END APPLY >>> ./ I 00458000 $ 458200 200 04/12/79 08:03:39
Update Succeeded
Update Execution Time 16 milliseconds.
R09426DK
Date Monday Oct 15, 1979 03:28:00 AM
Loaded from MAINT(294)
R09426DK: ./ I 01165000 $ 01165300 300
R09426DK: TM CSW+4,BUSY DOES THE CSW CONTAIN BUSY? @VA09426 01165100
R09426DK: BO PRSIO YES, OK REDO THE SIO. @VA09426 01165200
R09426DK: ./ R 01172000 01173000 $ 01172000 1000
R09426DK: TM CSW+4,UC IS DEVICE IN A NOT-READY STATE @VA09426 01172000
R09426DK: BNZ CHKSTAT YES - TELL THE OPERATOR @VA09426 01173000
BEGIN APPLY >>> ./ I 01165000 $ 01165300 300
END APPLY >>> ./ I 01165000 $ 01165300 300
BEGIN APPLY >>> ./ R 01172000 01173000 $ 01172000 1000
END APPLY >>> ./ R 01172000 01173000 $ 01172000 1000
Update Succeeded
Update Execution Time 16 milliseconds.
R09846DK
Date Friday Jan 11, 1980 01:08:00 AM
Loaded from MAINT(294)
R09846DK: ./ R 00571000 $ 00571100
R09846DK: LA R14,120 ASSUME A 3350 @VA09846
BEGIN APPLY >>> ./ R 00571000 $ 00571100
END APPLY >>> ./ R 00571000 $ 00571100
Update Succeeded
Update Execution Time 16 milliseconds.
R09171DK
Date Tuesday Feb 05, 1980 12:13:00 PM
Loaded from MAINT(294)
R09171DK: ./ I 1167000 $ 1167200 200 00010000
R09171DK: TM CSW+5,CDC+CCC+IFCC CHECK CSW FOR CHANNEL ERRORS @VA09171 00011000
R09171DK: BZ GOTIO NONE - CONTINUE @VA09171 00012000
R09171DK: BAL R14,LOADWAIT ERROR - SET TRACE ADDRESS AND @VA09171 00013000
R09171DK: * WAIT 00014000
R09171DK: ./ R 1171000 $ 1171200 200 00015000
R09171DK: BC 8,CONTIO CC=0, STATUS HAS BEEN CLEARED @VA09171 00016000
R09171DK: TM CSW+5,CDC+CCC+IFCC CHECK CSW FOR CHANNEL ERRORS @VA09171 00017000
R09171DK: BZ *+8 NONE KEEP GOING @VA09171 00018000
R09171DK: BAL R14,LOADWAIT CHAN ERROR - SET TRACE AND WAIT @VA09171 00019000
R09171DK: ./ R 1175000 $ 00020000
R09171DK: CONTIO NC CSW+4(2),=AL1(X'FF'-CE-DE-UE,X'FF') ANY ERRORS? @VA09171 00021000
BEGIN APPLY >>> ./ I 1167000 $ 1167200 200 00010000
END APPLY >>> ./ I 1167000 $ 1167200 200 00010000
BEGIN APPLY >>> ./ R 1171000 $ 1171200 200 00015000
END APPLY >>> ./ R 1171000 $ 1171200 200 00015000
BEGIN APPLY >>> ./ R 1175000 $ 00020000
END APPLY >>> ./ R 1175000 $ 00020000
Update Succeeded
Update Execution Time 16 milliseconds.
R10548DK
Date Tuesday Feb 05, 1980 01:14:00 AM
Loaded from MAINT(294)
R10548DK: ./ R 1172000 $ 1172000 150 00001000
R10548DK: CLI CSW+4,UC IS DEVICE IN A NOT-READY STATE ? @VA10548 00002000
R10548DK: BE CHKSTAT YES--TELL THE OPERATOR @VA10548 00003000
R10548DK: CLI RDEVTYPC,CLASTAPE IS THIS A TAPE ? @VA10548 00004000
R10548DK: BE GOTIO YES-REISSUE THE TIO @VA10548 00005000
R10548DK: TM CSW+4,UC IS THE PRINTER NOT-READY ? @VA10548 00006000
BEGIN APPLY >>> ./ R 1172000 $ 1172000 150 00001000
END APPLY >>> ./ R 1172000 $ 1172000 150 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13645DK
Date Friday Aug 07, 1981 06:22:00 AM
Loaded from MAINT(294)
R13645DK: ./ I 117000 $ 117500 100 00001000
R13645DK: * DMKDMP918I SYSTEM DUMP FAILURE; STATUS NOT STORED FOR NON- 00002000
R13645DK: * ABENDING PROCESSOR. 00003000
R13645DK: ./ R 1469000 $ 00004000
R13645DK: DMPERRM DC C'DMKDMP918I SYSTEM DUMP FAILURE; ' @VA13645 00005000
BEGIN APPLY >>> ./ I 117000 $ 117500 100 00001000
END APPLY >>> ./ I 117000 $ 117500 100 00001000
BEGIN APPLY >>> ./ R 1469000 $ 00004000
END APPLY >>> ./ R 1469000 $ 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R14457DK
Date Monday Nov 23, 1981 08:14:00 AM
Loaded from MAINT(294)
R14457DK: ./ I 542000 $ 542300 300
R14457DK: MVC SFBDIST(6),DMPSCOD MOVE CP ABEND CODE TO @VA14457
R14457DK: * SFBLOK DISTRIBUTION FIELD
BEGIN APPLY >>> ./ I 542000 $ 542300 300
END APPLY >>> ./ I 542000 $ 542300 300
Update Succeeded
Update Execution Time 16 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:16:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00408000 $ 00408100 100
HRC106DK: LA R5,96 Get number of recs/cyl for 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 3375 ? HRC106DK
HRC106DK: BE TBLSET Yes HRC106DK
HRC106DK: LA R5,150 Get number of recs/cyl for 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 3380 ? HRC106DK
HRC106DK: BE TBLSET Yes HRC106DK
HRC106DK: ./ I 00573000 $ 00573100 100
HRC106DK: LA R14,96 Assume a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it ? HRC106DK
HRC106DK: BE CKPA1 Xfer if so HRC106DK
HRC106DK: LA R14,150 Assume a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it ? HRC106DK
HRC106DK: BE CKPA1 Xfer if so HRC106DK
HRC106DK: ./ I 00588000 $ 00588100 100
HRC106DK: CLI RDEVTYPE,TYP3375 Is it a 3375? HRC106DK
HRC106DK: BNE CKPA75 Xfer if not HRC106DK
HRC106DK: LA R3,256*8 Divide constant for 3375 HRC106DK
HRC106DK: CKPA75 CLI RDEVTYPE,TYP3380 Is it a 3380? HRC106DK
HRC106DK: BNE CKPA80 Xfer if not HRC106DK
HRC106DK: LA R3,256*10 Divide constant for 3380 HRC106DK
HRC106DK: CKPA80 EQU * Test next DASD device HRC106DK
HRC106DK: ./ I 00695000 $ 00695100 100
HRC106DK: CLI RDEVTYPE,TYP3375 3375 DASD device ? HRC106DK
HRC106DK: BNE NOT3375 No -- branch HRC106DK
HRC106DK: LA R0,256*8 Divide constant for 3375 HRC106DK
HRC106DK: NOT3375 CLI RDEVTYPE,TYP3380 3380 DASD device ? HRC106DK
HRC106DK: BNE NOT3380 No -- branch HRC106DK
HRC106DK: LA R0,256*10 Divide constant for 3380 HRC106DK
HRC106DK: NOT3380 EQU * Test next DASD device HRC106DK
BEGIN APPLY >>> ./ I 00408000 $ 00408100 100
END APPLY >>> ./ I 00408000 $ 00408100 100
BEGIN APPLY >>> ./ I 00573000 $ 00573100 100
END APPLY >>> ./ I 00573000 $ 00573100 100
BEGIN APPLY >>> ./ I 00588000 $ 00588100 100
END APPLY >>> ./ I 00588000 $ 00588100 100
BEGIN APPLY >>> ./ I 00695000 $ 00695100 100
END APPLY >>> ./ I 00695000 $ 00695100 100
Update Succeeded
Update Execution Time 31 milliseconds.
HRC075DK
Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)
HRC075DK: ./ R 00566000 00566000 $ 00566000 1000
HRC075DK: LH R1,4(,R14) Get CUU of CKP area volume HRC075DK
HRC075DK: ./ R 00579000 00579000 $ 00579000 500
HRC075DK: L R15,=A(DMKSYSCH) -> CKP area cyls info HRC075DK
HRC075DK: LH R15,4(,R15) Get CUU of CKP area volume HRC075DK
BEGIN APPLY >>> ./ R 00566000 00566000 $ 00566000 1000
END APPLY >>> ./ R 00566000 00566000 $ 00566000 1000
BEGIN APPLY >>> ./ R 00579000 00579000 $ 00579000 500
END APPLY >>> ./ R 00579000 00579000 $ 00579000 500
Update Succeeded
Update Execution Time 31 milliseconds.