DMSEDX History
- - References
  - Update History
    - Update Order
    - R09093DS
    - R10657DS
    - R12416DS
    - HRC002DS
    - HRC104DS
    - HRC073DS

DMSEDX History

References

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

Update History

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

Update Order

R09093DS 601 DMSEDX MUST TURN ON NODISP BIT FOR A 3066 DEVICE
R10657DS 610 EDIT OPTION 'NODISP' IS NOT SCANNED FOR CORRECTLY
R12416DS 622 UV04650 DMSEDX NO MSDMSEDX069E FOR R(00036);
HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP
HRC104DS V02 ADD SUPPORT FOR LARGE CRTS MODEL 3 AND 4
HRC073DS V01 ADD EDIT SUPPORT OF 3278 MODEL 5 TERMINALS

R09093DS

Date Wednesday Feb 21, 1979 09:45:00 AM
Loaded from MAINT(193)

       R09093DS: ./ R 331000 331000 $ 331010
       R09093DS:          BE    NODISPX             YES,SET NODISP FLAG         @VA09093
       R09093DS: ./ R 333500 334000 $
       R09093DS: NODISPX  EQU   *
       R09093DS:          OI    FLAG2,NODISP        INHIBIT DISPLAY MODE        @VA09093
       R09093DS:          B     NOGRAF                                          @VA09093
 BEGIN APPLY >>> ./ R 331000 331000 $ 331010
   END APPLY >>> ./ R 331000 331000 $ 331010
 BEGIN APPLY >>> ./ R 333500 334000 $
   END APPLY >>> ./ R 333500 334000 $
Update Succeeded
Update Execution Time 16 milliseconds.

R10657DS

Date Wednesday Feb 27, 1980 02:25:00 AM
Loaded from MAINT(193)

       R10657DS: ./ R 448000 $ 448000
       R10657DS: CHKNOD    CLC  0(7,R2),=CL7'NODISP '  IS IT 'NODISP' ?      @VA10657
 BEGIN APPLY >>> ./ R 448000 $ 448000
   END APPLY >>> ./ R 448000 $ 448000
Update Succeeded
Update Execution Time 16 milliseconds.

R12416DS

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

       R12416DS: ./ I 42000 $ 42300 300
       R12416DS: *                                                              @VA12416
       R12416DS: *                  36  TARGET DISK NOT ACCESSED.               @VA12416
       R12416DS: ./ I 179000 $ 179500 100
       R12416DS: *        DMSEDI069E DISK 'MODE' NOT ACCESSED                   @VA12416
       R12416DS: *             THE SPECIFIED DISK HAS NOT BEEN ACCESSED.        @VA12416
       R12416DS: *                                                              @VA12416
       R12416DS: ./ R 220000 $ 220000 300
       R12416DS:          USING DMSEDX,R12,R11  SET UP ADDRESSABILITY.          @VA12416
       R12416DS:          LA    R11,4095(,R12)  SET UP SECOND BASE REG.         @VA12416
       R12416DS:          LA    R11,1(,R11)                                     @VA12416
       R12416DS: ./ I 473000 $ 473300 300
       R12416DS:          CH    R15,=H'36'      WAS DISK NOT ACCESSED?          @VA12416
       R12416DS:          BE    ERRMSG36        GIVE MSG                        @VA12416
       R12416DS: ./ I 510000 $ 510500 300
       R12416DS:          CH    R15,=H'36'      WAS DISK NOT ACCESSED?          @VA12416
       R12416DS:          BE    ERRMSG36        GIVE MSG                        @VA12416
       R12416DS: ./ I 823000 $ 823150 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))                      @VA12416
       R12416DS:          LA    R2,36               GIVE RETCODE                @VA12416
       R12416DS:          B     EDEXIT              AND GO RETURN TO CALLER     @VA12416
 BEGIN APPLY >>> ./ I 42000 $ 42300 300
   END APPLY >>> ./ I 42000 $ 42300 300
 BEGIN APPLY >>> ./ I 179000 $ 179500 100
   END APPLY >>> ./ I 179000 $ 179500 100
 BEGIN APPLY >>> ./ R 220000 $ 220000 300
   END APPLY >>> ./ R 220000 $ 220000 300
 BEGIN APPLY >>> ./ I 473000 $ 473300 300
   END APPLY >>> ./ I 473000 $ 473300 300
 BEGIN APPLY >>> ./ I 510000 $ 510500 300
   END APPLY >>> ./ I 510000 $ 510500 300
 BEGIN APPLY >>> ./ I 823000 $ 823150 150
   END APPLY >>> ./ I 823000 $ 823150 150
