/* 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                   */