• Abstract / Synopsis of DMKDIA
• Latest Source of DMKDIA
• Fixes Applied : 16
• Latest Source Date : Thursday, December 7, 1978
• Last Fix ID : [HRC065DK]

CMS File Input : DMKDIA ASSEMBLE
Date : 12/7/1978 5:02:00 PM
VM Context : MAINT(394)
File Name : DMKDIA.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM

1. R09296DK 601 REASSEMBLE FOR V09296
2. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
3. R09164DK 606 FRE001 DIAL BUG
4. R09186DK 608 CORRECT CC AND SENSE FOR A TIO TO A NOTREADY GRAF
5. R09464DK 609 WRONG MESSAGE NUMBER FOR DIAL FUNCTION NOT AVAILABLE
6. R11241DK 615 UV01756 ABENDFRE001 IF MESSAGE SENT TO DIALING TERMINAL
7. R11612DK 616 UV01866 RDEVUSER FIELD INCORRECT AFTER DIAL COMMAND
8. R11314DK 616 UV01521 ABENDPRG001 WHEN DIAL TO DEVICE AFTER HDV
9. R11836DK 616 UV02166 ABENDSTK001 FRETTING WRONG VMBLOK DURING DIAL
10. R12101DK 618 UV03456 CORE OVERLAY AND VARIOUS PROBLEMS DUE TO VM10847
11. R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
12. R13704DK 623 UV04950 SPLIT DMKDIA FOR MAINTAINENCE
13. R13362DK 623 UV04988 RDEVAIOB POINTS TO IOBLOK WHEN HIO IS SKIPPED
14. R13441DK 627 UV04624 PREVENT DOUBLE FRET OF VMBLOK AFTER I/O ERRORS
15. HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
16. HRC065DK V01 Logical Device Support Facility

Date Wednesday Mar 07, 1979 05:31:00 PM
Loaded from MAINT(294)

       R09296DK: ./ * REASSEMBLE FOR V09296                                              00001000
 BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296                                              00001000
     Comment >>> ./ * REASSEMBLE FOR V09296                                              00001000
   END APPLY >>> ./ * REASSEMBLE FOR V09296                                              00001000
Update Succeeded
Update Execution Time 8 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 16 milliseconds.

Date Monday Nov 12, 1979 04:17:00 AM
Loaded from MAINT(294)

       R09164DK: ./ I 324000 $ 324200 200                                                00001000
       R09164DK:          TM    SAVEWRK1,GRAPHIC GRAPHICS DEVICE ?              @VA09164 00002000
       R09164DK:          BNO   NOTGR          NO                               @VA09164 00003000
       R09164DK:          OI    RDEVSTA3,RDEVDIIP DO NOT ALLOW ATTN             @VA09164 00004000
       R09164DK: NOTGR    EQU   *                                               @VA09164 00005000
       R09164DK: ./ I 554000 $ 554400 500                                                00006000
       R09164DK:          L     R9,SAVEWRK8    RDEVBLOK IN R9                   @VA09164 00007000
       R09164DK:          USING RDEVBLOK,R9                                     @VA09164 00008000
       R09164DK:          NI    RDEVSTA3,255-RDEVDIIP TURN OFF DIAL IN PROGRESS @VA09164 00009000
       R09164DK: ./ D 560000 561000 $                                                    00010000
 BEGIN APPLY >>> ./ I 324000 $ 324200 200                                                00001000
   END APPLY >>> ./ I 324000 $ 324200 200                                                00001000
 BEGIN APPLY >>> ./ I 554000 $ 554400 500                                                00006000
   END APPLY >>> ./ I 554000 $ 554400 500                                                00006000
 BEGIN APPLY >>> ./ D 560000 561000 $                                                    00010000
   END APPLY >>> ./ D 560000 561000 $                                                    00010000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Jan 08, 1980 06:22:00 AM
Loaded from MAINT(294)

       R09186DK: ./ R 745000 747000 $ 745100 300                                         00001000
       R09186DK:          BNE   NOGRAF         NO,DO NOT MAKE IT                @VA09186 00002000
       R09186DK:          OI    VDEVSTAT,VDEVNRDY NOT READY                     @VA09186 00003000
       R09186DK:          B     NRSET          SKIP RESET                       @VA09186 00004000
       R09186DK: NOGRAF   EQU   *                                               @VA09186 00005000
       R09186DK:          NI    VDEVTYPE,X'F0' LEAVE ONLY ADAPTER TYPE          @VA09186 00006000
       R09186DK: NRSET    LR    R8,R6          ...WERE FINISHED WITH VDEVBLOK   @VA09186 00007000
 BEGIN APPLY >>> ./ R 745000 747000 $ 745100 300                                         00001000
   END APPLY >>> ./ R 745000 747000 $ 745100 300                                         00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Jan 25, 1980 10:03:00 AM
