macro fonction personnalisée [Résolu]

[db84360]

Bonjour
je souhaite créer une 'macro fonction', j'ai presque trouvé le code que je voulais sur internet mais quand je l'adapte à mon problème ça ne marche pas. Voici ce que j'ai écrit:

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
 
%macro cherche(valeur,tab) ;
*Récupérer le(s) nom(s) du(es) champs de la TABLE 'tab'
	%let trouve=0;
    proc contents DATA = &tab noprint 
        out = CONTENTS ;
    run ;
    proc sql ;    
        SELECT DISTINCT(NAME)
        INTO   :LIST_VARIABLES
        separated BY ' '
        FROM CONTENTS
        ;
    quit ;                                           
*------------------------
		%let tabid=%sysfunc(open(&tab,i));
		%syscall SET(tabid);
		%let rec_tab=%sysfunc(fetch(&tabid));
 
*parcourir les enregistrements de la TABLE 'tab' et trouver 'valeur'
		%do %until (&rec_tab=-1);
			%IF &&&list_variables = &valeur %then %do;
				%let trouve=1;
			%end;
			%let rec_tab=%sysfunc(fetch(&tabid));
		%end;
	%let rec_tab=%sysfunc(close(&tabid));
*renvoyer 'trouve'
	%eval(&trouve);
%mend ;

Voici l'appel de la macro (dans une autre macro):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
DATA annee;
	INFILE datalines;
	input an;
datalines;
2008
2009
2010
;
run;
 
%macro test;
 %let var=%cherche(2000,annee);
 %put &var;
%mend;
%test;

et voici les messages d'erreurs...

Code :

1
2
3
4
 
WARNING: Référence symbolique apparente LIST_VARIABLES non traitée.
ERROR: Opérande caractère trouvé dans la fonction %EVAL ou condition %IF là où un opérande numérique est requis. La condition était : &&&list_variables = &valeur
ERROR: L'exécution de la macro CHERCHE va s'arrêter.

HELP!
merci

[db84360]

j'ai trouvé une solution alternative en passant en paramètre le champ dont j'ai besoin:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
%macro cherche(valeur,tab,champ) ;
	%let trouve=0;
	%let tabid=%sysfunc(open(&tab,i));
	%syscall SET(tabid);
	%let rec_tab=%sysfunc(fetch(&tabid));
	%do %until (&rec_tab=-1);
		%IF &&&champ = &valeur %then %do;
			%let trouve=1;
		%end;
		%let rec_tab=%sysfunc(fetch(&tabid));
	%end;
	%let rec_tab=%sysfunc(close(&tabid));
	%eval(&trouve);
%mend ;
 
%macro test;
	%let var=%cherche(2008,anneeiqrn,aniqrn);
	%put &var;
%mend;
 
%test;

mais je ne comprends pas pourquoi le code précédent ne fonctionne pas...
Si quelqu'un peut m'expliquer...
merci

[xav2229]

parce qu'il manque un ";" en ligne 3

[xav2229]

ton algo a pour but de trouver "2000" dans n'importe quelle variable?

si c'est cela il y a quand même plus simple

[db84360]

merci... ça marche...
et c'est pour trouver n'importe quelle valeur dans n'importe quelle table
la macro 'test' est un test.
s'il y a plus simple je suis preneur...

[xav2229]

Envoyé par db84360

c'est pour trouver n'importe quelle valeur dans n'importe quelle table.

n'importe quelle valeur de n'importe quel type dans n'importe quelle colonne de n'importe quelle table?

C'est cela? et après tu veux savoir où tu as trouvé la valeur : dans quelle ligne/colonne?

Xav

[db84360]

en fait je me suis pas servi de ce bout de programme, mais à la base c'était pour trouver la valeur dans une colonne spécifiée (ma solution alternative, que je n'ai pas utilisée non plus, était mieux... si, si!!!)
et copier l'enregistrement dans une autre table, nommée avec cette valeur.

je sais pas si je suis clair...

si tu veux je peux t'envoyer mon code complet à simplifier (je débute, c'est surement très mal écrit)