DMSSRT History

• Abstract / Synopsis of DMSSRT
• Latest Source of DMSSRT
• Fixes Applied : 3
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC323DS]

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

1. R09700DS 606 DMSSRT SHOULD ISSUE MSDMSSRT019E BEFORE ERASING INPUT FILE
2. R12416DS 622 UV04650 DMSSRT NO MSDMSSRT069E FOR R(00036);
3. HRC323DS v03 don't display prompt message if line already in stack

Date Tuesday Nov 06, 1979 10:09:00 AM
Loaded from MAINT(193)

       R09700DS: ./ R 166000 $ 166000 500
       R09700DS: CHKSAME  EQU   *                                               @VA09700
       R09700DS:          CLC   WRFN(17),RDFN  INPUT/OUTPUT FILES THE SAME.?    @VA09700
 BEGIN APPLY >>> ./ R 166000 $ 166000 500
   END APPLY >>> ./ R 166000 $ 166000 500
Update Succeeded
Update Execution Time 16 milliseconds.

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

       R12416DS: ./ I 49000  $ 49250 50
       R12416DS: *                          36   TARGET DISK NOT ACCESSED       @VA12416
       R12416DS: ./ I 151000  $ 151100 100
       R12416DS:          CH    R15,=H'36'          DISK NOT ACCESSED           @VA12416
       R12416DS:          LA    R2,RDMODE           POINT TO DISK MODE          @VA12416
       R12416DS:          BE    ERRMSG36            YES, ISSUE MSG69E           @VA12416
       R12416DS: ./ I 164000  $ 164100 100
       R12416DS:          CH    R15,=H'36'          DISK NOT ACCESSED           @VA12416
       R12416DS:          LA    R2,WRMODE           POINT TO DISK MODE          @VA12416
       R12416DS:          BE    ERRMSG36            YES, ISSUE MSG69E           @VA12416
       R12416DS: ./ I 643000 $ 643100 100
       R12416DS: ERRMSG36 EQU   *                                               @VA12416
       R12416DS:          DMSERR TEXT='DISK ''..'' NOT ACCESSED',NUM=69,                X
       R12416DS:                LET=E,SUB=(CHARA,((R2),1))                      @VA12416
       R12416DS:          LA    R15,36            RETURN CODE = 36              @VA12416
       R12416DS:          B     ERET                                            @VA12416
 BEGIN APPLY >>> ./ I 49000  $ 49250 50
   END APPLY >>> ./ I 49000  $ 49250 50
 BEGIN APPLY >>> ./ I 151000  $ 151100 100
   END APPLY >>> ./ I 151000  $ 151100 100
 BEGIN APPLY >>> ./ I 164000  $ 164100 100
   END APPLY >>> ./ I 164000  $ 164100 100
 BEGIN APPLY >>> ./ I 643000 $ 643100 100
   END APPLY >>> ./ I 643000 $ 643100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Sunday Feb 01, 2009 12:06:00 PM