Update Succeeded
Update Execution Time 23 milliseconds.

HRC002DS

Date Saturday Mar 04, 2006 01:37:00 PM
Loaded from MAINT(093)

       HRC002DS: ./ R 00375000 00394000 $ 375890 890                   03/04/06 13:37:01
       HRC002DS:          CLC   =C'* ',0(R2)        IS THIS '*'                 HRC002DS 00375890
       HRC002DS:          BE    CONT2               YES, CONTINUE               HRC002DS 00376780
       HRC002DS:          CLC   =C'  ',0(R2)        IS IT BLANK?                HRC002DS 00377670
       HRC002DS:          BE    CONT0               YES,                        HRC002DS 00378560
       HRC002DS:          CLI   0(R2),C'A'          'A' ?                       HRC002DS 00379450
       HRC002DS:          BLR   R14                 < 'A' ERROR                 HRC002DS 00380340
       HRC002DS:          CLI   0(R2),C'I'          'I' ?                       HRC002DS 00381230
       HRC002DS:          BNH   CONT1               <= 'I' O.K.                 HRC002DS 00382120
       HRC002DS:          CLI   0(R2),C'J'          'J' ?                       HRC002DS 00383010
       HRC002DS:          BLR   R14                 < 'J' ERROR                 HRC002DS 00383900
       HRC002DS:          CLI   0(R2),C'R'          'R' ?                       HRC002DS 00384790
       HRC002DS:          BNH   CONT1               <= 'R' O.K.                 HRC002DS 00385680
       HRC002DS:          CLI   0(R2),C'S'          'S' ?                       HRC002DS 00386570
       HRC002DS:          BLR   R14                 < 'S' ERROR                 HRC002DS 00387460
       HRC002DS:          CLI   0(R2),C'Z'          'Z' ?                       HRC002DS 00388350
       HRC002DS:          BNH   CONT1               <= 'Z' O.K.                 HRC002DS 00389240
       HRC002DS:          BR    R14                 RETURN WITH ERROR CC        HRC002DS 00390130
       HRC002DS: CONT0    MVC   0(2,R2),=C'* ' TREAT LIKE *                     HRC002DS 00391020
       HRC002DS:          B     CONT2                                           HRC002DS 00391910
       HRC002DS: CONT1    CLI   1(R2),C'5'     MODE NUMBER GT '5'               HRC002DS 00392800
       HRC002DS:          BHR   R14            IF SO, ERROR RETURN              HRC002DS 00393690
       HRC002DS: ./ R 00398000          $ 398490 490                   03/04/06 13:37:01
       HRC002DS:          BNER  R14            ERROR IF NOT BLANK               HRC002DS 00398490
       HRC002DS: ./ R 00448000          $ 448490 490                   03/04/06 13:37:01
       HRC002DS: CHKNOD   CLC   0(7,R2),=CL7'NODISP '     IS IT 'NODISP' ?      HRC002DS 00448490
       HRC002DS: ./ R 00795000          $ 795490 490                   03/04/06 13:37:01
       HRC002DS: ERR3E    DMSERR NUM=3,LET=E,SUB=(CHARA,(2)),TEXT='Invalid option ''....*00795490
       HRC002DS: ./ R 00800000 00801000 $ 800590 590                   03/04/06 13:37:01
       HRC002DS: ERR24E   DMSERR NUM=24,LET=E,SUB=(CHAR8A,EDWORK),TEXT='File ''.........*00800590
       HRC002DS:                ...........'' already exists',CSECT=EDI         HRC002DS 00801180
       HRC002DS: ./ R 00805000 00806000 $ 805590 590                   03/04/06 13:37:01
       HRC002DS: ERR29E   DMSERR NUM=29,LET=E,SUB=(CHARA,(2)),TEXT='Invalid parameter ''*00805590
       HRC002DS:                ........'' in the option ''LRECL'' field',CSECT=HRC002DS 00806180
       HRC002DS: ./ R 00810000 00811000 $ 810590 590                   03/04/06 13:37:01
       HRC002DS: ERR44E   DMSERR NUM=44,LET=E,TEXT='Record length exceeds allowable maxi*00810590
       HRC002DS:                mum',CSECT=EDI                                  HRC002DS 00811180
       HRC002DS: ./ R 00815000          $ 815490 490                   03/04/06 13:37:01
       HRC002DS: ERR048E  DMSERR NUM=48,LET=E,SUB=(CHARA,(2)),TEXT='Invalid mode ''.....*00815490
       HRC002DS: ./ R 00820000          $ 820490 490                   03/04/06 13:37:01
       HRC002DS: ERR54E   DMSERR NUM=54,LET=E,TEXT='Incomplete fileid specified',CSECT=E*00820490
       HRC002DS: ./ R 00823450          $ 823510 60                    03/04/06 13:37:01
       HRC002DS:          DMSERR TEXT='Disk ''..'' not accessed',NUM=69,                X00823510
       HRC002DS: ./ R 00825000          $ 825490 490                   03/04/06 13:37:01
       HRC002DS: ERR76E   DMSERR TEXT='Actual record length exceeds that specified',    X00825490
       HRC002DS: ./ R 00832000 00833000 $ 832590 590                   03/04/06 13:37:01
       HRC002DS: ERR104S  DMSERR NUM=104,LET=S,SUB=(DEC,(2),CHAR8A,IOID),TEXT='Error ''.*00832590
       HRC002DS:                .'' reading file ''....................'' from disk',REN*00833180
       HRC002DS: ./ R 00841000 00842000 $ 841590 590                   03/04/06 13:37:01
       HRC002DS: ERR132S  DMSERR NUM=132,LET=S,SUB=(CHAR8A,FNAME),TEXT='File ''.........*00841590
       HRC002DS:                ...........'' too large',CSECT=EDI              HRC002DS 00842180
       HRC002DS: ./ R 00846000 00847000 $ 846590 590                   03/04/06 13:37:01
       HRC002DS: ERR143   DMSERR NUM=143,LET=S,TEXT=' Unable to load SAVED SYSTEM or loaX00846590
       HRC002DS:                d module',CSECT=EDI                             HRC002DS 00847180
       HRC002DS: ./ R 00850200          $ 850220 20                    03/04/06 13:37:01
       HRC002DS:          DMSERR NUM=109,LET=S,TEXT='Virtual storage capacity exceeded' *00850240
       HRC002DS:                                                                HRC002DS
       HRC002DS: ./ R 00968000          $ 968490 490                   03/04/06 13:37:01
       HRC002DS: KILMES   DC    C'Stacked lines cleared'                        HRC002DS 00968490
       HRC002DS: ./ R 00971000          $ 971490 490                   03/04/06 13:37:01
       HRC002DS: NOTFND   DC    C'New file:'                                    HRC002DS 00971490
       HRC002DS: ./ R 00995000          $ 995090 90                    03/04/06 13:37:01
       HRC002DS: MSGINIT  DC    C'.... line(s) changed'                         HRC002DS 00995090
       HRC002DS: ./ R 00995400 00995600 $ 995590 190                   03/04/06 13:37:01
       HRC002DS:          DC    C'.... line(s) '                                HRC002DS 00995590
       HRC002DS:          DC    C'truncated'                                    HRC002DS 00995780
       HRC002DS: ./ R 00997000          $ 997490 490                   03/04/06 13:37:01
       HRC002DS:          DC    C'Set new FILEXXXX and retry'                   HRC002DS 00997490
 BEGIN APPLY >>> ./ R 00375000 00394000 $ 375890 890                   03/04/06 13:37:01
   END APPLY >>> ./ R 00375000 00394000 $ 375890 890                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00398000          $ 398490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00398000          $ 398490 490                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00448000          $ 448490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00448000          $ 448490 490                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00795000          $ 795490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00795000          $ 795490 490                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00800000 00801000 $ 800590 590                   03/04/06 13:37:01
   END APPLY >>> ./ R 00800000 00801000 $ 800590 590                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00805000 00806000 $ 805590 590                   03/04/06 13:37:01
   END APPLY >>> ./ R 00805000 00806000 $ 805590 590                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00810000 00811000 $ 810590 590                   03/04/06 13:37:01
   END APPLY >>> ./ R 00810000 00811000 $ 810590 590                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00815000          $ 815490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00815000          $ 815490 490                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00820000          $ 820490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00820000          $ 820490 490                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00823450          $ 823510 60                    03/04/06 13:37:01
   END APPLY >>> ./ R 00823450          $ 823510 60                    03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00825000          $ 825490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00825000          $ 825490 490                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00832000 00833000 $ 832590 590                   03/04/06 13:37:01
   END APPLY >>> ./ R 00832000 00833000 $ 832590 590                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00841000 00842000 $ 841590 590                   03/04/06 13:37:01
   END APPLY >>> ./ R 00841000 00842000 $ 841590 590                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00846000 00847000 $ 846590 590                   03/04/06 13:37:01
   END APPLY >>> ./ R 00846000 00847000 $ 846590 590                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00850200          $ 850220 20                    03/04/06 13:37:01
   END APPLY >>> ./ R 00850200          $ 850220 20                    03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00968000          $ 968490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00968000          $ 968490 490                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00971000          $ 971490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00971000          $ 971490 490                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00995000          $ 995090 90                    03/04/06 13:37:01
   END APPLY >>> ./ R 00995000          $ 995090 90                    03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00995400 00995600 $ 995590 190                   03/04/06 13:37:01
   END APPLY >>> ./ R 00995400 00995600 $ 995590 190                   03/04/06 13:37:01
 BEGIN APPLY >>> ./ R 00997000          $ 997490 490                   03/04/06 13:37:01
   END APPLY >>> ./ R 00997000          $ 997490 490                   03/04/06 13:37:01
