Type : CREATION_INTERNE
Die Verarbeitung ist rein makro-textuell und manipuliert keine SAS-Tabellen.
| 1 | %macro AHGwords(word,n,base=1); |
| 2 | %local AHG4I; |
| 3 | %IF not %index(&word, @) %THEN %let word=&word @; |
| 4 | %IF %AHGcount(&n)=1 %THEN |
| 5 | %DO AHG4I=%eval(&base) %to %eval(&n+&base-1); |
| 6 | %sysfunc(tranwrd(&word, @,&AHG4i)) |
| 7 | %END; |
| 8 | %ELSE |
| 9 | %DO AHG4i=1 %to %AHGcount(&n) ; |
| 10 | %sysfunc(tranwrd(&word, @,%scan(&n,&AHG4i))) |
| 11 | %END; |
| 12 | |
| 13 | %mend; |