- %macro match;
- proc sql noprint;
- select key_words into:key
- separated by ' '
- from c1;
- quit;
- %let key=&key;
- %put &key;
- %do i=1 %to 338;
- %let key&i=%sysfunc(scan(&key,&i,' '));
- %put &&key&i;
- %end;
- data step1;
- set r1;
- %do i=1 %to 338;
- m&i=%sysfunc(kindex(OFFICEADD,"&&key&i"))
- %put &&key&i;
- %end;
- run;
- %mend match;
- %match;