/* REXX ADDXREF run COMPSTAT on this compiler listing to add ISPF statistics */ arg argline /* pro-forma quick-start */ address TSO arg parms "((" opts opts = Strip( opts,'T','5d'x ) parse var opts "TRACE" tv . parse value tv "N" with tv . rc = Trace("O"); rc = Trace(tv) parse var parms dsn . dsn = Strip( dsn,,"'" ) address ISPEXEC "EDIT DATASET('"dsn"') MACRO(compstat)" exit /*@ ADDXREF */