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

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

1. R09857DS 605 MSDMSCMP209W RC=4 WHEN COMPARING VARIABLE LENGTH FILES
2. R10242DS 605 DMSCMP STORAGE IS SPELLED INCORRECTLY IN MSDMSCMP109S
3. R12060DS 617 PTF UV02579 COMPARE OF V FILE IS INCORRECT WITH COL OPTION
4. R12650DS 619 UV03599 INCORRECT COMP OF V FILES WITH = LRECL'S & COL OPTION.
5. R12416DS 622 UV04650 DMSCMP NO MSDMSCMP069E FOR R(00036);
6. HRC015DS H40 Replace hardcoded constants in STATEFST with symbolic offsets

Date Thursday Oct 11, 1979 06:21:00 AM
Loaded from MAINT(193)

       R09857DS: ./ I 367600 $ 367800
       R09857DS:          BE    VCOLON         EQUAL, COMPARE RECORDS           @VA09857
 BEGIN APPLY >>> ./ I 367600 $ 367800
   END APPLY >>> ./ I 367600 $ 367800
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Oct 11, 1979 09:06:00 AM
Loaded from MAINT(193)

       R10242DS: ./ R 486000 487000 $ 486000 350
       R10242DS: NOSPACE  EQU   *                                               @VA10242
       R10242DS:          DMSERR NUM=109,LET=S,TEXT='VIRTUAL STORAGE                    *
       R10242DS:                CAPACITY EXCEEDED'                              @VA10242
 BEGIN APPLY >>> ./ R 486000 487000 $ 486000 350
   END APPLY >>> ./ R 486000 487000 $ 486000 350
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Nov 13, 1980 11:13:00 AM
Loaded from MAINT(193)

       R12060DS: ./ I 370000 $ 370500 500
       R12060DS:          LR    R11,R7         PUT LENGTH IN R11 FOR ERROR MSG  @VA12060
       R12060DS: ./ I 374000 $ 374250 250
       R12060DS:          LR    R7,R11         PUT LENGTH IN R7 FOR COMP LENGTH @VA12060
 BEGIN APPLY >>> ./ I 370000 $ 370500 500
   END APPLY >>> ./ I 370000 $ 370500 500
 BEGIN APPLY >>> ./ I 374000 $ 374250 250
   END APPLY >>> ./ I 374000 $ 374250 250
Update Succeeded
Update Execution Time 23 milliseconds.

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

       R12650DS: ./ D 00367800
       R12650DS: ./ R 00369000          $ 00369000
       R12650DS:          BH    CHECK          YES, USE LRECL FOR STOP.         @VA12650
       R12650DS: ./ R 00373000          $ 00373000
       R12650DS:          BH    CHECK          YES, USE LRECL FOR STOP.         @VA12650
 BEGIN APPLY >>> ./ D 00367800
   END APPLY >>> ./ D 00367800
 BEGIN APPLY >>> ./ R 00369000          $ 00369000
   END APPLY >>> ./ R 00369000          $ 00369000
 BEGIN APPLY >>> ./ R 00373000          $ 00373000
   END APPLY >>> ./ R 00373000          $ 00373000
Update Succeeded
Update Execution Time 16 milliseconds.

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

       R12416DS: ./ I 58000 $ 58500 100
       R12416DS: *              36 - TARGET DISK NOT ACCESSED                   @VA12416
       R12416DS: ./ R 466000 $ 466000 250
       R12416DS: FATAL1   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
       R12416DS: ./ I 474000 $ 474150 150
       R12416DS: ERRMSG36 EQU   *                                               @VA12416
       R12416DS:          LA    R0,24(R1)           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     FATAL1A             AND GO RETURN TO CALLER     @VA12416
 BEGIN APPLY >>> ./ I 58000 $ 58500 100
   END APPLY >>> ./ I 58000 $ 58500 100
 BEGIN APPLY >>> ./ R 466000 $ 466000 250
   END APPLY >>> ./ R 466000 $ 466000 250
 BEGIN APPLY >>> ./ I 474000 $ 474150 150
   END APPLY >>> ./ I 474000 $ 474150 150
Update Succeeded
Update Execution Time 16 milliseconds.

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

       HRC015DS: ./ R 00249000          $ 00249100 100
       HRC015DS:          USING STATEFST,R1                                     HRC015DS
       HRC015DS:          L     R5,FVSFSTAC    Remember actual address of file  HRC015DS
       HRC015DS: ./ R 00251000          $ 00251100 100
       HRC015DS:          L     R10,FVSFSTAD   Get address of ADT               HRC015DS
       HRC015DS:          DROP  R1                                              HRC015DS
       HRC015DS: ./ R 00264000          $ 00264100 100
       HRC015DS:          USING STATEFST,R1                                     HRC015DS
       HRC015DS:          L     R10,FVSFSTAD   Get ADT for file                 HRC015DS
       HRC015DS: ./ R 00275000          $ 00275100 100
       HRC015DS:          C     R5,FVSFSTAC    Is this the same file as before? HRC015DS
       HRC015DS:          DROP  R1                                              HRC015DS
       HRC015DS: ./ I 00623000          $ 00623100 100
       HRC015DS:          FVS                                                   HRC015DS
 BEGIN APPLY >>> ./ R 00249000          $ 00249100 100
   END APPLY >>> ./ R 00249000          $ 00249100 100
 BEGIN APPLY >>> ./ R 00251000          $ 00251100 100
   END APPLY >>> ./ R 00251000          $ 00251100 100
 BEGIN APPLY >>> ./ R 00264000          $ 00264100 100
   END APPLY >>> ./ R 00264000          $ 00264100 100
 BEGIN APPLY >>> ./ R 00275000          $ 00275100 100
   END APPLY >>> ./ R 00275000          $ 00275100 100
 BEGIN APPLY >>> ./ I 00623000          $ 00623100 100
   END APPLY >>> ./ I 00623000          $ 00623100 100
Update Succeeded
Update Execution Time 23 milliseconds.