Type : CREATION_INTERNE
Die Daten werden direkt über die Makroparameter (`str` und `dlm`) bereitgestellt. Es wird keine externe Datei oder SAS-Bibliothek gelesen.
| 1 | %macro AHGindex2(str,dlm); |
| 2 | %local i one RESULT; |
| 3 | %let RESULT=0; |
| 4 | %DO i=1 %to %LENGTH(&str); |
| 5 | %IF %qsubstr(&str,&i,1) = &dlm and (&RESULT=0) and (&one=1) %THEN %let RESULT=&i; |
| 6 | %IF %qsubstr(&str,&i,1) eq &dlm %THEN %let one=1; |
| 7 | %END; |
| 8 | &RESULT |
| 9 | %mend; |