Run IKJEFT01 in batch and invoke some REXX code.
Sample REXX code (dress it up any way you want):
/* REXX */
x = listdsi("'SYS1.PARMLIB'")
say "DSNAME = " SYSDSNAME
say "DSORG = " SYSDSORG
say "PRIMARY = " SYSPRIMARY
say "SECONDARY = " SYSSECONDS
say "EXTENTS = " SYSEXTENTS
say "UNITS = " SYSUNITS
say "ALLOC = " SYSALLOC
say "USED = " SYSUSED
For multi-volume datasets, you have to issue the listdsi for each volume.
----------------------------------------------------------------------
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
