Discussion :

[aminao]

Bonjour,

Je voudrais réaliser une macro qui me retourne 1 si la variable existe dans la colonne indiquée de la table et 0 sinon, j'ai fé la macro suivante mais il y'a un prob. Merci bien d'avance pour votre aide.

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
%macro VarExiste(table,colonne,variable);
proc sql;
select count(*) into :nb from &table;
select &colonne into :val separated by '|' from &table;
quit;
%do i=1 %to &nb;
%let var&i=%scan(&val,&i,'|');
%if &variable=&&var&i %then %do;
      %let existe=1;
%end;
%else %do;
      %let existe=0;
%end;
%end;
&existe 
%mend;
%VarExiste(sasuser.teste,code_ind,Ind1);

[s_a_m]

Ce sujet est déjà été traité ICI. Merci de faire une petite recherche.

[aminao]

Cette macro permet bien de chercher si la valeur existe ou non dans la colonne de la table "table" . Mais je veux récupérer la valeur retournée (0 ou 1) pour l'utiliser dans un test conditionnel IF après c'est pourqui j'ai ajouté la ligne avant dernière '&resultat' pour me retourner 0 ou 1 mais ca marche pas

[MEGAMIND2]

Bonjour,
J'ai pratiquement pas touché à ton programme:

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
data toto;
input age;
cards;
48
78
96
69
;
run;
 
%macro VarExiste(TABLE,colonne,variable);
proc sql noprint;
SELECT count(*) INTO :nb FROM &TABLE;
SELECT &colonne INTO :val separated BY '|' FROM &TABLE;
quit;
%do i=1 %TO &nb;
%let var&i=%scan(&val,&i,'|');
%IF &variable=&&var&i %then %do;
      %let existe=1;
%end;
%else %do;
      %let existe=0;
%end;
%end;
%let resultat=&existe.;
%put resultat=&resultat.;
%mend;
%VarExiste(toto,age,69);

[aminao]

mais quand je veux utiliser la valeur retournée par la macro dans un %IF ca marche pas

Code :

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

1
2
3
4
5
6
7
8
%macro test;
%if %VarExiste(toto,age,69) %then %do;
proc sql; 
select * from toto;
quit;
%end;
%mend;
%test;

[MEGAMIND2]

Normal que ça ne marche pas puisque la première macro ne retourne pas 0 ou 1, donc il faut tester la valeur de résultat pour effectuer la suite de l’opération

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
DATA toto;
input age;
cards;
48
78
96
69
;
run;
 
%macro VarExiste(TABLE,colonne,variable);
proc sql noprint;
SELECT count(*) INTO :nb FROM &TABLE;
SELECT &colonne INTO :val separated BY '|' FROM &TABLE;
quit;
%do i=1 %TO &nb;
%let var&i=%scan(&val,&i,'|');
%IF &variable=&&var&i %then %do;
      %let existe=1;
%end;
%else %do;
      %let existe=0;
%end;
%end;
%let resultat=&existe.;
%put resultat=&resultat.;
 
%IF &resultat=1 %then %do;
proc sql; 
create table tr_5 as
SELECT * FROM toto;
quit;
%end;
%mend;
%VarExiste(toto,age,10);
 
 
%VarExiste(toto,age,69);

[aminao]

Apparement, j'étais po assez claire, je veux utiliser %varexiste() dans une autre macro , autrement dire faire appel de cette macro dans un %if qui appartient à un autre programme, c'est pourquoi j'ai besoi que cette macro me retourne une valeur

[MEGAMIND2]

Retourner un résultat, je sais pas faire mais à defaut tu peux faire ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
%global resultat;
 
%macro test;
%IF &resultat=1 %then %do;
proc sql;
create table ttt as 
SELECT * FROM toto;
quit;
%end;
%mend;
%test;

[bahraoui]

Un code plus simple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
%macro VarExiste(TABLE,variable);
option mprint;
%global res;
%let res=0;
proc contents data=&table out=res_cont noprint; run;
proc sql;
SELECT count(*) INTO :res  FROM res_cont where NAME=%upcase("&variable");
quit;
%mend;
%VarExiste(sashelp.adomsg,text);
%put &res;