RDEVICE History
References
-
-
Fixes Applied : 11
-
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.