Discussion :

[belo75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jlp65]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

sera interprété par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[belo75]

Merci bq c'est très clair