Recherche d'une valeur dans une colonne d'une table

[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 :

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 :

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 :

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 :

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 :

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 :

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;