Lionel,
I wrote an assembler macro several years ago.
Needless to say I haven't updated it since 1994.
May not be complete but it's a place to start.
MACRO
DEVICES
***************************************************************
* *
* THIS DSECT HAS ALL DEVICE TYPES KNOWN AT TIME OF CREATION *
* CREATED 7-12-94 KGM *
* UPDATED *
* *
***************************************************************
DEVTYPEL DS 0CL8
DEVJCLL DS 0CL6
TAPETBL DC C'32108003',C'3400-6'
DC C'32008003',C'3400-5'
DC C'34208003',C'3400-4'
DC C'34008003',C'3400-3'
DC C'30C08003',C'3400-2'
DC C'78008080',C'3480 ' NON COMPRESS
DC C'33008003',C'3480 '
DC C'30008001',C'2400 '
DC C'30808001',C'2400-1'
DC C'30C08001',C'2400-2'
DC C'34008001',C'2400-3'
DC C'34208001',C'2400-4'
DC C'78048080',C'3480X ' COMPRESSED (TRECH=COMP)
DC C'78048081',C'3490 ' COMPRESSED
TAPETBLE DS 0C
DEVTYPEL2 DS 0CL8
DEVJCLL2 DS 0CL6
DISKTBL DC C'3050200B',C'3350 '
DC C'3010200E',C'3380 '
DC C'3030200E',C'3380X '
DC C'3010200F',C'3390 '
DC C'3010200C',C'3375 '
DC C'30582009',C'3330V '
DC C'3050200D',C'3330-1'
DC C'30502009',C'3330 '
DC C'3040200A',C'3340 '
DC C'30502006',C'2305 '
DC C'30502007',C'2305-2'
DISKTBLE DS 0C
&SYSECT CSECT
MEND
Ken Mazer
IBM zHardware Specialist
ECC-Martinsburg Computing Center
Mainframe Services & Support Division
IBM z/OS Support Services Branch
IBM Operating Systems Support Section
OS:IT:EO:MS:ZOS:OS
304-264-7557
MON-FRI 7:00A-4:30P 5/4/9 1st FRI SHORT/2ND WED OFF
"Hey, let's be careful out there." - Sergeant Phil Esterhaus (Hill Street Blues)
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf
Of Mark Jacobs - Listserv
Sent: Thursday, September 22, 2016 1:24 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Translating a DEVTYPE from LISTC into something usable?
I haven't looked, but maybe the UCB mapping macro.
> Dyck, Lionel B. (TRA) <mailto:lionel.d...@va.gov> September 22, 2016
> at 1:08 PM Does anyone have any suggestions (or code) that will
> convert the DEVTYPE returned from a LISTC into something meaningful to
> a human?
>
> For example a LISTC for a disk dataset returned DEVTYPE------X'3010200F'
>
> This is most likely a 3390 but that is just a guess as it is on disk.
>
> Thanks
>
> ----------------------------------------------------------------------
> ----
> Lionel B. Dyck (TRA Contractor)
> Mainframe Systems Programmer
> Enterprise Infrastructure Support (Station 200) (005OP6.3.10) VA OI&T
> Service Delivery & Engineering
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with the
> message: INFO IBM-MAIN
>
>
> Please be alert for any emails that may ask you for login information
> or directs you to login via a link. If you believe this message is a
> phish or aren't sure whether this message is trustworthy, please send
> the original message as an attachment to 'phish...@timeinc.com'.
>
--
Mark Jacobs
Time Customer Service
Technology and Product Engineering
The standard you walk past is the standard you accept.
Lt. Gen. David Morrison
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu<mailto: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
