Discussion :

[Filippo]

Bonjour,
Je souhaiterais modifier le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
%Macro IsNumeric(MyTable, MyVar);
	data _null_;
		set &MyTable;
		IF NOT %Datatyp(&MyVar)=NUMERIC
			THEN PUT 'ATTENTION : ' &MyVar ' n''est pas numérique pour l''observation '
			_N_;
	run;
%mend;
 
%IsNumeric(l.Corps, Code);

Pour récupérer dans la log

ATTENTION : Code n'est pas numérique pour l'observation 3.

au lieu de

ATTENTION : 10 n'est pas numérique pour l'observation 3.

Merci

[RemiBousquet]

Tentative de réponse en langage SAS :

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
%let myvar = VARNAME ; 
option nonotes nomprint nomlogic nosource nosymbolgen ;
data _null_;
    &MYVAR = 10 ;   
     PUT / "1- Code origine" ;
     PUT 'ATTENTION : ' &MyVar ' n''est pas numérique pour l''observation ' ;
 
     PUT / "2- &myvar réintégré dans la quote, pour être utilisée comme texte à afficher" ;
     PUT 'ATTENTION : &MyVar n''est pas numérique pour l''observation ';
 
     PUT / "3- simple quote remplacée par double quote, pour que la macro variable soit résolue" ;
     PUT "ATTENTION : &MyVar n'est pas numérique pour l'observation ";
 
     PUT / "4- Variantes : modification de couleur en utilisant les mots clefs WARNING et ERROR" ;     
     PUT "WARNING: &MyVar n'est pas numérique pour l'observation ";
     PUT "WARNING- Attention : &MyVar n'est pas numérique pour l'observation ";
     PUT "ERROR: &MyVar n'est pas numérique pour l'observation ";
     PUT "ERROR- Attention : &MyVar n'est pas numérique pour l'observation ";
     PUT / "   (Le code de 4- est à modifier selon le langage de SAS (WARNING->ATTENTION, ERROR->ERREUR)";   
run ;

[Filippo]

Merci beaucoup Rémi,
j'ai adopté l'option 4, ça marche aussi en mettant ATTENTION au lieu de WARNING :

Code :

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

1
2
3
4
5
6
7
8
9
%Macro IsNumeric(MyTable, MyVar);
	data _null_;
		set &MyTable(obs=10);
		IF %Datatyp(&MyVar)=NUMERIC
			THEN PUT "ATTENTION : &MyVar n'est pas numérique pour l'observation " _N_;
	run;
%mend;
 
%IsNumeric(l.Corps, Code);