Macro list2format
Ce code est également disponible en :
Type : CREATION_INTERNE
Les données utilisées pour la création du format proviennent d'une liste de valeurs passée en paramètre à la macro et traitée en interne, sans dépendance externe ou de données SASHELP.
| 1 | /*--------------------------------------------------------------------------------------* |
| 2 | Copyright 2017, Rho, Inc. All rights reserved. |
| 3 | |
| 4 | PROGRAM: list2format |
| 5 | |
| 6 | PURPOSE: Create a numeric format based on a list of values. |
| 7 | |
| 8 | INPUT: fmtname= format name |
| 9 | list= list of values |
| 10 | |
| 11 | DETAILS: |
| 12 | - list should be specified as comma-separated values enclosed in parentheses. |
| 13 | e.g., list=(ALT,BILI,CREAT). |
| 14 | |
| 15 | PROGRAM HISTORY: |
| 16 | DATE PROGRAMMER DESCRIPTION |
| 17 | --------- --------------- ------------------------------------------------------ |
| 18 | 2017-12-15 Shane Rosanbalm Create. |
| 19 | |
| 20 | *--------------------------------------------------------------------------------------*/ |
| 21 | |
| 22 | %macro list2format |
| 23 | (fmtname= |
| 24 | ,list= |
| 25 | ); |
| 26 | |
| 27 | %*--- get first item ---; |
| 28 | %local i item; |
| 29 | %let i = 1; |
| 30 | %let item = %qscan(%nrbquote(&list),&i,%str((),)); |
| 31 | |
| 32 | %*--- continue IF more items ---; |
| 33 | %DO %while(&item ne ); |
| 34 | %local list_&i; |
| 35 | %let list_&i = &item; |
| 36 | %let i = %eval(&i+1); |
| 37 | %let item = %qscan(%nrbquote(&list),&i,%str((),)); |
| 38 | %END; |
| 39 | |
| 40 | %*--- number of items found ---; |
| 41 | %local list_n; |
| 42 | %let list_n = %eval(&i-1); |
| 43 | |
| 44 | %*--- make a FORMAT ---; |
| 45 | PROC FORMAT; |
| 46 | value &fmtname |
| 47 | %DO i = 1 %to &list_n; |
| 48 | &i = "%sysfunc(strip(&&list_&i))" |
| 49 | %END; |
| 50 | ; |
| 51 | RUN; |
| 52 | |
| 53 | %mend list2format; |