/* REXX *** */ PARSE ARG dsn /* use ISPF dataset information service */ Address ISPEXEC 'DSINFO DATASET('dsn')' drc = RC IF drc \= 0 then Do Say 'DSINFO failed RC='drc Exit drc end Say 'Recfm='zdsrf' Lrecl='Strip(zdslrec)' Blksize='zdsblk Say 'Dsorg='zdsorg' Devt='zdsdevt' Dsntype='zdsdsnt If ZDS#VOLS > 1 then , Say 'Volumes = 'zdsvtab else , Say 'Volume = 'zdsvol Say 'Creation date='zdscdate' Last reference='zdsrdate Say 'Space allocated='Strip(zdstota)' Space used='Strip(zdstotu), 'Unit='zdsspc Say 'Exts allocated='Strip(zdsexta)' Exts used='Strip(zdsextu) If zdsdsnt \= '' & zdsdsnt \= 'PDS' then , Say 'Pages used='Strip(zdspagu)' ('Strip(zdsperu)')%' Exit 0