Discussion :

[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 :

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
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 :

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

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 :

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
 
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 :

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

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 :

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
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 :

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

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 :

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
 
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;