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

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

1. R09217DS 601 DMSPRV CERTAIN SEQUENCE NUMBERS WERE MISSING

Date Friday Jan 26, 1979 01:24:00 AM
Loaded from MAINT(193)

       R09217DS: ./ R 203000 207000 $ 203000 600
       R09217DS: OPTSOK   CLI   SSW,ZERO      ANY OPTIONS SPECIFIED?            @VA09217
       R09217DS:          BNE   READDIR       NOT DEFAULT - GO CHECK DIRECTORY  @VA09217
       R09217DS:          OI    SSW,DISK      TURN ON DISK OPTION               @VA09217
       R09217DS:          B     READDIR       GO CHECK DIRECTORY                @VA09217
       R09217DS: CHKDSK   EQU   *                                               @VA09217
       R09217DS:          TM    SSW,DISK      WAS DISK SPECIFIED?               @VA09217
       R09217DS:          BZ    FNDENT        NOT DISK - DONT BOTHER TO ERASE   @VA09217
       R09217DS: ERSOLD   MVC   FNAME,PCNAME  SET UP FILENAME                   @VA09217
       R09217DS: ./ R 212000 214000 $ 212000 1000
       R09217DS:          BE    ERR006        YES,GIVE ERROR                    @VA09217
       R09217DS:          B     FNDENT        CONTINUE                          @VA09217
       R09217DS: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
       R09217DS: ./ R 255000 257000 $ 255000 1000
       R09217DS:          CLC   PCNAME,0(R2)  PROC NAME MATCH ?                 @VA09217
       R09217DS:          BE    CHKDSK        FOUND - GO CHECK FOR ERASE        @VA09217
       R09217DS:          LA    R2,16(,R2)    BUMP TO NEXT ENTRY                @VA09217
 BEGIN APPLY >>> ./ R 203000 207000 $ 203000 600
   END APPLY >>> ./ R 203000 207000 $ 203000 600
 BEGIN APPLY >>> ./ R 212000 214000 $ 212000 1000
   END APPLY >>> ./ R 212000 214000 $ 212000 1000
 BEGIN APPLY >>> ./ R 255000 257000 $ 255000 1000
   END APPLY >>> ./ R 255000 257000 $ 255000 1000
Update Succeeded
Update Execution Time 16 milliseconds.