>Is there any way to calculate maximum directory blocks using VTOC
>information?
I understand you want it programmatically. If REXX is an option,
here is one that does not need ISPF:
/* REXX */
newstack
"alloc f(IN) da('your-pds-data-set-name')",
"dsorg(PS) recfm(F) lrecl(256) blksize(256) shr"
"execio * diskr IN (finis"
"free f(IN)"
say "Number of directory blocks: " queued()
delstack
return
This will return the (fixed) number of allocated directory blocks
for a real PDS and the (simulated) current number for a PDSE.
--
Peter Hunkeler
CREDIT SUISSE AG
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
