How to create leading zeros in a macro?

[sfmeier]

In a macro I am using the code
------------------------------

%SYSFUNC(catx(_,&number ,%SYSFUNC(Intnx(qtr, &dvar, 0, end), DDMMYYP10.)))

-----------------------------

to create the output

-----------------------------

5_30.06.2013

-----------------------------

How can I create a dynamic leading zero?

[Astounding]

Try replacing &number with:

%sysfunc(putn(&number, z2))

Messy, but it should work.

This assumes that &number is always less than 100, and you only want a leading zero when &number < 10.

[sfmeier]

I tried exactly that, but it does not work 😞

[Astounding]

OK, you actually made me test my code.  It does work for me.  There are subtle parts of the syntax, such as PUTN instead of PUT, and no period at the end of the format name.  Can you post what you coded, and the results?

This is what worked:

%let n=5;

%let newn = %sysfunc(putn(&n, z2));

[data_null__ · Accepted solution]

Looks like CATX is treating the number like a number.  You don't need CATX.

405 %let number=5;

406 %let dvar=%sysfunc(today());

407 %PUT NOTE: %sysfunc(putN(&number,z2))_%SYSFUNC(Intnx(qtr, &dvar, 0, end), DDMMYYP10.);

NOTE: 05_30.06.2012

[sfmeier]

Ok, cool, thx! It works perfectly without catx... 🙂