MVSFORUMS.com

vini · Posted: Tue Jan 27, 2004 11:53 am Post subject: Data or not in GDG

Hi ,

I want to know if there is anyway we can identify quickly which of the versions of a GDG actually have any Data in them.
In my case I have several versions of a GDG and majority of these happen to be empty ..and I do not want to Browse each one individually to identify one with Data.

Can this be done thru a JCL or is there any other way ?!!!

The following is what I am looking at and where alll the Versions are of same type FB , Lrecl 1000,Blksize 27000.

WLFA.ASX860FA.WA01PS
WLFA.ASX860FA.WA01PS.G0238V00
....
WLFA.ASX860FA.WA01PS.G0280V00

Vini

bablack · Posted: Tue Jan 27, 2004 12:06 pm Post subject:

If these GDGs are on tape, your tape management system should have recorded the number of blocks in each one. With an appropriate query, you can see which have non-zero block count.

If they are on disk, there are a variety of disk dataset reporting packages which will tell you the number of used tracks in datasets, those with zero tracks used are empty
_________________
Bruce A. Black
Senior Software Developer
Innovation Data Processing

vini · Posted: Tue Jan 27, 2004 1:30 pm Post subject:

Bruce,
This GDG is on Disk. I would need more details on 'appropriate query' Smile

or on the 'packages' or Utilities which could do this if any.

Thnks.
vini

bablack · Posted: Tue Jan 27, 2004 1:56 pm Post subject:

There are many answers.

ISPF option 3.4 or 3.2 can do it.

The IEHLIST utility LISTVTOC command will do it (if hte first two values under LAST BLK are zero, it is empty)

There are many vendor products, see your data center staff to see what you have installed. If you are an FDRABR customer, our FDREPORT program can do it (see examples in the FDR manual).
_________________
Bruce A. Black
Senior Software Developer
Innovation Data Processing

vini · Posted: Tue Jan 27, 2004 2:03 pm Post subject:

Bruce,
Sure the ISPF option 3.4 or 3.2 can tell you the Tracks used etc ...but I want to do this "without having to individually Query each and every Version (there are plenty) I want to be able to get this information in one shot".

Thnks.
vini

bablack · Posted: Tue Jan 27, 2004 2:22 pm Post subject:

ISPF 3.4 supports a mask. For example I put in
BAB.GTF.**
and got back
Command - Enter "/" to select action Tracks %Used
------------------------------------------------------------------
BAB.GTF.TRACE
BAB.GTF.TRACE.G0004V00 252 1
BAB.GTF.TRACE.G0005V00 252 36
BAB.GTF.TRACE.G0006V00 252 1

For that matter, ISMF, which you access thru ISPF, has the same function.

In FDREPORT, you can select on complex dataset name masks, and can display only empty datasets. If you have FDREPORT, I will be happy to point you to the right examples.

I am sure that some other vendor dataset reporting tools can do similar things, but I am not familiar with them
_________________
Bruce A. Black
Senior Software Developer
Innovation Data Processing

vini · Posted: Tue Jan 27, 2004 2:55 pm Post subject:

Bruce ,

Its not the same at my end ..and must not be so for many others I believe.

I do know the purpose of the Wild card char * BUT the "/" does not have the same affect as in your case. I do not see and Tracks info.

We do not have FDREPORT here.

vini

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

A few more options. All will require a program of some sort to loop through the list of datasets and perform a task:

1. For a REXX Exec or CLIST running in a TSO address space, you can use the LISTDSI command to query a dataset. The result of this command will set a bunch of variables that you can then check. One of these is SYSUSED, which should show a '0' for any empty dataset. A nice thing here is that, once a dataset is shown to be empty, you could issue a TSO "DELETE" command for it.

2. For each dataset in the list, run the SORT program with the SYSIN parameter COUNT... to obtain a record count. You can then interrogate the SYSOUT report for the record count value. I believe that, as an alternative, you can have SORT perform a COPY command, and have it set a non-zero return code if a COPY cannot be performed.

3. For each dataset, run the IDCAMS program with the SYSIN parameter PRINT FROM(ddname) COUNT(1). If IDCAMS cannot print the 1 record as specified, it will set the return code to '4'. Otherwise, the report code will be '0'.

bablack · Posted: Tue Jan 27, 2004 3:13 pm Post subject:

In ISPF 3.4, press PF11 to scroll the display right, to see the same display I did.
OR on the initial ISPF 3.4 panel, select option 2 (space) for the "initial view"
_________________
Bruce A. Black
Senior Software Developer
Innovation Data Processing

vini · Posted: Tue Jan 27, 2004 4:15 pm Post subject:

Bruce,
That works for me ..is much better option than browsing each one.

superk , I would have to know a lot before I can go for those options and they would take time ..REXX, CLIST etc are things I never dealt with so far..but would want to someday like ya.
Smile

Thnks to ya both ~
Vini.