data tmp;
format dte date9. ;
dte=date();
call symput('rpt_dte', put(dte, date9.));
call symput('dsr_dte', put(dte-1, date9.)); /*Updated in Sep18 - save DSR file*/
run;
data tmpb;
format dte date9. dte_1 date9. dte_2 date9.;
dte="&rpt_dte"d;
dte_1=intnx('day', "&rpt_dte"d, -1);
dte_2=intnx('day', "&rpt_dte"d, -2);
dte_3=intnx('day', "&rpt_dte"d, -3);
call symput('dte_dt8', compress(put(dte, yymmddn8.)));
call symput('dte_1_dt8', compress(put(dte_1, yymmddn8.)));
call symput('dte_2_dt8', compress(put(dte_2, yymmddn8.)));
call symput('dte_3_dt8', compress(put(dte_3, yymmddn8.)));
run;
data tmp;
format time time.;
time=time();
tmb = tranwrd(put(time, time.), ":", "_");
tm =substr(tmb,1,5);
call symput('tm', compress(tm));
run;



雷达卡


京公网安备 11010802022788号







