Re: [EXTERNAL] Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Bill Godfrey 
On Thu, 22 Sep 2016 13:53:39 -0500, Dyck, Lionel B. (TRA) wrote:

But a few pages later in the same manual:
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.idai200/lcvolol.htm
some of the examples have 3030200E, which means the shared DASD bit was set in 
the UCB when the catalog entry was created. That's not shown in the table. 
You'll want to check for that too.

Bill

>Got something 
>http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.idai200/dvtt.htm
>
>
>--
>Lionel B. Dyck (TRA Contractor)
>Mainframe Systems Programmer 
>Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
>VA OI Service Delivery & Engineering
>
>
>-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: [EXTERNAL] 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

Re: [EXTERNAL] Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Edward Finnell 
Back in the olden days we were kinda pushed into new technology trying to  
get any angle we could for VSCR with software and hardware. One of the items 
was  speed matching buffers in 3380 control unit.
Everything went fine in testing. Then someone added a pack to JES3 spool.  
Blam! When I got in the PSR was just dog cussing one of the  developers. 
Evidently there was no SMB controllers in JES3 development and  they had a fall 
thru lookup followed by a DC X'00'.
 
 
In a message dated 9/22/2016 2:13:54 P.M. Central Daylight Time,  
000a2a8c2020-dmarc-requ...@listserv.ua.edu writes:

Search  for UCBTYP.



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

Re: [EXTERNAL] Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Tom Marchant 
On Thu, 22 Sep 2016 13:51:54 -0500, Dyck, Lionel B. (TRA) wrote:

>John - thank you
>
>I gathered the 3010 for dasd and it appears that tape is a bit more 
>challenging (32, 33, 34, and 78) for the 1st 2 chars and the last 4 depend on 
>the tape device.
>
>Is there a reference for these numbers - I recall there was at one time but 
>that was in the last century.

Search for UCBTYP.

-- 
Tom Marchant

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

Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Barry Merrill 
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  VMAC19VMAC62VMAC64***/
 /*** VMAC74   VMAC75VMAC8911  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=04XTHEN DEVICE='9340   ';
 ELSE IF DEVTYPE=06XTHEN DEVICE='2305-1 ';
 ELSE IF DEVTYPE=07XTHEN DEVICE='2305-2 ';
 ELSE IF DEVTYPE=08XTHEN DEVICE='2314   ';
 ELSE IF DEVTYPE=09XTHEN DEVICE='3330   ';
 ELSE IF DEVTYPE=0DXTHEN DEVICE='3330-11';
 ELSE IF DEVTYPE=0AXTHEN DEVICE='3340   ';
 ELSE IF DEVTYPE=0BXTHEN DEVICE='3350   ';
 ELSE IF DEVTYPE=0CXTHEN DEVICE='3375   ';
 ELSE IF DEVTYPE=85XTHEN DEVICE='6421   ';/*FACOM*/
 ELSE IF DEVTYPE=0EXTHEN DEVICE='3380   ';
 ELSE IF DEVTYPE=0FXTHEN DEVICE='3390   ';
 ELSEDEVICE='DASD   ';
   END;
   ELSE IF DEVCLASS=80X THEN DO;
 IF  DEVTYPE=80XTHEN DEVICE='3480   ';
 ELSE IF DEVTYPE=01XTHEN DEVICE='2400   ';
 ELSE IF DEVTYPE=03XTHEN DEVICE='3420   ';
 ELSE IF DEVTYPE=81XTHEN DEVICE='3490E  ';
 ELSE IF DEVTYPE=83XTHEN 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'.

Re: [EXTERNAL] Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Dyck, Lionel B. (TRA) 
Got something 
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.idai200/dvtt.htm


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


-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: [EXTERNAL] 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

Re: [EXTERNAL] Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Dyck, Lionel B. (TRA) 
John - thank you

I gathered the 3010 for dasd and it appears that tape is a bit more challenging 
(32, 33, 34, and 78) for the 1st 2 chars and the last 4 depend on the tape 
device.

Is there a reference for these numbers - I recall there was at one time but 
that was in the last century.

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


-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: [EXTERNAL] 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

Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread John Eells 

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

Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Dyck, Lionel B. (TRA) 
EXCELLENT - Thank you

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


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Feller, Paul
Sent: Thursday, September 22, 2016 1:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (TRA)
Sent: Thursday, September 22, 2016 12:50
To: IBM-MAIN@LISTSERV.UA.EDU
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 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 DS0CL8

DEVJCLL  DS0CL6

TAPETBL  DCC'32108003',C'3400-6'

 DCC'32008003',C'3400-5'

 DCC'34208003',C'3400-4'

 DCC'34008003',C'3400-3'

 DCC'30C08003',C'3400-2'

 DCC'78008080',C'3480  '   NON COMPRESS

 DCC'33008003',C'3480  '

 DCC'30008001',C'2400  '

 DCC'30808001',C'2400-1'

 DCC'30C08001',C'2400-2'

 DCC'34008001',C'2400-3'

 DCC'34208001',C'2400-4'

 DCC'78048080',C'3480X '   COMPRESSED (TRECH=COMP)

 DCC'78048081',C'3490  '   COMPRESSED

TAPETBLE DS0C

DEVTYPEL2 DS0CL8

DEVJCLL2 DS0CL6

