DMKCKS History
References
-
-
Fixes Applied : 10
-
Last Fix ID : [HRC075DK]
Update History
CMS File Input : DMKCKS ASSEMBLE
Date : 12/7/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKCKS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R10076DK 604 CP DUMP SERVICES SUPPORT
R09218DK 606 ABENDPTR003 TRYING TO RELEASE MAP OF CHECKPOINT CYLINDER
R10616DK 609 CORRECT BAD LINE OF CODE
R12228DK 617 UV03026 SPOOL FILE IS INCOMPATIBLE BETWEEN R060 AND VM/SP
R12674DK 619 UV03929 ABENDFRE013 ON CHECKPOINT START AFTER VM12228DK
R13815DK 624 UV05315 CHECKPOINT STARTDOES NOT CHECK SINGLE PAGE FILE
R14548DK 627 UV05999 ABENDPGU001 DMKCKS FAIL TO DELETE INCOMPLETE SFBLOK
HRC032DK V01 ASK FOR CKPT RESTART IF WARM FAILS
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
HRC075DK V01 Alternate nucleus support
R10076DK
Date Monday Jul 02, 1979 11:07:00 AM
Loaded from MAINT(294)
R10076DK: ./ R 00725000 $ 725000 200 04/12/79 08:03:03
R10076DK: BNO CKSWM4AA NO...SKIP VMDUMP CHECK @V67CAH7 00724100
R10076DK: CLI SFBMISC1+1,C'V' YES...IS IT A VMDUMP @V67CAH7 00724200
R10076DK: BNE CKSWM6E SPECIAL HANDLING FOR CPDUMP @V67CAH7 00724300
R10076DK: CKSWM4AA DS 0H @V67CAH7 00725000
BEGIN APPLY >>> ./ R 00725000 $ 725000 200 04/12/79 08:03:03
END APPLY >>> ./ R 00725000 $ 725000 200 04/12/79 08:03:03
Update Succeeded
Update Execution Time 16 milliseconds.
R09218DK
Date Friday Nov 02, 1979 10:24:00 AM
Loaded from MAINT(294)
R09218DK: ./ R 350000 $ 350500 00001000
R09218DK: CKSEXIT L R2,RADDMAP GET REAL ADDRESS OF MAP @VA09218 00002000
BEGIN APPLY >>> ./ R 350000 $ 350500 00001000
END APPLY >>> ./ R 350000 $ 350500 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R10616DK
Date Tuesday Jan 29, 1980 12:11:00 PM
Loaded from MAINT(294)
R10616DK: ./ R 646700 $ 646700 00001000
R10616DK: SR R15,R15 ZERO IT @VA10616 00002000
BEGIN APPLY >>> ./ R 646700 $ 646700 00001000
END APPLY >>> ./ R 646700 $ 646700 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12228DK
Date Friday Nov 21, 1980 02:26:00 PM
Loaded from MAINT(294)
R12228DK: ./ R 456000 $ 456100 100 00001000
R12228DK: LH R5,ENTRYCMP LOAD COMPARAND OFFSET @VA12228 00002000
R12228DK: AR R5,R3 FORM COMPARAND ADDRESS @VA12228 00003000
R12228DK: ./ R 606000 $ 606100 100 00004000
R12228DK: LH R5,ENTRYCMP LOAD COMPARAND OFFSET @VA12228 00005000
R12228DK: AR R5,R3 FORM COMPARAND ADDRESS @VA12228 00006000
R12228DK: ./ I 683000 $ 683100 100 00018000
R12228DK: MVC SFBUFORM,=CL8'STANDARD' @VA12228 00019000
R12228DK: MVC SFBOFORM,=CL8'STANDARD' @VA12228 00020000
R12228DK: ./ R 1483000 $ 1483100 100 00007000
R12228DK: SLOTPPAG DC F'34' SFBLOKS PER CHAIN (SP SIZE) @VA12228 00008000
R12228DK: ./ R 1486000 $ 1486100 100 00009000
R12228DK: ENTRYSIZ DC AL2(SPSFBSZ*8) @VA12228 00010000
R12228DK: ENTRYCMP DC AL2(34*SPSFBSZ*8-1) @VA12228 00011000
R12228DK: ./ I 1530000 $ 1530002 1 00012000
R12228DK: SFBLOK DSECT , CONTINUATION OF SFBLOK @VA12228 00013000
R12228DK: ORG , WITH VM/SP SFBLOK DEFINITIONS @VA12228 00014000
R12228DK: SFBUFORM DS D USER FORM @VA12228 00015000
R12228DK: SFBOFORM DS D OPERATOR FORM @VA12228 00016000
R12228DK: SPSFBSZ EQU (*-SFBLOK+7)/8 VM/SP SFBLOK IS 2 DWORDS LONGER @VA12228 00017000
BEGIN APPLY >>> ./ R 456000 $ 456100 100 00001000
END APPLY >>> ./ R 456000 $ 456100 100 00001000
BEGIN APPLY >>> ./ R 606000 $ 606100 100 00004000
END APPLY >>> ./ R 606000 $ 606100 100 00004000
BEGIN APPLY >>> ./ I 683000 $ 683100 100 00018000
END APPLY >>> ./ I 683000 $ 683100 100 00018000
BEGIN APPLY >>> ./ R 1483000 $ 1483100 100 00007000
END APPLY >>> ./ R 1483000 $ 1483100 100 00007000
BEGIN APPLY >>> ./ R 1486000 $ 1486100 100 00009000
END APPLY >>> ./ R 1486000 $ 1486100 100 00009000
BEGIN APPLY >>> ./ I 1530000 $ 1530002 1 00012000
END APPLY >>> ./ I 1530000 $ 1530002 1 00012000
Update Succeeded
Update Execution Time 23 milliseconds.
R12674DK
Date Thursday Mar 05, 1981 11:41:00 AM
Loaded from MAINT(294)
R12674DK: ./ R 456100 456200 $ 456100 00001000
R12674DK: LA R5,36*SFBSIZE*8-1(,R3) COMPARAND @VA12674 00002000
R12674DK: ./ R 606100 606200 $ 606100 00003000
R12674DK: LA R5,36*SFBSIZE*8-1(,R3) COMPARAND @VA12674 00004000
R12674DK: ./ D 683100 683200 $ 00005000
R12674DK: ./ R 1483100 $ 1483100 00006000
R12674DK: SLOTPPAG DC F'36' SFBLOKS PER PAGE @VA12674 00007000
R12674DK: ./ R 1486100 1486200 $ 1486100 00008000
R12674DK: ENTRYSIZ DC H'104' SFBSIZE*8 (SFBLOK IN BYTES) @VA12674 00009000
R12674DK: ./ D 1530002 1530006 $ 00010000
BEGIN APPLY >>> ./ R 456100 456200 $ 456100 00001000
END APPLY >>> ./ R 456100 456200 $ 456100 00001000
BEGIN APPLY >>> ./ R 606100 606200 $ 606100 00003000
END APPLY >>> ./ R 606100 606200 $ 606100 00003000
BEGIN APPLY >>> ./ D 683100 683200 $ 00005000
END APPLY >>> ./ D 683100 683200 $ 00005000
BEGIN APPLY >>> ./ R 1483100 $ 1483100 00006000
END APPLY >>> ./ R 1483100 $ 1483100 00006000
BEGIN APPLY >>> ./ R 1486100 1486200 $ 1486100 00008000
END APPLY >>> ./ R 1486100 1486200 $ 1486100 00008000
BEGIN APPLY >>> ./ D 1530002 1530006 $ 00010000
END APPLY >>> ./ D 1530002 1530006 $ 00010000
Update Succeeded
Update Execution Time 23 milliseconds.
R13815DK
Date Tuesday Sep 01, 1981 11:08:00 AM
Loaded from MAINT(294)
R13815DK: ./ D 727000 734000 $
BEGIN APPLY >>> ./ D 727000 734000 $
END APPLY >>> ./ D 727000 734000 $
Update Succeeded
Update Execution Time 8 milliseconds.
R14548DK
Date Friday Jan 15, 1982 04:23:00 PM
Loaded from MAINT(294)
R14548DK: ./ R 813000 814000 $ 813100 100 00001000
R14548DK: CKSWM6C DS 0H @VA14548 00002000
R14548DK: CLC CCPDBUFF(4),SFBLAST IS THIS REALLY A COMPLETE @VA14548 00005000
R14548DK: * FILE? 00006000
R14548DK: BNE CKSWM6A1 NOT COMPLETE DELETE THIS FILE. @VA14548 00007000
R14548DK: CLC SPNXTPAG(4),SFBSTART DOUBLE CHECK COMPLETE @VA14548 00008000
R14548DK: * FILE FOR SAFETY. 00009000
R14548DK: BNE CKSWM6A1 NOT COMPLETE DELETE THIS FILE. @VA14548 00010000
R14548DK: DROP R2
R14548DK: NI 0(R3),X'FF'-(OPNSFB+ACTSFB) CLEAR THESE FLAGS @VA14548 00012000
BEGIN APPLY >>> ./ R 813000 814000 $ 813100 100 00001000
END APPLY >>> ./ R 813000 814000 $ 813100 100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC032DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC032DK: ./ R 01390000 $ 1390190 190 03/02/06 13:04:10
HRC032DK: CALL DMKQCNSY WAIT FOR OUPUT TO COMPLETE HRC035DK 01399000
HRC032DK: LA R2,8 HRC035DK
HRC032DK: ST R2,SAVER2 HRC035DK
HRC032DK: B CKSEXIT HRC035DK 01390000
BEGIN APPLY >>> ./ R 01390000 $ 1390190 190 03/02/06 13:04:10
END APPLY >>> ./ R 01390000 $ 1390190 190 03/02/06 13:04:10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:16:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00850000 $ 00850100 100
HRC106DK: ICM R15,B'0010',=AL1(96) Pages for a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it a 3375 ? HRC106DK
HRC106DK: BE CKSWM6E1 Xfer if so HRC106DK
HRC106DK: ICM R15,B'0010',=AL1(150) Pages for a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it a 3380 ? HRC106DK
HRC106DK: BE CKSWM6E1 Xfer if so HRC106DK
HRC106DK: ./ I 00886000 $ 00886100 100
HRC106DK: ICM R15,B'0010',=AL1(96) Pages for a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it 3375 ? HRC106DK
HRC106DK: BE CKSWM6E2 Xfer if so HRC106DK
HRC106DK: ICM R15,B'0010',=AL1(150) Pages for a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it 3380 ? HRC106DK
HRC106DK: BE CKSWM6E2 Xfer if so HRC106DK
HRC106DK: ./ I 01068000 $ 01068100 100
HRC106DK: LA R15,96 Assume it is a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it ? HRC106DK
HRC106DK: BE CSLOT0 Xfer if so HRC106DK
HRC106DK: LA R15,150 Assume it is a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it ? HRC106DK
HRC106DK: BE CSLOT0 Xfer if so HRC106DK
HRC106DK: ./ I 01204000 $ 01204100 100
HRC106DK: LA R15,96 Assume a 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 Is it a 3375 ? HRC106DK
HRC106DK: BE NEWRECB Xfer if so HRC106DK
HRC106DK: LA R15,150 Assume a 3380 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Is it a 3380 ? HRC106DK
HRC106DK: BE NEWRECB Xfer if so HRC106DK
HRC106DK: ./ D 01211000
HRC106DK: ./ R 01214000 01225000 $ 01214100 500
HRC106DK: CH R8,=H'64' 'Small' no. of pages per cyl.? HRC106DK
HRC106DK: BL SMALLPPC Use the beginning of RECMAP HRC106DK
HRC106DK: CH R8,=H'128' 'Medium' no. of pages per cyl.? HRC106DK
HRC106DK: BL MIDPPC Use the middle of RECMAP HRC106DK
HRC106DK: SH R8,=H'128' Get rid of bits accounted for HRC106DK
HRC106DK: XC RECMAP(16),RECMAP Clear start, middle of RECMAP HRC106DK
HRC106DK: SRDL R14,0(R8) Insert one zero per avail. page HRC106DK
HRC106DK: STM R14,R15,RECMAP+16 Set up end of RECMAP HRC106DK
HRC106DK: B MAPFIN RECMAP completely set up HRC106DK
HRC106DK: MIDPPC SH R8,=H'64' Get rid of bits accounted for HRC106DK
HRC106DK: STM R14,R15,RECMAP+16 Set all bits at end of RECMAP HRC106DK
HRC106DK: SRDL R14,0(R8) Insert one zero per avail. page HRC106DK
HRC106DK: STM R14,R15,RECMAP+8 Set up middle of RECMAP HRC106DK
HRC106DK: XC RECMAP(8),RECMAP Clear beginning of RECMAP HRC106DK
HRC106DK: B MAPFIN RECMAP completely set up HRC106DK
HRC106DK: SMALLPPC STM R14,R15,RECMAP+16 Set all bits at end of RECMAP HRC106DK
HRC106DK: STM R14,R15,RECMAP+8 Set all bits in RECMAP middle HRC106DK
HRC106DK: SRDL R14,0(R8) Insert one zero per avail. page HRC106DK
HRC106DK: STM R14,R15,RECMAP Set up beginning of RECMAP HRC106DK
HRC106DK: ./ R 01241000 01242000 $ 01241100 1000
HRC106DK: CLI RECMAX,64 Is this a 'large' device? HRC106DK
HRC106DK: BNH OTHERDEV Reserve only three pages HRC106DK
BEGIN APPLY >>> ./ I 00850000 $ 00850100 100
END APPLY >>> ./ I 00850000 $ 00850100 100
BEGIN APPLY >>> ./ I 00886000 $ 00886100 100
END APPLY >>> ./ I 00886000 $ 00886100 100
BEGIN APPLY >>> ./ I 01068000 $ 01068100 100
END APPLY >>> ./ I 01068000 $ 01068100 100
BEGIN APPLY >>> ./ I 01204000 $ 01204100 100
END APPLY >>> ./ I 01204000 $ 01204100 100
BEGIN APPLY >>> ./ D 01211000
END APPLY >>> ./ D 01211000
BEGIN APPLY >>> ./ R 01214000 01225000 $ 01214100 500
END APPLY >>> ./ R 01214000 01225000 $ 01214100 500
BEGIN APPLY >>> ./ R 01241000 01242000 $ 01241100 1000
END APPLY >>> ./ R 01241000 01242000 $ 01241100 1000
Update Succeeded
Update Execution Time 31 milliseconds.
HRC075DK
Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)
HRC075DK: ./ R 01057000 01057000 $ 01057000 1000
HRC075DK: LH R1,4(,R1) Get CUU of CKP area volume HRC075DK
BEGIN APPLY >>> ./ R 01057000 01057000 $ 01057000 1000
END APPLY >>> ./ R 01057000 01057000 $ 01057000 1000
Update Succeeded
Update Execution Time 23 milliseconds.