This table from MXG should cover most device mappings:
/* COPYRIGHT (C) 1985,2015 BY MERRILL CONSULTANTS DALLAS TEXAS */
/* LAST UPDATED: OCT 15, 2015. CHANGE 33.249. */
/*********************************************************************/
/*** VMACUCB INCLUDED CODE ************/
/*********************************************************************/
/* VMACUCB DECODES THE DEVCLASS AND DEVTYPE FIELDS FROM AN */
/* MVS UCB (UNIT CONTROL BLOCK) INTO THE VARIABLE */
/* DEVICE. IT ALSO CREATES THE VARIABLE LCU IF IT DOES NOT */
/* ALREADY EXIST (NOT ALL MVSXA RECORDS CONTAIN LCU YET, BUT */
/* I BELIEVE ULTIMATELY THEY WILL SO - CREATING LCU HERE ELIMINATES*/
/* A VARIABLE NOT FOUND CONDITION. */
/********************************************************************/
/*** THIS MODULE IS INCLUDED BY THE FOLLOWING MXG MODULES: ***/
/*** ***/
/*** VMAC10 VMAC1415 VMAC19 VMAC62 VMAC64 ***/
/*** VMAC74 VMAC75 VMAC8911 VMACEXC1 VMACTMNT ***/
/*** AND INDIRECTLY BY VMAC4,VMAC5,VMAC30,ANY WITH DEVICE SEG.***/
/********************************************************************/
/*===END OF COMMENTS===*/
IF LCU=. THEN LCU=.; /* CREATES VARIABLE IF NEEDED */
IF DEVNR=. THEN DEVNR=.;
IF MVSXA=. THEN MVSXA=.;
/* BACK WHEN THEY EXISTED, THIS CODE WAS USED FOR MSS
IF DEVNR ='1...............'B THEN DEVICE='MSS '; */
IF DEVCLASS=00X AND
( (DEVNR=0FFFX AND NOT MVSXA AND NOT FACOMMSP) OR
(DEVNR=7FFFX AND (MVSXA OR FACOMMSP)) )
THEN DEVICE='VIO ';
ELSE IF DEVCLASS=20X THEN DO;
IF DEVTYPE=04X THEN DEVICE='9340 ';
ELSE IF DEVTYPE=06X THEN DEVICE='2305-1 ';
ELSE IF DEVTYPE=07X THEN DEVICE='2305-2 ';
ELSE IF DEVTYPE=08X THEN DEVICE='2314 ';
ELSE IF DEVTYPE=09X THEN DEVICE='3330 ';
ELSE IF DEVTYPE=0DX THEN DEVICE='3330-11';
ELSE IF DEVTYPE=0AX THEN DEVICE='3340 ';
ELSE IF DEVTYPE=0BX THEN DEVICE='3350 ';
ELSE IF DEVTYPE=0CX THEN DEVICE='3375 ';
ELSE IF DEVTYPE=85X THEN DEVICE='6421 ';/*FACOM*/
ELSE IF DEVTYPE=0EX THEN DEVICE='3380 ';
ELSE IF DEVTYPE=0FX THEN DEVICE='3390 ';
ELSE DEVICE='DASD ';
END;
ELSE IF DEVCLASS=80X THEN DO;
IF DEVTYPE=80X THEN DEVICE='3480 ';
ELSE IF DEVTYPE=01X THEN DEVICE='2400 ';
ELSE IF DEVTYPE=03X THEN DEVICE='3420 ';
ELSE IF DEVTYPE=81X THEN DEVICE='3490E ';
ELSE IF DEVTYPE=83X THEN DEVICE='3590 ';
END;
ELSE IF DEVCLASS=08X THEN DEVICE='UNITREC';
ELSE IF DEVCLASS=10X THEN DEVICE='GRAFICS';
ELSE IF DEVCLASS=40X THEN DEVICE='COMM ';
ELSE IF DEVCLASS=41X THEN DO;
IF DEVTYPE=05X THEN DEVICE='CTC-OSA ';
/*OSA*/
ELSE IF DEVTYPE=06X THEN DEVICE='CTC-OSAD';
/*OSA DIAG DEV */
ELSE IF DEVTYPE=06X THEN DEVICE='CTC-OSAD';
/*OSA DIAG DEV */
ELSE IF DEVTYPE=07X THEN DEVICE='CTC-IQD ';
/*HIPERSOCKETS*/
ELSE IF DEVTYPE=09X THEN DEVICE='CTC-OSAN';
/*OSA ZBX NETWK */
ELSE IF DEVTYPE=0AX THEN DEVICE='CTC-OSAM';
/*OSA ZBX MGMT NETWK*/
ELSE IF DEVTYPE=32X THEN DEVICE='CTC-FIC ';
/*FICON*/
ELSE DEVICE='CTC ';
END;
ELSE IF DEVCLASS=04X THEN DEVICE='CHARRDR';
ELSE IF DEVCLASS=00X THEN DEVICE='00X ';
ELSE DEVICE='OTHER ';
/* INCLUDE MEMBER IMACUCB IN CASE YOU WANT TO DEFINE OTHER */
/* VALUES OF DEVICE (EG. DEVICE='SILO' OR DEVICE='AUTOLOD', */
/* PERHAPS BASED ON SPECIFIC DEVNR'S (OR RANGES OF UCBS). */
%INCLUDE SOURCLIB(IMACUCB);
/* END OF MEMBER VMACUCB*/
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of John Eells
Sent: Thursday, September 22, 2016 1:48 PM
To: [email protected]
Subject: Re: Translating a DEVTYPE from LISTC into something usable?
Some other trivia about DEVTYPE in catalog entries...
The first two bytes are "feature" bits. For modern disk, it will always be
x'3010'. These bits represent obsolete and now-standard functions that were
once features, namely burst mode (obsolete), data chaining (now standard),
and rotational position sensing (now both standard *and* obsolete!).
The next byte is the device class, x'20' for direct access.
The last byte, represents the device, and as others have posted x'0F' is set
for 3390.
(Wayne Rhoten had the feature bit mapping when I looked for this a couple
months back!)
--
John Eells
IBM Poughkeepsie
[email protected]
----------------------------------------------------------------------
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
