• Abstract / Synopsis of DMSLDS
• Latest Source of DMSLDS
• Fixes Applied : 5
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC004DS]

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

1. R09107DS 602 LISTDS FREE INCORRECT WHEN DSCB1 AND DSCB3 ARE NOT CONTIGUOUS
2. R09250DS 602 LISTDS WITH EXTENT OPTION GETS BAD OUTPUT LINE ON TWX TERMINAL
3. R09881DS 605 MSDMSLDS231E WITH EXTENT IF ISAM WITH MORE THAN 3 EXTENTS
4. R13586DS 628 UV06334 DMSLDS RC 28 NOT GIVEN WITH DMSLDS222E
5. HRC004DS V01 ADD SUPPORT FOR D/T3380

Date Monday May 07, 1979 11:58:00 AM
Loaded from MAINT(193)

       R09107DS: ./ R 721000 $ 720400 400
       R09107DS: NOSKIP   EQU   *                                               @VA09107
       R09107DS:          CLI   0(R1),HEX00    NO EXTENT INDICATOR?             @VA09107
       R09107DS:          BE    CHKXTNT1       GET NEXT DSCB                    @VA09107
       R09107DS:          CLI   0(R1),SPLITCYL SPLIT CYLINDER EXTENT?           @VA09107
       R09107DS: ./ D 726000 727000
 BEGIN APPLY >>> ./ R 721000 $ 720400 400
   END APPLY >>> ./ R 721000 $ 720400 400
 BEGIN APPLY >>> ./ D 726000 727000
   END APPLY >>> ./ D 726000 727000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Apr 03, 1979 03:30:00 AM
Loaded from MAINT(193)

       R09250DS: ./ R 962840 $ 962790 90
       R09250DS:          MVI   XDATA,BLANK    MOVE BLANK TO FIRST BYTE         @VA09250
       R09250DS:          MVC   XDATA+1(50),XDATA   RESET FIELD TO BLANKS       @VA09250
 BEGIN APPLY >>> ./ R 962840 $ 962790 90
   END APPLY >>> ./ R 962840 $ 962790 90
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Oct 09, 1979 06:21:00 AM
Loaded from MAINT(193)

       R09881DS: ./ I 904000 $ 904500 500
       R09881DS: SKIPF2   EQU   *                   RESET AFTER FORMAT2 DSCB    @VA09881
       R09881DS: ./ I 916000 $ 916300 300
       R09881DS:          CLI   DSCB+44,FORM2       FORMAT 2 DSCB (ISAM)?       @VA09881
       R09881DS:          BE    SKIPF2              YES, SKIP AND GET FORMAT 3  @VA09881
       R09881DS: ./ I 1469000 $ 1469500 500
       R09881DS: FORM2    EQU   C'2'                FORMAT 2 DSCB NOT SUPPORTED @VA09881
 BEGIN APPLY >>> ./ I 904000 $ 904500 500
   END APPLY >>> ./ I 904000 $ 904500 500
 BEGIN APPLY >>> ./ I 916000 $ 916300 300
   END APPLY >>> ./ I 916000 $ 916300 300
 BEGIN APPLY >>> ./ I 1469000 $ 1469500 500
   END APPLY >>> ./ I 1469000 $ 1469500 500
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Feb 15, 1982 09:30:00 AM
Loaded from MAINT(193)

       R13586DS: ./ R 1298000 $ 1298000 300
       R13586DS:          LA    R10,28             GET RETURN CODE              @VA13586
       R13586DS:          B     LEAVE              RETURN..                     @VA13586
 BEGIN APPLY >>> ./ R 1298000 $ 1298000 300
   END APPLY >>> ./ R 1298000 $ 1298000 300
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Feb 09, 2006 09:26:00 PM
Loaded from MAINT(093)

       HRC004DS: ./ I 00361750          $ 361810 60                    01/28/06 13:39:58
       HRC004DS:          LA    R7,CON15       PLUG 3380 TRK/CYL                HRC004DS 00361810
       HRC004DS:          CLI   OSADTDSK+3,T3380 IS IT A 3380?                  HRC004DS 00361870
       HRC004DS:          BE    SETTC          YES ---- BRANCH                  HRC004DS 00361930
       HRC004DS: ./ I 01371500          $ 1371700 200                  01/28/06 13:39:58
       HRC004DS: T3380    EQU   X'0E'          3380 DEVICE TYPE                 HRC004DS 01371700
       HRC004DS: ./ I 01486000          $ 1486500 500                  01/28/06 13:39:58
       HRC004DS: CON15    EQU   15             TRKS/CYL - 3380                  HRC004DS 01486500
 BEGIN APPLY >>> ./ I 00361750          $ 361810 60                    01/28/06 13:39:58
   END APPLY >>> ./ I 00361750          $ 361810 60                    01/28/06 13:39:58
 BEGIN APPLY >>> ./ I 01371500          $ 1371700 200                  01/28/06 13:39:58
   END APPLY >>> ./ I 01371500          $ 1371700 200                  01/28/06 13:39:58
 BEGIN APPLY >>> ./ I 01486000          $ 1486500 500                  01/28/06 13:39:58
   END APPLY >>> ./ I 01486000          $ 1486500 500                  01/28/06 13:39:58
Update Succeeded
Update Execution Time 31 milliseconds.