Discussion :

[UtilisateurSASPrys]

Bonjour,
J'ai écrit une macro devant me permettre d'afficher une liste de dates (9 premiers mois sous la forme YYMMM (ex:17M01, pour le mois de janvier 2017) et 3 derniers mois sous la forme YYWXX (ex: 17W09 pour la semaine 9 de 2017).
Pour cela, j'ai créer des variables intermédiaires dans une macro à l'aide de l'instruction %SYSFUNC.
Ma variable x3 contient le mois et s'affiche bien sur 2 digits lors de l'affectation par le %LET, mais quand je l'introduis dans une fonction CAT (val2) , il n'y a plus qu'1 seul digit qui s'affiche (17M1).
Quelqu'un connait-il la raison et la solution ?

Ci-dessous le code que j'utilise:

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
 
%macro remplir_references_dates();
%DO LOOP=7 %to 12;
	%LET x1=%SYSFUNC(INTNX(month,%SYSFUNC(INTNX(day,%SYSFUNC(today()),%SYSFUNC(day(%SYSFUNC(today())))-1)),&LOOP.-19));
	%LET x2=%SYSFUNC(MONTH(&x1.));
	%LET x3=%SYSFUNC(PUTN(&x2., Z2.));
	%LET val1=&x1.;
	%LET val2=%SYSFUNC(CAT(%SYSFUNC(PUTN(&x1.,year2.)),M,&x3.));
 
	PROC SQL;
		INSERT INTO RDMTSSMF.REFERENCES_DATES
			VALUES(&val1.,"&val2.");
	QUIT;	
%END;
%DO LOOP=1 %to 29;
	%LET val3=%SYSFUNC(INTNX(week,%SYSFUNC(INTNX(day,%SYSFUNC(today()),%SYSFUNC(day(%SYSFUNC(today())))-1)),&LOOP.-30));
	%LET val4=%SYSFUNC(PUTN(%SYSFUNC(INTNX(week,%SYSFUNC(INTNX(day,%SYSFUNC(today()),%SYSFUNC(day(%SYSFUNC(today())))-1)),&LOOP.-30)),WeekV5.0));
	PROC SQL;
		INSERT INTO RDMTSSMF.REFERENCES_DATES
			VALUES(&val3.,"&val4.");
	QUIT;	
%END;
%mend remplir_references_dates;

[hossward]

bonjour,
C’est un peu compliqué avec la fonction CAT dans une macro. Essayez plutôt l’instruction suivante ; c’est direct, facile et ça marche !

Code :

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

%LET val2=%SYSFUNC(PUTN(&x1., year2.))M&x3.  ;

Cdt Ward

[UtilisateurSASPrys]

Merci.
Le support SAS m'a fourni une solution quasi similaire:

Code :

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

%LET val2=%SYSFUNC(CAT(%SYSFUNC(PUTN(&x1.,year2.)),M))&x3.;

qui fonctionne très bien.

[UtilisateurSASPrys]

Mais votre solution est bien plus simple...

[m.brahim]

Bonjour,
Le sujet est intéressant.
Je n'arrive pas à comprendre pourquoi cat ne prends pas en compte les zéros.
La longueur de la macro variable x3 est 2 pour les mois <10.
Une autre question, pourquoi la fonction repeat quand le nombre de répétition égal à 0 ajoute tout de même le 0 (ce qui explique l'utilisation de la boucle)

%macro remplir();
%DO LOOP=7 %to 12;
%LET x1=%SYSFUNC(INTNX(month,%SYSFUNC(INTNX(day,%SYSFUNC(today()),%SYSFUNC(day(%SYSFUNC(today())))-1)),&LOOP.-19));
%LET x2=%SYSFUNC(MONTH(&x1.));
%LET x3=%SYSFUNC(PUTN(&x2., Z2.));
%let len=%length(&x3.);
%let len1=%length(&x2.);
%LET val1=&x1.;
%LET val12=%SYSFUNC(CAT(%SYSFUNC(PUTN(&x1.,year2.)),M,&x3.));
%LET val13=%SYSFUNC(CAT(%SYSFUNC(PUTN(&x1.,year2.)),M,%sysfunc(repeat(0,%eval(2-%length(&x2.)))) ,&x2.));
%if &len1.=1 %then %do;
%LET val14=%SYSFUNC(CAT(%SYSFUNC(PUTN(&x1.,year2.)),M,%sysfunc(repeat(0,%eval(2-%length(&x2.)))) ,&x2.));
%end;
%else %do;
%LET val14=%SYSFUNC(CAT(%SYSFUNC(PUTN(&x1.,year2.)),M,&x3.));
%end;
%put &=x3/&=len./&=val12./&=val12./&=val13./&=val14.;
%end;
%mend remplir;
%remplir;

*******
Log
*******

X3=11/LEN=2/VAL12=16M11/VAL12=16M11/VAL13=16M011/VAL14=16M11
X3=12/LEN=2/VAL12=16M12/VAL12=16M12/VAL13=16M012/VAL14=16M12
X3=01/LEN=2/VAL12=17M1/VAL12=17M1/VAL13=17M01/VAL14=17M01
X3=02/LEN=2/VAL12=17M2/VAL12=17M2/VAL13=17M02/VAL14=17M02
X3=03/LEN=2/VAL12=17M3/VAL12=17M3/VAL13=17M03/VAL14=17M03
X3=04/LEN=2/VAL12=17M4/VAL12=17M4/VAL13=17M04/VAL14=17M04

Cordialement