• Abstract / Synopsis of DMSUPD
• Latest Source of DMSUPD
• Fixes Applied : 9
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC015DS]

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

1. R09764DS 602 SEARCH FOR MORE THAN ONE PREFERRED UPDATE LEVEL
2. R10579DS 614 UV01179 INCREMENT OF ZERO NOT REFLECTING WARNING OF SUCH.
3. R11994DS 618 UV03262 DMSUPD CNTRL WITH MANY COMMENT CARDS USES UP STORAGE.
4. R12416DS 622 UV04650 DMSUPD NO MSDMSUPD069E FOR R(00036);
5. R13438DS 625 UV05496 DMSUPD NOT ALL AUX FILES COMMENTS ARE PUT IN UPDATES
6. R14398DS 625 UV05547 DMSUPD VM12416 MAY CAUSE ASSEMBLER ERRORS.
7. R14010DS 625 UV05443 DMSUPD UPDATE DOESN'T ALWAYS CLOSE AUX FILE.
8. HRC102DS V02 CLEANUP UPDATING MESSAGES
9. HRC015DS H40 Replace hardcoded constants in STATEFST with symbolic offsets

Date Thursday Apr 19, 1979 04:09:00 AM
Loaded from MAINT(193)

       R09764DS: ./ R 1049000 $ 1049000                                                  DMS00010
       R09764DS:          B     AUXFIND1           NO, CHECK FOR MORE LEVELS    @VA09764 DMS00020
 BEGIN APPLY >>> ./ R 1049000 $ 1049000                                                  DMS00010
   END APPLY >>> ./ R 1049000 $ 1049000                                                  DMS00010
Update Succeeded
Update Execution Time 23 milliseconds.

Date Friday Jun 27, 1980 06:27:00 AM
Loaded from MAINT(193)

       R10579DS: ./ R 01648000 $ 01648100 100
       R10579DS:          CP    UPDINCR,=P'0'          ZERO INCREMENT????     @VA10579
 BEGIN APPLY >>> ./ R 01648000 $ 01648100 100
   END APPLY >>> ./ R 01648000 $ 01648100 100
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)

       R11994DS: ./ D 00940000  00943000
       R11994DS: ./ I 00950000  $  00950100  100
       R11994DS:          LA    R2,1(,R2)               INCREMENT ITEM COUNT    @VA11994
       R11994DS:          CLR   R2,R8                   ARE WE AT END OF FILE?  @VA11994
       R11994DS:          BH    ERMACS                  ERROR -- NO 'MACS' CARD @VA11994
       R11994DS: ./ R 00953000  $  00953000
       R11994DS:          BE    CTLRCRD                 LOOP BACK IF IT IS      @VA11994
 BEGIN APPLY >>> ./ D 00940000  00943000
   END APPLY >>> ./ D 00940000  00943000
 BEGIN APPLY >>> ./ I 00950000  $  00950100  100
   END APPLY >>> ./ I 00950000  $  00950100  100
 BEGIN APPLY >>> ./ R 00953000  $  00953000
   END APPLY >>> ./ R 00953000  $  00953000
Update Succeeded
Update Execution Time 31 milliseconds.

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

       R12416DS: ./ I 2079000  $ 2079500 100
       R12416DS:          CH    R15,=H'36'          DISK NOT ACCESSED           @VA12416
       R12416DS:          BE    ERRMSG36            YES, ISSUE MSG69E           @VA12416
       R12416DS: ./ I 2838000 $ 2838500 100
       R12416DS: ERRMSG36 EQU   *                                               @VA12416
       R12416DS:          MVC  DMST1284+7(1),24(R2)  POINT TO MODE LETTER       @VA12416
       R12416DS: ./ R 2842000 $ 2842000
       R12416DS:          MVI  RC,36                RETURN CODE                 @VA12416
 BEGIN APPLY >>> ./ I 2079000  $ 2079500 100
   END APPLY >>> ./ I 2079000  $ 2079500 100
 BEGIN APPLY >>> ./ I 2838000 $ 2838500 100
   END APPLY >>> ./ I 2838000 $ 2838500 100
 BEGIN APPLY >>> ./ R 2842000 $ 2842000
   END APPLY >>> ./ R 2842000 $ 2842000
Update Succeeded
Update Execution Time 23 milliseconds.