Loaded from MAINT(294)

       R09464DK: ./ I 1531000 $ 1531100 100                                              00001000
       R09464DK:          LA    R14,707(0)                                      @VA09464 00002000
       R09464DK:          CR    R14,R2         DOES R2 CONTAIN 707 MESSAGE ?    @VA09464 00003000
       R09464DK:          BNE   MSGBLD         NO, DON'T PUT'A' IN MESSAGE      @VA09464 00004000
       R09464DK:          ICM   R2,4,=X'C1'    DMKDIA707A                       @VA09464 00005000
       R09464DK: ./ R 1532000 $ 1532100                                                  00006000
       R09464DK: MSGBLD   ICM   R2,8,=X'80'    RETURN HERE AFTER ERROR MESSAGE  @VA09464 00007000
 BEGIN APPLY >>> ./ I 1531000 $ 1531100 100                                              00001000
   END APPLY >>> ./ I 1531000 $ 1531100 100                                              00001000
 BEGIN APPLY >>> ./ R 1532000 $ 1532100                                                  00006000
   END APPLY >>> ./ R 1532000 $ 1532100                                                  00006000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Jul 29, 1980 07:28:00 AM
Loaded from MAINT(294)

       R11241DK: ./ I 00033200          $ 33600 400                                      00010000
       R11241DK:          EXTRN DMKQCNSY            SYNCHRONIZE CONTASKS        @VA11241 00020000
       R11241DK: ./ I 00080000          $ 80500 500                                      00030000
       R11241DK: *        DMKQCNSY                                                       00040000
       R11241DK: ./ I 00332000          $ 332010 10                                      00050000
       R11241DK:          OI    VMMLVL2,VMMDIAL     NO MORE MESSAGES TO TERMINAL@VA11241
       R11241DK:          CALL  DMKQCNSY            SYNCHRONIZE THE TERMINAL    @VA11241 00060000
 BEGIN APPLY >>> ./ I 00033200          $ 33600 400                                      00010000
   END APPLY >>> ./ I 00033200          $ 33600 400                                      00010000
 BEGIN APPLY >>> ./ I 00080000          $ 80500 500                                      00030000
   END APPLY >>> ./ I 00080000          $ 80500 500                                      00030000
 BEGIN APPLY >>> ./ I 00332000          $ 332010 10                                      00050000
   END APPLY >>> ./ I 00332000          $ 332010 10                                      00050000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Sep 08, 1980 07:29:00 AM
Loaded from MAINT(294)

       R11612DK: ./ I 552000 $ 552100                                                    00001000
       R11612DK:          L     R1,ASYSVM      POINT AT SYSTEM VMBLOK           @VA11612 00002000
       R11612DK:          ST    R1,RDEVUSER    SET RDEVUSER TO SYSTEM           @VA11612 00003000
 BEGIN APPLY >>> ./ I 552000 $ 552100                                                    00001000
   END APPLY >>> ./ I 552000 $ 552100                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Sep 08, 1980 07:29:00 AM
Loaded from MAINT(294)

       R11314DK: ./ I 576000 $ 576100 100                                                00001000
       R11314DK:          LTR   R10,R10        IS THERE AN IOB?                 @VA11314 00002000
       R11314DK:          BNZ   IOBGOOD        YES, CONTINUE ON                 @VA11314 00003000
       R11314DK:          CALL  DMKDIADR       NO, USE DROP ROUTINE...          @VA11314 00004000
       R11314DK:          B     DIALOUT        ... AND GET OUT.                 @VA11314 00005000
       R11314DK: IOBGOOD  DS    0H                                              @VA11314 00006000
 BEGIN APPLY >>> ./ I 576000 $ 576100 100                                                00001000
   END APPLY >>> ./ I 576000 $ 576100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Sep 26, 1980 09:09:00 AM
