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

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

1. R09273DK 601 3800 VSPXBLOK REORGANIZED FOR PERFORMANCE
2. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
3. R11344DK 618 UV01215 DESTAGE MODIFIED DATA TO MINIMIZE DATA LOSSES
4. R12861DK 622 UV04628 ABENDVIO002 FOR UNSTACK OF IOBLOK FOR RESET VDEVICE
5. HRC003DK V01 LEAVE OPTION ON DETACH COMMAND
6. HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
7. HRC039DK H40 Fix various DASD attached to SYSTEM issues

Date Friday Jan 19, 1979 09:16:00 AM
Loaded from MAINT(294)

       R09273DK: ./ * DUMMY UPDATE FOR REASSEMBLY FOR NEW VSPXBLOK                       DMK00010
 BEGIN APPLY >>> ./ * DUMMY UPDATE FOR REASSEMBLY FOR NEW VSPXBLOK                       DMK00010
     Comment >>> ./ * DUMMY UPDATE FOR REASSEMBLY FOR NEW VSPXBLOK                       DMK00010
   END APPLY >>> ./ * DUMMY UPDATE FOR REASSEMBLY FOR NEW VSPXBLOK                       DMK00010
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Jul 12, 1979 09:54: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 Friday Jan 16, 1981 01:16:00 AM
Loaded from MAINT(294)

       R11344DK: ./ I 00027200          $ 27600 400                    07/30/80 10:57:03
       R11344DK:          EXTRN DMKSSSRL                                        @VA11344 00027600
       R11344DK: ./ I 00180000          $ 180100 100                   07/30/80 10:57:03
       R11344DK:          TM    RDEVTYPC,CLASDASD   DASD DEVICE?                @VA11344 00184000
       R11344DK:          BZ    NOTMSS         NO THEN IT'S NOT AN MSS DEVICE   @VA11344 00185000
       R11344DK:          TM    PSAMSS,MSSPRES IS THE MSS PRESENT?              @VA11344 00185100
       R11344DK:          BNO   NOTMSS         NO - THEN DON'T ISSUE ANY RLQSH  @VA11344 00185200
       R11344DK:          TM    RDEVFLAG,RDEVVMNT   WAS THIS VOL MOUNTED BY CP? @VA11344 00185300
       R11344DK:          BNO   NOTMSS         NO - THEN DON'T ISSUE RELINQUISH @VA11344 00185400
       R11344DK:          CALL  DMKSSSRL       ELSE ISSUE A RELINQUISH REQUEST  @VA11344 00185500
       R11344DK: NOTMSS   DS    0H                                              @VA11344 00185600
       R11344DK: ./ R 00185000          $ 185000 1000                  07/30/80 10:57:03
       R11344DK:          BZ    NOTDASD        NO-DO NOT TURN ON THE MOUNTED BIT@VA11344 00185000
       R11344DK: ./ I 00186000          $ 186500 500                   07/30/80 10:57:03
       R11344DK: NOTDASD  DS    0H                                              @VA11344
       R11344DK: ./ R 00241000          $ 241000 100                   07/30/80 10:57:03
       R11344DK:          TM    PSAMSS,MSSPRES IS THE MSS PRESENT?              @VA11344 00241000
       R11344DK:          BNO   RELPOS1        NO - THEN DON'T ISSUE RELINQUISH @VA11344 00241100
       R11344DK:          TM    RDEVFLAG,RDEVVMNT   THIS VOL MNTD BY CP?        @VA11344 00241200
       R11344DK:          BNO   RELPOS1        NO - THEN DON'T RELINQUISH IT!   @VA11344 00241300
       R11344DK: *                                                                       00241400
       R11344DK: *   ISSUE A RELINQUISH REQUEST FOR THIS VOLUME                          00241500
       R11344DK: *                                                                       00241600
       R11344DK:          CALL  DMKSSSRL       ISSUE RELINQUISH REQUEST         @VA11344 00241700
       R11344DK: ./ I 00242000          $ 242300 300                   07/30/80 10:57:03
       R11344DK: RELPOS1  DS    0H                                              @VA11344 00242300
       R11344DK:          NI    RDEVFLAG,X'FF'-RDEVSYS TURN OFF SYS VOL FLAG    @VA03163 00242600
 BEGIN APPLY >>> ./ I 00027200          $ 27600 400                    07/30/80 10:57:03
   END APPLY >>> ./ I 00027200          $ 27600 400                    07/30/80 10:57:03
 BEGIN APPLY >>> ./ I 00180000          $ 180100 100                   07/30/80 10:57:03
   END APPLY >>> ./ I 00180000          $ 180100 100                   07/30/80 10:57:03
 BEGIN APPLY >>> ./ R 00185000          $ 185000 1000                  07/30/80 10:57:03
   END APPLY >>> ./ R 00185000          $ 185000 1000                  07/30/80 10:57:03
 BEGIN APPLY >>> ./ I 00186000          $ 186500 500                   07/30/80 10:57:03
   END APPLY >>> ./ I 00186000          $ 186500 500                   07/30/80 10:57:03
 BEGIN APPLY >>> ./ R 00241000          $ 241000 100                   07/30/80 10:57:03
   END APPLY >>> ./ R 00241000          $ 241000 100                   07/30/80 10:57:03
 BEGIN APPLY >>> ./ I 00242000          $ 242300 300                   07/30/80 10:57:03
   END APPLY >>> ./ I 00242000          $ 242300 300                   07/30/80 10:57:03
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Jun 24, 1981 06:09:00 AM
Loaded from MAINT(294)

       R12861DK: ./ I 00024000 $ 00024500 500                                            00001000
       R12861DK:          EXTRN DMKSTKCP                                        @VA12861 00002000
       R12861DK: ./ I 00154000 $ 00154020 20                                             00003000
       R12861DK:          TM    VDEVFLAG,VDEVDIAL IS IT A DIALED DEVICE?        @VA12861 00004000
       R12861DK:          BZ    COMMON         NO, CONTINUE                     @VA12861 00005000
       R12861DK:          CLC   VDEVREAL,F0    HAS DIAL PROCESS COMPLETED?      @VA12861 00006000
       R12861DK:          BE    COMMON         YES, CONTINUE                    @VA12861 00007000
       R12861DK:          CLI   VDEVTYPC,CLASGRAF IS IT GRAPHIC?                @VA12861 00008000
       R12861DK:          BNE   COMMON         NO, CONTINUE                     @VA12861 00009000
       R12861DK: ** IF IT IS TO RELEASE/DROP A DIALED IN CONSOLE, PROCESS THE            00010000
       R12861DK: ** PENDING I/O FIRST. THAT IS, GET A CPEXBLOK TO RETURN TO              00011000
       R12861DK: ** PROCESS RESET/DROP DEVICE FOR A DIALED CONSOLE AFTER ITS             00012000
       R12861DK: ** OUTSTANDING I/O IS PROCESSED CORRECTLY.                              00013000
       R12861DK:          LA    R0,CPEXSIZE    GET A CPEXBLOK                   @VA12861 00014000
       R12861DK:          CALL  DMKFREE                                         @VA12861 00015000
       R12861DK:          USING CPEXBLOK,R1    CPEXBLOK ADDRESSABILITY          @VA12861 00016000
       R12861DK:          LA    R15,COMMON     SAVE RETURN ADDRESS              @VA12861 00017000
       R12861DK:          STM   R15,R14,CPEXADD AND ALL THE REGISTERS.          @VA12861 00018000
       R12861DK:          CALL  DMKSTKCP       STACK THE CPEXBOK                @VA12861 00019000
       R12861DK:          GOTO  DMKDSPCH       AND EXIT.                        @VA12861 00020000
       R12861DK:          DROP  R1                                              @VA12861 00020000
       R12861DK: COMMON   EQU   *                                               @VA12861 00021000
 BEGIN APPLY >>> ./ I 00024000 $ 00024500 500                                            00001000
   END APPLY >>> ./ I 00024000 $ 00024500 500                                            00001000
 BEGIN APPLY >>> ./ I 00154000 $ 00154020 20                                             00003000
   END APPLY >>> ./ I 00154000 $ 00154020 20                                             00003000
