EXCELLENT - Thank you -------------------------------------------------------------------------- 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:[email protected]] On Behalf Of Feller, Paul Sent: Thursday, September 22, 2016 1:32 PM To: [email protected] Subject: [EXTERNAL] Re: Translating a DEVTYPE from LISTC into something usable? How about this.. /* "convert" DEVTYPE code to something that we can read */ /* Yes there are a few codes that are for really "old" devices */ SELECT WHEN DEVTYPE = '30102004' THEN DEVMODEL = 'DISK-9345 ' WHEN DEVTYPE = '3010200C' THEN DEVMODEL = 'DISK-3375 ' WHEN DEVTYPE = '3010200E' THEN DEVMODEL = 'DISK-3380 ' WHEN DEVTYPE = '3010200F' THEN DEVMODEL = 'DISK-3390 ' WHEN DEVTYPE = '3040200A' THEN DEVMODEL = 'DISK-3340 ' WHEN DEVTYPE = '30502009' THEN DEVMODEL = 'DISK-3330 ' WHEN DEVTYPE = '3050200D' THEN DEVMODEL = 'DISK-3330-1 ' WHEN DEVTYPE = '3050200B' THEN DEVMODEL = 'DISK-3350 ' WHEN DEVTYPE = '30C02008' THEN DEVMODEL = 'DISK-2314 ' WHEN DEVTYPE = '32008003' THEN DEVMODEL = 'TAPE-3420 ' WHEN DEVTYPE = '32108003' THEN DEVMODEL = 'TAPE-3420 ' WHEN DEVTYPE = '33008003' THEN DEVMODEL = 'TAPE-3420 ' WHEN DEVTYPE = '34008003' THEN DEVMODEL = 'TAPE-3420 ' WHEN DEVTYPE = '78008080' THEN DEVMODEL = 'TAPE-3480 ' WHEN DEVTYPE = '78048080' THEN DEVMODEL = 'TAPE-3480X ' WHEN DEVTYPE = '78048081' THEN DEVMODEL = 'TAPE-3490 ' WHEN DEVTYPE = '78048083' THEN DEVMODEL = 'TAPE-3590-1 ' OTHERWISE DEVMODEL = '????-???? ' END Thanks.. Paul Feller AGT Mainframe Technical Support -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Dyck, Lionel B. (TRA) Sent: Thursday, September 22, 2016 12:50 To: [email protected] Subject: Re: Translating a DEVTYPE from LISTC into something usable? 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:[email protected]] On Behalf Of Mazer Ken G Sent: Thursday, September 22, 2016 12:47 PM To: [email protected] 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:[email protected]] On Behalf Of Mark Jacobs - Listserv Sent: Thursday, September 22, 2016 1:24 PM To: [email protected] 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:[email protected]> 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 [email protected]<mailto:[email protected]> > 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 '[email protected]'. > -- 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 [email protected]<mailto:[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 ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