Loaded from MAINT(294)

       R11836DK: ./ R 917410 $ 917410                                                    00001000
       R11836DK:          L     R1,VMDELAY-VMBLOK(,R2)                          @VA11836 00002000
 BEGIN APPLY >>> ./ R 917410 $ 917410                                                    00001000
   END APPLY >>> ./ R 917410 $ 917410                                                    00001000
Update Succeeded
Update Execution Time 8 milliseconds.

Date Tuesday Jan 13, 1981 01:13:00 AM
Loaded from MAINT(294)

       R12101DK: ./ I 149000 $ 149100 10                                                 00001000
       R12101DK:          L     R1,VMDELAY     GET DELAY.                       @VA12101 00002000
       R12101DK:          LTR   R1,R1          IS THERE A DELAY?                @VA12101 00003000
       R12101DK:          BZ    NOTRQ          NO, CONTINUE.                    @VA12101 00004000
       R12101DK:          CALL  DMKSCHRT       UNCHAIN IT.                      @VA12101 00005000
       R12101DK:          LA    R0,TRQBSIZE    GET SIZE.                        @VA12101 00006000
       R12101DK:          CALL  DMKFRET                                         @VA12101 00007000
       R12101DK:          SR    R1,R1          CLEAR REG.                       @VA12101 00008000
       R12101DK:          ST    R1,VMDELAY     ZERO VMDELAY.                    @VA12101 00009000
       R12101DK: NOTRQ    EQU   *                                               @VA12101 00010000
       R12101DK:          LM    R0,R1,SAVER0   RESTORE REGS.                    @VA12101 00011000
 BEGIN APPLY >>> ./ I 149000 $ 149100 10                                                 00001000
   END APPLY >>> ./ I 149000 $ 149100 10                                                 00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Jul 07, 1981 01:30:00 PM
Loaded from MAINT(294)

       R12941DK: ./ *
 BEGIN APPLY >>> ./ *
     Comment >>> ./ *
   END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Aug 24, 1981 01:27:00 PM
Loaded from MAINT(294)

       R13704DK: ./ D 00013000 00015000                                06/30/81 08:20:45
       R13704DK: ./ R 00030000 00032000 $ 30000 700                    06/30/81 08:20:45
       R13704DK:          EXTRN DMKSCNRN                                        @VA13704 00030000
       R13704DK:          EXTRN DMKSTKIO                                        @VA13704 00030700
       R13704DK:          EXTRN DMKVIOIN,DMKRNHND                               @VA13704 00031400
       R13704DK: ./ R 00033200          $ 33200 400                    06/30/81 08:20:45
       R13704DK:          EXTRN DMKSCHRT,DMKDIBDR                               @VA13704 00033200
       R13704DK: ./ R 00035000          $ 35000 500                    06/30/81 08:20:45
       R13704DK:          EXTRN DMKSYSCK,DMKSYSND                               @VA13704 00035000
       R13704DK: ./ R 00485000          $ 485000 1000                  06/30/81 08:20:45
       R13704DK:          CALL  DMKDIBDR       DROP THE DIALED CONNECTION       @VA13704 00485000
       R13704DK: ./ R 00576300          $ 576300 100                   06/30/81 08:20:45
       R13704DK:          CALL  DMKDIBDR       NO, USE DROP ROUTINE...          @VA13704 00576300
       R13704DK: ./ D 00654000 00892000                                06/30/81 08:20:45
       R13704DK: ./ D 01180000 01408000                                06/30/81 08:20:45
       R13704DK: ./ D 01453000 01454000                                06/30/81 08:20:45
       R13704DK: ./ D 01481000 01484000                                06/30/81 08:20:45
 BEGIN APPLY >>> ./ D 00013000 00015000                                06/30/81 08:20:45
   END APPLY >>> ./ D 00013000 00015000                                06/30/81 08:20:45
 BEGIN APPLY >>> ./ R 00030000 00032000 $ 30000 700                    06/30/81 08:20:45
   END APPLY >>> ./ R 00030000 00032000 $ 30000 700                    06/30/81 08:20:45
 BEGIN APPLY >>> ./ R 00033200          $ 33200 400                    06/30/81 08:20:45
   END APPLY >>> ./ R 00033200          $ 33200 400                    06/30/81 08:20:45
 BEGIN APPLY >>> ./ R 00035000          $ 35000 500                    06/30/81 08:20:45
   END APPLY >>> ./ R 00035000          $ 35000 500                    06/30/81 08:20:45
 BEGIN APPLY >>> ./ R 00485000          $ 485000 1000                  06/30/81 08:20:45
   END APPLY >>> ./ R 00485000          $ 485000 1000                  06/30/81 08:20:45
 BEGIN APPLY >>> ./ R 00576300          $ 576300 100                   06/30/81 08:20:45
   END APPLY >>> ./ R 00576300          $ 576300 100                   06/30/81 08:20:45
 BEGIN APPLY >>> ./ D 00654000 00892000                                06/30/81 08:20:45
   END APPLY >>> ./ D 00654000 00892000                                06/30/81 08:20:45
 BEGIN APPLY >>> ./ D 01180000 01408000                                06/30/81 08:20:45
   END APPLY >>> ./ D 01180000 01408000                                06/30/81 08:20:45
 BEGIN APPLY >>> ./ D 01453000 01454000                                06/30/81 08:20:45
   END APPLY >>> ./ D 01453000 01454000                                06/30/81 08:20:45
 BEGIN APPLY >>> ./ D 01481000 01484000                                06/30/81 08:20:45
   END APPLY >>> ./ D 01481000 01484000                                06/30/81 08:20:45
