/* REXX */
x=LISTDSI("'"dsn"'" DIRECTORY SMSINFO). volser=sysvolume. dsktyp=sysunit.
unttyp=sysunits. spcalloc=sysalloc. dsorg=sysdsorg. recfm=sysrecfm. lrecl=
syslrecl. blksize=sysblksize. if unttyp='TRACK'. then do. trk = spcalloc /* tracks */.
cyl = spcalloc / 15 /* 15 tracks per cylinder */. bytes = spcalloc * 56664 /* 56664
bytes ...