Discussion :

[Doberman121]

Bonjour

Je souhaite transformer les données de plusieurs variables d'une table en transformant les valeurs "VRAI" par 1 et les variables "FAUX" par 0 pour chaque variable.
Je souhaiterai faire cela à l'aide d'une macro.
Je suis stoppé net par une erreur :

"ERROR: A character operand was found in the %EVAL function or %IF condition where a numeric operand is required. The condition was:
1 to
ERROR: The %FROM value of the %DO I loop is invalid.
ERROR: The macro VRAIF_NUM will stop executing."

Si vous pouviez me dire où se trouve le pb dans mon code je vous en serais très reconnaissant .

Ci après mon code

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
22
23
24
25
 
 
%MACRO VRAIF_NUM; 
%Let variable = A_B B_C D_E F_G ;
 
DATA = _NULL_;
ARRAY VECTEUR &variable; 
CALL SYMPUT ('nombre',dim(vecteur));
RUN; 
%PUT &NOMBRE; 
 
    %Do i=1 to %to &NOMBRE; 
                %LET extract=%SCAN(&variable;&i);
                    %IF &extract = 'VRAI' %THEN %LET &extract.N = 1; 
                    %IF &extract  ='FAUX' %THEN %LET &extract.N = 0; 
        %END; 
 
%MEND VRAIF_NUM; 
 
DATA Work.Test2; 
SET Work.Test1; 
 
%VRAIF_NUM ;
 
RUN;

[Doberman121]

j'ai trouvé une méthode qui fonctionne sans passer par une macro :

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
 
DATA work.Test2; 
SET work.Test1; 
 
 
 
ARRAY variable {*} A_B C_D E_F G_H;
 
Do i=1 to dim(variable);
 	If variable{i} = 'VRAI' THEN variable{i} = 1;
	ELSE IF variable{i} = 'FAUX' THEN variable{i} = 0;
 
END; 
 
RUN;

je reste toutefois preneur d'une solution en passant par une macro :-)

[ANL_55]

Avec une macro

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
22
23
24
25
26
%MACRO VRAIF_NUM(entre=, sortie=); 
/*liste des variables*/
proc contents data=&entre out=tab(keep=NAME) noprint ; 
run;
proc sql noprint;
select * into:variable separated by ' ' from tab;
quit;
 
/*nombre de variables*/
DATA _NULL_;
ARRAY VECTEUR &variable; 
CALL SYMPUT ('nombre',dim(vecteur));
RUN; 
 
/*transformation*/
data &sortie ;
SET &entre ;
%DO i=1 %TO &NOMBRE ; 
	%LET extract=%SCAN(&variable,&i);
	IF &extract ="VRAI" THEN &extract.N ="1"; 
	IF &extract ="FAUX" THEN &extract.N ="0";
%END; 
run;
%MEND VRAIF_NUM; 
 
%VRAIF_NUM(entre=work.test1, sortie=work.test2);