Loaded from MAINT(093)

       HRC323DS: ./ I 00187000          $ 187020 20                    02/01/09 11:37:57
       HRC323DS: R604     DS    0H                                              HRC323DS 00187020
       HRC323DS:          LH    R15,NUMFINRD   get number of lines in the stack HRC323DS 00187040
       HRC323DS:          LTR   R15,R15                                         HRC323DS 00187060
       HRC323DS:          BNZ   NOTYPE         skip next msg if line in stack   HRC323DS 00187080
       HRC323DS: ./ R 00188000                                         02/01/09 11:37:57
       HRC323DS:          DMSERR NUM=604,LET=R,TEXT='Enter sort fields: ',DOT=NO RC323DS 00188000
       HRC323DS: ./ I 00189000          $ 189020 20                    02/01/09 11:37:57
       HRC323DS: NOTYPE   DS    0H                                              HRC323DS 00189020
       HRC323DS: ./ R 00604000                                         02/01/09 11:37:57
       HRC323DS:                TEXT='File ''....................'' not found'  HRC323DS 00604000
       HRC323DS: ./ R 00608000                                         02/01/09 11:37:57
       HRC323DS: ERR9E    DMSERR NUM=9,LET=E,SUB=(DEC,(R4)),TEXT='Column ''...'' exceeds*00608000
       HRC323DS: ./ R 00609000                                         02/01/09 11:37:57
       HRC323DS:                 record length'                                 HRC323DS 00609000
       HRC323DS: ./ R 00613000                                         02/01/09 11:37:57
       HRC323DS: ERR19E   DMSERR NUM=19,LET=E,TEXT='Identical fileids'          HRC323DS 00613000
       HRC323DS: ./ R 00618000                                         02/01/09 11:37:57
       HRC323DS:                TEXT='File ''....................'' is not fixed length' 00618000
       HRC323DS: ./ R 00623000                                         02/01/09 11:37:57
       HRC323DS:                TEXT='Disk ''..'' is read/only'                 HRC323DS 00623000
       HRC323DS: ./ R 00628000                                         02/01/09 11:37:57
       HRC323DS: ERR53E   DMSERR NUM=53,LET=E,TEXT='Invalid sort field pair defined'     00628000
       HRC323DS: ./ R 00632000                                         02/01/09 11:37:57
       HRC323DS: ERR54E   DMSERR NUM=54,LET=E,TEXT='Incomplete fileid specified' RC323DS 00632000
       HRC323DS: ./ R 00640100                                         02/01/09 11:37:57
       HRC323DS: ERR62E   DMSERR NUM=62,LET=E,SUB=(CHAR8A,(R2)),TEXT='Invalid ''*'' in f*00640100
       HRC323DS: ./ R 00641000                                         02/01/09 11:37:57
       HRC323DS:                ileid ''....................'''                 HRC323DS 00641000
       HRC323DS: ./ R 00646000                                         02/01/09 11:37:57
       HRC323DS:          DMSERR NUM=70,LET=E,SUB=(CHARA,(R2)),TEXT='Invalid parameter '*00646000
       HRC323DS: ./ R 00651000                                         02/01/09 11:37:57
       HRC323DS: ERR63E   DMSERR NUM=63,LET=E,TEXT='No list entered'            HRC323DS 00651000
       HRC323DS: ./ R 00655200                                         02/01/09 11:37:57
       HRC323DS:                TEXT='Error ''..'' reading file ''....................''*00655200
       HRC323DS: ./ R 00655300                                         02/01/09 11:37:57
       HRC323DS:                 from disk',RENT=NO                             HRC323DS 00655300
       HRC323DS: ./ R 00663000                                         02/01/09 11:37:57
       HRC323DS:                TEXT='Error ''...'' writing file ''....................'*00663000
       HRC323DS: ./ R 00664000                                         02/01/09 11:37:57
       HRC323DS:                ' on disk',RENT=NO                              HRC323DS 00664000
       HRC323DS: ./ R 00666100                                         02/01/09 11:37:57
       HRC323DS: ERR212E  DMSERR NUM=212,LET=E,TEXT='Maximum number of records exceeded' 00666100
 BEGIN APPLY >>> ./ I 00187000          $ 187020 20                    02/01/09 11:37:57
   END APPLY >>> ./ I 00187000          $ 187020 20                    02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00188000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00188000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ I 00189000          $ 189020 20                    02/01/09 11:37:57
   END APPLY >>> ./ I 00189000          $ 189020 20                    02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00604000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00604000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00608000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00608000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00609000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00609000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00613000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00613000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00618000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00618000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00623000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00623000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00628000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00628000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00632000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00632000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00640100                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00640100                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00641000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00641000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00646000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00646000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00651000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00651000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00655200                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00655200                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00655300                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00655300                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00663000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00663000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00664000                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00664000                                         02/01/09 11:37:57
 BEGIN APPLY >>> ./ R 00666100                                         02/01/09 11:37:57
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 00666100                                         02/01/09 11:37:57
Update Succeeded
Update Execution Time 31 milliseconds.