Discussion :

[malikoo]

Bonjour,

je souhaiterai faire le même traitement SAS sur 12 bases de données (un an ).
ces bases de données contiennent les mêmes informations, donc ont le même dessin (descriptif)

pour automatiser le traitement et avoir un tableau d'un an de résultats , j'ai écris une macro qui me fait le traitement sur les 12 mois de l'année, toutes les bases sont appelées "base$mm$", ou mm correspond au mois courant.
ci dessous le bout de code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
%macro toto(mois=,);
%let liste=&mois;
	%do i=1 %to %n(&mois);
		data tempo;
		infile "repertoire1\base&mois";
		input 
			var1            $ 1-  4 ;
		run;
	%end;
%mend;
%toto (mois=01 02 03 04 05 06 07 08 09 10 11 12);

je voudrait qu'a chaque itération , faire une série de traitement que je vais intégrer dans la boucle.

je n'obtient pas le résultat attendu, car il m'affiche base 01.....12, donc les 12 mois d'un coup.

merci d'avance pour votre aide.

malik.

[alexd]

Si j'ai bien compris ce que tu veux il faut tu fasse ceci :

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
 
%MACRO toto(listemois=);
 
     %let nbmois=%Eval(1+%sysfunc(countc(%trim(&listemois),%str( ))));
     %put nbmois=&nbmois;
 
     %DO i=1 %to &nbmois;
 
	%let mois = %scan(&listemois,&i); 
 
	%put nom du fichier = repertoire1\base&mois ;
 
	data tempo;
		infile "repertoire1\base&mois";
		input 
		var1 $ 1- 4 ;
	run;
 
     %END;
 
%MEND;
 
%let listemois= 01 02 03 04 05 06 07 08 09 10 11 12;
%toto(listemois=&listemois);

Si tu veux plus de détail/ explication sur ce qui est fait n'hésite pas.

[boussata]

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
%MACRO TRAIT;
 
%LET LIST_FIC = 01 02 03 04 05 06 07 08 09 10 11 12;
 
DATA _NULL_;
ARRAY VECTEUR &LIST_FIC;
CALL SYMPUT ('nombre',dim(vecteur));
RUN;
 
%PUT &NOMBRE	;
 
%DO I = 1 %TO &NOMBRE ; 
 
%LET VARIABLE = %SCAN(&LIST_FIC,&i)			;
%LET VAR1     = %UPCASE(&VARIABLE)		  	;
 
data tempo;
		infile "repertoire1\base&VARIABLE";
		input 
			var1            $ 1-  4 ;
		run;
 
%END;
%MEND;
%TRAIT;

VOILA je pense que c'est plus simple que de faire 12 imports.
N'hesite pas si t'as besoin de plus d'explications

[olivier.decourt]

On peut aussi s'en tirer sans un gramme de macro-langage, avec l'option FILEVAR d'INFILE : on y donne le nom d'une variable contenant le chemin et le nom du fichier à lire ; celui-ci peut donc changer d'une observation à une autre.
Dans l'exemple ci-dessous, on lit 3 fichier mois01.txt, mois02.txt et mois03.txt. Ils ont la même structure. Par contre, ils n'ont pas de ligne initiale avec les noms des variables, parce que c'est un peu lourd à traiter (l'option FIRSTOBS ne fonctionne que pour le 1er des fichiers lus, et pour le reste, il faut traiter les exceptions).

Code :

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

1
2
3
4
5
6
7
8
9
10
DATA work.test ;
	moisLu + 1 ;
	lu = COMPRESS("c:\temp\mois"!!PUT(moisLu,Z2.)!!".txt") ;
	INFILE rien FILEVAR=lu END=fin DLM=";" MISSOVER DSD ;
	DO WHILE(NOT fin) ;
		INPUT mois montant ;
		OUTPUT ;
	END ;
	IF moisLu = 3 THEN STOP ;
RUN ;

Olivier

[malikoo]

Bonjour,

comme je débute en programmation SAS, je n'ai pas de t. bones connaissances en traitement de vecteurs ...

j'ai testé la 1ère solution, ça n' a pas marché.

voici le message d'erreur :

Code :

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

1
2
3
4
5
ERREUR: La COUNTC fonction référencée dans la fonction macro %SYSFUNC ou %QSYSFUNC est
        introuvable.
ERREUR: Opérande caractère trouvé dans la fonction %EVAL ou condition %IF là où un opérande
        numérique est requis. La condition était : 1+
ERREUR: L'exécution de la macro TOTO va stopper.

pour esséyer de corriger, j'aimerai comprendre l'instruction suivante:

Code :

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

%let nbmois=%Eval(1+%sysfunc(countc(%trim(&listemois),%str( ))));

je sais que c'est pour compter le nombre d'éléments de la liste.

j'ai essayer :

Code :

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

%let nbmois=compbl(trim(left(&listemois)));

mais ça ne marche pas non plus.

merci de votre aide.

[bahraoui]

Code :

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

1
2
 
%let nbmois=%Eval(1+%sysfunc(countc(%trim(&listemois),%str( ))));

countc permet de compter un nombre d'element avec un spérateur, dans ton cas c'est un espace ( %str() )

Je crois que tu es en V8,

compbl : enleve les blancs en double

[malikoo]

Bonjour,

oui, je suis bien en V8, j'ai regardé dans des documents SAS, je ne peux pas utilser de compbl ni de contc.

merci pour ta réponse.

[olivier.decourt]

COMPBL existe en v8. Il n'y a que COUNTC qui soit nouvelle dans les fonctions proposées ci-dessus.
Pour appliquer une fonction SAS sur une macro-variable, il faut passer par la macro-fonction %SYSFUNC pour chacune des fonctions à appliquer.

Olivier