ibm:vm370-lib:cp:dmkdmp.assemble_hst
Table of Contents
DMKDMP History
References
- Fixes Applied : 11
- Latest Source Date : Thursday, December 7, 1978
- 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.
ibm/vm370-lib/cp/dmkdmp.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator