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:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of John Eells
Sent: Thursday, September 22, 2016 1:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
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
ee...@us.ibm.com

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to