/* REXX   DSPROF    Examine the size and shape of a dataset
                    via LISTDSI
*/
arg dsn  file
if file = '' then,
if Substr(dsn,1,1) <> "'" then,
   dsn = "'"Userid()"."dsn"'"
address TSO
/* works with error LISTDSI(dsn  file) */
/* works with error LISTDSI(dsn  file  directory ) */
/* works with error LISTDSI(dsn  file  directory   norecall ) */
x = LISTDSI(dsn  file  directory norecall)
"CLEAR"
say  Right("      DSN: ",12) sysdsname
say  Right("    DSORG: ",12) sysdsorg
say  Right("    RECFM: ",12) sysrecfm
say  Right("    LRECL: ",12) syslrecl
say  Right("  Created: ",12) syscreate
say  Right("  LastRef: ",12) sysrefdate
say  Right("    BLKSZ: ",12) sysblksize
say  Right("    Alloc: ",12) sysalloc
say  Right("     Used: ",12) sysused
say  Right("  Members: ",12) sysmembers
say  Right("  Primary: ",12) sysprimary
say  Right("Secondary: ",12) sysseconds
say  Right("    Units: ",12) sysunits
say  Right("  Extents: ",12) sysextents
say  Right(" D/Blocks: ",12) sysadirblk
say  Right(" U/Blocks: ",12) sysudirblk
say  Right(" MGMT Cls: ",12) sysmgmtclass
say  Right(" STOR Cls: ",12) sysstorclass
say  Right(" DATA Cls: ",12) sysdataclass
say  Right("   Reason: ",12) sysreason
say  Right("  Msglvl1: ",12) sysmsglvl1
say  Right("  Msglvl2: ",12) sysmsglvl2
say  Right("       RC: ",12) x
exit                                   /*                            */