Macro to get MonYY in title case

[somepathak]

The following macro returns date in monYY format. The output is having the month name in all caps e.g. DEC19 while the desired output is Dec19. What changes should be made to the macro to get the output in the required format. 

Thanks in advance !

%macro iter();
data _null_;

%do i = 1 %to 12;
%global monthy&i.;
call symput("monthy&i.",put(intnx('month',&dt.,(-&i.)+1,'e'),monyy5.)));
%end;

run;

%mend;
%iter();

[Reeza · Accepted solution]

You could just nest it with PROPCASE?

%macro iter();
data _null_;

%do i = 1 %to 12;
%global monthy&i.;
call symput("monthy&i.", propcase(put(intnx('month',&dt.,(-&i.)+1,'e'),monyy5.))));
%end;

run;

%mend;
%iter();

[somepathak]

Thanks, it worked. Just that the code you shared had too many brackets, but removing them got me the required result. Appreciate the help, thanks again !

[Tom]

Why did you code a %DO loop in a data step?

data _null_;
  do i=1 to 12;
    call symputx(cats('monthy',1)
                ,propcase( put( intnx('month',&dt.,1-i,'e') ,monyy5.) )
                ,'g');
  end;
run;

Also why are you using only 2 digits for the year?  Use MONYY7 to get full four digits of the year.