List datasets in DASD

Richy12 · New User Joined: 29 May 2013 Posts: 22 Location: India

I had a requirement to get the list of all datasets in DASD with the volume, size, created date and last referenced date based on high level qualifier -> A**.BCD.**

So, I did a SAVE LIST and used SORT to get these details. Now I am expected to automate the SAVE LIST part also. I tried IGGCSIRX, but it does not get me the size details nor the date info.

Is there any way to do in JCL?

expat · Posted: Wed Jun 26, 2013 2:34 pm

DCOLLECT records may be the way to go on this one

mistah kurtz · Posted: Wed Jun 26, 2013 4:26 pm

You can use the below job:

Robert Sample · Posted: Wed Jun 26, 2013 4:29 pm

DCOLLECT type V and D records give you what you want. After running the DCOLLECT job you'll need to process the output with a program in the language of your choice (SAS for example, although I have used COBOL on DCOLLECT ouitput as well).

expat · Posted: Wed Jun 26, 2013 4:30 pm

Mistah Kurtz

How does this get the required information for the OP ???

Robert Sample · Posted: Wed Jun 26, 2013 4:31 pm

mistah kurtz, how does your job provide created date and last referenced date for those data sets? That IS part of the requirement, after all.

mistah kurtz · Posted: Wed Jun 26, 2013 4:34 pm

Hi Robert and Expat..
I realized my mistake soon after posting..so I was in the process of editing my previous post.

Once again my apologies !!

Richy12 · New User Joined: 29 May 2013 Posts: 22 Location: India

Thanks for the suggestions.

I tried using DCOLLECT and had few questions.

DCOLLECT -
OUTFILE(DCOL) -
VOLUMES( -
LH* -
DEV* -
STO* -
)

the output was something like this -

& D HXA1 ±Ó " DATASET NAME ± ° STO165$è ð STO165

How would I get size, and date information from this? Do we have a record fromat?
Can I search based on dataset name (A*.BCD.**) rather than volumes?
And I need only the sequesntial files in DASD. how can I filter out PDS?

expat · Posted: Wed Jun 26, 2013 7:23 pm

Everything that you need to know about DCOLLECT is contained in the IDCAMS manual

Robert Sample · Posted: Wed Jun 26, 2013 7:51 pm

As is typical with IBM utilities, the records contain binary and packed decimal data fields. There is an appendix in the IDCAMS manual that provides the layout for the various record types (you will need to use the V and D records to get volume and data set data respectively).

vasanthz · Posted: Thu Jun 27, 2013 2:27 pm

Hello,
If the number of datasets to be reported is in some 1000's or less, you could try ISMF's Naviquest to get the information. Assuming if you have access to ISMF.

Richy12 · New User Joined: 29 May 2013 Posts: 22 Location: India

Thanks Vasanth.

It ended in MAXCC 8 with the message 'TBOPEN OF TABLE DSNLIST FAILED BECAUSE IT DOESN'T EXIST'.

I have given a valid PDS with FB80 in TABL2. Can you please help?

vasanthz · Posted: Thu Jun 27, 2013 5:55 pm

Hello,
In which step? //GENREP or //GENREP2?

If the first step is successful you should be able to see a member named DSNLIST in your SOME.PDS.FILE.HERE.WITH.FB80.
Are you able to see that member?

Post the messages inside the DD names SYSTSPRT & ISPLOG
for both the steps.
Also the dataset attributes of SOME.PDS.FILE.HERE.WITH.FB80

It will help in debugging.

Robert Sample · Posted: Thu Jun 27, 2013 6:14 pm

In this line of Vasanth's code:

vasanthz · Posted: Thu Jun 27, 2013 6:16 pm

Thanks Robert,

Hope that was the issue and TS gets the output this time around.

Richy12 · New User Joined: 29 May 2013 Posts: 22 Location: India

After modifying the mask, It ended with RC 12 in GENREP with the below error -

ISPLOG :

***** ISMF ERROR ***** - APPLICATION(DGT1 - DATA SET); FUNCTION(SELECT)
- RETURN CODE(0012); REASON CODE(0079)

Does this mean I do not access to ISMF?

vasanthz · Posted: Fri Jun 28, 2013 2:42 pm

Hello,

Looks like you have access to ISMF.
- RETURN CODE(0012); REASON CODE(0079)

I think this error occurs if dataset is migrated and softwares like Ca-Disk is used, hence ISMF is unable to get migrated dataset information(I might be wrong here). I think this can be ignored and you can proceed to the second step of the job.

Richy12 · New User Joined: 29 May 2013 Posts: 22 Location: India

Actually the second step has also run but the report dataset is empty.

The SYSTSPRT of GENREP2 has this message -
ISPSTART CMD(ACBQBAR1 DSNLIST) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99
Table being printed is: DSNLIST
Number 1 parameter was: DSN
Number 2 parameter was: VOLSER
Number 3 parameter was: ALLOCSP
Number 4 parameter was: ALLOCUSED
Number 5 parameter was: CREATEDT
Number 6 parameter was: LASTREF
TBOPEN OF TABLE DSNLIST FAILED BECAUSE IT DOESN'T EXIST

and ISPLOG -

Start of ISPF Log - - - - Session # 1 ------
TSO - Command - - ACBQBAR1 DSNLIST
End of ISPF Log - - - - - Session # 1 ------

Richy12 · New User Joined: 29 May 2013 Posts: 22 Location: India

It worked.. Issue was with the PDS as it did not have enough space to allocate DSNLIST..

Thank you all for the responses!! it was very helpful..

vasanthz · Posted: Fri Jun 28, 2013 7:05 pm

Im glad it worked