Thank you - I can use this as the start for my rexx code to do it

Have a great rest of the week/weekend.

--------------------------------------------------------------------------
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
VA OI&T Service Delivery & Engineering

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mazer Ken G
Sent: Thursday, September 22, 2016 12:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Translating a DEVTYPE from LISTC into something usable?

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

----------------------------------------------------------------------
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