Création de variables dans un Array à partir de macro variables [Résolu]

[gui82]

Bonjour,
J'essaie d'automatiser un code qui permet, à partir d'une liste de variable de faire différents calculs.

Dans mon cas:
La table Table_Com contient une colonne age (de 0 a 120), et une colonne lx_TD contenant des valeurs associées à chaque age.
Je crée 120 macros variables (lxtd1, lxtd2,...) à partir des 120 ages.
Je voudrais dans un array créer des nouvelles variables à partir de ces macros variables.
J'ai plusieurs calculs à faire plus ou moins simples à partir de ces 120 macros variables, par exemple je voudrais ensuite créer une variable qui dépend de deux indices différents:
qi=lxtd(i+1)/lxtdi. Voila pourquoi je voudrais passer par une boucle et non pas faire 120 cas pour chaque calcul.

Dans l'exemple qui suit j'essaie simplement d'attribuer à 120 nouvelles variables les 120 macros variables existantes, mais ça ne fonctionne pas.

Code SAS:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DATA Table_Com;
SET Table_Com;
call symput(COMPRESS("lxtd"!!age), lx_TD);
run;
 
 
%macro a();
DATA Table_test;
SET TABLE;
array lx(120);
 
		%do i=1 %TO 120;
		lx(i)=&&lxtd&i.;
		/*lx(i)=symget("lxtd"!!LEFT(&i.));*/
		%end;
 
run;
%mend;

Voila le message d'erreur:

Code :

1
2
3
4
5
6
7
8
NOTE: Ligne générée par la variable macro "I".
1     &lxtd118.
      -
      386
       --------
       201
AVERTISSEMENT: Référence symbolique apparente LXTD118 non traitée.
NOTE: Ligne générée par la variable macro "I".

Pouvez m'aider ou m'indiquer quelques pistes s'il vous plaît?

Merci.

[bahraoui]

Est ce que tu es sur d'avoir créer 120 macro variables?
Tu peux afficher la 118, 119 et la 120?

[MEGAMIND2]

Bonjour,
Il faut indicer chacune de tes macro-variables comme suit:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
DATA Table_Com;
do i=1 TO 120;
age=ranuni(13);
output;
end;
run;
DATA _null_;
SET Table_Com;
call symput('age'||LEFT(_n_), age);
call symput('nb', _n_);
run;
/* affichage dans l'output*/
%MACRO M;
%do i=1 %TO &nb.;
%PUT age&i.=&&age&i.;
%end;
%MEND;
%M;

Mais la solution adaptée à ton pb :

Code :

1
2
3
4
5
6
7
8
9
 
DATA Table_test;
SET Table_Com;
array age2(*) age; 
	do i=1 TO dim(age2);
		lx=age2(i);
	end;
 
run;

Il n'est pas nécessaire d'utiliser des vecteurs dans ce cas, mais si c'est pour ta culture générale, why not?

[MEGAMIND2]

Un bon exemple pour comprendre (à partir de n dates de naissance, tu générées n ages):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DATA age;
input dt_nais1 dt_nais2 dt_nais3 dt_nais4;
format dt: date9.;
cards;
456 1589 158 2765
;
run;
 
DATA ag2;
SET age;
array dt[*] dt_nais1-dt_nais4;
array age[*] age1-age4;
do i=1 TO dim(age);
age[i]=int((today()-dt[i])/365);
end;
DROP i;
run;

[gui82]

Bonjour,
Tout d'abord merci pour vos réponses, bahraoui tu as raison j'avais mal déclaré mes macro-variables, mais même après les avoir créé mon code ne fonctionne pas.
MEGAMIND j'ai utilisé call symput('age'||LEFT(_n_), age); pour créer mes macros variables comme tu me l'as indiqué, et je penses avoir compris le fonctionnement de l'array, mais je n'arrive pas à résoudre mon problème:

Tout d'abord je crée 100 macro variables indicées de 1 a 100, par exemple macro1, macro2.....
J'ai un tableau de 100 observations, dans lequel je veux ajouter une colonne QX contenant ces 100 macros variables.
Dans ma première ligne je veux mettre &macro1. dans la variable QX, dans la deuxième ligne &macro2. dans la variable QX, et ainsi de suite

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
DATA TABLE;
SET TABLE;
array varr(*)
		QX;
 
 
		do i=1 TO dim(varr);
 
			varr(i)=&&macro&i..;
 
 
		end;
run;

[bahraoui]

La langage base ne contrôle pas le macro langage.
Le langage macro est exécuté avec le langage base.
C'est un peu compliquer à expliquer
Ci-dessous un exemple avec ce que tu veux faire

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
 
DATA a;
a=1;output;
a=2;output;
run;
 
DATA _null_;
SET a;
call symput("mac"||LEFT(trim(_n_)),a);
call symput("nb",_n_);
run;
%macro r;
 
DATA t;
array t(2);
 
	%do i=1 %TO &nb;
		%put &&mac&i.;
		t(&i)=&&mac&i.;
	%end;
run;
 
%mend;
%r;

[olivier.decourt]

Ou bien

Code :

1
2
3
do i=1 TO dim(varr);
  varr(i)=SYMGET(COMPRESS("macro"!!i)) ;
end;

Tout le souci, comme le dit bien Bahraoui, vient du fait que le langage macro et le langage SAS fonctionnent sur des plans séparés, et le langage macro toujours en premier, avant l'exécution de ton étape DATA. Donc le &i ne peut pas être la valeur du compteur de boucle.

[gui82]

Merci j'ai maintenant mieux compris le fonctionnement de l'array.

Dans le programme que je fais je voudrais utiliser des macros dans mon array.
Je veux créer une nouvelle variable qui dépend de plusieurs autres variables de ma table.
Est ce que je dois créer mes macros dans mon array ou en dehors?
Mon programme fonctionne mais est-ce déconseillé?
D'avance merci.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
/*Age et coeff sont des variables de ma table*/
DATA Tab;
SET Tab;
array qx(1);
 
do i=1 TO dim(qx);
 
%macro calc;
	%do j=0 %TO 100;
		IF Age=&j. then do; qx(i)=qx_&j.*coeff; end;
	%end;
%mend;
 
%calc;
 
end;
run;