Update Succeeded
Update Execution Time 31 milliseconds.

Date Friday Jul 17, 1981 03:05:00 PM
Loaded from MAINT(294)

       R13362DK: ./ D 344000
       R13362DK: ./ I 351000 $ 351100 100
       R13362DK:          ST    R10,RDEVAIOB   CONNECT IOBLOK TO RDEVBLOK       @VA13362
 BEGIN APPLY >>> ./ D 344000
   END APPLY >>> ./ D 344000
 BEGIN APPLY >>> ./ I 351000 $ 351100 100
   END APPLY >>> ./ I 351000 $ 351100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Jan 20, 1982 09:38:00 AM
Loaded from MAINT(294)

       R13441DK: ./ I 920000 $ 920500                                                    00014000
       R13441DK:          MVI   VMUSER-VMBLOK+7(R1),X'00' NULLIFY USERID        @VA13441 00015000
 BEGIN APPLY >>> ./ I 920000 $ 920500                                                    00014000
   END APPLY >>> ./ I 920000 $ 920500                                                    00014000
Update Succeeded
Update Execution Time 8 milliseconds.

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)

       HRC101DK: ./ R 00162000 00163300 $ 162190 190                   05/10/06 14:52:46
       HRC101DK:          TM    RDEVTYPC,CLASGRAF   GRAPHIC TERMINAL (327X) ?   HRC101DK 00162190
       HRC101DK:          BZ    NOTTYP32       NO, TRY NEXT TYPE                HRC101DK 00162380
       HRC101DK:          TM    RDEVTYPE,TYP3277+TYP3278 IS IT A 3277/3278 ?    HRC101DK 00162570
       HRC101DK:          BZ    DIA707         NO, SEND NOT SUPPORTED MSG.      HRC101DK 00162760
       HRC101DK: ./ R 00214000 00217000 $ 214590 590                   05/10/06 14:52:46
       HRC101DK:          TM    VDEVTYPC,CLASGRAF   CORRECT VIRTUAL DEVICE TYPE HRC101DK 00214590
       HRC101DK:          BZ    BADVADD             NO -- ERROR                 HRC101DK 00215180
       HRC101DK:          TM    VDEVTYPE,TYP3277+TYP3278 MUST BE A 3277/3278    HRC101DK 00215770
       HRC101DK:          BZ    BADVADD             NO --                       HRC101DK 00216360
       HRC101DK: ./ R 00263000 00266000 $ 263590 590                   05/10/06 14:52:46
       HRC101DK:          TM    VDEVTYPC,CLASGRAF   IS THIS A GRAPHIC DEVICE ?  HRC101DK 00263590
       HRC101DK:          BZ    DLNXTDV             NO -- SKIP TO NEXT DEVICE   HRC101DK 00264180
       HRC101DK:          TM    VDEVTYPE,TYP3277+TYP3278 3277 OR 3278 ?         HRC101DK 00264770
       HRC101DK:          BZ    DLNXTDV             NOPE - CONTINUE             HRC101DK 00265360
       HRC101DK: ./ R 00608000          $ 608490 490                   05/10/06 14:52:46
       HRC101DK:          LA    R0,TRQBSIZE+CRTEXT EXTRA DBL-WD FOR GRAPHICS    HRC101DK 00608000
       HRC101DK: ./ R 00613600          $ 613610 10                    05/10/06 14:52:46
       HRC101DK:          LA    R0,TRQBSIZE+CRTEXT EXTRA-WD FOR GRAPHICS        HRC101DK 00613600
 BEGIN APPLY >>> ./ R 00162000 00163300 $ 162190 190                   05/10/06 14:52:46
   END APPLY >>> ./ R 00162000 00163300 $ 162190 190                   05/10/06 14:52:46
 BEGIN APPLY >>> ./ R 00214000 00217000 $ 214590 590                   05/10/06 14:52:46
   END APPLY >>> ./ R 00214000 00217000 $ 214590 590                   05/10/06 14:52:46
 BEGIN APPLY >>> ./ R 00263000 00266000 $ 263590 590                   05/10/06 14:52:46
   END APPLY >>> ./ R 00263000 00266000 $ 263590 590                   05/10/06 14:52:46
 BEGIN APPLY >>> ./ R 00608000          $ 608490 490                   05/10/06 14:52:46
   END APPLY >>> ./ R 00608000          $ 608490 490                   05/10/06 14:52:46
 BEGIN APPLY >>> ./ R 00613600          $ 613610 10                    05/10/06 14:52:46
   END APPLY >>> ./ R 00613600          $ 613610 10                    05/10/06 14:52:46
