[DATA] Boucle dans SAS [Résolu]

[Marie33]

Bonjour,
je n'arrive pas à faire ma boucle dans une étape data.
J'ai 19 variables (MA1 - MA19) qui prennent les valeurs 0 ou 1 (non/oui) et je souhaite vérifier à l'aide d'un test que d'autres valeurs n'ont pas été saisies par erreur :

Code :

1
2
3
4
5
 
DATA titi;
SET titi;
IF MA1 NOT IN (0,1) then MA1 =.;
run;

Je souhaiterais réaliser une boucle pour ces 19 variables.
Je précise que pour le moment j'utilise une petite macro :

Code :

1
2
3
4
5
6
7
 
%MACRO zero_un (tab2,tab1,var);
DATA &tab2;
SET &tab1;
IF &var NOT IN (0,1) then &var=.;
run;
%MEND zero_un;

ce qui fait :

Code :

%zero_un (c_obs,c_obs,ma1);

Je sèche sur la création de cette boucle, pourriez-vous m'aider ?

[mohamed_]

Bonjour,

Avec une boucle do i = 1 to 19 dans une étape data cela devrait faire ce que tu souhaites :

Code :

1
2
3
4
5
6
7
8
DATA titi;
SET titi;
 
DO i = 1 TO 19 ;
   IF MA&i. NOT IN (0,1) then MA&i. =.;
END ;
 
run;

Bonne journée.

[Manoutz]

Bonjour,

Pas sur que ca marche comme ca.

je propose de passer en mode macro:

Code :

1
2
3
4
5
6
7
8
9
10
11
%macro titimac;
DATA titi;
SET titi;
 
%DO i = 1 %TO 19 ;
   %IF MA&i. NOT IN (0,1) %then MA&i. =.;
%END ;
 
run; 
%mend titimac;
%tititmac;

autre solution:

Code :

1
2
3
4
5
6
7
8
9
%MACRO zero_un (var=);
IF &var NOT IN (0,1) then &var=.;
%MEND zero_un; 
 
DATA titi2;
SET titi;
%zero_un (var=ma1);
/*et ainsi de suite*/
run;

Les deux solutions sont non testees mea culpa si ya une coquille qui traine!

[Marie33]

Code :

1
2
3
4
5
6
7
 
DATA titi;
SET titi;
DO i = 1 TO 19 ;
   IF MA&i. NOT IN (0,1) then MA&i. =.;
END ;
run;

Voici le message dans la log :

Code :

1
2
3
4
5
6
7
8
WARNING: Référence symbolique apparente I non traitée.
WARNING: Référence symbolique apparente I non traitée.
ERROR 22-322: Erreur de syntaxe ; syntaxe requise : un nom, une chaîne entre guillemets, une constante numérique,
              une constante date temps, une valeur manquante, arrayname, (, +, -, INPUT, NOT, PUT, ^, _NEW_, ~.
 
ERROR 180-322: Instruction incorrecte ou mal utilisée.
 
ERROR 201-322: L'option n'est pas reconnue et sera ignorée.

Merci quand même pour ta réponse (et je suis preneuse si tu as une autre solution!)

[s_a_m]

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 tab1;
input var1-var3;
cards;
0 1 0
0 0 1
0 2 1
2 0 1
1 1 1 
0 0 0 
2 2 2
;
run;
 
 
DATA tab2 (DROP= i);
   SET tab1;
   array x (3)var1-var3;
      do i=1 TO dim(x);
         IF x(i)  IN(0,1);
      end;
 
run;

[s_a_m]

sorry,
une petite correction :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
 
DATA tab2 (DROP= i);
   SET tab1;
   array x (3)var1-var3;
      do i=1 TO dim(x);
         IF x(i)   NOT IN(0,1) then do;
        x(i)=.;end;
      end;
 
run;

[Marie33]

Envoyé par s_a_m

sorry,
une petite correction :

Code :

Voilà qui va me faire gagner du temps et des lignes de programmes !

[olivier.decourt]

Le même sans compteur de boucle (qui ne sert pas spécialement dans cette problématique) :

Code :

1
2
3
4
5
6
7
DATA tab2 ;
   SET tab1;
   array x var1-var3;
      do OVER x ;
         IF x NOT IN(0,1) then x=.;
      end;
run;