ibm:vm370-lib:cms:dmsedx.assemble_hst
Table of Contents
DMSEDX History
References
- 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.
ibm/vm370-lib/cms/dmsedx.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator