Discussion :

[bdbdb]

Bonjour à tous,

Dans une proc iml j'utilise plusieurs GOTO pour diriger la résolution du programme vers des parties de celui-ci sans oublier à chaque fin de ces parties de rediriger par un nouveau goto vers l'endroit souhaité.

Code :

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

1
2
3
4
5
6
7
8
 
proc iml;
st=2;
goto st2;
st2 : st=4; print st;goto st4;
st3 : st=5; print st;goto exit;
st4 : st=3; print st;goto st3;
exit :  quit;

La sortie montre que le programme s'exécute sans prendre en compte les GOTO puisque qu'il affiche les valeurs de st successives comme suit : 4 puis 5 puis 3.

Le message d'erreur est le suivant :

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
 
1071  proc iml;
NOTE: IML Ready
1072  st=2;
1073  goto st2;
ERROR: Unresolved label: ST2
1074  st2 :
1074!       st=4;
1074!             print st;
1074!                      goto st4;
ERROR: Unresolved label: ST4
1075  st3 :
1075!       st=5;
1075!             print st;
1075!                      goto exit;
ERROR: Unresolved label: EXIT
1076  st4 :
1076!       st=3;
1076!             print st;
1076!                      goto st3;
ERROR: Unresolved label: ST3
1077  exit :  quit;
NOTE: Exiting IML.
NOTE: PROCEDURE IML used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds

Pourquoi ces GOTO ne sont pas pris en compte ?
Quel est le problème ?

Merci

[olivier.decourt]

Le problème c'est qu'on ne peut faire de GOTO que dans un module, ou encadrés de blocs DO/END.

CAUTION: The GOTO and LINK statements are limited to being inside a module or DO group. (pris dans la doc SAS/IML sur GOTO, ici)

Ton programme doit être transformé ainsi :

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
proc iml;
st=2;
do ; 
	goto a;
	a: do ; 
		st=4; 
		print st;
		goto c; 
	   end ;
	b: do ; 
		st=5; 
		print st;
		goto hell ;
       end ;
	c: do ; 
		st=3; 
		print st;
		goto b;
       end ;
	hell:
	    stop;
end ;
quit;

Olivier

[bdbdb]

Merci,

Comme la doc (cf. votre référence) dit aussi insérer un goto dans un module, j'ai cherché du côté du module et je suis tombé sur les fonctions définies avec start et finish comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
proc iml;
start essai(st) global(t);
goto st2;
st2 : st=4; print st;goto st4;
st3 : st=5; print st;goto exit;
st4 : st=3; print st;goto st3;
exit : t=st;finish essai;
run essai(2);
print t;
quit;

C'est un peu fastidieux, il faut définir une variable global (ici t) , mais ça marche aussi.
La question est toujours : quelle est la méthode la moins consommatrice de mémoire et donc de temps ?

Merci encore !

[olivier.decourt]

La moins consommatrice de temps et de mémoire, c'est de ne pas faire de GOTO du tout, je pense !
Normalement, un module bouffe un peu de place, mais vu la taille des instructions, je ne pense pas que ça fasse une grosse différence.
La solution optimale (à mes yeux, et je ne fais pas souvent d'IML) serait d'écrire des IF / THEN / ELSE pour gérer les différents cas, et s'il y a trop de répétitions de code, de les stocker dans des macro-programmes (SAS s'occupera du copier/coller, comme ça on centralise quand même le code).
Mais des utilisateurs plus habitués à optimiser leur IML auront sans doute de meilleures suggestions.