ibm:vm370-lib:copy:rbloks.copy_hst
Table of Contents
RBLOKS History
References
- Fixes Applied : 13
- Latest Source Date : Friday, December 8, 1978
- 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.
ibm/vm370-lib/copy/rbloks.copy_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator