Type : CREATION_INTERNE
Der Code definiert ein Software-Makro und lädt oder manipuliert während seiner Kompilierung keine externen Daten direkt.
| 1 | %macro AHGaddordvar(var,ordVar); |
| 2 | %local i; |
| 3 | IF anydigit(&var) THEN |
| 4 | DO; |
| 5 | &ordvar='..'||trim(substr(tranwrd(&var,'.','..'),anydigit(&var)))||'..'; |
| 6 | |
| 7 | %DO i=0 %to 9; |
| 8 | &ordvar=tranwrd(&ordvar,".&i..",".0&i.."); |
| 9 | %END; |
| 10 | &ordvar=substr(&var,1,anydigit(&var)-1)||&ordvar; |
| 11 | END; |
| 12 | %mend; |