call symput ne me renvoie pas de variable

Version imprimable

Bonjour,

J'ai un souci avec mon programme ci-dessous.

Je teste avec une odate :

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
39
40
41
42
43
44
45
46
47
48
x "setenv ODATE 2019-10-31";
 
 
data _null_;
	format 	today ddmmyy10. ;
	/*	Création des macro-variables avec adjonction des quotes pour sql oracle	*/
	today=mdy(input(substr("&ODATE.",6,2),2.),
                input(substr("&ODATE.",9,2),2.),
                input(substr("&ODATE.",1,4),4.));
 
	put "today :" today;
 
 
	/*mois de la ODATE */
 
	annee_obs = year(today);
	annee_obs1 = put(annee_obs,4.);
	MV_AN=substr(annee_obs1,3,2);
	mois= month(today);
 
	/* Ajout du 0 lorsque le mois est inférieur à 10*/
 
	if mois<10
		then 	mois_obs_0=compress('0'||mois);
		else 	mois_obs_0=cat(''||mois);
 
	MV_Echeance=compress(mois_obs_0 || MV_AN);
	MV_MOIS=mois_obs_0;
 
 	/*call symput('MVAnneeN', annee_obs);
    call symput('MVTrim', mois_obs);*/
    call symput('MV_AN', MV_AN);
	call symput('MV_MOIS', MV_MOIS);
	call symput('MV_Echeance', MV_Echeance);
	%let MV_Realisateur = Jacques Provost;
	*call symput('MV_REALISATEUR',Jacques Provost);
	/*call symput('MV_realisateur',"'"||sysget("ORA_USER_1")||"'") ;*/
	*call symput('MV_Realisateur',compress("&sysuserid.")) ;
	/*call symput('MV_Realisateur',compress("'"||"&sysuserid."||"'")) ;
 
	/*put annee_obs;*/
	put mois;
	put MV_AN;
	put MV_MOIS;
	put MV_Realisateur;
	put MV_Echeance;
 
run;

ce qui s'affiche dans le journal

Code:

1
2
3
4
5
6
7
8
9
NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column).
      158:34   159:28   
NOTE: Variable MV_Realisateur is uninitialized.
today :31/10/2019
10
19
10
.
1019

la variable MV_Realisateur ne renvoie rien. Je ne comprends pas. Vous pouvez m'aider.

Merci d'avance.

Cordialement,

12/12/2019, 13h55
olivier.decourt

Bonjour.
C'est un problème de timing.
Le %LET est exécuté immédiatement, où qu'il soit. Il n'y a donc pas d'intérêt de mettre le %LET à l'intérieur de l'étape DATA, il pourrait tout aussi bien être avant.
L'étape DATA, elle, est compilée puis exécutée. CALL SYMPUTX ne rend disponibles les macro-variables qu'il crée qu'après le RUN.
Il faut réorganiser ton programme.

Quelques astuces pour simplifier ton code

Pour appeler une macro variable dans une instruction put, on aura besoin d'utiliser &var. entre guillemets doubles.
Pour appeler une macro variable dans une instruction %put, on n'aura pas besoin des guillemets.
Pour ajouter un zéro pour un mois à un chiffre, tu peux utiliser le format z2. dans une fonction put.
Pour travailler avec des valeurs numériques, utilise call symputx (routine qui existe depuis sas 8.2) au lieu de call symput (ancienne routine).
Pour récupérer la valeur d'une macro variable dans la même étape data que celle où elle est créée, tu peux créer une variable avec la fonction symget.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 %let ODATE=2019-10-31; %let MV_Realisateur = Jacques Provost; data _null_; call symputx('MV_AN' , substr("&ODATE.",3,2)); call symputx('MV_MOIS', substr("&ODATE.",6,2)); call symputx('MV_Echeance', substr("&ODATE.",6,2) || substr("&ODATE.",3,2)); length MV_AN $2 MV_MOIS $2 MV_Echeance $4; MV_AN =symget('MV_AN'); MV_MOIS =symget('MV_MOIS'); MV_Echeance=symget('MV_Echeance'); put MV_AN; put MV_MOIS; put MV_Echeance; put "&MV_Realisateur."; run; %put &MV_Realisateur.;
Véronique