• Abstract / Synopsis of DMSPUN
• Latest Source of DMSPUN
• Fixes Applied : 1
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R12416DS]

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

1. R12416DS 622 UV04650 DMSPUN NO MSDMSPUN069E FOR R(00036);

Date Tuesday Jun 30, 1981 06:18:00 AM
Loaded from MAINT(193)

       R12416DS: ./ I 44000 $ 44500 100
       R12416DS: *          36  TARGET DISK NOT ACCESSED                        @VA12416
       R12416DS: ./ I 498000 $ 498150 150
       R12416DS: ERRMSG36 EQU   *                                               @VA12416
       R12416DS:          LA    R0,FILEMODE         POINT TO MODE LETTER        @VA12416
       R12416DS:          DMSERR TEXT='DISK ''..'' NOT ACCESSED',NUM=69,                X
       R12416DS:                LET=E,SUB=(CHARA,((R0),1)),TYPCALL=SVC          @VA12416
       R12416DS:          LA    R15,36              GIVE RETCODE                @VA12416
       R12416DS:          B     ERRET               AND GO RETURN TO CALLER     @VA12416
       R12416DS: ./ R 505000 $ 505000 100
       R12416DS: STATERR  EQU   *                                               @VA12416
       R12416DS:          C     R15,=F'36'      WAS DISK NOT ACCESSED?          @VA12416
       R12416DS:          BE    ERRMSG36        GIVE MSG                        @VA12416
       R12416DS:          C     R15,=F'28'      FILE NOT FOUND FROM STATE?      @VA12416
 BEGIN APPLY >>> ./ I 44000 $ 44500 100
   END APPLY >>> ./ I 44000 $ 44500 100
 BEGIN APPLY >>> ./ I 498000 $ 498150 150
   END APPLY >>> ./ I 498000 $ 498150 150
 BEGIN APPLY >>> ./ R 505000 $ 505000 100
   END APPLY >>> ./ R 505000 $ 505000 100
Update Succeeded
Update Execution Time 23 milliseconds.