Discussion :

[Deciprog]

Bonjour,

Je souhaiterai stocker dans des macro-variables les données d'une table lue ligne par ligne.
Les macro-variables créés seront utilisés dans la même macro.
Je ne connais pas le nombre de lignes ni le nombre de colonnes de la table.

Par exemple :

Avec contenu de la table :
A B C D E
1 1 8 7 4
2 9 1 4 2

Afficher
variable A a pour valeur 1 en ligne 1
variable B a pour valeur 1 en ligne 1
variable C a pour valeur 8 en ligne 1
variable D a pour valeur 7 en ligne 1
variable E a pour valeur 4 en ligne 1

variable A a pour valeur 2 en ligne 2
variable B a pour valeur 9 en ligne 2
variable C a pour valeur 1 en ligne 2
variable D a pour valeur 4 en ligne 2
variable E a pour valeur 8 en ligne 2

Mon code n'est pas correct mais illustre l'idée :

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
 
%Macro read (table=) ;
	%DO i = 1 %TO nombredelignedelatable ;
        %let nomcolonnes = récupérer les colonnes pour la ligne 1;
    	       PROC SQL;
			SELECT &nomcolonnes.
			FROM &table.
			WHERE ligne a lire = &i.;
		QUIT;
	%END;
	%let var1= call symputx((put(i,3.), colonne_table(1)) ;
        %let var2= call symputx((put(i,3.), colonne_table(2)) ;
        %put variable &nomcolonne(1) a pour valeur &var. en ligne &i.;
        %END
%Mend ;
%read (table=ods.table);

Merci pour l'aide

[datametric]

J'en perd mon latin avec vos questions tordues en ce moment

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
data test;
input A B C D E;
cards;
1 1 8 7 4
2 9 1 4 2
;
run;
 
data _null_;
set test;
array ar (*) _all_;
 
do i = 1 to dim(ar);
call symputx(cats(vname(ar(i)) , _n_) , ar(i) );
y= cats(vname(ar(i)) , _n_ , '=', ar(i)) ;
put y;
end;
 
run;

Y n'est là que pour afficher le résultat contenu dans chaque macro variable dont le nom est constitué du nom de la colonne et du numéro de lignes.
J'espère que cela t'aidera

[Deciprog]

Merci Stéphane pour cette réponse rapide.
C'est vrai que mes questions sont un peu tordues ,
Mais vos réponse sont pertinentes et peuvent aider d'autres membres.

Votre code fonctionne très bien merci. Je voudrais juste faire quelques ajustements :

Passer les données des colonnes en paramètre à une macro et exécuter cette macro en bouclant sur chaque lignes.
Dans mon cas, il y a 4 colonnes. Mais le nombre de lignes est inconnu.

Code :

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

1
2
3
4
5
6
7
8
 
DATA _null_;
SET test;
array ar (*) _all_;
do i = 1 TO dim(ar);
	%MAMACRO (ar(i);ar(i+1);ar(i+2);ar(i+3));
end;
run;

Merci beaucoup

[datametric]

C'est vrai que mes questions sont un peu tordues

en fait cela ne valait pas que pour toi, c'était général

bref...

Passer les données des colonnes en paramètre à une macro et exécuter cette macro en bouclant sur chaque lignes.
Dans mon cas, il y a 4 colonnes. Mais le nombre de lignes est inconnu.

non là je ne comprends plus

[Deciprog]

Je me suis mal exprimé désolé.

Au lieu d'afficher "noncolonne numérocolonne = données", je souhaiterai maintenant ajouter seulement les "données" dans une macro en parcourant par lignes.
%unemacro() est une autre macro SAS qui utilise en paramètres les données de la table.

Par exemple :

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
 
DATA test;
input A B C D E;
cards;
1 1 8 7 4
2 9 1 4 2;
run;
 
DATA _null_;
SET test;
array ar (*) _all_;
do i = 1 TO dim(ar); /*Boucle ligne par lignes*/
	%unemacro(ar(i);ar(i+1);ar(i+2);ar(i+3)); /*récupération des données de chaque colonnes pour la ligne i*/
end;
run;

Si i (ligne) est égal à 1 alors exécuter %unemacro(1,1,8,7,4);
Si i (ligne) est égal à 2 alors exécuter %unemacro(2,9,1,4,2);

Merci

[xav2229]

salut,

Un peu d'accord avec datametric :

J'en perd mon latin avec vos questions tordues en ce moment

En général on voit des demandes bien biscornues, et vu que SAS est un langage assez puissant on pourra toujours tout faire...

Cependant : est-ce que cela doit être fait de cette manière?, est-ce pertinent?

Depuis que je bosse, je n'ai jamais eu à faire ce que tu demandes.

Est-ce que tu veux bien re-expliquer ton besoin, (ton vrai besoin )

a+

xav

[Deciprog]

Mon besoin a évolué donc à partir de mon 2ème post mes questions était différentes.
Je vais expliquer plus succinctement :

Je dispose d'une macro qui utilise 4 paramètres.
(Ces 4 paramètres proviennent des données en colonne d'une table)
exemple :
%macro(A,B,C,D);

J'ai une table qui contient les données que je doit faire passer en paramètres à la macro.
Contenu de ma table :
A B C D
E R N C
M I K O

Je souhaiterais exécuter la macro pour chaque ligne lue de la table.
exemple :
%macro(A,B,C,D);
%macro(E,R,N,C);
%macro(M,I,K,O);

Merci

[RemiBousquet]

La parole du sage revient ce jour à xav2229 : toujours revenir au besoin !
Voilà une façon de faire :

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
/* Table d'exemple */
data MA_TABLE_PARAMETRE ;
    input Parametre_1 $ Parametre_2 $ Parametre_3 $ Parametre_4 $ ;
    cards ;
A B C D
E R N C
M I K O
;
run ;
 
/* Macro qui boucle sur une table de paramètre */
%MACRO LOOP_ON_TABLE_PARAMETRE (TABLE_PARAMETRE = ) ;
    proc sql noprint ;
        SELECT count(*)
        INTO : NB_LIGNE_PARAMETRES
        FROM &TABLE_PARAMETRE ;
    quit ;
 
    %do LOOP = 1 %to &NB_LIGNE_PARAMETRES. ;
        data _NULL_ ;
            set &TABLE_PARAMETRE. (obs = &LOOP. firstobs = &LOOP.) ;
            call symputx ("PARAMETRE_1", PARAMETRE_1) ;
            call symputx ("PARAMETRE_2", PARAMETRE_2) ;
            call symputx ("PARAMETRE_3", PARAMETRE_3) ;
            call symputx ("PARAMETRE_4", PARAMETRE_4) ;
        run ;        
        %put  ==> Placer ici la macro utilisant %nrstr(&PARAMETRE_1-4) = &PARAMETRE_1. &PARAMETRE_2. &PARAMETRE_3. &PARAMETRE_4.  ;
    %end ; 
%MEND LOOP_ON_TABLE_PARAMETRE ;
 
/* Appel de la macro sur la table d'exemple */
%LOOP_ON_TABLE_PARAMETRE (TABLE_PARAMETRE = MA_TABLE_PARAMETRE ) ;

[Manoutz]

Le principe d'une étape data est d'éxécuter les instructions contenues dans cette étape, ligne par ligne. C'est à dire qu'il va éxécuter les instructions pour la première ligne de ton fichier de données (_N_=1), puis le deuxième et ainsi de suite jusqu'à le dernière ligne.

ton fichier source, qu'on apellera datain, est de la forme:
A B C D
E R N C
M I K O

chaque ligne contient 4 colonnes, qu'on appelera colonne1, colonne2, colonne3, colonne4.

ta macro contient 4 paramètres, des macros variables, qu'on apellera param1 à param4.

Logiquement tu ne dois donc appeler qu'une seule fois, puisque cet appel correspond à une ligne donnée, et que toutes les lignes seront considérées...

lors de la définition de ton macro fonction, tu devras utiliser les macros paramètres param1-Param évoqués au dessus.

Code :

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

1
2
3
4
 data _null_/*A voir pour le data _null_, ca dépend de ce que tu veux en sortie*/;
set datain;
%mamacro(&param1.,&param2.,&param3.,&param4.);/*ne pas nommer une macro "macro" car c'est le code utilisé pour définir un macro-fonction*/
run;

[sasadm]

Bonjour Deciprog, si ta macro le permet, je te conseillerais d'utiliser un call execute :

Code :

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

1
2
3
4
5
6
data _null_;
set dataparam;
call execute(
	cats('%macro(' , var1, 	' , ', var2 ,	' , ', var3,	' , ', var4, ');') 
			) ;
run;

où dataparam est ta table :
A B C D
E R N C
M I K O

Mais attention au call execute :
SAS déroule d'abord toute la table dataparam pour "écrire" le code qui va ensuite être exécuté. Si bien que si tu crées des objets dans ta macro (macro-variables ou tables) et que tu fais des tests sur l'existence de ces objets, cela peut produire des résultats inattentus puisqu'à "l'écriture" du code ces objets n'existent pas encore.

Par exemple si dans ta macro tu as ceci :
data test;
set _null_;
run;

%if %sysfunc(exist(test)) %then %put YES;
%else %put NO;

alors tu n'obtiendras dans ta log que des NO... car à l'écriture du code test n'existe pas encore dans ta work...

Mon besoin a évolué donc à partir de mon 2ème post mes questions était différentes.
Je vais expliquer plus succinctement :

Je dispose d'une macro qui utilise 4 paramètres.
(Ces 4 paramètres proviennent des données en colonne d'une table)
exemple :
%macro(A,B,C,D);

J'ai une table qui contient les données que je doit faire passer en paramètres à la macro.
Contenu de ma table :
A B C D
E R N C
M I K O

Je souhaiterais exécuter la macro pour chaque ligne lue de la table.
exemple :
%macro(A,B,C,D);
%macro(E,R,N,C);
%macro(M,I,K,O);

Merci

[datametric]

On ne pourrait pas simplement remplacer l'action de la macro par une programmation dans une étape data dans ce cas ?
Avec des Array pour gérer toute la liste des variables ?