• Abstract / Synopsis of DMKIOE
• Latest Source of DMKIOE
• Fixes Applied : 16
• Latest Source Date : Thursday, December 14, 1978
• Last Fix ID : [HRC011DK]

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

1. R09590DK 602 3330 ERROR RECORDING UPDATE
2. R08550DK 602 REMOVE V08055; THIS PROBLEM FIXED IN VS1 BY APAR OX22898
3. R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
4. R09371DK 606 SHOW CORRECT RELEASE IN OBR/MDR
5. R10640DK 609 WRONG CHECK FOR CORRECTABLE ERROR ON 3350
6. R10527DK 611 UV00674 TEST FOR FORMAT 6 BEFORE CREATING MDR
7. R10241DK 616 REMOVE VCON FROM PAGEABLE MODULE
8. R11856DK 616 UV01930 HANDLE GREATER THAN 256 BYTE IOERBLOK + EXTENSION
9. R12432DK 618 UV03241 RECORD ERRORS FOR D/T2305
10. R09736DK 621 UV04472 CLEAN UP FOR 2305 BUFFER DATA
11. R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
12. R14795DK 628 UV06067 FILE PROTECT ERROR, DO NOT RECORD ERROR
13. R14701DK 628 UV06144 FORMAT LONG OBR RECORD FOR 34XX TAPE DRIVES.
14. R11958DK 629 UV02246 RECORD TEMPORARY ERRORS FOR D/T3350
15. R13854DK 629 UV06219 DON'T RECORD D/T3330 TEMP DATA CHECKS
16. HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.

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.