Type : CREATION_INTERNE
El script define una macro de utilidad. No lee datos directamente, sino que manipula variables pasadas como argumento dentro de un paso Data que la llama.
| 1 | %macro AHGalign(allvar); |
| 2 | %local var i; |
| 3 | %DO i=1 %to %AHGcount(&allvar); |
| 4 | %let var=%scan(&allvar,&i); |
| 5 | &var=PRXCHANGE('s/\s*(\d+)\s*\((\S*)\s*\)/\1 (\2)/',-1,&var); |
| 6 | &var=PRXCHANGE('s/(\b\d\b)/ \1/',-1,&var); |
| 7 | &var=PRXCHANGE('s/(\b\d\d\b)/ \1/',-1,&var); |
| 8 | &var=PRXCHANGE('s/(\.\s*)/./',-1,&var); |
| 9 | %END; |
| 10 | %mend; |