call symput dans une macro

Bonjour à tous,

J'aurai besoin de vos lumières, je bloque sur un call symput dans un macro programme... Chose étrange, ca fonctionne bien qd je sors du macro prg..???

voila mon code:

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

%macro transp(trspvar=,subtrspvar=, indata=); proc sql noprint; create table NBGRP as select distinct count (distinct &trspvar.) as TOTNBGRP, &trspvar. from &indata. ; quit;   data _null_; set NBGRP; call symput("GRPNB"||compress(put(_N_,1.)),put(VISITNUM,3.)); run;   /* proc sql; %do i=1 to &nbsubgrp. select count (distinct &subtrspvar.) into :nbsubgrp&i. from &indata.(where=()) ; */ %mend transp;   %transp(trspvar=VISITNUM,subtrspvar=CATEG,indata=TAB9);     %put _user_;     data _null_; set NBGRP; call symput("GRPNB"||compress(put(_N_,1.)),put(VISITNUM,3.)); run; %put _user_;

---

le put(_n_,1.) ne pose pas de soucis, j'ai deux lignes dans ma table.

Merci d'avance,

manoutz

Pour être un peu plus précis (dsl!), le code se compile et s'éxécute sans soucis dans les deux cas. par contre dans le macro prg les deux macros variables ne sont pas créées..

Il faut déclarer tes macros variables comme "globale", pour que leur valeurs soient conservées à l'extérieur de ta macro.
A noter que ce n'est pas lié au mode de déclaration de ta macro variable (call symput).
Pour t'en convaincre, teste cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

%MACRO TEST1 ; %local macro_var_locale ; %global macro_var_globale ; data _null_; call symput ("macro_var_locale" ,"macro var valable en local uniquement"); call symput ("macro_var_globale","macro var valable en global" ); run ; %put valeur des macros var dans la macro ; %put * macro_var_locale : &macro_var_locale. ; %put * macro_var_globale : &macro_var_globale. ; %MEND ; %TEST1 ; %put valeur des macros var à l extérieur de la macro ; %put * macro_var_locale : &macro_var_locale. ; %put * macro_var_globale : &macro_var_globale. ;

---

J'ajouterai pour faire suite à la réponse de Rémi qu'en v9, tu peux aussi faire un CALL SYMPUTX, avec en 3e argument "L" si tu crées une macro-variable locale, et "G" si elle est globale. Ca évite les %LOCAL et %GLOBAL.

Merci à tous les deux, c'était effectivement ca!

par contre, en puisant dans mes lointains souvenirs, une macro variable globale est utilisable à tous niveaux du programme en cours. Or lorsque j'utilise la version d'Olivier (pratique dans le sens où je vais définir autant de macro var que de lignes dans mon fichier entrée), il semble que les macros variables aient été supprimées une fois sorti du macro programme. Par curiosité, est-ce lié au x call symputx (j'ai du mal à y croire, j'avoue...) ?

As-tu bien exécuté le code ci-dessous?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

%MACRO TEST1 ; %LOCAL macro_var_locale ; %global macro_var_globale ; DATA _null_; call symput ("macro_var_locale" ,"macro var valable en local uniquement"); call symput ("macro_var_globale","macro var valable en global" ); call symputX ("macro_var_globale2","macro auto var valable en global","G"); call symputX ("macro_var_locale2","macro auto var valable local uniquement","L"); run ; %put valeur des macros var dans la macro ; %put * macro_var_locale : &macro_var_locale. ; %put * macro_var_locale2 : &macro_var_locale2. ; %put * macro_var_globale : &macro_var_globale. ; %put * macro_var_globale2 : &macro_var_globale2. ; %MEND ; %TEST1 ; %put valeur des macros var à l extérieur de la macro ; %put * macro_var_locale : &macro_var_locale. ; %put * macro_var_locale2 : &macro_var_locale2. ; %put * macro_var_globale : &macro_var_globale. ; %put * macro_var_globale2 : &macro_var_globale2. ;

---

J'ai (à présent) essayé les deux versions. Celle de fafabzh6 fonctionne (copié collé de son code).

Par contre

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

%macro transp(trspvar=, subtrspvar=,indata=);   proc sql noprint; create table NBGRP as select distinct count (distinct &trspvar.) as TOTNBGRP, &trspvar. from &indata. ;   select distinct count (distinct &trspvar.) into: NBGRP from &indata. ; quit;   data _null_; set NBGRP; call symputx("GRPNB"||compress(put(_N_,1.)),put(VISITNUM,1.),G); run;     %put _user_; %mend transp;   %transp(trspvar=VISITNUM, subtrspvar=CATEG,indata=TAB9);   %put _user_;

---

produit toujours le même problème qu'avant ...?

As-tu bien mis les quotes entourant G car dans le cas contraire ça ne marche pas :

Code:

---

call symputx("GRPNB"||compress(put(_N_,1.)),put(VISITNUM,1.),"G");

---

Pour t'en assurer re-exécute le 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

%symdel macro_var_globale2; %symdel macro_var_globale; %symdel macro_var_locale2; %symdel macro_var_locale;   %MACRO TEST1 ; %LOCAL macro_var_locale ; %global macro_var_globale ; DATA _null_; call symput ("macro_var_locale" ,"macro var valable en local uniquement"); call symput ("macro_var_globale","macro var valable en global" ); call symputX ("macro_var_globale2","macro auto var valable en global","G"); call symputX ("macro_var_locale2","macro auto var valable local uniquement","L"); run ; %put valeur des macros var dans la macro ; %put * macro_var_locale : &macro_var_locale. ; %put * macro_var_locale2 : &macro_var_locale2. ; %put * macro_var_globale : &macro_var_globale. ; %put * macro_var_globale2 : &macro_var_globale2. ; %MEND ; %TEST1 ; %put valeur des macros var à l extérieur de la macro ; %put * macro_var_locale : &macro_var_locale. ; %put * macro_var_locale2 : &macro_var_locale2. ; %put * macro_var_globale : &macro_var_globale. ; %put * macro_var_globale2 : &macro_var_globale2. ;

---

en supprimant les quotes encadrant G dans

Code:

---

call symputX ("macro_var_globale2","macro auto var valable en global","G");

---

Bonjour,

C'était bien les quotes.

Merci à tous pour votre aide.