• Abstract / Synopsis of DMSRRV
• Latest Source of DMSRRV
• Fixes Applied : 1
• Latest Source Date : Wednesday, December 20, 1978
• Last Fix ID : [R08978DS]

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

1. R08978DS 601 RSERV REPLACES BLANK COLUMNS AHEAD OF SEQ NO WITH X'8B'S

Date Tuesday Dec 19, 1978 12:11:00 PM
Loaded from MAINT(193)

       R08978DS: ./ R 204000 208000 $ 203600 600
       R08978DS: OPTSOK   CLI   SSW,ZERO       ANY OPTIONS SPECIFIED?           @VA08978
       R08978DS:          BNE   READDIR        NOT DEFAULT - GO CHECK DIRECTORY @VA08978
       R08978DS:          OI    SSW,DISK       TURN ON DISK OPTION              @VA08978
       R08978DS:          B     READDIR        GO CHECK DIRECTORY               @VA08978
       R08978DS: CHKDSK   EQU   *                                               @VA08978
       R08978DS:          TM    SSW,DISK       WAS DISK SPECIFIED?              @VA08978
       R08978DS:          BZ    FNDMOD         NOT DISK - DON'T BOTHER TO ERASE @VA08978
       R08978DS: ERSOLD   MVC   FNAME,MDNAME   SET UP FILE NAME                 @VA08978
       R08978DS: ./ R 213000 215000 $ 212800 800
       R08978DS:          BE    ERR006         YES,GIVE ERROR                   @VA08978
       R08978DS:          B     FNDMOD         CONTINUE                         @VA08978
       R08978DS:          EJECT
       R08978DS: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
       R08978DS: ./ R 247000 249000 $ 247000 1000
       R08978DS:          CLC   MDNAME,0(R2)   MODULE NAME MATCH?               @VA08978
       R08978DS:          BE    CHKDSK         FOUND - GO CHECK FOR ERASE       @VA08978
       R08978DS:          LA    R2,16(,R2)     BUMP TO NEXT ENTRY               @VA08978
       R08978DS: ./ R 281000 282000 $ 280500 500
       R08978DS: NOEND    EQU   *                                               @VA08978
       R08978DS:          LA    R4,OUTBUF      POINT TO CARD COLUMN 1           @VA08978
       R08978DS:          MVI   OUTBUF,BLANK   PUT BLANK IN FIRST BYTE          @VA08978
       R08978DS:          MVC   1(79,R4),0(R4) BLANK 80 BYTES FOR RECORD        @VA08978
       R08978DS:          BCTR  R4,0           ADJUST POINTER TO BUFFER         @VA08978
 BEGIN APPLY >>> ./ R 204000 208000 $ 203600 600
   END APPLY >>> ./ R 204000 208000 $ 203600 600
 BEGIN APPLY >>> ./ R 213000 215000 $ 212800 800
   END APPLY >>> ./ R 213000 215000 $ 212800 800
 BEGIN APPLY >>> ./ R 247000 249000 $ 247000 1000
   END APPLY >>> ./ R 247000 249000 $ 247000 1000
 BEGIN APPLY >>> ./ R 281000 282000 $ 280500 500
   END APPLY >>> ./ R 281000 282000 $ 280500 500
Update Succeeded
Update Execution Time 23 milliseconds.