Hi Jack,
Could you please send me a copy of your JCL etc.?
My email address is [email protected]

Thanks and regards,
David

On 10/9/2024 10:38, Jack Zukt wrote:
Thank you all for your help.
I managed to get the results I need using dfosrt.
Regards
Jack


On Wed, 9 Oct 2024 at 12:41, Jack Zukt <[email protected]> wrote:

Thank you Mike
I did not knew that.
Regards
Jack


On Wed, 9 Oct 2024 at 12:38, Mikael Nystrom <
[email protected]> wrote:

If you add the MULTIVOL keyword to LISTDSI it does include information of
multi-volumes.

//Micke

Mikael Nyström
Core Ledgers
SEB

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf
Of Jack Zukt
Sent: den 9 oktober 2024 13:30
To: [email protected]
Subject: Re: ICETOOL OCCUR statement

CAUTION: This email originated from outside of the organization.
________________________________
Be cautious when clicking links and opening attachments!



Hi Mike
LISTDSI does not provide information regarding multi-volume datasets, or,
at least, that is what happened when I tried. I had not thought about CSI.
I will look into it, thank you.
Regards
Jack


On Wed, 9 Oct 2024 at 12:20, Michael Babcock <
[email protected]> wrote:

Have you looked at LISTDSI or the catalog search interface?

On Wed, Oct 9, 2024 at 5:15 AM Jack Zukt <
[email protected]> wrote:

Hi Mike
Thank you for your answer.
Unfortunately that will give me the extent number but not over how
many DASD, which is what I need for this specific case.
I have a DFSORT job that gives me the number of extents for a
dataset
using
that specific field. I have been tinkering with it trying to get the
number
of different DASD over which a dataset is allocated. It is not going
very well either :( Regards Jack


On Wed, 9 Oct 2024 at 11:03, Mike Schwab <
[email protected]> wrote:

How about DCOLLECT Record D Either over 40?
77(X'4D') UNSIGNED 1 DCDNMEXT NUMBER OF EXTENTS OBTAINED
122(X'7A') CHARACTER 2 DCDVOLSQ VOLUME SEQUENCE NUMBER

On Wed, Oct 9, 2024 at 4:26 AM Jack Zukt
<[email protected]> wrote:
  Hi all,

I was asked to create a REXX program to identify datasets that
are approaching the 59 volumes extent limit.
I was trying to do that using ICETOOL OCCUR statement and a
DCOLLECT
file
for input. So far it is geting me nowhere fast. Do you think
that
this
is a
feaseble option to get that result?

The statement that I am using is

OCCURS FROM (INDD01) ON(DCDDSNAM) ON(DCDVOLSR) LIST(OUT001)

This is giving one line for dataset but only one volser. I was
expecting
one lline for dataset and a count for volser. So I am on the
wrong
track.
Any ideas?
Regards
Jack


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO
IBM-MAIN


--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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

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

Reply via email to