Different date formats output code

[#1]

data null;

d=put(month(today())-2,z2.);

if month(today())=1 then e=put(year(today())-1,4.);

else e=put(year(today()),4.);

f=e||d;

call symput('date',f); /201404/

call symput('info',put (today(),yymmddn8.)); /20140610/

run;

data null;

format dt date9.;

dt=input(put(&date.,6.),yymmn6.);/201404/

call symput('start',put(intnx('month',dt,1-12,'b'),date9.)); /01MAY2013/

call symput('rpt_dt',put(intnx('month',dt,0,'e'),date9.)); /30APR2014/

call symput('Rbase',put(dt,mmyyn6.)); /042014/

call symput('Rbase2',put(intnx('month',dt,0,'e'),yymmddn8.)); /20140430/

call symput('monyy',propcase(put(dt,monyy5.))); /Apr14/

run;

%put &start. &rpt_dt. &Rbase. &Rbase2 &monyy;

Output#

201404 20140610 01MAY2013 30APR2014 042014 20140430 Apr14