Date Wednesday Oct 07, 1981 09:15:00 AM
Loaded from MAINT(193)

       R13438DS: ./ I 01076000  $ 01076500 100
       R13438DS:          MVI   TEMPSWT,X'00'       RESET THE SWITCH            @VA13438
       R13438DS: ./ I 01199000  $ 01199500 50
       R13438DS: READNXT  EQU   *                   READ THE NEXT ITEM          @VA13438
       R13438DS: ./ I 01203000  $ 01203500 50
       R13438DS:          LH    R1,AUXFILE+ITEM     INCREMENT                   @VA13438
       R13438DS:          LA    R1,1(,R1)            ITEM                       @VA13438
       R13438DS:          STH   R1,AUXFILE+ITEM       COUNT                     @VA13438
       R13438DS:          B     READNXT             READ NEXT ITEM              @VA13438
 BEGIN APPLY >>> ./ I 01076000  $ 01076500 100
   END APPLY >>> ./ I 01076000  $ 01076500 100
 BEGIN APPLY >>> ./ I 01199000  $ 01199500 50
   END APPLY >>> ./ I 01199000  $ 01199500 50
 BEGIN APPLY >>> ./ I 01203000  $ 01203500 50
   END APPLY >>> ./ I 01203000  $ 01203500 50
Update Succeeded
Update Execution Time 23 milliseconds.

Date Wednesday Oct 07, 1981 09:15:00 AM
Loaded from MAINT(193)

       R14398DS: ./ R 02838600          $ 02838600 100
       R14398DS:          LA    R0,24(R2)             POINT TO MODE LETTER      @VA14398
       R14398DS:          B     ERRMS36A                                        @VA14398
       R14398DS: ./ R 02840000 02841000 $ 02840000 500
       R14398DS:          LA    R0,=C'A'              POINT TO MODE LETTER      @VA14398
       R14398DS: ERRMS36A EQU   *                                               @VA14398
       R14398DS:          DMSERR TEXT='DISK ".." NOT ACCESSED',NUM=69,          @VA14398X
       R14398DS:                LET=E,SUB=(CHARA,((R0),1))                      @VA14398
 BEGIN APPLY >>> ./ R 02838600          $ 02838600 100
   END APPLY >>> ./ R 02838600          $ 02838600 100
 BEGIN APPLY >>> ./ R 02840000 02841000 $ 02840000 500
   END APPLY >>> ./ R 02840000 02841000 $ 02840000 500
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Oct 06, 1981 10:30:00 AM
Loaded from MAINT(193)

       R14010DS: ./ I 01240000          $ 01240500 500
       R14010DS:          FSCLOSE FSCB=AUXFILE              CLOSE THE AUX FILE. @VA14010
 BEGIN APPLY >>> ./ I 01240000          $ 01240500 500
   END APPLY >>> ./ I 01240000          $ 01240500 500
Update Succeeded
Update Execution Time 23 milliseconds.

Date Monday Feb 27, 2006 09:14:00 PM
Loaded from MAINT(093)

       HRC102DS: ./ R 01178000 01180000 $ 1178490 490                  02/27/06 21:13:17
       HRC102DS:                SUB=(CHAR8A,INPFILE+8),                                 *01178000
       HRC102DS:                TEXT='UPDATING ''....................'''        HRC012DS 01179000
       HRC102DS:          DMSERR NUM=178,LET=I,RENT=NO,                                 *01177000
       HRC102DS:                SUB=(CHAR8A,UPDFILE+8),                                 *01178000
       HRC102DS:                TEXT='APPLYING ''....................'''        HRC012DS 01179000
       HRC102DS: ./ R 01190000          $ 1190490 490                  02/27/06 21:13:17
       HRC102DS:                TEXT='APPLYING ''....................'''        HRC012DS 01190000
 BEGIN APPLY >>> ./ R 01178000 01180000 $ 1178490 490                  02/27/06 21:13:17
   END APPLY >>> ./ R 01178000 01180000 $ 1178490 490                  02/27/06 21:13:17
 BEGIN APPLY >>> ./ R 01190000          $ 1190490 490                  02/27/06 21:13:17
   END APPLY >>> ./ R 01190000          $ 1190490 490                  02/27/06 21:13:17
Update Succeeded
Update Execution Time 39 milliseconds.

Date Sunday Mar 11, 2018 06:54:00 PM
Loaded from MAINT(093)

       HRC015DS: ./ R 02064000          $ 02064100 100
       HRC015DS:          USING STATEFST,R1                                     HRC015DS
       HRC015DS:          L     R15,FVSFSTAD            Point to ADT for file   HRC015DS
       HRC015DS: ./ R 02068000          $ 02068100 100
       HRC015DS:          L     R15,FVSFSTAC            Address of real FST     HRC015DS
       HRC015DS:          DROP  R1                                              HRC015DS
       HRC015DS: ./ I 02891000          $ 02891100 100
       HRC015DS:          FVS                                                   HRC015DS
 BEGIN APPLY >>> ./ R 02064000          $ 02064100 100
   END APPLY >>> ./ R 02064000          $ 02064100 100
 BEGIN APPLY >>> ./ R 02068000          $ 02068100 100
   END APPLY >>> ./ R 02068000          $ 02068100 100
 BEGIN APPLY >>> ./ I 02891000          $ 02891100 100
   END APPLY >>> ./ I 02891000          $ 02891100 100
Update Succeeded
Update Execution Time 39 milliseconds.