Update Succeeded
Update Execution Time 8 milliseconds.

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

       HRC003DK: ./ R 00213500          $ 213590 90                    02/08/06 16:12:38
       HRC003DK: RELTAPE  EQU   *                                               HRC003DK 00213590
       HRC003DK:          TM    VDEVFLG2,VDEVTNR  NO TAPE RUN ASKED ?           HRC003DK 00213680
       HRC003DK:          BO    RELDOFF       YES - JUST GO BACK                HRC003DK 00213770
       HRC003DK:          LA    R0,IOBSIZE     GET AN IOBLOK                    HRC003DK 00213860
 BEGIN APPLY >>> ./ R 00213500          $ 213590 90                    02/08/06 16:12:38
   END APPLY >>> ./ R 00213500          $ 213590 90                    02/08/06 16:12:38
Update Succeeded
Update Execution Time 16 milliseconds.

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

       HRC101DK: ./ R 00324000          $ 324490 490                   03/11/06 20:46:25
       HRC101DK:          LH    R0,VCONRBSZ    GET BUFFER SIZE                  HRC101DK 00324000
       HRC101DK: ./ R 00336000          $ 336490 490                   03/11/06 20:46:25
       HRC101DK:          LH    R0,VCONBFSZ    LOAD DATA BUFFER SIZE            HRC101DK 00336000
 BEGIN APPLY >>> ./ R 00324000          $ 324490 490                   03/11/06 20:46:25
   END APPLY >>> ./ R 00324000          $ 324490 490                   03/11/06 20:46:25
 BEGIN APPLY >>> ./ R 00336000          $ 336490 490                   03/11/06 20:46:25
   END APPLY >>> ./ R 00336000          $ 336490 490                   03/11/06 20:46:25
Update Succeeded
Update Execution Time 23 milliseconds.

Date Monday Feb 13, 2017 10:11:00 PM
Loaded from MAINT(094)

       HRC039DK: ./ * Do not alter (clear) RDEVSYS flag when detaching a virtual dasd
       HRC039DK: ./ D 00242600
 BEGIN APPLY >>> ./ * Do not alter (clear) RDEVSYS flag when detaching a virtual dasd
     Comment >>> ./ * Do not alter (clear) RDEVSYS flag when detaching a virtual dasd
   END APPLY >>> ./ * Do not alter (clear) RDEVSYS flag when detaching a virtual dasd
 BEGIN APPLY >>> ./ D 00242600
   END APPLY >>> ./ D 00242600
Update Succeeded
Update Execution Time 16 milliseconds.