Discussion :

[CharlyH]

Bonjour,

Mon problème est le suivant :
Un de mes codes SAS nécessite d'exécuter la macro %calcul(prod=); pour un certain nombre de produits : A, B, G, Z. La solution la plus évidente est d'appeler la macro %calcul pour chaque produit successivement :

Code :

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

1
2
3
4
%calcul(prod=A);
%calcul(prod=B);
%calcul(prod=G);
%calcul(prod=Z);

Le souci dans cette manière de faire est que la liste des produits, en plus d'être longue, est amenée à changer assez régulièrement. Il faudrait donc supprimer et ajouter un nombre conséquent de lignes à chaque traitement, ce qui est assez fastidieux.

Je souhaiterais donc que le traitement s'effectue de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
%let listeProduit = A, B, G, Z;

%macro traitement(liste=);

   %do "pour chaque" produit "de" &liste;
      %calcul(prod=&produit);
   %end;

%mend;

% traitement(liste=&listeProduit);

L'utilisateur final n'aurait ainsi qu'à modifier le contenu de la macro-var listeProduit.

Malheureusement, je ne trouve le moyen de réaliser cette procédure de traitement. Dans les langages de programmation plus classiques (VBA ou C par ex.), cela revient à définir un array. Mais j'ai compris en lisant l'aide en ligne de SAS que les array de SAS ont une utilisation différente.

Bref, je nage.
Est-ce que quelqu'un a une idée de solution?

Merci pour votre aide!

[olivier.decourt]

Bonjour.
La solution la plus élégante me semble PARMBUFF. Il y a quelques posts dans ce forum qui détaillent (les explications sont ici ).
Dans ton cas ça donnerait quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
%MACRO traitement / PARMBUFF ;
   %LET i = 1 ;
   %LET produit = %SCAN(&syspbuff, &i) ;
   %DO %UNTIL (&produit = ) ;
      %calcul(prod=&produit) ;
      %LET i = %EVAL(&i+1) ;
      %LET produit = %SCAN(&syspbuff, &i) ;
   %END ;
%MEND ;
/* et pour exécuter : */
% traitement(A, B, G, Z);

Olivier

[steelspirit]

Bonjour,

Sinon il y a également ma macro List2Macr :
http://www.developpez.net/forums/d58...s/#post3622556

qui converti une liste en macro-variables

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
%let listeProduit = A, B, G, Z;

%macro traitement(liste=);

   %List2Macro(liste=&listeProduit,dlm=',',mv=produit);
  
   %do i=1 %to &nb_produit;
      %calcul(prod=&&produit&i);
   %end;

%mend;

% traitement(liste=&listeProduit);

Steel

[umanis]

Bonjour,

Si tu n'as pas trouvé de solution en voici une ::

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
 
 
%let listeProduit = A # B #G # Z;
 
%macro traitement(liste=);
 
   %let i=1;
   %let produit=%scan(&liste,&i,#);
 
   %do %while ("&produit" ne "");
	        %calcul(prod=&produit);
	   	%let i=%eval(&i+1);
	        %let produit=%scan(&liste,&i,#);
   %end;
 
%mend;
%traitement(liste=&listeProduit);

Cordialement.

[CharlyH]

Bonjour, Merci pour vos réponses! Je les expérimente demain au bureau.