Wow - that's a nostalgic trip through ancient devices! I worked with at least 25 of those explicitly mentioned.
By coincidence I see there's a 2501 card reader mechanism on eBay at the moment. Tony H. On Thu, 24 Sep 2020 at 01:23, Jim Mulder <[email protected]> wrote: > > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
