DMKIOE History
References
-
-
Fixes Applied : 16
-
Last Fix ID : [HRC011DK]
Update History
CMS File Input : DMKIOE ASSEMBLE
Date : 12/14/1978 8:50:00 AM
VM Context : MAINT(394)
File Name : DMKIOE.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Update Order
R09590DK 602 3330 ERROR RECORDING UPDATE
R08550DK 602 REMOVE V08055; THIS PROBLEM FIXED IN VS1 BY APAR OX22898
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09371DK 606 SHOW CORRECT RELEASE IN OBR/MDR
R10640DK 609 WRONG CHECK FOR CORRECTABLE ERROR ON 3350
R10527DK 611 UV00674 TEST FOR FORMAT 6 BEFORE CREATING MDR
R10241DK 616 REMOVE VCON FROM PAGEABLE MODULE
R11856DK 616 UV01930 HANDLE GREATER THAN 256 BYTE IOERBLOK + EXTENSION
R12432DK 618 UV03241 RECORD ERRORS FOR D/T2305
R09736DK 621 UV04472 CLEAN UP FOR 2305 BUFFER DATA
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R14795DK 628 UV06067 FILE PROTECT ERROR, DO NOT RECORD ERROR
R14701DK 628 UV06144 FORMAT LONG OBR RECORD FOR 34XX TAPE DRIVES.
R11958DK 629 UV02246 RECORD TEMPORARY ERRORS FOR D/T3350
R13854DK 629 UV06219 DON'T RECORD D/T3330 TEMP DATA CHECKS
HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
R09590DK
Date Wednesday Apr 18, 1979 04:18:00 AM
Loaded from MAINT(294)
R09590DK: ./ R 287000 $ 287000 DMK00020
R09590DK: BER R5 YES - RECORD TEMP ERROR @VA09590 DMK00030
BEGIN APPLY >>> ./ R 287000 $ 287000 DMK00020
END APPLY >>> ./ R 287000 $ 287000 DMK00020
Update Succeeded
Update Execution Time 16 milliseconds.
R08550DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R08550DK: ./ R 521000 528000 $ 521000 100 00001000
R08550DK: OI SDRFLAGS,SDRSHRT TURN ON SHORT OBR FLAG @VA08550 00002000
R08550DK: SLR R1,R1 CLEAR WORK REG @VA08550 00003000
BEGIN APPLY >>> ./ R 521000 528000 $ 521000 100 00001000
END APPLY >>> ./ R 521000 528000 $ 521000 100 00001000
Update Succeeded
Update Execution Time 16 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 8 milliseconds.
R09371DK
Date Wednesday Oct 31, 1979 09:28:00 AM
Loaded from MAINT(294)
R09371DK: ./ R 01681000 01682000 $ 01681000 1000 00001000
R09371DK: OBRKEY DC X'306640' OBR-CLASS/SYSTEM/REL. NUMBER @VA09371 00002000
R09371DK: MDRKEY DC X'916640' MDR-CLASS/SYSTEM/REL. NUMBER @VA09371 00003000
BEGIN APPLY >>> ./ R 01681000 01682000 $ 01681000 1000 00001000
END APPLY >>> ./ R 01681000 01682000 $ 01681000 1000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10640DK
Date Tuesday Feb 05, 1980 01:22:00 AM
Loaded from MAINT(294)
R10640DK: ./ R 288000 $ 288000 00001000
R10640DK: TM IOERDATA+2,X'40' IS ERROR CORRECTABLE? @VA10640 00002000
BEGIN APPLY >>> ./ R 288000 $ 288000 00001000
END APPLY >>> ./ R 288000 $ 288000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10527DK
Date Monday Apr 07, 1980 03:27:00 AM
Loaded from MAINT(294)
R10527DK: ./ I 260000 $ 260100 100 00001000
R10527DK: BNO NODATA RETURN TO INLINE CODE @VA10527 00002000
R10527DK: TM IOERDATA+7,X'60' IS THIS A FORMAT 6 RECORD? @VA10527 00003000
R10527DK: ./ R 262000 $ 262000 00004000
R10527DK: NODATA BR R5 RETURN TO INLINE CODE @VA10527 00005000
BEGIN APPLY >>> ./ I 260000 $ 260100 100 00001000
END APPLY >>> ./ I 260000 $ 260100 100 00001000
BEGIN APPLY >>> ./ R 262000 $ 262000 00004000
END APPLY >>> ./ R 262000 $ 262000 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
R10241DK
Date Monday Sep 08, 1980 05:20:00 AM
Loaded from MAINT(294)
R10241DK: ./ I 40000 $ 40100 00001000
R10241DK: ENTRY DMKIOECE,DMKIOEIF @VA10241 00002000
R10241DK: ./ I 1675000 $ 1675100 100 00003000
R10241DK: DMKIOEIF DC X'00' INFOFLAG @VA10241 00004000
R10241DK: DMKIOECE DC H'00' CECYL @VA10241 00005000
R10241DK: DC X'01' CEPAGE @VA10241 00006000
BEGIN APPLY >>> ./ I 40000 $ 40100 00001000
END APPLY >>> ./ I 40000 $ 40100 00001000
BEGIN APPLY >>> ./ I 1675000 $ 1675100 100 00003000
END APPLY >>> ./ I 1675000 $ 1675100 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R11856DK
Date Monday Sep 15, 1980 08:01:00 AM
Loaded from MAINT(294)
R11856DK: ./ R 1364000 1369000 $ 1364010 10 00001000
R11856DK: SR R3,R3 CLEAR LENGTH WORK REG @VA11856 00002000
R11856DK: LH R3,IOEREXT GET EXTENSION @VA11856 00003000
R11856DK: LA R3,IOERSIZE(,R3) ADD THE IOERBLOK LENGTH @VA11856 00004000
R11856DK: SLL R3,3 MULT BY 8 @VA11856 00005000
R11856DK: N R3,=X'00000FFF' DONT GO CRAZY @VA11856 00006000
R11856DK: LA R2,ERRIOER POINT TO WHERE @VA11856 00007000
R11856DK: LA R14,IOERBLOK AND FROM WHERE @VA11856 00008000
R11856DK: LTR R15,R3 SET UP THE LENGTHS @VA11856 00009000
R11856DK: BZR R5 NOBYTES ALREADY DONE @VA11856 00010000
R11856DK: MVCL R2,R14 HANDLE BIG STUFF @VA11856 00011000
R11856DK: ./ D 1382000 00012000
BEGIN APPLY >>> ./ R 1364000 1369000 $ 1364010 10 00001000
END APPLY >>> ./ R 1364000 1369000 $ 1364010 10 00001000
BEGIN APPLY >>> ./ D 1382000 00012000
END APPLY >>> ./ D 1382000 00012000
Update Succeeded
Update Execution Time 16 milliseconds.
R12432DK
Date Friday Jan 09, 1981 12:09:00 PM
Loaded from MAINT(294)
R12432DK: ./ I 283000 $ 283100 100 00001000
R12432DK: CLI RDEVTYPE,TYP2305 IS THIS A 2305 @VA12432 00002000
R12432DK: BER R5 YES-RECORD TEMPORARY ERRORS @VA12432 00003000
BEGIN APPLY >>> ./ I 283000 $ 283100 100 00001000
END APPLY >>> ./ I 283000 $ 283100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09736DK
Date Wednesday Jun 03, 1981 05:15:00 AM
Loaded from MAINT(294)
R09736DK: ./ R 266000 267000 $ 266100 50 00001000
R09736DK: ***********************************************************************
R09736DK: * DMKDAS WILL ALLOW US TO COME HERE WITH TWO IOERBLOKS.. THE FIRST ONE
R09736DK: * HAS THE BUFFER OVERFLOW SENSE DATA IN IT AND THE SECOND ONE WILL HAVE
R09736DK: * THE UNLOADED BUFFER DATA. SO WE WANT TO SKIP THE FIRST AND FOOL WITH
R09736DK: * THE SECOND ONE. DMKDSB AT SHUTDOWN ALSO DOES UNLOADS BUT IT COMES
R09736DK: * HERE WITH ONLY THE IOERBLOK WITH THE UNLOADED BUFFER. ONLY WAY T'KEEP
R09736DK: * THEM STRAIGHT IS TO CHECK THE IOERBLOK WE GOT NOW AND SEE IF SENSE
R09736DK: * DATA FOR THE OVERFLOW UNIT CHECK EXISTS IF SO GET THE CHAINED IOERBLK
R09736DK: * THE BUFFERED DATA WILL START AT IOERDATA AND THE FIRST BYTE OF EACH
R09736DK: * DOUBLE WORD OF INFO IS THE CONTROL BYTE AND WONT BE ZERO IF WE CAME
R09736DK: * FROM THE UNIT CHECK THOUGH DMKDAS, BUT IF WE COME FROM DMKDSB
R09736DK: * NEAR ALL OF THE BUFFER COULD BE ZERO (I.E. BUFFER EMPTY)...BUT THEN
R09736DK: * IOERDATA + 2 WONT HAVE THE 80 IN IT EITHER SO WE SHOULD BE ALL SET
R09736DK: ***********************************************************************
R09736DK: CLC IOERDATA-IOERBLOK(3,R4),=X'000080' IS THIS THE @VA09736 00002000
R09736DK: BNER R5 IOERBLOK FOR THE BUFF FULL? NO CONTINUE... @VA09736 00003000
R09736DK: ICM R4,15,IOERPNT-IOERBLOK(R4) IF SO GET THE NEXT @VA09736 00004000
R09736DK: BNZ MDRRECD IF THERE ISNT ONE... WE GOT JUNK-A-HO @VA09736 00005000
R09736DK: L R4,IOBIOER IF THERE IS ONE ITS THE ONE WE @VA09736 00006000
R09736DK: BR R5 WANT TO LOG OUT.. IT HAS THE BUFFER @VA09736 00007000
BEGIN APPLY >>> ./ R 266000 267000 $ 266100 50 00001000
END APPLY >>> ./ R 266000 267000 $ 266100 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:33:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R14795DK
Date Monday Feb 15, 1982 09:27:00 AM
Loaded from MAINT(294)
R14795DK: ./ I 215000 $ 215100 300 00001000
R14795DK: TM IOERDATA+1,X'04' FILE PROTECT ERROR? @VA14795 00002000
R14795DK: BO NREXIT DO NOT RECORD, GO FRET IOERBLOK @VA14795 00003000
R14795DK: * AND EXIT 00004000
BEGIN APPLY >>> ./ I 215000 $ 215100 300 00001000
END APPLY >>> ./ I 215000 $ 215100 300 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R14701DK
Date Monday Feb 15, 1982 09:27:00 AM
Loaded from MAINT(294)
R14701DK: ./ I 520000 $ 520100 100 00001000
R14701DK: TM RDEVTYPE,TYP3410+TYP3420 3400 TAPE SERIES? @VA14701 00002000
R14701DK: BNZ *+8 YES, FORMAT LONG OBR @VA14701 00003000
R14701DK: ./ I 538000 $ 538050 50 00004000
R14701DK: TM SDRFLAGS,SDRSHRT IS IT A SHORT OBR? @VA14701 00005000
R14701DK: BO BYBUILD YES, BYPASS BUILDING DUMMY @VA14701 00006000
R14701DK: * IOBLOK AND IOERBLOK 00007000
R14701DK: LA R0,IOERSIZE DEFINE STORAGE FOR IOERBLOK @VA14701 00008000
R14701DK: CALL DMKFREE AND GET IT @VA14701 00009000
R14701DK: LR R4,R1 USE GPR4 FOR ADDRESSABILITY @VA14701 00010000
R14701DK: XC IOERBLOK(IOERSIZE*8),IOERBLOK CLEAR IOERBLOK @VA14701 00011000
R14701DK: LA R0,IOBSIZE DEFINE ITS STORAGE @VA14701 00012000
R14701DK: CALL DMKFREE AND GET IT @VA14701 00013000
R14701DK: LR R10,R1 USE GPR10 FOR ADDRESSABILITY @VA14701 00014000
R14701DK: XC IOBLOK(IOBSIZE*8),IOBLOK CLEAR IOBLOK @VA14701 00015000
R14701DK: MVC IOBRADD,SDRCUA+1 MOVE IN ADDRESS @VA14701 00016000
R14701DK: CLI RDEVTYPE,TYP3420 3420 TAPE? @VA14701 00017000
R14701DK: BNE BYBUILD NO,BRANCH @VA14701 00018000
R14701DK: MVI IOERLEN+1,24 INDICATE IT IS A 3420 TAPE @VA14701 00019000
R14701DK: BYBUILD EQU * @VA14701 00020000
R14701DK: ./ I 541000 $ 541100 100 00021000
R14701DK: TM SDRFLAGS,SDRSHRT SHORT OBR? @VA14701 00022000
R14701DK: BO NOFRET YES, NO DUMMY BLOKS TO FRET @VA14701 00023000
R14701DK: SR R3,R3 CLEAR R3 @VA14701 00024000
R14701DK: BAL R5,NOCHAN FRET DUMMY IOBLOK @VA14701 00025000
R14701DK: LR R1,R10 GET ADDRESS OF IOBLOK @VA14701 00026000
R14701DK: LA R0,IOBSIZE GET SIZE OF IOBLOK @VA14701 00027000
R14701DK: CALL DMKFRET RETURN DUMMY IOBLOK STORAGE @VA14701 00028000
R14701DK: NOFRET EQU * @VA14701 00029000
BEGIN APPLY >>> ./ I 520000 $ 520100 100 00001000
END APPLY >>> ./ I 520000 $ 520100 100 00001000
BEGIN APPLY >>> ./ I 538000 $ 538050 50 00004000
END APPLY >>> ./ I 538000 $ 538050 50 00004000
BEGIN APPLY >>> ./ I 541000 $ 541100 100 00021000
END APPLY >>> ./ I 541000 $ 541100 100 00021000
Update Succeeded
Update Execution Time 23 milliseconds.
R11958DK
Date Monday Mar 15, 1982 08:42:00 AM
Loaded from MAINT(294)
R11958DK: ./ I 287000 $ 287100 100 00001000
R11958DK: CLI RDEVTYPE,TYP3350 IS THIS A 3350 @VA11958 00002000
R11958DK: BER R5 YES-RECORD TEMPORARY ERRORS @VA11958 00003000
BEGIN APPLY >>> ./ I 287000 $ 287100 100 00001000
END APPLY >>> ./ I 287000 $ 287100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13854DK
Date Monday Mar 15, 1982 08:42:00 AM
Loaded from MAINT(294)
R13854DK: ./ I 283000 $ 283025 25 00001000
R13854DK: TM IOERDATA+2,X'40' IS ERROR CORRECTABLE? @VA13854 00002000
R13854DK: BZ NREXIT NOT RIGHT TYPE OF ERROR-EXIT @VA13854 00003000
R13854DK: ./ D 286000 287000 00004000
R13854DK: ./ D 288000 289000 00005000
R13854DK: ./ R 290000 $ 290100 00006000
R13854DK: B NREXIT DON'T RECORD TEMP DATA CHECK @VA13854 00007000
BEGIN APPLY >>> ./ I 283000 $ 283025 25 00001000
END APPLY >>> ./ I 283000 $ 283025 25 00001000
BEGIN APPLY >>> ./ D 286000 287000 00004000
END APPLY >>> ./ D 286000 287000 00004000
BEGIN APPLY >>> ./ D 288000 289000 00005000
END APPLY >>> ./ D 288000 289000 00005000
BEGIN APPLY >>> ./ R 290000 $ 290100 00006000
END APPLY >>> ./ R 290000 $ 290100 00006000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC011DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC011DK: ./ R 00257000 00258000 $ 257590 590 01/26/06 18:32:14
HRC011DK: TM RDEVTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC011DK 00257590
HRC011DK: * DASD TYP 3330, 3340, 3350 OR 3380 ? HRC011DK 00258180
HRC011DK: ./ I 00287200 $ 288100 900 01/26/06 18:32:14
HRC011DK: CLI RDEVTYPE,TYP3380 IS THIS A 3380 HRC011DK 00288100
HRC011DK: BER R5 YES-RECORD TEMPORARY ERRORS HRC011DK 00289000
BEGIN APPLY >>> ./ R 00257000 00258000 $ 257590 590 01/26/06 18:32:14
END APPLY >>> ./ R 00257000 00258000 $ 257590 590 01/26/06 18:32:14
BEGIN APPLY >>> ./ I 00287200 $ 288100 900 01/26/06 18:32:14
END APPLY >>> ./ I 00287200 $ 288100 900 01/26/06 18:32:14
Update Succeeded
Update Execution Time 31 milliseconds.