Update Succeeded
Update Execution Time 47 milliseconds.

HRC104DS

Date Monday Aug 10, 2009 05:29:00 AM
Loaded from MAINT(093)

       HRC104DS: ./ I 00344000          $ 344100 300                   08/09/09 22:27:58
       HRC104DS:          CLM   R10,B'0010',MODEL05 IS THIS A MODEL 5           HRC104DS 00344100
       HRC104DS:          BE    ERR151E        YES, NOT SUPPORTED MESSAGE       HRC104DS 00344400
       HRC104DS: ./ I 00845000          $ 845200 200                   03/08/06 21:18:24
       HRC104DS: ERR151E  DMSERR NUM=151,LET=E,TEXT='3278 MOD5 display terminal not supp*00845200
       HRC104DS:                orted by CMS EDITOR',CSECT=EDI                  HRC104DS 00845400
       HRC104DS:          LA    R2,4           RETURN CODE = 4                  HRC104DS 00845600
       HRC104DS:          B     EDEXIT         FREEMAIN AND EXIT                HRC104DS 00845800
       HRC104DS:                                                        SPACE , HRC104DS 00846000
       HRC104DS: ./ I 00992400          $ 992500 100                   03/08/06 21:18:24
       HRC104DS: MODEL02  EQU   X'02'                                           HRC104DS 00992500
       HRC104DS: MODEL03  EQU   X'03'                                           HRC104DS 00992600
       HRC104DS: MODEL04  EQU   X'04'                                           HRC104DS 00992700
       HRC104DS: MODEL05  EQU   X'05'                                           HRC104DS 00992800
       HRC104DS: ./ R 01004100          $ 1004490 390                  03/08/06 21:18:24
       HRC104DS: SCRSIZES DC    A(240*8,320*8,430*8,200*8) SCREEN BUFFER SIZES  HRC104DS 01004490
 BEGIN APPLY >>> ./ I 00344000          $ 344100 300                   08/09/09 22:27:58
   END APPLY >>> ./ I 00344000          $ 344100 300                   08/09/09 22:27:58
 BEGIN APPLY >>> ./ I 00845000          $ 845200 200                   03/08/06 21:18:24
   END APPLY >>> ./ I 00845000          $ 845200 200                   03/08/06 21:18:24
 BEGIN APPLY >>> ./ I 00992400          $ 992500 100                   03/08/06 21:18:24
   END APPLY >>> ./ I 00992400          $ 992500 100                   03/08/06 21:18:24
 BEGIN APPLY >>> ./ R 01004100          $ 1004490 390                  03/08/06 21:18:24
   END APPLY >>> ./ R 01004100          $ 1004490 390                  03/08/06 21:18:24
