/*----- * group: Data management * purpose: Create an index named 'order' for a data set */ %macro orderIDX (data, indexvar); %* data - name of data set on which to create an index; %* indexvar - list of data set variables to index; %* Richard A. DeVenezia 12/23/98; %* Create an index named 'order' on a dataset using variables in indexvar; %local LIB MEM; %if (%scan (&DATA,2,.) =) %then %do; %let LIB=WORK; %let MEM=&DATA; %end; %else %do; %let LIB=%scan(&DATA,1,.); %let MEM=%scan(&DATA,2,.); %end; proc datasets nolist lib=&LIB; modify &MEM; %if (%scan (&indexvar,2) eq ) %then index create &indexvar; %else index create order=(&indexvar); ; run; %mend orderidx;