• Abstract / Synopsis of DMSDOS
• Latest Source of DMSDOS
• Fixes Applied : 6
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R15167DS]

CMS File Input : DMSDOS ASSEMBLE
Date : 12/12/1978 8:24:00 AM
VM Context : MAINT(393)
File Name : DMSDOS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM

1. R09246DS 602 DMSDOS GIVES WRONG DATE AND TIME IF CMS IS UP OVERNIGHT
2. R12124DS 617 UV02797 ELIMINATE LOSS OF STORAGE ON HX COMMAND WITH VSAM
3. R12390DS 618 UV03198 MSDMSDOS095E PROGRAM IN GETVIS AREA .
4. R12893DS 619 UV03913 AMSERV PHASE NOT FOUND , BUT NO MESSAGE ISSUED
5. R13128DS 620 UV04018 MVCOM SVC 5 UNDER VSAM ABENDS DMSITP141T 0C1
6. R15167DS 629 UV06147 INCORRECT STIXIT ROUTINE ADDRESS

Date Friday Apr 20, 1979 04:20:00 AM
Loaded from MAINT(193)

       R09246DS: ./ R 1247000 $ 1247000
       R09246DS: GETIME   MVC   JOBDATE(8),CURRDATE  SAVE THE DATE (MM/DD/YY)   @VA09246
       R09246DS: ./ I 1264000 $ 1264250 250
       R09246DS: TWFRCK   EQU   *
       R09246DS:          C     R1,TWFRTMUS          COMPARE AGAINST 24 HOURS   @VA09246
       R09246DS:          BH    ADJUSTME             IF ELLAPS TIME MORE,ADJUST @VA09246
       R09246DS: ./ I 1271000 $ 1271200 200
       R09246DS: ADJUSTME EQU   *
       R09246DS:          S     R1,TWFRTMUS          SUBTRACT 24 HOURS IN TIMER @VA09246
       R09246DS: *                                   UNITS FROM ELAPSED TIME
       R09246DS:          B     TWFRCK               AND GO CHECK AGAIN         @VA09246
       R09246DS: ./ I 2017000 $ 2017500
       R09246DS: TWFRTMUS DC    XL4'018B8200'        24 HRS IN TIMER UNITS      @VA09246
 BEGIN APPLY >>> ./ R 1247000 $ 1247000
   END APPLY >>> ./ R 1247000 $ 1247000
 BEGIN APPLY >>> ./ I 1264000 $ 1264250 250
   END APPLY >>> ./ I 1264000 $ 1264250 250
 BEGIN APPLY >>> ./ I 1271000 $ 1271200 200
   END APPLY >>> ./ I 1271000 $ 1271200 200
 BEGIN APPLY >>> ./ I 2017000 $ 2017500
   END APPLY >>> ./ I 2017000 $ 2017500
Update Succeeded
Update Execution Time 31 milliseconds.

Date Thursday Nov 13, 1980 11:13:00 AM
Loaded from MAINT(193)

       R12124DS: ./ R 00744000          $ 744000 1000                  10/14/80 11:27:21
       R12124DS:          BNZ   TESTVSAM       YES                              @VA12124 00744000
       R12124DS: ./ I 00758000          $ 758200 200                   10/14/80 11:27:21
       R12124DS: TESTVSAM EQU   *                                               @VA12124
       R12124DS:          TM    VSAMFLG1,VSAMRUN ARE WE HERE FOR VSAM ?         @VA12124
       R12124DS:          BO    FETCOMM       YES,BRANCH                        @VA12124
       R12124DS:          B     DOSRET        NO,GO TO DOSRET                   @VA12124
 BEGIN APPLY >>> ./ R 00744000          $ 744000 1000                  10/14/80 11:27:21
   END APPLY >>> ./ R 00744000          $ 744000 1000                  10/14/80 11:27:21
 BEGIN APPLY >>> ./ I 00758000          $ 758200 200                   10/14/80 11:27:21
   END APPLY >>> ./ I 00758000          $ 758200 200                   10/14/80 11:27:21
Update Succeeded
Update Execution Time 23 milliseconds.

