RBLOKS History
References
-
-
Fixes Applied : 13
-
Last Fix ID : [HRC072DK]
Update History
CMS File Input : RBLOKS COPY
Date : 12/8/1978 4:37:00 PM
VM Context : MAINT(394)
File Name : RBLOKS.COPY.Z1.txt
Modified : 1/16/2021 7:31:49 AM
Created : 1/16/2021 7:31:49 AM
Update Order
R09164DK 606 FRE001 DIAL BUG
R08988DK 606 SWITCHED LINE LEFT DISABLED IF GO ON HOOK BEFORE LOGOFF
R10462DK 611 UV00555 ABENDLOK001 DMKDSP LABEL LOCKVM TRYING TO LOC VMBLOK
R11344DK 618 UV01215 DESTAGE MODIFIED DATA TO MINIMIZE DATA LOSSES
R12646DK 623 UV04775 FREE STOR OVERLAY AFTER 2 VARY DEVICE CMD FOR SAME DEVICE
R12126DK 624 UV02926 D/T4331 CA UNIT CHECK NOT HANDLED CORRECTLY
R14349DK 627 UV02230 ABEND IF MULTIPLE USERS ISSUE VARY OFF
HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
HRC062DK V03 DIAG58 Queued message and full screen support
HRC065DK V01 Logical Device Support Facility
HRC071DK V01 Fix distorted logo after dial drop or CP ENABLE ALL
HRC072DK V01 Support for DIAG 8C Return Device Characteristics
R09164DK
Date Monday Nov 12, 1979 04:17:00 AM
Loaded from MAINT(294)
R09164DK: ./ R 132225 $ 132230 00001000
R09164DK: * | RDEVNAME | R*9 | R*10| RDEVIOBL | 00002000
R09164DK: ./ R 162200 $ 162150 100 00003000
R09164DK: RDEVSTA3 DS 1X R*9 DEVICE STATUS (3RD BYTE) @VA09164 00004000
R09164DK: RDEVRSV1 DS 1X R*10 RESERVED FOR IBM USE @VA09164 00005000
R09164DK: ./ I 259010 $ 259012 2 00006000
R09164DK: SPACE 00007000
R09164DK: * BITS DEFINED IN RDEVSTA3 00008000
R09164DK: RDEVDIIP EQU X'80' DIAL IN PROCESS @VA09164 00009000
BEGIN APPLY >>> ./ R 132225 $ 132230 00001000
END APPLY >>> ./ R 132225 $ 132230 00001000
BEGIN APPLY >>> ./ R 162200 $ 162150 100 00003000
END APPLY >>> ./ R 162200 $ 162150 100 00003000
BEGIN APPLY >>> ./ I 259010 $ 259012 2 00006000
END APPLY >>> ./ I 259010 $ 259012 2 00006000
Update Succeeded
Update Execution Time 16 milliseconds.
R08988DK
Date Tuesday Nov 13, 1979 10:26:00 AM
Loaded from MAINT(294)
R08988DK: ./ R 132230 $ 132230 00001000
R08988DK: * | RDEVNAME | R*9 | R*10| RDEVIOBL | 00002000
R08988DK: ./ R 139000 142000 $ 139000 00003000
R08988DK: RDEVSTAT DS 1X R*1 DEVICE STATUS @VA08988 00004000
R08988DK: RDEVFLAG DS 1X R*2 DEVICE FLAGS, DEVICE DEPENDENT @VA08988 00005000
R08988DK: RDEVTYPC DS 1X R*3 DEVICE TYPE CLASS @VA08988 00006000
R08988DK: RDEVTYPE DS 1X R*4 DEVICE TYPE @VA08988 00007000
R08988DK: ./ R 157000 160000 $ 157000 00008000
R08988DK: RDEVQCNT DS 1X R*5 NUMBER OF QUEUED IOBLOK'S @VA08988 00009000
R08988DK: RDEVSTA2 DS 1X R*6 DEVICE STATUS (2ND BYTE) @VA08988 00010000
R08988DK: RDEVMDL DS 1X R*7 DEVICE MODEL NUMBER @VA08988 00011000
R08988DK: RDEVFTR DS 1X R*8 DEVICE FEATURE CODE @VA08988 00012000
R08988DK: ./ R 162150 162250 $ 162150 100 00013000
R08988DK: RDEVSTA3 DS 1X R*9 DEVICE STATUS (3RD BYTE) @VA08988 00014000
R08988DK: RDEVPCNT DS 1X R*10 DISAB/ENAB/PREP RETRY COUNT @VA08988 00015000
BEGIN APPLY >>> ./ R 132230 $ 132230 00001000
END APPLY >>> ./ R 132230 $ 132230 00001000
BEGIN APPLY >>> ./ R 139000 142000 $ 139000 00003000
END APPLY >>> ./ R 139000 142000 $ 139000 00003000
BEGIN APPLY >>> ./ R 157000 160000 $ 157000 00008000
END APPLY >>> ./ R 157000 160000 $ 157000 00008000
BEGIN APPLY >>> ./ R 162150 162250 $ 162150 100 00013000
END APPLY >>> ./ R 162150 162250 $ 162150 100 00013000
Update Succeeded
Update Execution Time 16 milliseconds.
R10462DK
Date Thursday Apr 03, 1980 03:19:00 AM
Loaded from MAINT(294)
R10462DK: ./ I 259016 $ 259018 00001000
R10462DK: RDEVATSW EQU X'20' ATTN SWITCH @VA10462 00002000
BEGIN APPLY >>> ./ I 259016 $ 259018 00001000
END APPLY >>> ./ I 259016 $ 259018 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11344DK
Date Friday Jan 16, 1981 01:16:00 AM
Loaded from MAINT(294)
R11344DK: ./ I 00226120 $ 226125 5 06/17/80 15:25:54
R11344DK: RDEVVMNT EQU X'01' DASD - MSS VOL MTD BY VM/370 CP @VA11344
BEGIN APPLY >>> ./ I 00226120 $ 226125 5 06/17/80 15:25:54
END APPLY >>> ./ I 00226120 $ 226125 5 06/17/80 15:25:54
Update Succeeded
Update Execution Time 16 milliseconds.
R12646DK
Date Friday Aug 07, 1981 06:25:00 AM
Loaded from MAINT(294)
R12646DK: ./ I 259018 $ 259019
R12646DK: RDEVPEND EQU X'10' DEVICE IS PENDING ONLINE/OFFLINE @VA12646
BEGIN APPLY >>> ./ I 259018 $ 259019
END APPLY >>> ./ I 259018 $ 259019
Update Succeeded
Update Execution Time 16 milliseconds.
R12126DK
Date Wednesday Oct 14, 1981 09:52:00 AM
Loaded from MAINT(294)
R12126DK: ./ I 258100 $ 258200 100 RBL00010
R12126DK: RDEVNOHD EQU X'20' TERM - ISSUE HALT DEVICE IF OFF RBL00020
BEGIN APPLY >>> ./ I 258100 $ 258200 100 RBL00010
END APPLY >>> ./ I 258100 $ 258200 100 RBL00010
Update Succeeded
Update Execution Time 8 milliseconds.
R14349DK
Date Monday Feb 15, 1982 09:36:00 AM
Loaded from MAINT(294)
R14349DK: ./ R 259016 259019 $ 259015 1 00001000
R14349DK: RDEVDIIP EQU X'80' DIAL IN PROCESS @VA14349 00002000
R14349DK: RDEVATSW EQU X'20' ATTN SWITCH @VA14349 00003000
R14349DK: RDEVPEND EQU X'10' DEVICE IS PENDING ONLINE/OFFLINE @VA14349 00004000
R14349DK: RDEVPBYP EQU X'04' MULTIPLE REQUESTS TO VARY SAME @VA14349 00005000
R14349DK: * DEVICE 00006000
BEGIN APPLY >>> ./ R 259016 259019 $ 259015 1 00001000
END APPLY >>> ./ R 259016 259019 $ 259015 1 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC011DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC011DK: ./ R 00259012 00259030 $ 259013 1 02/08/06 21:27:47
HRC011DK: SPACE , HRC011DK 00259013
HRC011DK: * BITS DEFINED IN RDEVMDL HRC011DK 00259014
HRC011DK: RDEVECKD EQU X'C0' EXTENDED CKD FEATURE AVAILABLE HRC011DK 00259015
HRC011DK: RDEVLOW EQU X'20' RUNNING WITH LOW SPEED CHANNEL HRC011DK 00259016
HRC011DK: RDEVMD83 EQU X'0C' 3380 MODEL CLASS 3 HRC011DK 00259017
HRC011DK: RDEVMD82 EQU X'08' 3380 MODEL CLASS 2 HRC011DK 00259018
HRC011DK: RDEVMD81 EQU X'04' 3380 MODEL CLASS 1 HRC011DK 00259019
HRC011DK: RDEVMD80 EQU X'00' 3380 MODEL CLASS 0 HRC011DK 00259020
HRC011DK: RDEVMD03 EQU X'1E' 3380 AK4/BK4 HRC011DK 00259021
HRC011DK: RDEVMD02 EQU X'0A' 3380 AE4/BE4 HRC011DK 00259022
HRC011DK: RDEVMD01 EQU X'06' 3380 AD4/BD4/AJ4/BJ4/CJ2 HRC011DK 00259023
HRC011DK: RDEVMD00 EQU X'02' 3380 AA4/B04 HRC011DK 00259024
HRC011DK: SPACE , HRC011DK 00259025
HRC011DK: * BITS DEFINED IN RDEVSTA3 HRC011DK 00259026
HRC011DK: RDEVDIIP EQU X'80' DIAL IN PROCESS HRC011DK 00259027
HRC011DK: RDEVPS EQU X'40' LOGICAL DEVICE RDEVBLOK HRC011DK 00259028
HRC011DK: RDEVATSW EQU X'20' ATTN SWITCH HRC011DK 00259029
HRC011DK: RDEVPEND EQU X'10' DEVICE IS PENDING ONLINE/OFFLINE HRC011DK 00259030
HRC011DK: RDEVCKDX EQU X'08' DASD SUPPORTS EXT-CKD CCWS HRC011DK 00259031
HRC011DK: RDEVPBYP EQU X'04' MULTIPLE REQUESTS TO VARY SAME HRC011DK 00259032
HRC011DK: RDEVCC3 EQU X'02' CC=3 DEVICE NOT AVAILABLE HRC011DK 00259033
HRC011DK: EJECT , HRC011DK 00259034
HRC011DK: RSPXBLOK DSECT , HRC011DK 00259035
BEGIN APPLY >>> ./ R 00259012 00259030 $ 259013 1 02/08/06 21:27:47
END APPLY >>> ./ R 00259012 00259030 $ 259013 1 02/08/06 21:27:47
Update Succeeded
Update Execution Time 23 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ I 00181200 $ 181300 100 03/06/06 12:21:34
HRC101DK: RDEVKEYC DS 1X KEY CODE FOR LAST KEY HIT HRC101DK
HRC101DK: RDEVGRIC DS 1X FLAG BYTE FOR GRAPHIC ATTNS HRC101DK
HRC101DK: GRAPHAT EQU X'01' TERMINAL RESET NEEDS TO BE DONE HRC101DK
BEGIN APPLY >>> ./ I 00181200 $ 181300 100 03/06/06 12:21:34
END APPLY >>> ./ I 00181200 $ 181300 100 03/06/06 12:21:34
Update Succeeded
Update Execution Time 23 milliseconds.
HRC062DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC062DK: ./ * This modification only adds the RDEVFULL flag bit.
HRC062DK: ./ * The remaining lines serve to renumber this section of RDEVBLOK
HRC062DK: ./ * to avoid future sequencing errors.
HRC062DK: ./ R 00259034 00259040 $ 00259036 4
HRC062DK: RDEVFULL EQU X'01' 3270 VCONS IS IN FULL SCREEN MODEHRC062DK
HRC062DK: EJECT , HRC062DK
HRC062DK: RSPXBLOK DSECT , HRC062DK
HRC062DK: SPACE 1 HRC062DK
BEGIN APPLY >>> ./ * This modification only adds the RDEVFULL flag bit.
Comment >>> ./ * This modification only adds the RDEVFULL flag bit.
END APPLY >>> ./ * This modification only adds the RDEVFULL flag bit.
BEGIN APPLY >>> ./ * The remaining lines serve to renumber this section of RDEVBLOK
Comment >>> ./ * The remaining lines serve to renumber this section of RDEVBLOK
END APPLY >>> ./ * The remaining lines serve to renumber this section of RDEVBLOK
BEGIN APPLY >>> ./ * to avoid future sequencing errors.
Comment >>> ./ * to avoid future sequencing errors.
END APPLY >>> ./ * to avoid future sequencing errors.
BEGIN APPLY >>> ./ R 00259034 00259040 $ 00259036 4
END APPLY >>> ./ R 00259034 00259040 $ 00259036 4
Update Succeeded
Update Execution Time 16 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00137000 $ 00137050 50
HRC065DK: RDEVLDEV EQU X'80' Logical Device pseudo-RDEVBLOK HRC065DK
HRC065DK: RDEVLDTR EQU X'90' Logical Device is terminating HRC065DK
HRC065DK: ./ I 00261000 $ 00262000 1000
HRC065DK: *
HRC065DK: *-- If any LDEV control blocks are changed or offsets altered,
HRC065DK: *-- you must reassemble HDKD7C,DMKGRF,DMKDIA,DMKLOG.
HRC065DK: *
HRC065DK: LDEVCTL DSECT Local work area
HRC065DK: LDEVCNT DS F Number of LDEV slots
HRC065DK: LDEVRSV1 DS F Unused, available
HRC065DK: LDEVNUM EQU 32 Number of LDEVs to support
HRC065DK: LDEVIDX DS (LDEVNUM)A Ptrs to LDEV slots
HRC065DK: DS 0D Force doubleword size
HRC065DK: LDEVCSZ EQU (*-LDEVCTL)/8 Size in doublewords
HRC065DK: *
HRC065DK: LDEVBLOK DSECT
HRC065DK: LDEVRDEV DS (RDEVSIZE*8)X Area containing pseudo-RDEVBLOK
HRC065DK: LDEVCSW DS D Last CSW issued by LDEV
HRC065DK: LDEVUSER DS A -> VMBLOK owning this LDEV
HRC065DK: LDEVQIOB DS A -> IOBLOK queued for delayed
HRC065DK: * PRESENT (a READ is in progress)
HRC065DK: LDEVLIST DS A -> PRESENT list of buffer ptrs
HRC065DK: LDEVSTRM DS A -> LDEVDATA containing datastrm
HRC065DK: LDEVRSV2 DS F Unused, available
HRC065DK: LDEVSENS DS X Sense byte
HRC065DK: LDEVFLG1 DS X Flag bits
HRC065DK: LDEVF1DQ EQU X'80' 1... .... Another LDEVDATA queued
HRC065DK: LDEVF1RD EQU X'40' .1.. .... LDEVDATA is for a READ oper
HRC065DK: LDEVF1SH EQU X'20' ..1. .... Short length ACCEPT in progress
HRC065DK: LDEVF1EX EQU X'10' ...1 .... LDEV has extended features
HRC065DK: LDEVF1RB EQU X'08' .... 1... READ BUFFER issued
HRC065DK: LDEVF1WR EQU X'04' .... .1.. WRITE then READ CCW encountered
HRC065DK: LDEVF1PL EQU X'02' .... ..1. PRESENT list form aborted
HRC065DK: * .... ..xx Available bits
HRC065DK: LDEVFLG2 DS X Flag bits
HRC065DK: LDEVF2WO EQU X'80' 1... .... CCW string contains WRITE oper
HRC065DK: LDEVF2RO EQU X'40' .1.. .... CCW string contains READ oper
HRC065DK: LDEVF2SN EQU X'20' ..1. .... SENSE/SENSE ID in progress
HRC065DK: * ..xx xxxx Available bits
HRC065DK: LDEVKEY DS X PSW key at time of PRESNT DIAG7C
HRC065DK: * xxxx xxxx Available bits
HRC065DK: DS 0D Force doubleword size
HRC065DK: LDEVSIZE EQU (*-LDEVBLOK)/8 Size in doublewords
HRC065DK: *
HRC065DK: LDEVDATA DSECT Datastream buffer from CCWs
HRC065DK: LDEVSLEN DS F # of doublewords in this stg
HRC065DK: LDEVCMD DS X Command code of 1st CCW
HRC065DK: LDEVDLEN DS AL3 Actual length of datastream
HRC065DK: LDEVNEXT DS A -> next LDEVDATA or 0
HRC065DK: LDEVIOB DS A -> IOBLOK assoc with datastr
HRC065DK: LDEVDSIZ EQU (*-LDEVDATA)/8 d-word length of fixed portion
HRC065DK: LDEVBUFF DS 0X Start of datastream
HRC065DK: *
BEGIN APPLY >>> ./ I 00137000 $ 00137050 50
END APPLY >>> ./ I 00137000 $ 00137050 50
BEGIN APPLY >>> ./ I 00261000 $ 00262000 1000
END APPLY >>> ./ I 00261000 $ 00262000 1000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC071DK
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC071DK: ./ * This modification only adds the RDEVEWRT flag bit, below.
HRC071DK: ./ *
HRC071DK: ./ * The remaining lines serve to renumber this section of RDEVBLOK
HRC071DK: ./ * to create space for future sequencing.
HRC071DK: ./ *
HRC071DK: ./ R 00258200 00259036 $ 00258200 25
HRC071DK: RDEVNOHD EQU X'20' TERM - ISSUE HALT DEVICE IF OFF
HRC071DK: RDEVDROP EQU X'10' LOGDROP/LOGHOLD INDICATED
HRC071DK: RETRYSW EQU X'01' RETRY COUNT SWITCH
HRC071DK: RDEVSYNC EQU X'04' ATTENTION DURING ACTIVE I/O @VA08275
HRC071DK: RDEVALT EQU X'08' ALTERNATE PATH DEVICE
HRC071DK: RDEVPURG EQU X'02' 3800 - PURGE FILES IN ERROR @V60B9BA
HRC071DK: SPACE , HRC011DK
HRC071DK: * BITS DEFINED IN RDEVMDL HRC011DK
HRC071DK: RDEVECKD EQU X'C0' EXTENDED CKD FEATURE AVAILABLE HRC011DK
HRC071DK: RDEVLOW EQU X'20' RUNNING WITH LOW SPEED CHANNEL HRC011DK
HRC071DK: RDEVMD83 EQU X'0C' 3380 MODEL CLASS 3 HRC011DK
HRC071DK: RDEVMD82 EQU X'08' 3380 MODEL CLASS 2 HRC011DK
HRC071DK: RDEVMD81 EQU X'04' 3380 MODEL CLASS 1 HRC011DK
HRC071DK: RDEVMD80 EQU X'00' 3380 MODEL CLASS 0 HRC011DK
HRC071DK: RDEVMD03 EQU X'1E' 3380 AK4/BK4 HRC011DK
HRC071DK: RDEVMD02 EQU X'0A' 3380 AE4/BE4 HRC011DK
HRC071DK: RDEVMD01 EQU X'06' 3380 AD4/BD4/AJ4/BJ4/CJ2 HRC011DK
HRC071DK: RDEVMD00 EQU X'02' 3380 AA4/B04 HRC011DK
HRC071DK: SPACE , HRC011DK
HRC071DK: * BITS DEFINED IN RDEVSTA3 HRC011DK
HRC071DK: RDEVDIIP EQU X'80' DIAL IN PROCESS HRC011DK
HRC071DK: RDEVPS EQU X'40' LOGICAL DEVICE RDEVBLOK HRC011DK
HRC071DK: RDEVATSW EQU X'20' ATTN SWITCH HRC011DK
HRC071DK: RDEVPEND EQU X'10' DEVICE IS PENDING ONLINE/OFFLINE HRC011DK
HRC071DK: RDEVCKDX EQU X'08' DASD: SUPPORTS EXT-CKD CCWS HRC011DK
HRC071DK: RDEVEWRT EQU X'08' GRAF: ERASE/WRITE REQUIRED HRC071DK
HRC071DK: RDEVPBYP EQU X'04' MULTIPLE REQUESTS TO VARY SAME HRC011DK
HRC071DK: RDEVCC3 EQU X'02' CC=3 DEVICE NOT AVAILABLE HRC011DK
HRC071DK: RDEVFULL EQU X'01' 3270 VCONS IS IN FULL SCREEN MODEHRC062DK
BEGIN APPLY >>> ./ * This modification only adds the RDEVEWRT flag bit, below.
Comment >>> ./ * This modification only adds the RDEVEWRT flag bit, below.
END APPLY >>> ./ * This modification only adds the RDEVEWRT flag bit, below.
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
BEGIN APPLY >>> ./ * The remaining lines serve to renumber this section of RDEVBLOK
Comment >>> ./ * The remaining lines serve to renumber this section of RDEVBLOK
END APPLY >>> ./ * The remaining lines serve to renumber this section of RDEVBLOK
BEGIN APPLY >>> ./ * to create space for future sequencing.
Comment >>> ./ * to create space for future sequencing.
END APPLY >>> ./ * to create space for future sequencing.
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
BEGIN APPLY >>> ./ R 00258200 00259036 $ 00258200 25
END APPLY >>> ./ R 00258200 00259036 $ 00258200 25
Update Succeeded
Update Execution Time 23 milliseconds.
HRC072DK
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC072DK: ./ R 00181300
HRC072DK: RDEVPART DS 1X GRAF: number of partitions HRC072DK
HRC072DK: ./ I 00181400 $ 00181420 5
HRC072DK: RDEVEXTC EQU X'80' GRAF: has extended color HRC072DK
HRC072DK: RDEVEXTH EQU X'40' GRAF: has extended highlight HRC072DK
HRC072DK: RDEVPSS EQU X'20' GRAF: has program symbol sets HRC072DK
HRC072DK: RDEVAD14 EQU X'10' GRAF: has 14-bit addressing HRC072DK
HRC072DK: RDEVERPQ EQU X'08' GRAF: issue WSF RPQ at enable HRC072DK
HRC072DK: * EQU X'04' GRAF: available bit HRC072DK
HRC072DK: * EQU X'02' GRAF: available bit HRC072DK
HRC072DK: ./ I 00181500 $ 00181700 10
HRC072DK: DS 1X GRAF: available byte/bits HRC072DK
BEGIN APPLY >>> ./ R 00181300
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00181300
BEGIN APPLY >>> ./ I 00181400 $ 00181420 5
END APPLY >>> ./ I 00181400 $ 00181420 5
BEGIN APPLY >>> ./ I 00181500 $ 00181700 10
END APPLY >>> ./ I 00181500 $ 00181700 10
Update Succeeded
Update Execution Time 23 milliseconds.