Récupération valeur fonction dans macro-variable

**Filippo** · 15/01/2010, 18h06

Bonsoir,

La fonction suivante fonctionne très bien :

Code :

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

1
2
3
4
5
6
proc fcmp outlib=sasuser.MyFunctions.FonctionsDiverses;
 
	function NomTableFromFichier(NomFichierSource $) $;
		return(compress(substr(NomFichierSource,9,8) || put(DATE(),ddmmyy6.)));
	EndSub;
run;

Code :

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

1
2
3
4
5
6
7
dm log 'clear';
data _null_;
	nom='K2811475CERTI44UCANS4CER44';
	nomT=NomTableFromFichier(nom);
	put nom=;
	put nomT=;
run;

Produit bien :

nom=K2811475CERTI44UCANS4CER44
nomT=CERTI44U150110

Maintenant j'essaie d'appliquer cette fonction à une macro-variable et de récupérer le résultat dans une macro-variable :

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
 
%let fichierATraiter=K2811475CERTI44UCANS4CER44;
dm log 'clear';
options cmplib=sasuser.MyFunctions;
 
%global nomTable;
%global TableDonnees;
%global TableContraintes;
%global TableCoherencesI;
 
option nomprint;
data _null_;
	nomTable=NomTableFromFichier(&fichierATraiter);
	TableDonnees=D_"&nomTable";
	TableContraintes=CT_"&nomTable";
	TableCoherencesI=CI_"&nomTable";
 
	put nomTable=;
	put TableDonnees=;
	put TableContraintes=;
	put TableCoherencesI=;
 
 
	Call Symput('nomTable',nomTable);
	Call Symput('TableDonnees',TableDonnees);
	Call Symput('TableContraintes',TableContraintes);
	Call Symput('TableCoherencesI',TableCoherencesI);
run;
 
%LectureDonnees("&fichierComplet", "&TableDonnees");

Là ça ne marche plus, j'obtiens :

3190 nomTable=compress(substr(&fichierATraiter,9,8) || put(DATE(),ddmmyy6.))
SYMBOLGEN : Macro variable FICHIERATRAITER traitée dans 'K2811475CERTI44UCANS4CER44'
3191 TableDonnees=D_"&nomTable";
------------
22
SYMBOLGEN : Macro variable NOMTABLE traitée dans 5CERTI44 || put(DATE(),ddmmyy6.)
ERROR 22-322: Erreur de syntaxe ; syntaxe requise : !, !!, &, *, **, +, -, /, ;, <, <=, <>, =,
>, ><, >=, AND, EQ, GE, GT, IN, LE, LT, MAX, MIN, NE, NG, NL, NOTIN, OR, ^=, |,
||, ~=.

NOTE: Ligne générée par la variable macro "NOMTABLE".
1 "5CERTI44 || put(DATE(),ddmmyy6.)
----------------------------------
22
ERROR 22-322: Erreur de syntaxe ; syntaxe requise : !, !!, &, *, **, +, -, /, <, <=, <>, =, >,
><, >=, AND, EQ, GE, GT, LE, LT, MAX, MIN, NE, NG, NL, OR, ^=, |, ||, ~=.

J'ai également essayé directement :

Code :

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

%let nomTable=%sysfunc(NomTableFromFichier(&fichierATraiter));

qui produit

3120 %let nomTable=%sysfunc(NomTableFromFichier(&fichierATraiter));
SYMBOLGEN : Macro variable FICHIERATRAITER traitée dans 'K2811475CERTI44UCANS4CER44'
ERROR: La fonction NOMTABLEFROMFICHIER référencée dans la fonction macro %SYSFUNC ou %QSYSFUNC
est introuvable.

Je tourne en rond depuis 1h00, si quelqu'un a une idée ça me dépannerait bien.

Merci.

**xav2229** · 15/01/2010, 18h19

salut,

je propose :

Code :

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

1
2
3
4
 
DATA _null_;
	nomTable=NomTableFromFichier("&fichierATraiter");
(etc.)

xav

**Filippo** · 15/01/2010, 18h27

Merci Xav,
en effet j'avais oublié les guillemets.

Là ça me crée une table vide nommée Certi44.

Avec un message d'erreur :

data _null_;
3261 nomTable=NomTableFromFichier("&fichierATraiter");
SYMBOLGEN : Macro variable FICHIERATRAITER traitée dans 'K2811475CERTI44UCANS4CER44'
3262 TableDonnees=D_"&nomTable";
SYMBOLGEN : Macro variable NOMTABLE traitée dans 5CERTI44 || put(DATE(),ddmmyy6.)
NOTE: Ligne générée par la variable macro "NOMTABLE".
1 "5CERTI44 || put(DATE(),ddmmyy6.)
---------------------------------
22
ERROR 22-322: Erreur de syntaxe ; syntaxe requise : !, !!, &, *, **, +, -, /, <, <=, <>, =, >,
><, >=, AND, EQ, GE, GT, LE, LT, MAX, MIN, NE, NG, NL, OR, ^=, |, ||, ~=.

Même résultat en faisant tout simplement :

Code :

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

1
2
3
4
5
6
dm log 'clear';
%let nomTable=%substr("&fichierATraiter",9,8) || put(DATE(),ddmmyy6.);
%let TableDonnees=D_"&nomTable";
 
 
%LectureDonnees("&fichierComplet", "&TableDonnees");

Je pense que c'est la partie date du jour qui n'est pas évaluée.

**datametric** · 16/01/2010, 12h03

Salut Filippo

J'ai corrigé ce code mais je n'ai pas vu de lien avec l'appel macro final. j'espère ne pas avoir fait un hors sujet.
Tu avais trois fois la même erreur dans l'étape DATA.

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
proc fcmp outlib=work.MyFunctions.FonctionsDiverses;
 
	FUNCTION NomTableFromFichier(NomFichierSource $) $;
		RETURN(compress(substr(NomFichierSource,9,8) || put(DATE(),ddmmyy6.)));
	EndSub;
run;

options cmplib=work.MyFunctions;

dm log 'clear';
DATA _null_;
	nom='K2811475CERTI44UCANS4CER44';
	nomT=NomTableFromFichier(nom);
	put nom=;
	put nomT=;
run;



%let fichierATraiter=K2811475CERTI44UCANS4CER44;
dm log 'clear';
 
%global nomTable;
%global TableDonnees;
%global TableContraintes;
%global TableCoherencesI;
 
OPTION nomprint;
DATA _null_;
	nomTable=NomTableFromFichier("&fichierATraiter");
	TableDonnees=cats("D_","&nomTable");
	TableContraintes=cats("CT_","&nomTable");
	TableCoherencesI=cats("CI_","&nomTable");
 
	put nomTable=;
	put TableDonnees=;
	put TableContraintes=;
	put TableCoherencesI=;
 
 
	Call Symput('nomTable',nomTable);
	Call Symput('TableDonnees',TableDonnees);
	Call Symput('TableContraintes',TableContraintes);
	Call Symput('TableCoherencesI',TableCoherencesI);
run;