You can use ISPF =3.2 to check how many directory blocks are currently allocated to your PDS, and use PDSMAN (if you have it) to allocate more directory blocks.
You can run PGM=IEBGENER, pointing SYSUT1 at the PDS and SYSUT2 at a sequential output dataset (with RECFM=FB, LRECL=256, and [it used to be] BLKSIZE=256) to dump the whole PDS's directory to a PS dataset - which you can then read to count the directory blocks (each block is 256 bytes long). Cheers, CP On 11/10/2019 19:07, Kirk Wolf wrote: > Thanks for all who responded here and off-line. > I don't need it for PDSE, only PDS. > Without going through another product like TSO, ISPF, etc, it seems that > you can only get this using two methods: > > - read the directory, counting blocks > - use FAMS ($$ doc licensed $$) > > Since the information itself only seems to exist in the data set itself, > the first option seems the best to me. > > On Fri, Oct 11, 2019 at 11:45 AM Tom Conley <pinnc...@rochester.rr.com> > wrote: > >> On 10/11/2019 11:41 AM, Kirk Wolf wrote: >>> For an existing PDS, what's the best way to get this? >>> Do you just have to open the directory and count? >>> >>> Kirk Wolf >>> Dovetailed Technologies >>> http://dovetail.com >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>> >> Kirk, >> >> If you have PDS in your shop, look at the code for the USAGE command. >> If not, grab it at cbttape.org, file 182. >> >> Regards, >> Tom Conley >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > . > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