Date Thursday Jan 15, 1981 01:14:00 AM
Loaded from MAINT(193)

       R12390DS: ./ R 2321600 2321660 $ 2321600 10
       R12390DS:          BNH   CHKR2             CHECK HIGH ADDRESS            @VA12390
       R12390DS:          CL    R1,MAINHIGH       LOW ADDR >  GETVIS            @VA12390
       R12390DS:          BH    BADAD             ERROR IF IT IS                @VA12390
       R12390DS: CHKR2    EQU   *                                               @VA12390
       R12390DS:          CR    R2,R4             HIGH ADDR > PPEND             @VA12390
       R12390DS:          BNH   DOSRET            ADDRESS IS OKAY               @VA12390
       R12390DS:          CL    R2,MAINHIGH       HIGH ADDR > GETVIS            @VA12390
       R12390DS:          BNH   DOSRET            ADDRESS IS OKAY               @VA12390
 BEGIN APPLY >>> ./ R 2321600 2321660 $ 2321600 10
   END APPLY >>> ./ R 2321600 2321660 $ 2321600 10
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)

       R12893DS: ./ R 781000 $ 781000
       R12893DS:          BNP   VSAMPNF            INVALID ADDRESS - NOT FOUND  @VA12893
       R12893DS: ./ R 784000 $ 784000
       R12893DS:          BNP   VSAMPNF            INVALID LENGTH - NOT FOUND   @VA12893
       R12893DS: ./ I 1361000 $ 1361500 500
       R12893DS:          LR    R8,R1              SAVE PHASE NAME ADDRESS      @VA12893
       R12893DS: ./ R 1403000 $ 1403300 300
       R12893DS: VSAMPNF  EQU   *                  PHASE NOT FOUND              @VA12893
       R12893DS:          LTR   R1,R8              POINT TO PHASE NAME          @VA12893
 BEGIN APPLY >>> ./ R 781000 $ 781000
   END APPLY >>> ./ R 781000 $ 781000
 BEGIN APPLY >>> ./ R 784000 $ 784000
   END APPLY >>> ./ R 784000 $ 784000
 BEGIN APPLY >>> ./ I 1361000 $ 1361500 500
   END APPLY >>> ./ I 1361000 $ 1361500 500
 BEGIN APPLY >>> ./ R 1403000 $ 1403300 300
   END APPLY >>> ./ R 1403000 $ 1403300 300
Update Succeeded
Update Execution Time 39 milliseconds.

Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)

       R13128DS: ./ R 934330 934360 $ 934330 30
       R13128DS:          LR    R15,R8             LOAD POINTER TO WORK REG     @VA13128
       R13128DS:          CR    R15,R1             IS IT HIGHER THAN FROM ADDR  @VA13128
       R13128DS: ./ R 934420 934480  $ 934420 30
       R13128DS:          A     R15,4(R15)         ADD FREEAREA LENGTH          @VA13128
       R13128DS:          BCTR  R15,R0             SUB 1 FOR TRUE LENGTH        @VA13128
       R13128DS:          CR    R15,R1             IS IT HIGHER THAN FROM ADDR  @VA13128
       R13128DS: ./ R 934720 $ 934720
       R13128DS:          CR    R15,R2             HIGHER THAN LAST BYTE OF     @VA13128
 BEGIN APPLY >>> ./ R 934330 934360 $ 934330 30
   END APPLY >>> ./ R 934330 934360 $ 934330 30
 BEGIN APPLY >>> ./ R 934420 934480  $ 934420 30
   END APPLY >>> ./ R 934420 934480  $ 934420 30
 BEGIN APPLY >>> ./ R 934720 $ 934720
   END APPLY >>> ./ R 934720 $ 934720
Update Succeeded
Update Execution Time 31 milliseconds.

Date Monday Mar 15, 1982 08:44:00 AM
Loaded from MAINT(193)

       R15167DS: ./ R 1199000 $ 1199000
       R15167DS: GETAB    L     R9,ASYSCOM        GET ADDRESS OF SYSCOM         @VA15167
 BEGIN APPLY >>> ./ R 1199000 $ 1199000
   END APPLY >>> ./ R 1199000 $ 1199000
Update Succeeded
Update Execution Time 23 milliseconds.