• Abstract / Synopsis of DMSSEB
• Latest Source of DMSSEB
• Fixes Applied : 4
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R13662DS]

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

1. R09484DS 610 FILEDEF DISK OPER WITH FM ='*' CAUSES INCORRECT EOF ON MODE 4 FILES
2. R11136DS 613 UV01145 RESIDUAL BYTE COUNT NOT IN IOB ON TAPE READ ERROR
3. R11880DS 616 UV02029 ERROR NOT DETECTED WHEN OUTPUT DEVICE SPECIFIED FOR OS READ
4. R13662DS 623 UV05041 ENDFILE NOT POSTED FOR RDR , TAPE AND CONSOLE

Date Thursday Mar 13, 1980 03:05:00 AM
Loaded from MAINT(193)

       R09484DS: ./ I 470000 $ 470100 100
       R09484DS:          BE    MODE4              YES, COMPUTE RESIDUAL        @VA09484
       R09484DS:          CLI   FCBDSMD,C'*'       IS MODE SPECIFIED?           @VA09484
       R09484DS: ./ I 471000 $ 471100 100
       R09484DS:          TM    JFCBIND2,M4FLAG    IS MODE 4 FLAG ON?           @VA09484
       R09484DS:          BNO   GETBUFAD           NO CHANCE OF MODE 4 FILE     @VA09484
       R09484DS: MODE4    EQU   *                  MODE=4, ONE WAY OR ANOTHER   @VA09484
       R09484DS: ./ I 715100 $ 715200
       R09484DS: M4FLAG   EQU   X'01'              FILEMODE=4 IF FM='*'         @VA09484
 BEGIN APPLY >>> ./ I 470000 $ 470100 100
   END APPLY >>> ./ I 470000 $ 470100 100
 BEGIN APPLY >>> ./ I 471000 $ 471100 100
   END APPLY >>> ./ I 471000 $ 471100 100
 BEGIN APPLY >>> ./ I 715100 $ 715200
   END APPLY >>> ./ I 715100 $ 715200
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Jun 04, 1980 05:29:00 AM
Loaded from MAINT(193)

       R11136DS: ./ R 705000 $ 705000 100
       R11136DS:          BE    EOFCK              YES, BRANCH                  @VA11136
       R11136DS:          CLI   TAPEOPER,C'W'      WRITE OPERATION?             @VA11136
       R11136DS:          BE    URERROR            IF SO DON'T NEED RESIDUAL    @VA11136
       R11136DS:          L     R1,TAPESIZE        CALC  RESIDUAL BYTE COUNT,   @VA11136
       R11136DS:          S     R1,TAPECOUT        PUT IN REG1 FOR RETURN       @VA11136
       R11136DS:          B     FLAGERR            GO SET ECB CODE              @VA11136
       R11136DS: EOFCK    EQU   *                  END OF FILE ERROR            @VA11136
 BEGIN APPLY >>> ./ R 705000 $ 705000 100
   END APPLY >>> ./ R 705000 $ 705000 100
Update Succeeded
Update Execution Time 16 milliseconds.

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

       R11880DS: ./ R 603000 $ 602300 300
       R11880DS: PRTPUN   EQU   *                                               @VA11880
       R11880DS:          LA    R15,36         INDICATE DEVICE ERROR            @VA11880
       R11880DS:          TM    IOBIOFLG,IOBIN CHECK FOR READ OPERATION         @VA11880
       R11880DS:          BO    PRPUERR        NOT VALID FOR OUTPUT DEVICE      @VA11880
       R11880DS:          TM    DCBRECFM,FXD   RECFM = VARIABLE?                @VA11880
 BEGIN APPLY >>> ./ R 603000 $ 602300 300
   END APPLY >>> ./ R 603000 $ 602300 300
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Aug 05, 1981 07:30:00 AM
Loaded from MAINT(193)

       R13662DS: ./ R 313000 $ 313000
       R13662DS:          BZ    EOFERR             YES, GO TO EOF ERROR RTN     @VA13662
       R13662DS: ./ R 582000 588000     $ 582000 800                   05/28/81 13:18:49
       R13662DS:          BNE   NORESID            NOPE.                        @VA13662
       R13662DS:          SPACE 1                                               @VA13662
       R13662DS: *                                                              @VA13662
       R13662DS: **** COMMON END OF FILE ROUNTINE FOR CONSOLE,READER, AND TAPE  @VA13662
       R13662DS: *                                                              @VA13662
       R13662DS: EOFERR   EQU   *                                               @VA13662
       R13662DS:          LA    R15,12         SET RET CODE FOR CMS             @VA13662
       R13662DS:          LA    R14,EOFCODE    SET RET CODE FOR ECB             @VA13662
       R13662DS: ./ I 589000            $ 589100 100                   05/28/81 13:18:49
       R13662DS:          SPACE 3                                               @VA13662
       R13662DS: NORESID  EQU   *                                               @VA13662
       R13662DS:          SR    R1,R1          SET RESIDUAL COUNT = 0           @VA13662
       R13662DS: PERMERR  EQU   *                                               @VA13662
       R13662DS:          LA    R14,PERMCODE   SET RET CODE FOR ECB             @VA13662
       R13662DS:          B     EOBRETRN       CLEAN UP AND RETURN              @VA13662
       R13662DS: *                                                              @VA13662
       R13662DS: PERMCODE EQU   X'41'          INDICATES PERM. I/O ERROR        @VA13662
       R13662DS: EOFCODE  EQU   X'42'          INDICATES END OF FILE            @VA13662
       R13662DS: ./ R 705200            $ 705200                       05/28/81 13:18:49
       R13662DS:          BE    NORESID            IF SO DON'T NEED RESIDUAL    @VA13662
       R13662DS: ./ R 705500            $ 705500                       05/28/81 13:18:49
       R13662DS:          B     PERMERR            GO SET ECB CODE              @VA13662
 BEGIN APPLY >>> ./ R 313000 $ 313000
   END APPLY >>> ./ R 313000 $ 313000
 BEGIN APPLY >>> ./ R 582000 588000     $ 582000 800                   05/28/81 13:18:49
   END APPLY >>> ./ R 582000 588000     $ 582000 800                   05/28/81 13:18:49
 BEGIN APPLY >>> ./ I 589000            $ 589100 100                   05/28/81 13:18:49
   END APPLY >>> ./ I 589000            $ 589100 100                   05/28/81 13:18:49
 BEGIN APPLY >>> ./ R 705200            $ 705200                       05/28/81 13:18:49
   END APPLY >>> ./ R 705200            $ 705200                       05/28/81 13:18:49
 BEGIN APPLY >>> ./ R 705500            $ 705500                       05/28/81 13:18:49
   END APPLY >>> ./ R 705500            $ 705500                       05/28/81 13:18:49
Update Succeeded
Update Execution Time 16 milliseconds.