Amélioration d'une suite de IF THEN

[L0007]

Bonjour,

Je dois vérifier le contenu de +/- 40 champs par ligne dans une grosse table.

Au début, j'ai créé une macro ou je passais en paramètre le champ et la valeur à controller.

Code :

1
2
3
4
5
6
 
%macro (champ, valeur);
   DATA _null_;
    SET ma_source (keep= &champ);
    IF &champ = &valeur then OK;
    ......

Donc si j'utilise cette technique la table sera lue une +/- 40 fois (en fonction du nombre de champ à controller.

Ensuite j'ai essayé de faire le contrôle de manière séquentielle.
A chaque ligne lue, je vérife les 40 champs.

Code :

1
2
3
4
5
6
7
8
 
DATA _null_;
 SET ma_source;
 
 IF champ1= valeur then...
 IF champ2=valeur then...
 IF champ3= valeur then...
....

Je n'ai pas l'impression que ca va plus vite plutôt qu'en parcourant 40 fois ma table.

Quelqu'un aurait-il une meilleure façon de procéder?
! --> Il s'agit simplement de condition IF, pas de IF/ELSE/IF...
Je pense que je ne peut donc pas utiliser un SELECT CASE.

J'ai aussi souvent lu qu'un WHERE était plus rapide qu'un IF.
Mais ici, je ne vois pas comment l'appliquer.

Merci pour vos conseils.

[Manoutz]

Je n'ai pas l'impression que ca va plus vite plutôt qu'en parcourant 40 fois ma table.

forcement, puisque tu ne lis pas 40 fois ta table (tu fais tout en une fois).

Quelqu'un aurait-il une meilleure façon de procéder?

Je ne suis pas sur qu'il y en ait. ca depend de ce qu'il y a dans tes "then"

Je pense que je ne peut donc pas utiliser un SELECT CASE.

A priori, ce n'est utile dans ce cas la, effectivement, puisque tu n'as pas de else.

J'ai aussi souvent lu qu'un WHERE était plus rapide qu'un IF.
Mais ici, je ne vois pas comment l'appliquer.

le "where" filtre les donnees en entree (dans ton set). Les autres instructions ne sont executees que pour les donnees filtrees. Ce n'est pas sur que cela s'applique dans ton cas.

[s_a_m]

hello,
le WHERE s'applique sur les données lues et le if sur les données lues et créées lors de l'étape data.

[s_a_m]

pour ton problème initial,
je crois que tu n'as pas besoin de lire la table 40 fois , une seule fois sufira.

1- tu récupère le nom de tes variables dans les vue dictionary, proc contents ou vtables.

Code :

1
2
3
4
5
6
7
8
 
%macro colonnes(le_libname, la_table,la_colonne);
 
proc sql noprint;
SELECT name INTO :var separated BY " "  FROM dictionary.COLUMNS WHERE upcase (libname)="le_libname" AND upcase (memname)="&la_table" AND upcase(name)="&la_colonne";
quit;
 
%put colonnes : &var.;

tu fais une boucle dans l'étape data avec le noms des colonnes et la condition.
tu peux usiliser sa dans un macro programme si tes conditions varient d'une colonnes à une autre.
pour isoler les colonnes tu peux t'inspérer de cet exemple.

Code :

1
2
3
4
5
6
7
8
9
10
 
DATA _null_;
test="1 2 3 4 5 6 7 8 9 ";
i=1;
do while(scan(test,i,' ')ne " ");
word=scan(test,i,' ');
put word;
i=i+1;
end;
run;

au final une boucle %DO à l'intérieur de l'étape data fera l'affaire.

[olivier.decourt]

Si la valeur à tester à chaque IF est la même (ou si elle peut être facilement calculée en fonction de la variable), tu peux simplifier le code en virant la partie macro pour la remplacer par un Array.
Pas d'autre optimisation en vue (l'Array n'ira pas plus vite que 40 IF copiés/collés et adaptés mais donnera juste un programme plus facile à lire et modifier) qu'une unique étape DATA comme tu fais déjà.
Bon courage.
Olivier

[xav2229]

pourquoi ne pas créer un format?