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

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

1. R09227DS 602 DMSBOP SHOULD ALLOW COBOL, FORTRAN TO OPEN DTFS WITHOUT SVC02 CHECK
2. R11066DS 615 UV01777 END OF VIRTUAL PARTITION NOT SET IN BOUNDARY BOX
3. R12559DS 619 UV03481 DMSBOP089E ERROR CODE 7.
4. R12103DS 620 UV04142 AMSERV REPRO FROM VSAM D/T3350 TO CMS FILE LOST RECORDS
5. R13166DS 621 UV04303 MSDMSBOP089E ERROR 17 OPENING OUTPUT TAPE NO LABEL
6. R14961DS 627 UV05965 MSDMSBOP089E ERROR CODE 14

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

       R09227DS: ./ R 800000 801000 $ 800300 300
       R09227DS:          CLI   0(R2),ANOTHER       ANY MORE FILES TO OPEN?     @VA09227
       R09227DS:          BNE   EXIT                NO,END OF LIST              @VA09227
 BEGIN APPLY >>> ./ R 800000 801000 $ 800300 300
   END APPLY >>> ./ R 800000 801000 $ 800300 300
Update Succeeded
Update Execution Time 23 milliseconds.

Date Thursday Jul 31, 1980 07:23:00 AM
Loaded from MAINT(193)

       R11066DS: ./ I 2416000 $ 2416150 150
       R11066DS:          ICM   R1,15,PPEND    DOES ANCHOR TABLE EXIST?         @VA11066
       R11066DS:          BNZ   VSAMCHK1       YES, ALREADY IN PLACE            @VA11066
       R11066DS:          LA    R1,DMSSMNAT    IF NOT, CALL STORAGE INITIALIZER @VA11066
       R11066DS:          SVC   202            SET UP STORAGE AND ANCHOR TABLE  @VA11066
       R11066DS:          DC    AL4(*+4)       ...                              @VA11066
       R11066DS: VSAMCHK1 EQU   *                                               @VA11066
       R11066DS: ./ I 2604000 $ 2604500
       R11066DS: DMSSMNAT DC    CL8'DMSSMNAT'  ROUTINE TO SET UP ANCHOR TABLE   @VA11066
 BEGIN APPLY >>> ./ I 2416000 $ 2416150 150
   END APPLY >>> ./ I 2416000 $ 2416150 150
 BEGIN APPLY >>> ./ I 2604000 $ 2604500
   END APPLY >>> ./ I 2604000 $ 2604500
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)

       R12559DS: ./ I 1639000 $ 1639250 250
       R12559DS:          TM    SDFLAG1,INPSD     SD INPUT?                     @VA12559
       R12559DS:          BO    EQUAL3                                          @VA12559
       R12559DS:          BZ    EQUAL3             OUTPUT                       @VA12559
 BEGIN APPLY >>> ./ I 1639000 $ 1639250 250
   END APPLY >>> ./ I 1639000 $ 1639250 250
Update Succeeded
Update Execution Time 23 milliseconds.

Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)

       R12103DS: ./ D 1425000 1426000 $
 BEGIN APPLY >>> ./ D 1425000 1426000 $
   END APPLY >>> ./ D 1425000 1426000 $
Update Succeeded
Update Execution Time 23 milliseconds.

Date Wednesday Jun 10, 1981 05:15:00 AM
Loaded from MAINT(193)

       R13166DS: ./ R 913000 $ 913000 100
       R13166DS: READIT   EQU   *                                               @VA13166
       R13166DS:          TM    MTFLAG1,MTINP     INPUT                         @VA13166
       R13166DS:          BZ    ISLOADPT          BRANCH IF OUTPUT              @VA13166
       R13166DS:          MVC   FUNC,READ         READ                          @VA13166
       R13166DS: ./ D 916000 917000
 BEGIN APPLY >>> ./ R 913000 $ 913000 100
   END APPLY >>> ./ R 913000 $ 913000 100
 BEGIN APPLY >>> ./ D 916000 917000
   END APPLY >>> ./ D 916000 917000
Update Succeeded
Update Execution Time 31 milliseconds.

Date Friday Jan 15, 1982 04:28:00 PM
Loaded from MAINT(193)

       R14961DS: ./ R 1125000 $ 1125000
       R14961DS: DT3411   TM    BUFF4,BPI1600                                   @VA14961
       R14961DS: ./ R 1136000 $ 1136250 250
       R14961DS: CHK3420  LA    R4,NINE                                         @VA14961
       R14961DS:          C     R4,BYTES          D/T3410/3411?                 @VA14961
       R14961DS:          BE    DT3411            BR IF YES                     @VA14961
 BEGIN APPLY >>> ./ R 1125000 $ 1125000
   END APPLY >>> ./ R 1125000 $ 1125000
 BEGIN APPLY >>> ./ R 1136000 $ 1136250 250
   END APPLY >>> ./ R 1136000 $ 1136250 250
Update Succeeded
Update Execution Time 31 milliseconds.