DISKTBL  DCC'3050200B',C'3350  '

 DCC'3010200E',C'3380  '

 DCC'3030200E',C'3380X '

 DCC'3010200F',C'3390  '

 DCC'3010200C',C'3375  '

 DCC'30582009',C'3330V '

 DCC'3050200D',C'3330-1'

 DCC'30502009',C'3330  '

 DCC'3040200A',C'3340  '

 DCC'30502006',C'2305  '

 DCC'30502007',C'2305-2'

DISKTBLE DS0C

  CSECT

 MEND



Ken Mazer

IBM zHardware Specialist



ECC-Martinsburg Computin

Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Feller, Paul 
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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (TRA)
Sent: Thursday, September 22, 2016 12:50
To: IBM-MAIN@LISTSERV.UA.EDU
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 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 DS0CL8

DEVJCLL  DS0CL6

TAPETBL  DCC'32108003',C'3400-6'

 DCC'32008003',C'3400-5'

 DCC'34208003',C'3400-4'

 DCC'34008003',C'3400-3'

 DCC'30C08003',C'3400-2'

 DCC'78008080',C'3480  '   NON COMPRESS

 DCC'33008003',C'3480  '

 DCC'30008001',C'2400  '

 DCC'30808001',C'2400-1'

 DCC'30C08001',C'2400-2'

 DCC'34008001',C'2400-3'

 DCC'34208001',C'2400-4'

 DCC'78048080',C'3480X '   COMPRESSED (TRECH=COMP)

 DCC'78048081',C'3490  '   COMPRESSED

TAPETBLE DS0C

DEVTYPEL2 DS0CL8

DEVJCLL2 DS0CL6

DISKTBL  DCC'3050200B',C'3350  '

 DCC'3010200E',C'3380  '

 DCC'3030200E',C'3380X '

 DCC'3010200F',C'3390  '

 DCC'3010200C',C'3375  '

 DCC'30582009',C'3330V '

 DCC'3050200D',C'3330-1'

 DCC'30502009',C'3330  '

 DCC'3040200A',C'3340  '

 DCC'30502006',C'2305  '

 DCC'30502007',C'2305-2'

DISKTBLE DS0C

  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 DE

Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Dyck, Lionel B. (TRA) 
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 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 DS0CL8

DEVJCLL  DS0CL6

TAPETBL  DCC'32108003',C'3400-6'

 DCC'32008003',C'3400-5'

 DCC'34208003',C'3400-4'

 DCC'34008003',C'3400-3'

 DCC'30C08003',C'3400-2'

 DCC'78008080',C'3480  '   NON COMPRESS

 DCC'33008003',C'3480  '

 DCC'30008001',C'2400  '

 DCC'30808001',C'2400-1'

 DCC'30C08001',C'2400-2'

 DCC'34008001',C'2400-3'

 DCC'34208001',C'2400-4'

 DCC'78048080',C'3480X '   COMPRESSED (TRECH=COMP)

 DCC'78048081',C'3490  '   COMPRESSED

TAPETBLE DS0C

DEVTYPEL2 DS0CL8

DEVJCLL2 DS0CL6

DISKTBL  DCC'3050200B',C'3350  '

 DCC'3010200E',C'3380  '

 DCC'3030200E',C'3380X '

 DCC'3010200F',C'3390  '

 DCC'3010200C',C'3375  '

 DCC'30582009',C'3330V '

 DCC'3050200D',C'3330-1'

 DCC'30502009',C'3330  '

 DCC'3040200A',C'3340  '

 DCC'30502006',C'2305  '

 DCC'30502007',C'2305-2'

DISKTBLE DS0C

  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

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

Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Mazer Ken G 
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 DS0CL8

DEVJCLL  DS0CL6

TAPETBL  DCC'32108003',C'3400-6'

 DCC'32008003',C'3400-5'

 DCC'34208003',C'3400-4'

 DCC'34008003',C'3400-3'

 DCC'30C08003',C'3400-2'

 DCC'78008080',C'3480  '   NON COMPRESS

 DCC'33008003',C'3480  '

 DCC'30008001',C'2400  '

 DCC'30808001',C'2400-1'

 DCC'30C08001',C'2400-2'

 DCC'34008001',C'2400-3'

 DCC'34208001',C'2400-4'

 DCC'78048080',C'3480X '   COMPRESSED (TRECH=COMP)

 DCC'78048081',C'3490  '   COMPRESSED

TAPETBLE DS0C

DEVTYPEL2 DS0CL8

DEVJCLL2 DS0CL6

DISKTBL  DCC'3050200B',C'3350  '

 DCC'3010200E',C'3380  '

 DCC'3030200E',C'3380X '

 DCC'3010200F',C'3390  '

 DCC'3010200C',C'3375  '

 DCC'30582009',C'3330V '

 DCC'3050200D',C'3330-1'

 DCC'30502009',C'3330  '

 DCC'3040200A',C'3340  '

 DCC'30502006',C'2305  '

 DCC'30502007',C'2305-2'

DISKTBLE DS0C

  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

> 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

Re: Translating a DEVTYPE from LISTC into something usable?

2016-09-22 Thread Mark Jacobs - Listserv 

I haven't looked, but maybe the UCB mapping macro.


Dyck, Lionel B. (TRA) 
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 Service Delivery & Engineering

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to 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 with the message: INFO IBM-MAIN