> -----Original Message-----
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Robert Fake
> Sent: Wednesday, April 11, 2007 3:39 PM
> To: [email protected]
> Subject: Extract listing of production datasets
> 
> 
> I have a need to generate a listing of all production 
> datasets.  The way the
> production datasets are identified is via the 4th byte of the 
> high level
> qualifier.  If the 4th byte is a P, it is production.
> 
> For example:  EGMP.DATASET.ONE and DNUP.DATASET.ONE are production.
> 
> EGMT.DATASET.ONE and DNUT.DATASET.ONE are test, etc.
> 
> What is the easiest method to identify and extract to a flat 
> file these
> production dataset names?
> 
> Thanks in advance for your help.
> 
> Bob
> Robert B. Fake

Depends. I would likely use CA-Mastercat to do it. It is like LISTCAT,
but faster and can use some wildcards. If you don't have Mastercat, then
you'll need to do a LISTCAT on one or more catalogs, then subset. Or you
could do something along the lines of:

LISTC ALIAS

Take the output from that listing to create a series of

LISTC LVL(nnnP)

control card. I would do this in three steps. Step one does the LISTC
ALIAS. Step two reads that listing using REXX, creating IDCAMS control
cards. Step 3 then does the IDCAMS. Or step 2 could do the LISTC
LVL(nnnP) in the REXX exec itself.

There is not a way to do it with standard IBM utilities. Well, REXX is a
utility, but you know what I mean.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it. 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to