ibm:vm370-lib:macro:rdevice.macro_hst
Table of Contents
RDEVICE History
References
- Fixes Applied : 11
- Latest Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC073DK]
Update History
CMS File Input : RDEVICE MACRO
Date : 12/8/1978 4:37:00 PM
VM Context : MAINT(394)
File Name : RDEVICE.MACRO.Z1.txt
Modified : 1/16/2021 7:31:49 AM
Created : 1/16/2021 7:31:49 AM
Update Order
- R09384DK 601 INABILITY TO GEN 3036 CONSOLE
- R10078DK 604 4331 ICA-SDLC SUPPORT
- R08988DK 606 SWITCHED LINE LEFT DISABLED IF GO ON HOOK BEFORE LOGOFF
- R08794DK - DEFAULT MODEL NUMBER FOR 3138, 3148, 3158, 3036 CONSOLES
- R10011DK 611 NO MNOTE ISSUED ON INVALID 3277 MODEL NUMBER
- R10487DK 611 RDEVSTA3 FIELD NOT UPDATED FOR VM09164 FOR REL6 SYSTEMS
- R10744DK 618 RDEVICE MACRO CHANGED TO PRODUCE NEW MNOTE
- HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
- HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
- HRC072DK V01 Support for DIAG 8C Return Device Characteristics
- HRC073DK V01 Support for 3278 model 5 devices
R09384DK
Date Wednesday Feb 14, 1979 03:27:00 PM
Loaded from MAINT(294)
R09384DK: ./ I 223000 $ 223025 RDE00010
R09384DK: &RNMDLC SETC 'DMKGRTB' RDE00020
BEGIN APPLY >>> ./ I 223000 $ 223025 RDE00010
END APPLY >>> ./ I 223000 $ 223025 RDE00010
Update Succeeded
Update Execution Time 16 milliseconds.
R10078DK
Date Monday Jul 02, 1979 11:07:00 AM
Loaded from MAINT(294)
R10078DK: ./ I 00179000 $ 179500 500 04/11/79 09:45:
R10078DK: AIF ('&ADAPTER' EQ 'SDLC').SDLC @V67CDF1
R10078DK: ./ I 00181000 $ 181100 100 04/11/79 09:45:
R10078DK: .SDLC ANOP @V67CDF1
R10078DK: AIF ('&DEVTYPE' NE 'ICA').ERR6 @V67CDF1
R10078DK: &TYPE SETC 'TYPSDLC' @V67CDF1
R10078DK: &TRMCD SETC '0' @V67CDF1
R10078DK: AGO .CKCX @V67CDF1
R10078DK: ./ R 00445000 $ 445000 1000 04/11/79 09:45:
R10078DK: '&TYPE' NE 'TYP2955' AND '&TYPE' NE 'TYPSDLC')).RTRM
R10078DK: ./ R 00530000 00531000 $ 530000 1000 04/11/79 09:45:
R10078DK: '&TYPE' NE 'TYP2955' AND '&TYPE' NE 'TYPBSC' AND *
R10078DK: '&TYPE' NE 'TYPSDLC')).STSAD
BEGIN APPLY >>> ./ I 00179000 $ 179500 500 04/11/79 09:45:
END APPLY >>> ./ I 00179000 $ 179500 500 04/11/79 09:45:
BEGIN APPLY >>> ./ I 00181000 $ 181100 100 04/11/79 09:45:
END APPLY >>> ./ I 00181000 $ 181100 100 04/11/79 09:45:
BEGIN APPLY >>> ./ R 00445000 $ 445000 1000 04/11/79 09:45:
END APPLY >>> ./ R 00445000 $ 445000 1000 04/11/79 09:45:
BEGIN APPLY >>> ./ R 00530000 00531000 $ 530000 1000 04/11/79 09:45:
END APPLY >>> ./ R 00530000 00531000 $ 530000 1000 04/11/79 09:45:
Update Succeeded
Update Execution Time 16 milliseconds.
R08988DK
Date Tuesday Nov 13, 1979 05:25:00 AM
Loaded from MAINT(294)
R08988DK: ./ R 582000 $ 582000 100 00001000
R08988DK: DC X'00' RDEVPCNT @VA08988 00002000
R08988DK: DC X'00' RESERVED FOR IBM USE @VA08988 00003000
BEGIN APPLY >>> ./ R 582000 $ 582000 100 00001000
END APPLY >>> ./ R 582000 $ 582000 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R08794DK
Date Wednesday Mar 19, 1980 06:19:00 AM
Loaded from MAINT(294)
R08794DK: ./ R 532100 $ 532110 40 00001000
R08794DK: AIF ('&TYPE' NE 'TYP3277' AND '&TYPE' NE 'TYP3278' AND C00002000
R08794DK: '&TYPE' NE 'TYP3158').CONT1 00003000
BEGIN APPLY >>> ./ R 532100 $ 532110 40 00001000
END APPLY >>> ./ R 532100 $ 532110 40 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10011DK
Date Friday Mar 28, 1980 03:28:00 AM
Loaded from MAINT(294)
R10011DK: ./ I 532150 $ 532160 00001000
R10011DK: AIF ('&DEVTYPE' EQ '3277' AND X00002000
R10011DK: '&MODEL' NE '').DEFMDL @VA10011 00003000
R10011DK: ./ I 532200 $ 532210 5 00004000
R10011DK: AGO .OKMDL @VA10011 00005000
R10011DK: .DEFMDL ANOP 00006000
R10011DK: MNOTE 0,'MODEL NOT REQUIRED. DEFAULT MODEL 2 USED.' @VA10011 00007000
R10011DK: .OKMDL ANOP 00008000
BEGIN APPLY >>> ./ I 532150 $ 532160 00001000
END APPLY >>> ./ I 532150 $ 532160 00001000
BEGIN APPLY >>> ./ I 532200 $ 532210 5 00004000
END APPLY >>> ./ I 532200 $ 532210 5 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R10487DK
Date Friday Mar 28, 1980 12:11:00 PM
Loaded from MAINT(294)
R10487DK: ./ R 582000 582100 $ 582100 100 00001000
R10487DK: DC X'00' RDEVSTA3 @VA10487 00002000
R10487DK: DC X'00' RDEVPCNT @VA10487 00003000
BEGIN APPLY >>> ./ R 582000 582100 $ 582100 100 00001000
END APPLY >>> ./ R 582000 582100 $ 582100 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R10744DK
Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
R10744DK: ./ R 207000 $ 207100 00001000
R10744DK: AGO .INVNAM2 ADDRESS DOES NOT MATCH CLUSTER @VA10744 00002000
R10744DK: ./ I 685000 $ 685100 100 00003000
R10744DK: .INVNAM2 MNOTE 8,'ADDRESS OPERAND DOES NOT MATCH ANY CLUSTER' 00004000
R10744DK: MEXIT @VA10744 00005000
BEGIN APPLY >>> ./ R 207000 $ 207100 00001000
END APPLY >>> ./ R 207000 $ 207100 00001000
BEGIN APPLY >>> ./ I 685000 $ 685100 100 00003000
END APPLY >>> ./ I 685000 $ 685100 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC011DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC011DK: ./ I 00019100 $ 19500 400 01/26/06 18:26:20
HRC011DK: LCLC &RDVSTA3 HRC011DK 00019500
HRC011DK: ./ I 00155000 $ 155500 500 01/26/06 18:26:20
HRC011DK: AIF ('&DEVTYPE' EQ '3380').DISK HRC011DK 00155500
HRC011DK: ./ I 00359000 $ 359500 500 01/26/06 18:26:20
HRC011DK: AIF ('&DEVTYPE' EQ '3380').CKDX HRC011DK 00359500
HRC011DK: ./ R 00388000 00389000 $ 388190 190 01/26/06 18:26:20
HRC011DK: .CKDX ANOP , HRC011DK 00388090
HRC011DK: AIF ('&MODEL' EQ '').CKDXOK HRC011DK 00388360
HRC011DK: MNOTE 0,'MODEL NOT REQUIRED AND IGNORED.' HRC011DK 00532220
HRC011DK: .CKDXOK ANOP , HRC011DK 00388630
HRC011DK: &RDVSTA3 SETC 'RDEVCKDX' HRC011DK 00388720
HRC011DK: .RPS ANOP HRC011DK 00388810
HRC011DK: &FTRCOD SETC '&FTRCOD'.'+FTRRPS' HRC011DK 00388900
HRC011DK: ./ R 00528000 $ 528010 10 01/26/06 18:26:20
HRC011DK: DC XL4'00' - RDEVTMAT HRC011DK 00528010
HRC011DK: DC XL1'00' - RDEVQCNT HRC011DK 00528020
HRC011DK: DC XL1'00' - RDEVSTA2 HRC011DK 00528030
HRC011DK: ./ I 00540000 $ 540500 500 01/26/06 18:26:20
HRC011DK: AIF ('&TYPE' EQ 'TYP3380' AND '&MODEL' EQ '').STMOD0 HRC011DK 00540500
HRC011DK: ./ I 00542000 $ 542500 500 01/26/06 18:26:20
HRC011DK: AIF ('&TYPE' EQ 'TYP3380').STMODN HRC011DK 00542500
HRC011DK: ./ R 00582100 $ 582110 10 01/26/06 18:26:20
HRC011DK: AIF ('&RDVSTA3' NE '').RDVSTA3 HRC011DK 00582110
HRC011DK: DC AL1(0) RDEVSTA3 HRC011DK 00582120
HRC011DK: AGO .CONTSTA HRC011DK 00582130
HRC011DK: .RDVSTA3 ANOP HRC011DK 00582140
HRC011DK: DC AL1(&RDVSTA3) RDEVSTA3 HRC011DK 00582150
HRC011DK: .CONTSTA ANOP HRC011DK 00582160
BEGIN APPLY >>> ./ I 00019100 $ 19500 400 01/26/06 18:26:20
END APPLY >>> ./ I 00019100 $ 19500 400 01/26/06 18:26:20
BEGIN APPLY >>> ./ I 00155000 $ 155500 500 01/26/06 18:26:20
END APPLY >>> ./ I 00155000 $ 155500 500 01/26/06 18:26:20
BEGIN APPLY >>> ./ I 00359000 $ 359500 500 01/26/06 18:26:20
END APPLY >>> ./ I 00359000 $ 359500 500 01/26/06 18:26:20
BEGIN APPLY >>> ./ R 00388000 00389000 $ 388190 190 01/26/06 18:26:20
END APPLY >>> ./ R 00388000 00389000 $ 388190 190 01/26/06 18:26:20
BEGIN APPLY >>> ./ R 00528000 $ 528010 10 01/26/06 18:26:20
END APPLY >>> ./ R 00528000 $ 528010 10 01/26/06 18:26:20
BEGIN APPLY >>> ./ I 00540000 $ 540500 500 01/26/06 18:26:20
END APPLY >>> ./ I 00540000 $ 540500 500 01/26/06 18:26:20
BEGIN APPLY >>> ./ I 00542000 $ 542500 500 01/26/06 18:26:20
END APPLY >>> ./ I 00542000 $ 542500 500 01/26/06 18:26:20
BEGIN APPLY >>> ./ R 00582100 $ 582110 10 01/26/06 18:26:20
END APPLY >>> ./ R 00582100 $ 582110 10 01/26/06 18:26:20
Update Succeeded
Update Execution Time 23 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00215000 $ 215490 490 03/30/06 22:14:19
HRC101DK: .* NOTE MODEL 5 IS RNMDLA 16 00215000
HRC101DK: ./ R 00224300 $ 224340 40 03/30/06 22:14:19
HRC101DK: AIF ('&MODEL' NE '2A').NOT782A HRC101DK 00224340
HRC101DK: ./ R 00224600 $ 224610 10 03/30/06 22:14:19
HRC101DK: AGO .GRTY0 HRC101DK 00224610
HRC101DK: .NOT782A ANOP HRC101DK 00224620
HRC101DK: AIF ('&MODEL' NE '3').NOT783 HRC101DK 00224630
HRC101DK: &RNMDLA SETA 4 HRC101DK 00224640
HRC101DK: &RNMDLC SETC 'DMKGRUTB' HRC101DK 00224650
HRC101DK: AGO .GRTY0 HRC101DK 00224660
HRC101DK: .NOT783 ANOP HRC101DK 00224670
HRC101DK: AIF ('&MODEL' NE '4').NOT784 HRC101DK 00224680
HRC101DK: &RNMDLA SETA 8 HRC101DK 00224690
HRC101DK: &RNMDLC SETC 'DMKGRVTB' HRC101DK 00224700
HRC101DK: AGO .GRTY0 HRC101DK 00224710
HRC101DK: .NOT784 ANOP HRC101DK 00224720
HRC101DK: AIF ('&MODEL' NE '2').ERR4 HRC101DK 00224730
HRC101DK: .GRTY0 ANOP HRC101DK 00224740
BEGIN APPLY >>> ./ R 00215000 $ 215490 490 03/30/06 22:14:19
END APPLY >>> ./ R 00215000 $ 215490 490 03/30/06 22:14:19
BEGIN APPLY >>> ./ R 00224300 $ 224340 40 03/30/06 22:14:19
END APPLY >>> ./ R 00224300 $ 224340 40 03/30/06 22:14:19
BEGIN APPLY >>> ./ R 00224600 $ 224610 10 03/30/06 22:14:19
END APPLY >>> ./ R 00224600 $ 224610 10 03/30/06 22:14:19
Update Succeeded
Update Execution Time 31 milliseconds.
HRC072DK
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC072DK: ./ I 00022000 $ 00022500 100
HRC072DK: LCLC &DYNRPQ HRC072DK
HRC072DK: ./ I 00217100 $ 00217200 100
HRC072DK: &DYNRPQ SETC '0' HRC072DK
HRC072DK: ./ I 00224200 $ 00224220 10
HRC072DK: AIF ('&MODEL' EQ 'DYNAMIC').RPQ3278 HRC072DK
HRC072DK: ./ R 00224740 00224740 $ 00224800 10
HRC072DK: AGO .GRTY0 HRC072DK
HRC072DK: .RPQ3278 ANOP HRC072DK
HRC072DK: &DYNRPQ SETC 'RDEVERPQ' Flag bit in RDEVGRIC HRC072DK
HRC072DK: .* HRC072DK
HRC072DK: .GRTY0 ANOP HRC072DK
HRC072DK: ./ R 00519500 00519500 $ 00519500 100
HRC072DK: DC AL1(0) RESERVED HRC072DK
HRC072DK: DC AL1(&DYNRPQ) RDEVGRIC HRC072DK
HRC072DK: DC AL1(0) RESERVED HRC072DK
HRC072DK: ./ R 00558000 00558000 $ 00558000 50
HRC072DK: .STMOD78 AIF ('&MODEL' EQ 'DYNAMIC').STRPQ78 HRC072DK
HRC072DK: AIF ('&MODEL' NE '2A').STMODN HRC072DK
HRC072DK: ./ I 00558200 $ 00558240 10
HRC072DK: .STRPQ78 DC AL1(2) RDEVMDL HRC072DK
HRC072DK: AGO .STFTRC HRC072DK
BEGIN APPLY >>> ./ I 00022000 $ 00022500 100
END APPLY >>> ./ I 00022000 $ 00022500 100
BEGIN APPLY >>> ./ I 00217100 $ 00217200 100
END APPLY >>> ./ I 00217100 $ 00217200 100
BEGIN APPLY >>> ./ I 00224200 $ 00224220 10
END APPLY >>> ./ I 00224200 $ 00224220 10
BEGIN APPLY >>> ./ R 00224740 00224740 $ 00224800 10
END APPLY >>> ./ R 00224740 00224740 $ 00224800 10
BEGIN APPLY >>> ./ R 00519500 00519500 $ 00519500 100
END APPLY >>> ./ R 00519500 00519500 $ 00519500 100
BEGIN APPLY >>> ./ R 00558000 00558000 $ 00558000 50
END APPLY >>> ./ R 00558000 00558000 $ 00558000 50
BEGIN APPLY >>> ./ I 00558200 $ 00558240 10
END APPLY >>> ./ I 00558200 $ 00558240 10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC073DK
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC073DK: ./ I 00224220 $ 00224240 10
HRC073DK: AIF ('&MODEL' NE '5').NOT785 HRC073DK
HRC073DK: &RNMDLA SETA 16
HRC073DK: &RNMDLC SETC 'DMKGRXTB' HRC073DK
HRC073DK: AGO .GRTY0 HRC073DK
HRC073DK: .NOT785 ANOP HRC073DK
HRC073DK: ./ I 00519050 $ 00519060 10
HRC073DK: AIF ('&DEVTYPE' EQ '3278' AND '&MODEL' EQ '5').LG5 HRC073DK
HRC073DK: ./ I 00519100 $ 00519110 10
HRC073DK: AGO .SZSET HRC073DK
HRC073DK: .LG5 ANOP HRC073DK
HRC073DK: &SZLEN SETA 84 HEX LENGTH OF GRAPHIC LINE (3278-5) HRC073DK
HRC073DK: .SZSET ANOP HRC073DK
BEGIN APPLY >>> ./ I 00224220 $ 00224240 10
END APPLY >>> ./ I 00224220 $ 00224240 10
BEGIN APPLY >>> ./ I 00519050 $ 00519060 10
END APPLY >>> ./ I 00519050 $ 00519060 10
BEGIN APPLY >>> ./ I 00519100 $ 00519110 10
END APPLY >>> ./ I 00519100 $ 00519110 10
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/macro/rdevice.macro_hst.txt · Last modified: 2023/08/06 13:38 by Site Administrator