DMSDLB History

• Abstract / Synopsis of DMSDLB
• Latest Source of DMSDLB
• Fixes Applied : 3
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R12416DS]

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

1. R11758DS 616 UV01894 CORRECT DEFAULT FM OF DLBL
2. R11810DS 617 UV02790 DLBL COMMAND LOOKS FOR SYSXXX OPERAND WHEN IN OS MODE
3. R12416DS 622 UV04650 DMSDLB NO MSDMSDLB069E FOR R(00036);

Date Friday Sep 19, 1980 08:08:00 AM
Loaded from MAINT(193)

       R11758DS: ./ R 639000 644000 $ 639000 800
       R11758DS:          MVC   DOSDSMD(2),8(R5)   MOVE USER'S MODE TO DOSCB    @VA11758
       R11758DS:          CLI   DOSDSMD,CHARAST    IS FILE MODE ASTERISK?       @VA11758
       R11758DS:          BE    SETDEVTP           DON'T CHECK NUMBER           @VA11758
       R11758DS:          CLI   DOSDSMD+1,BLANK    IF NUMBER ENTERED---         @VA11758
       R11758DS:          BNE   SETDEVTP           USE IT                       @VA11758
       R11758DS:          MVI   DOSDSMD+1,MODE1    ELSE SET DEFAULT TO 1        @VA11758
       R11758DS: SETDEVTP EQU   *                                               @VA11758
 BEGIN APPLY >>> ./ R 639000 644000 $ 639000 800
   END APPLY >>> ./ R 639000 644000 $ 639000 800
Update Succeeded
Update Execution Time 16 milliseconds.

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

       R11810DS: ./ R 474000 $ 474000
       R11810DS:          TM    DOSFLAGS,DOSMODE+DOSSVC  DOS USER?              @VA11810
       R11810DS: ./ R 1030000 1031000 $ 1030000 1000
       R11810DS:          TM    DOSFLAGS,DOSMODE+DOSSVC  DOS USER?              @VA11810
       R11810DS:          BNO   NXTENTRY            NO, GET NEXT DISK ENTRY     @VA11810
       R11810DS: ./ R 1197000 1198000 $ 1197000 1000
       R11810DS:          TM    DOSFLAGS,DOSMODE+DOSSVC  DOS USER?              @VA11810
       R11810DS:          BNO   NXENTRY2            NO, GET NEXT DISK ENTRY     @VA11810
 BEGIN APPLY >>> ./ R 474000 $ 474000
   END APPLY >>> ./ R 474000 $ 474000
 BEGIN APPLY >>> ./ R 1030000 1031000 $ 1030000 1000
   END APPLY >>> ./ R 1030000 1031000 $ 1030000 1000
 BEGIN APPLY >>> ./ R 1197000 1198000 $ 1197000 1000
   END APPLY >>> ./ R 1197000 1198000 $ 1197000 1000
Update Succeeded
Update Execution Time 31 milliseconds.

Date Tuesday Jun 30, 1981 06:18:00 AM
Loaded from MAINT(193)

       R12416DS: ./ I 46000  $ 46500 100
       R12416DS: *                36  TARGET DISK NOT ACCESSED                  @VA12416
       R12416DS: ./ I 765000  $ 765500 100
       R12416DS:          CH    R15,=H'36'          DISK NOT ACCESSED           @VA12416
       R12416DS:          BE    ERRMSG36            YES, ISSUE MSG69E           @VA12416
       R12416DS: ./ I 1790000 $ 1790100 100
       R12416DS: ERRMSG36 EQU   *                                               @VA12416
       R12416DS:          DMSERR TEXT='DISK ''..'' NOT ACCESSED',NUM=69,                X
       R12416DS:                LET=E,SUB=(CHARA,(STATMD,1))                    @VA12416
       R12416DS:          LA   R15,36             RETURN CODE = 36              @VA12416
       R12416DS:          B     EXIT                                            @VA12416
 BEGIN APPLY >>> ./ I 46000  $ 46500 100
   END APPLY >>> ./ I 46000  $ 46500 100
 BEGIN APPLY >>> ./ I 765000  $ 765500 100
   END APPLY >>> ./ I 765000  $ 765500 100
 BEGIN APPLY >>> ./ I 1790000 $ 1790100 100
   END APPLY >>> ./ I 1790000 $ 1790100 100
Update Succeeded
Update Execution Time 23 milliseconds.