Type : CREATION_INTERNE
Data is provided directly via macro parameters (`str` and `dlm`). No external file or SAS library is read.
| 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; |