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