Update Succeeded
Update Execution Time 23 milliseconds.

HRC073DS

Date Tuesday Feb 06, 2018 06:37:00 PM
Loaded from MAINT(093)

       HRC073DS: ./ R 00344000 00346000 $ 00344000 1000
       HRC073DS: CONSGRAF STCM  R10,B'0010',TYPSCR    SAVE  SCREEN SIZE INDEX   HRC073DS
       HRC073DS: NOGRAF   EQU   *              TERMINAL IS NOT A DISPLAY TYPE   HRC073DS
       HRC073DS:          MVC   LINE(L'LINE),0(2)   SAVE COMMAND LINE           HRC073DS
       HRC073DS: ./ R 00775140 00775150 $ 00775140 10
       HRC073DS: ** A 6 IN TYPSCR SO THAT THE DISPLACEMENT OF 16 (6-2*4=16) CAN BE  73DS
       HRC073DS: ** ESTABLISHED.  IF THE ACTUAL MODEL NUMBER OF 6 IS EVER USED THEN 73DS
       HRC073DS: ./ R 00775220 00775220 $ 00775220 10
       HRC073DS:          MVI   TYPSCR,6        MOVE 6 INTO FIELD               HRC073DS
       HRC073DS: ./ D 00845200 00845800
       HRC073DS: ./ R 01004490 01004490 $ 01004490 10
       HRC073DS: SCRSIZES DC    A(1920,2560,3440,3564,1600) SCREEN BUFFER SIZES HRC073DS
 BEGIN APPLY >>> ./ R 00344000 00346000 $ 00344000 1000
   END APPLY >>> ./ R 00344000 00346000 $ 00344000 1000
 BEGIN APPLY >>> ./ R 00775140 00775150 $ 00775140 10
   END APPLY >>> ./ R 00775140 00775150 $ 00775140 10
 BEGIN APPLY >>> ./ R 00775220 00775220 $ 00775220 10
   END APPLY >>> ./ R 00775220 00775220 $ 00775220 10
 BEGIN APPLY >>> ./ D 00845200 00845800
   END APPLY >>> ./ D 00845200 00845800
 BEGIN APPLY >>> ./ R 01004490 01004490 $ 01004490 10
   END APPLY >>> ./ R 01004490 01004490 $ 01004490 10
Update Succeeded
Update Execution Time 31 milliseconds.

Table of Contents

DMSEDX History

References

Update History

Update Order

R09093DS

R10657DS

R12416DS

HRC002DS

HRC104DS

HRC073DS