1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
DATA _null_;
length lastqtr $6.;
XDATE1 = PUT(INTNX('quarter',today(),-1,'E'),yymmddn.);
lastqtr=trim(substr(XDATE1,1,6));
CALL SYMPUT('lastqtr',lastqtr);
XDATE2 = PUT(INTNX('quarter',today(),-1,'B'),yymmdd10.);
qtrstart=trim(translate(XDATE2, '/', '-'));
CALL SYMPUT('qtrstart',qtrstart);
XDATE3 = PUT(INTNX('quarter',today(),-1,'E'),yymmdd10.);
qtrend=trim(translate(XDATE3,'-', '/'));
CALL SYMPUT('qtrend', XDATE3);
%put &qtrstart &lastqtr &qtrend;
run;
%let datequarter = %str(%'&qtrend.%');
%put &datequarter.;
proc sql;
connect to netezza (DATABASE=NDWXXP10 &nzpassprod);
execute
(
INSERT INTO NDWXXP10..PROCEDURETRACKER_HIST (DATA_SOURCE
, LOADENDDATE
, DATA_ASOF
, SOURCE_SYSTEM
) VALUES ('ADP023_KANETIX_QTR', now(), &datequarter::TIMESTAMP, 'SAS');
) by netezza;
disconnect from netezza;
quit; |