Expliquer le code de la Transformation des colonnes caractère en numerique

Bonjour,
J'ai récupéré ce code sur ce site et il marche très bien .
je veux comprendre comment il marche, j'ai essayé mais c'est un peu complexe pour moi.

Ya t-il quelqu'un pour m'aider à le comprendre ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
%MACRO TO_CHAR;
 PROC SQL NOPRINT ;
            SELECT NAME, '_'!!NAME ,MAX (MONOTONIC()) INTO: OLD_VAR SEPARATED BY ',',: NEW_VAR SEPARATED BY ','  ,: NBR 
            FROM DICTIONARY.COLUMNS WHERE UPCASE (LIBNAME)='WORK' AND UPCASE (MEMNAME)='ma_table' AND UPCASE (TYPE)='NUM';
QUIT;
 
data table_sortie ( drop  =  %do i=1 %to &nbr. ; %scan("&new_var",&i,",") %end;);
SET ma_table (  RENAME=( %DO I=1 %TO &NBR. ; %SCAN("&OLD_VAR",&I,",")=%SCAN("&NEW_VAR",&I,",") %END; )  );
 
            %DO I=1 %TO &NBR.;
                  %SCAN("&OLD_VAR",&I,",")=PUT(%scan("&NEW_VAR",&I,","), BEST.);
 
            %END;			 
RUN;
%MEND;

Merci

Bonjour,
tout d'abord, cette macro ne transforme pas des variables caractères en numériques, mais l'inverse
(je reproduis le code ci-dessous avec une indentation facilitant la lecture, et, donc, la compréhension)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 %MACRO TO_CHAR; PROC SQL ; SELECT NAME, '_'!! NAME , MAX (MONOTONIC()) INTO: OLD_VAR SEPARATED BY ',', : NEW_VAR SEPARATED BY ',' , : NBR FROM DICTIONARY.COLUMNS WHERE UPCASE (LIBNAME)='WORK' AND UPCASE (MEMNAME)='ma_table' AND UPCASE (TYPE)='NUM'; QUIT; data table_sortie ( drop = %do i=1 %to &nbr. ; %scan("&new_var",&i,",") %end;); set ma_table ( RENAME=( %DO I=1 %TO &NBR. ; %SCAN("&OLD_VAR",&I,",")=%SCAN("&NEW_VAR",&I,",") %END; ) ); %DO I=1 %TO &NBR.; %SCAN("&OLD_VAR",&I,",")=PUT(%scan("&NEW_VAR",&I,","), BEST.); %END; run;; %MEND;
La première partie (PROC SQL) utilise la table DICTIONARY.COLUMNS qui contient la liste des variables numériques de la table 'ma_table' . Les trois lignes du "SELECT" ont pour objectif de créer 3 macro-variables :
- macro-variable OLD_VAR qui correspond à la liste des (noms de) variables numériques de 'ma_table' (macro-variable créée à partir de la variable SAS NAME de la table DICTIONARY.COLUMNS)
- macro-variable NEW_VAR qui correspond à la liste des (noms de) variables numériques de 'ma_table' préfixés par "_"
- macro-variable NBR qui correspond au nombre de variables numériques de 'ma_table' (qu'on obtient en calculant le numéro de ligne max de la table DICTIONARY.COLUMNS)

Dans l'étape DATA qui suit, on renomme, dans la table 'ma_table', les variables numériques (une par une) : les "old_var" sont renommées en "new_var". Par exemple, si la table contient la variable numérique "numero", elle sera renommée en "_numero".

Puis chaque variable numérique est convertie en caractères. Par exemple, pour la variable "numero", le code

Code:

%SCAN("&OLD_VAR",&I,",")=PUT(%scan("&NEW_VAR",&I,","), BEST.);

sera interprété par :

Code:

numero=PUT(_numero, BEST.);

Enfin, la partie "drop" permet de supprimer, une par une, les variables de la liste "new_var" (ainsi, la variable "_numero", dont on n'a plus besoin, sera supprimée)

Merci bq c'est très clair