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

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

1. R09105DS 601 DMSTYP DISPLAYS ERROR IN HEX INSTEAD OF DECIMAL
2. R09572DS 602 DMSTYP SHOULD GIVE MSG DISK NOT ACCESSED
3. R10595DS 610 DMSTYP OPERATES INCORRECTLY WHEN COL OPTION USED TWICE
4. R10594DS 610 DMSTYP TYPE COMMAND ACCEPTS START COL > END BY ONE
5. R14716DS 626 UV05824 DMSTYP HANGS UP WHEN PRINT A RECORD CONTAINING X'1D'
6. HRC013DS 601 DMSTYP abends on zero line length

Date Tuesday Jan 30, 1979 01:04:00 AM
Loaded from MAINT(193)

       R09105DS: ./ R 657400 $ 657400
       R09105DS:                SUB=(DEC,(15),CHAR8A,(0)),RENT=NO               @VA09105
 BEGIN APPLY >>> ./ R 657400 $ 657400
   END APPLY >>> ./ R 657400 $ 657400
Update Succeeded
Update Execution Time 8 milliseconds.

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

       R09572DS: ./ R 661000 $ 661000 250
       R09572DS: ERR3     EQU   *                                               @VA09572
       R09572DS:          C     R15,=F'36'          WAS DISK NOT ACCESSED?      @VA09572
       R09572DS:          BE    ERROR36             GIVE MSG                    @VA09572
       R09572DS:          C     R15,=F'28'          FILE NOT FOUND?             @VA09572
       R09572DS: ./ I 678000 $ 678150 150
       R09572DS: ERROR36  EQU   *                                               @VA09572
       R09572DS:          LA    R0,FMODE            POINT TO MODE LETTER        @VA09572
       R09572DS:          DMSERR TEXT='DISK ''..'' NOT ACCESSED',NUM=69,                X
       R09572DS:                LET=E,SUB=(CHARA,((R0),1)),TYPCALL=SVC          @VA09572
       R09572DS:          LA    R15,36              GIVE RETCODE                @VA09572
 BEGIN APPLY >>> ./ R 661000 $ 661000 250
   END APPLY >>> ./ R 661000 $ 661000 250
 BEGIN APPLY >>> ./ I 678000 $ 678150 150
   END APPLY >>> ./ I 678000 $ 678150 150
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Feb 27, 1980 02:04:00 AM
Loaded from MAINT(193)

       R10595DS: ./ I 267000 $ 267100 100
       R10595DS:          CLI   COLSET,X'01'   COL SPECIFIED ALREADY?           @VA10595
       R10595DS:          BE    ERR9           YES, ERROR.                      @VA10595
 BEGIN APPLY >>> ./ I 267000 $ 267100 100
   END APPLY >>> ./ I 267000 $ 267100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Feb 27, 1980 02:04:00 AM
Loaded from MAINT(193)

       R10594DS: ./ R 296500 $ 296500
       R10594DS:          BH    CKRECL         NO, CONTINUE                     @VA10594
 BEGIN APPLY >>> ./ R 296500 $ 296500
   END APPLY >>> ./ R 296500 $ 296500
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Dec 21, 1981 08:47:00 AM
Loaded from MAINT(193)

       R14716DS: ./ I 00382200          $ 00382207 7                   11/19/81 14:42:02
       R14716DS:          XR    R1,R1          CLEAR R1.                        @VA14716
       R14716DS:          LH    R1,TYPLIN+14   GET LENGTH OF LINE.              @VA14716
       R14716DS: CHKSPCHR EQU   *                                               @VA14716
       R14716DS:          CLI   0(EVEN),X'15'  IS IT A NEW LINE CHARACTER?      @VA14716
       R14716DS:          BNE   CHK1D          NO, GO TRY 1D.                   @VA14716
       R14716DS:          MVI   0(EVEN),X'40'  YES, SET IT TO BLANK.            @VA14716
       R14716DS:          B     CHKNEXT        GO SET UP TO CHECK NEXT COLUMN.  @VA14716
       R14716DS: CHK1D    EQU   *                                               @VA14716
       R14716DS:          CLI   0(EVEN),X'1D'  IS IT A START LINE CHARACTER?    @VA14716
       R14716DS:          BNE   CHKNEXT        NO, GO SET UP TO CHECK NEXT COL. @VA14716
       R14716DS:          MVI   0(EVEN),X'40'  YES, SET IT TO BLANK.            @VA14716
       R14716DS: CHKNEXT  EQU   *                                               @VA14716
       R14716DS:          LA    EVEN,1(EVEN)   POINT R1 TO NEXT COLUMN.         @VA14716
       R14716DS:          BCT   R1,CHKSPCHR    IF THERE'S MORE, CHECK NEXT COL. @VA14716
 BEGIN APPLY >>> ./ I 00382200          $ 00382207 7                   11/19/81 14:42:02
   END APPLY >>> ./ I 00382200          $ 00382207 7                   11/19/81 14:42:02
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Mar 19, 2018 08:38:00 PM
Loaded from MAINT(093)

       HRC013DS: ./ I 360000 $ 360010 10
       HRC013DS:          BE    STORE               NULL LINE JUST STORE
       HRC013DS: ./ I 382214 $ 382215 1
       HRC013DS:          CR    R1,R1               NULL LINE JUST STORE
       HRC013DS:          BE    CHKDN0              NULL LINE JUST STORE
       HRC013DS: ./ I 382298 $ 382299 1
       HRC013DS: CHKDN0   EQU   *
 BEGIN APPLY >>> ./ I 360000 $ 360010 10
   END APPLY >>> ./ I 360000 $ 360010 10
 BEGIN APPLY >>> ./ I 382214 $ 382215 1
   END APPLY >>> ./ I 382214 $ 382215 1
 BEGIN APPLY >>> ./ I 382298 $ 382299 1
   END APPLY >>> ./ I 382298 $ 382299 1
Update Succeeded
Update Execution Time 23 milliseconds.