Update Succeeded
Update Execution Time 31 milliseconds.

Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)

       HRC065DK: ./ I 00158000 $ 00158100 100
       HRC065DK:          TM    RDEVADD,RDEVLDEV        Is this an LDEV?        HRC065DK
       HRC065DK:          BZ    NOTLDEV                 No, normal process then HRC065DK
       HRC065DK:          PUSH  USING                                           HRC065DK
       HRC065DK:          USING LDEVBLOK,R6                                     HRC065DK
       HRC065DK:          C     R1,LDEVUSER             LDEV user trying to DIALHRC065DK
       HRC065DK:          BE    ERROR66                  creator machine?  Yes..HRC065DK
       HRC065DK:          POP   USING                   LDEVBLOK                HRC065DK
       HRC065DK: NOTLDEV  EQU   *                                               HRC065DK
       HRC065DK: ./ I 00304000 $ 00304100 100
       HRC065DK:          TM    RDEVADD,RDEVLDEV        Is this an LDEV?        HRC065DK
       HRC065DK:          BO    DIALDEV                 Yes                     HRC065DK
       HRC065DK: ./ I 00312000 $ 00312100 100
       HRC065DK: DIALDEV  EQU   *                                               HRC065DK
       HRC065DK:          LH    R1,RDEVADD              Get the LDEV address    HRC065DK
       HRC065DK:          N     R1,F4095                Keep only the dev num   HRC065DK
       HRC065DK:          CALL  DMKCVTBH                Make it displayable     HRC065DK
       HRC065DK:          STCM  R1,7,MSGRADD            Put dev addr in message HRC065DK
       HRC065DK:          MVI   MSGRADD-1,C'L'          Move in LDEV indicator  HRC065DK
       HRC065DK:          MVC   MSGDIAL(3),=CL3'GRF'    Use short GRAF name     HRC065DK
       HRC065DK:          B     DIALSND                 Go display msg          HRC065DK
       HRC065DK: ./ I 01469000 $ 01469100 100
       HRC065DK: ERROR66  EQU   *                       Cant connect to host VM HRC065DK
       HRC065DK:          LA    R2,66                   MSG=DMKDIA066E          HRC065DK
       HRC065DK:          B     MSGONLY                 Go write the msg        HRC065DK
 BEGIN APPLY >>> ./ I 00158000 $ 00158100 100
   END APPLY >>> ./ I 00158000 $ 00158100 100
 BEGIN APPLY >>> ./ I 00304000 $ 00304100 100
   END APPLY >>> ./ I 00304000 $ 00304100 100
 BEGIN APPLY >>> ./ I 00312000 $ 00312100 100
   END APPLY >>> ./ I 00312000 $ 00312100 100
 BEGIN APPLY >>> ./ I 01469000 $ 01469100 100
   END APPLY >>> ./ I 01469000 $ 01469100 100
Update Succeeded
Update Execution Time 16 milliseconds.