Récupérer le résultat d'une macro

**aminao** · 28/12/2011, 15h23

Bonjour,
J'ai une macro qui évalue une expression à une date, par exemple:
pour l'expression "x+y" renvoie 7. les variables x,y sont sauvegardées ds une table "tableN" qui a deux champs (variable,valeur,date)

tableN
------
Variable | Valeur | Date
--------------------------------
x 3 01JUL2008
y 4 01JUL2008

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
proc sql;
create table TableN (variable char(100),valeur int format=BESTX24.4,date int format=Date9.);
insert into TableN values ("x",3,17714);
insert into TableN values ("y",4,17714);
quit;
%macro evaluer(expression,date);
%let nbr=%sysfunc(count(&expression,-))+%sysfunc(count(&expression,+))+%sysfunc(count(&expression,/))+%sysfunc(count(&expression,*)); 
%do j=1 %to &nbr+1;
%let comp&j=%scan(&expression,&j,'+||-||*||/||(||)');
proc sql noprint;
select valeur into :val&j from TableN where variable="&&comp&j" and Date=&date;
quit;
%let k=%eval(&j-1); %let expression0=&expression;
%let valx&j=%sysfunc(compress(%sysfunc(compress(%SYSFUNC(translate("&&val&j",%str( ),%str(,))),%str(%"))),%str( )));
%let expression&j=%sysfunc(tranwrd(&&expression&k,&&comp&j,&&valx&j));
%end;
%let n=%eval(&nbr+1);
%let expression=%sysevalf(&&expression&n);
&expression
%mend;
%evaluer(x+y,17714);

le programme évalue bien le résultat mais il déclenche une erreur à cause de la denière ligne avant %mend que j'ai ajoutée pour me renvoyer le résultat et l'utiliser dans une autre macro %test

Code :

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

1
2
3
4
5
6
7
8
9
%macro test();
%evaluer(x+y,17714);
%if &expression=7 %then %do;
proc sql;
select * from bib_sm.data_etp1;
quit;
%end;
%mend;
%test;

Merci bien pour vos réponses d'avance.

**s_a_m** · 28/12/2011, 15h36

car ce que t'as is ici :

Code :

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

1
2
3
&expression%mend;
%evaluer(x+y,17714);

n'as pas de sens;
- déjà dans SAS, toutes instructions /expression se terminent par un ";" .
c'est peut être :

Code :

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

1
2
 
%put &expression.;

que tu veux mettre ?

**aminao** · 28/12/2011, 16h07

Bonjour,
je veux récupérer le résultat renvoyé (et non l'afficher) pour l'utiliser dans un autre macro programme. J'ai ajouté cette ligne d'apèrs une discussion sur ce forum.

**bahraoui** · 28/12/2011, 16h15

Avec la création d'une macro variavle exp

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
27
28
29
30
31
32
33
34
 
proc sql;
CREATE TABLE TableN (variable char(100),valeur int format=BESTX24.4,date int format=Date9.);
INSERT INTO TableN VALUES ("x",3,17714);
INSERT INTO TableN VALUES ("y",4,17714);
quit;
option mprint;
%global exp;
%macro evaluer(expression,date);
%let nbr=%sysfunc(count(&expression,-))+%sysfunc(count(&expression,+))+%sysfunc(count(&expression,/))+%sysfunc(count(&expression,*)); 
%do j=1 %TO &nbr+1;
	%let comp&j=%scan(&expression,&j,'+||-||*||/||(||)');
	proc sql noprint;
	SELECT valeur INTO :val&j FROM TableN WHERE variable="&&comp&j" AND Date=&date;
	quit;
	%let k=%eval(&j-1); %let expression0=&expression;
	%let valx&j=%sysfunc(compress(%sysfunc(compress(%SYSFUNC(translate("&&val&j",%str( ),%str(,))),%str(%"))),%str( )));
	%let expression&j=%sysfunc(tranwrd(&&expression&k,&&comp&j,&&valx&j));
%end;
%let n=%eval(&nbr+1);
 
%let exp=%sysevalf(&&expression&n);
 
%mend;
%macro test();
 %evaluer(x+y,17714);
 %put expression &exp;
%IF &exp=7 %then %do;
proc sql;
SELECT * FROM bib_sm.data_etp1;
quit;
%end;
%mend;
%test;

**olivier.decourt** · 28/12/2011, 16h25

Bonjour.
Ce n'est pas la macro-fonction %EVALUER qui génère une erreur, mais la façon dont tu t'en sers ensuite.
Puisque tu veux en faire une fonction, ce qui est une bonne idée, tu récupères directement une valeur quand tu exécutes. Pas une macro-variable comme &EXPRESSION.
Donc c'est ton %IF qui est incorrect car la macro-variable &EXPRESSION, locale à la macro-fonction %EVALUER, est inconnue du macro-programme %TEST.

Soit tu crées une macro-variable globale comme le propose Bahraoui, soit tu restes sur son idée de macro-fonction mais tu t'en sers directement dans le %IF.

Code :

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

1
2
3
4
5
6
7
8
%macro test();
%IF %evaluer(x+y,17714)=7 %then %do;
proc sql;
SELECT * FROM bib_sm.data_etp1;
quit;
%end;
%mend;
%test;

**s_a_m** · 28/12/2011, 16h31

Je n'ai pas regardé la suite

.

**bahraoui** · 28/12/2011, 16h32

Salut Olivier,

Je l'ai fait aussi selon ta méthode avant de proposer la solution avec la macro variable, mais ça ne marche pas!!!
LOG

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
 
 
1    proc sql;
2    CREATE TABLE TableN (variable char(100),valeur int format=BESTX24.4,date int format=Date9.);
NOTE: La table WORK.TABLEN a été créée, avec 0 lignes et 3 col.
3    INSERT INTO TableN VALUES ("x",3,17714);
NOTE: 1 ligne a été insérée dans WORK.TABLEN.
 
4    INSERT INTO TableN VALUES ("y",4,17714);
NOTE: 1 ligne a été insérée dans WORK.TABLEN.
 
5    quit;
NOTE: La procédure SQL a utilisé (Durée totale du processus) :
      temps réel                   0.01 secondes
      temps processeur   0.00 secondes
 
 
6    %macro evaluer(expression,date);
7    %let nbr=%sysfunc(count(&expression,-))+%sysfunc(count(&expression,+))+%sysfunc(count(&expression,/))+%sysfunc(count(&expression,*));
8    %do j=1 %TO &nbr+1;
9    %let comp&j=%scan(&expression,&j,'+||-||*||/||(||)');
10   proc sql noprint;
11   SELECT valeur INTO :val&j FROM TableN WHERE variable="&&comp&j" AND Date=&date;
12   quit;
13   %let k=%eval(&j-1); %let expression0=&expression;
14   %let valx&j=%sysfunc(compress(%sysfunc(compress(%SYSFUNC(translate("&&val&j",%str( ),%str(,))),%str(%"))),%str( )));
15   %let expression&j=%sysfunc(tranwrd(&&expression&k,&&comp&j,&&valx&j));
16   %end;
17   %let n=%eval(&nbr+1);
18   %let expression=%sysevalf(&&expression&n);
19   &expression
20   %mend;
21   %macro test();
22
23   %IF %evaluer(x+y,17714)=7 %then %do;
24   proc sql;
25   SELECT * FROM bib_sm.data_etp1;
26   quit;
27   %end;
28   %mend;
29   %test;
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
ERREUR: Opérande caractère trouvé dans la fonction %EVAL ou condition %IF là où un opérande numérique est requis. La condition était : &val1+&val2
ERREUR: L'exécution de la macro EVALUER va s'arrêter.
 
30   %macro test();
31
32   %IF %evaluer(x+y,17714)=7 %then %do;
33   proc sql;
34   SELECT * FROM bib_sm.data_etp1;
35   quit;
36   %end;
37   %mend;
38   %test;
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL1 non traitée.
AVERTISSEMENT: Référence symbolique apparente VAL2 non traitée.
ERREUR: Opérande caractère trouvé dans la fonction %EVAL ou condition %IF là où un opérande numérique est requis. La condition était : &val1+&val2
ERREUR: L'exécution de la macro EVALUER va s'arrêter.

**aminao** · 28/12/2011, 16h52

Bonjour,

La solution de Bahraoui marche bien, merci tous.

Récupérer le résultat d'une macro

Macro

Discussions similaires

Partager

Partager