x cd /pub/data/sf32000/Tools;  %let pgm=create_logrecno_indices;  filename pgm "&pgm..sas";   *<====mo only===;

libname sf3 '/pub/data/sf32000';
 *---Create sas data set indices for logrecno variable on all 4 key datasets for several states--;
 proc datasets library=sf3 nolist;
  %macro doit(state,replace=0);
  modify &state.ph;
  %if &replace %then %str(index delete logrecno;);
  index create logrecno;

  modify &state.phct;
  %if &replace %then %str(index delete logrecno;);
  index create logrecno;

  modify &state.phctr;
  %if &replace %then %str(index delete logrecno;);
  index create logrecno;
  %mend doit;

  *doit(mo);
  %doit(il)
  %doit(ks)

  quit;

 %include sascode(notify);