Discussion :

[Elodie3483]

Bonjour,

J'ai une table TOTO :

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
 
 
data toto;
input sujet $ condition_activation $;
datalines;
01 FILLED 
01 0
01 1 
02 FILLED
03 0
04 1
05 FILLED
05 0
05 1
;
run;

Je veux récupérer toutes les valeurs distinctes de condition_activation dans une macrovariable comme par exemple:
CA1=FILLED
CA2=0
CA3=1

Puis je veux faire une table pour chaque condition d'activation dans une boucle pour automatiser.

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 _FILLED;
SET TOTO (WHERE=(CA1='FILLED'));
IF CA1='FILLED' AND DATA1='0' AND DATA2 ='' THEN DO; CHECK='ERREUR'; END;
ELSE CHECK='RAS'; 
RUN;
 
DATA _0;
SET TOTO (WHERE=(CA2='0'));
IF CA2='0' AND DATA1='0' AND DATA2 ='' THEN DO; CHECK='ERREUR'; END;
ELSE CHECK='RAS'; 
RUN;
 
DATA _1;
SET TOTO (WHERE=(CA3='1'));
IF CA3='1' AND DATA1='0' AND DATA2 ='' THEN DO; CHECK='ERREUR'; END;
ELSE CHECK='RAS'; 
RUN;

Pourriez-vous m'aider svp ?
Je vous remercie par avance

[flo00154]

Bonjour,

Je ne sais pas si c'est vraiment la table toto que tu veux appeler dans ton "set" statement dans tes tables (_filled _0 et _1) mais voici un code qui devrait faire l'affaire :

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
 
data toto;
input sujet $ condition_activation $;
datalines;
01 FILLED 
01 0
01 1 
02 FILLED
03 0
04 1
05 FILLED
05 0
05 1
;
run;
 
%macro test;
proc sql noprint;
select distinct condition_activation into :CA1-:CA3 
from toto;
quit;
 
%do i=1 %to 3;
 
DATA _&&CA&i.;
SET TOTO (WHERE=(CA&i.="&&CA&i."));
IF DATA1='0' AND DATA2 ='' THEN DO; CHECK='ERREUR'; END;
ELSE CHECK='RAS'; 
RUN;
 
%end;
 
%mend;
 
%test;

De plus, lorsque tu écris :

Code :

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

1
2
3
 
SET TOTO (WHERE=(CA3='1'));
IF CA3='1' AND DATA1='0' AND DATA2 ='' THEN DO; CHECK='ERREUR'; END;

ta première condition if n'est pas utile car tu demandes déjà avec ton where de garder CA3 = '1'. Donc tu es sûr que tu n'auras que ça.
Je te laisse modifier ce qu'il faut pour que cela fonctionne !
Bonne soirée

[Elodie3483]

Bonjour Flo,

Je te remercie pour ta réponse.
Par contre, dans l'exemple que j'ai donné j'ai Ac1, AC2 et AC3 mais je ne connais pas à l'avance le nombre de valeurs distinctes de condition_activation.

Je récupère le nombre de valeurs comme ça :

Code :

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

1
2
3
4
 
proc sql noprint;
select count (distinct condition_activation) into :cnt from toto;
quit;

Mais je n'arrive pas attribuer à AC1, AC2, ACx... la valeur correspondante.
Je voudrai automatiser ce bout spécifiquement:

Code :

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

1
2
3
4
5
 
proc sql noprint;
select distinct condition_activation into :CA1-:CA3 
from toto;
quit;

J'essaie ça mais ça ne fonctionne pas:

Code :

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

1
2
select distinct condition_activation into :AC1-:AC&cnt. from toto;
quit;

[nahel]

Bonjour,

J'essaie ça mais ça ne fonctionne pas:

Code :

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

1
2
select distinct condition_activation into :AC1-:AC&cnt. from toto;
quit;

Un simple %eval devrait faire l'affaire :

Code :

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

1
2
 
select distinct condition_activation into :AC1-:AC%eval(&cnt) from toto;

[flo00154]

Bonjour,

La proc SQL est parfaite pour faire ceci sans faire appel à des macros ou à compter les objets.

Code :

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

1
2
3
4
5
6
 
 
proc sql noprint;
select distinct condition_activation into :CA1-:CA99999
from toto;
quit;

En mettant ca99999, la proc sql va créer autant de macro que nécessaire. Si tu n'as que 10 modalités différentes alors tu auras uniquement de CA1 à CA10 et le reste ne sera pas traité.

Bonne journée

[Elodie3483]

Bonjour,

Merci à vous 2, ça fonctionne!
A bientôt.

Bonne journée