BTFOOM. Here is some stuff, but not complete, at least
for UCBTYBT4:
BROWSE SYS1.MACLIB(IEFUCBOB) Line 0000000864
Command ===> Scrol
UCBDVCLS DS 0B Same as UCBTBYT3
UCBTBYT3 DS B Class bits
UCB3TAPE EQU X'80' Tape
UCB3COMM EQU X'40' Communications
UCB3CTC EQU X'41' Channel-to-channel adapter
UCB3DACC EQU X'20' Direct access
UCB3DISP EQU X'10' Display
UCB3UREC EQU X'08' Unit record
UCB3CHAR EQU X'04' Character reader
UCBRSV10 EQU X'02' Reserved
UCBRSV11 EQU X'01' Reserved
BROWSE SYS1.MODGEN(IECDUCBC) Line 0000000165 Col
Command ===> Scroll =
*/********************************************************************/
*/* UCBTBYT4 mapping */
*/********************************************************************/
UCBPCTC EQU X'00' Parallel CTC @01A
UCBSCTC EQU X'01' Serial CTC @01A
UCBBCTC EQU X'02' Basic Mode ESCON CTC @02A
UCBRS6K EQU X'03' RS6000 acting like a CTC @D1A
UCB3172 EQU X'04' 3172 acting like a CTC @D1A
UCBOSA EQU X'05' OSA device @03A
UCBOSAD EQU X'06' OSA diagnostic device @03A
UCBIQD EQU X'07' Internal Queued Direct
* Communications Device @L2A
UCBOSN EQU X'08' OSA NCP (OSN) device @07A
UCBOSX EQU X'09' OSX (OSA zBX Data Network) @08A
UCBOSM EQU X'0A' OSM (OSA zBX Management
* Network) @08A
UCBOSAF EQU X'0F' OSA reserved device types B-F @08C
UCBFCTC EQU X'20' FICON CTC @06A
UCBFBRC EQU X'21' Fabric discovery device @L6A
BROWSE SYS1.MODGEN(IECDUCBE) Line 0000000084 Col
Command ===> Scroll =
* UCBTBYT4 Flag Byte
UCB3791L EQU X'F1' 3791 Local control unit
UCB42AD1 EQU X'11' 2702 Control unit with type 1
* adapter
BROWSE SYS1.MODGEN(IECDUCBT) Line 0000000511 Col
Command ===> Scroll ==
* UCBTBYT4 (UCBUNTYP) values
*
UCB3400 EQU X'03' 3400 magnetic tape
UCB3423 EQU X'82' 3423 magnetic tape @H4A
UCB3480 EQU X'80' 3480 magnetic tape
UCB3490 EQU X'81' 3490 magnetic tape @H3A
UCB3591 EQU X'83' 3590 magnetic tape @H5A
BROWSE SYS1.MODGEN(IECDUCBU) Line 0000000453 Col
Command ===> Scroll =
* UCBUNTYP (UCBTBYT4) Flag Byte
*** EQU X'08' 1403 Printer
UCB3211 EQU X'09' 3211 Printer
UCB3800 EQU X'0E' 3800 Printing Subsystem
UCBAFP1 EQU X'0F' Printer support
UCB3263 EQU X'11' 3263 Printer
UCB4245 EQU X'11' 4245 Printer
UCB4248 EQU X'13' 4248 Printer
UCB3895 EQU X'19' 3895 device
UCBDIR EQU X'3A' ESCON or FICON Director @L1A
UCBDSM EQU X'42' Mass Storage Control (MSC) (3851)
* (no longer supported)
UCB3838 EQU X'4C' 3838 Array Processor
UCBFBA EQU X'60' Fixed Block Architecture (FBA) @FBA
IECLMSGC
CON5 BIT(8) CONSTANT('00000101'B),/* constant '05'x */
CONF BIT(8) CONSTANT('00001111'B),/* constant '0F'x */
IF UCBTBYT4='F1'X THEN/* 3791 ?
IF (UCBTBYT4&CONF)=CON5 THEN/* 370x ?
IECLMSGU
IF (OVERRUN=ON)&(UCBTBYT4='04'X|UCBTBYT4='05'X) THEN /*
over run and d/t2501 @ZA94924
and d/t2520? @ZA94924*/
IF (UNITTP=ON)&((UCBTBYT4='01'X)|(UCBTBYT4='02'X))
THEN /* unit record check and 2540 card
read punch? */
/* If it is a 3540 disket divice and the volume serial number
is valid, picks volume serial number from UCB. */
IF (UCBTBYT4='44'X)&(UCBVLSER¬=NOVOLSER) THEN
IECVEXCP
UCB3525 EQU X'0C' 3525 DEVICE TYPE DESCRIPTION
CLI UCBTBYT4,UCB3525 IS THIS A 3525
IECVIOPM
IF ((UCBTBYT3 = UCBCOMM) & /* Communcations device class @41C*/
(UCBTBYT4 <= HEX94) & /* Old TP device type @41C*/
IGC0003C
TYP3270 BIT(8) CONSTANT('09'X),
IF UCBTBYT3 = UCBCOMM | /* COMMUNICATIONS DEVICE OR */
(UCBTBYT3 = UCBDISP &
UCBTBYT4 = TYP3270 &
HaltOpAnyAsid = Off) | /* 327X DISPLAY DEVICE. Note:
Halt from any ASID option is
not allowed for display
devices. -OR- @07C*/
IOSVSWTB
SWITCH_TYPE FIXED(8) CONSTANT('3A'X), /* Switch device type */
IF (UCB3UREC) & (UCBTBYT4 = SWITCH_TYPE) & (UCBONLI) THEN /*
It's a switch and online? @L1A*/
IASXSD82 --------- STRING(S) FOUND -------------------
218 CLI UCBTBYT4,X'0C' CHECK FOR 3525 PUNCH
220 TM UCBTBYT4,X'F8' TEST FOR NO-PUNCH
223 CLI UCBTBYT4,X'03' TEST FOR 1442
473 TM UCBTBYT4,TTETYPE IS UNIT TYPE A 3211 PRINTER
IEE21110
GAMTYPE EQU X'13' UCB GAM device indicator (UCBTBYT4) @01A
CLI UCBTBYT3,UCB3DISP Is this a display device? @01A
BNE SCAN7H2 No, check offline pending @01A
CLI UCBTBYT4,GAMTYPE Is this a GAM display? @01A
BNE SCAN7H2 No, check offline pending @01A
CONTSCAN EQU * @G382P2I
CLI UCBTBYT3,UCB3DACC IS THIS A DA DEVICE? @G860P2G
BNE SCAN4B @ZA93931
CLI UCBTBYT4,MOD11 IS THIS 3330 MOD 11? @G860P2G
BNE SCAN4A @ZA09316
MVI MODL1+L3,SUFFIX1 MARK WITH A 1 @ZA17706
B SCAN7 @ZA09316
SCAN4A EQU * @ZA09316
CLI UCBTBYT4,MOD1 IS THIS 3330 MOD 1? @G860P2G
IEEVC101
MOD1 EQU X'09' 3330 MOD1
MOD11 EQU X'0D' 3330 MOD11
IFBOBR00
* THE FOLLOWING EQUATES ARE FOR DEVICE CLASSES AND TYPES
*
DA23052 EQU X'07' UNIT TYPE - 2305-2 (ZEUS)
DA3330 EQU X'09' @AZ08966
DA3340 EQU X'0A' UNIT TYPE - 3340 WINCHSR XL03130
DA3350 EQU X'0B' UNIT TYPE - 3350 @Z40RSVS
HC0 EQU X'C0' MASK FOR CU ADDR @Z40RSVS
UR3505 EQU X'06' UNIT TYPE - 3505 - REDLAKE
UR3203 EQU X'0B' UNIT TYPE - 3203
UR3525 EQU X'0C' UNIT TYPE - 3525 - PIKLAKE
UR3886 EQU X'17' UNIT TYPE-3886-SHARK X03127
UR3850 EQU X'42' UNIT TYPE-3850-SS/1 Y30LPDG
UR3540 EQU X'44' UNIT TYPE-3540-ERIC Y30OPDP
IGE0010E
***********************************************************************
*
* DEVICE TYPE FLAGS USED WITH UCBTBYT4
*
***********************************************************************
SPACE 1
DEV3277 EQU X'09' 3277 DEVICE
DEV3284 EQU X'0A' 3284 DEVICE
DEV3286 EQU X'0B' 3286 DEVICE
IGFDV0
(UCBTBYT4 = '08'X | /* 2314 OR
UCBTBYT4 = '09'X | /* 3330 OR
UCBTBYT4 = '0D'X) THEN /* 3330-2
Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp.
Poughkeepsie NY
>
> IEFUCBOB has some equates for UCBTYPE, but doesn't give classes for
> pseudo UCBs or device types for real UCBs. What, if anything, gives
> a complete list of values for UCBDVCLS and UCBUNTYP (UCBTBYT3 and
> UCBTBYT4)? Thanks.
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
