topic Re: Trigger email on proc import in SAS Programming

Trigger email on proc import

PJ007 — Wed, 15 Aug 2018 16:08:29 GMT

Hi all!
I need the following type1file macro to trigger an email when the proc import fails.
It works, but it is not working when it is being called from the ' Import' macro.
Any help would be greatly appreaciated as I am really struggling with this.

Thanks!

%macro track_err;
%global err_status;
%let err_status = %sysfunc(max(&err_status, &syserr ne 0));
%mend;



%MACRO Type2File;

%let err_status = 0; 
PROC IMPORT OUT= Type1File DATAFILE= "Filename.xls"
DBMS=xls REPLACE;
SHEET="Sheet1"; 
GETNAMES=YES;
RUN;

%track_err;

%put &err_status;

data _null_;
if &err_status=1 then do;
filename imptfail EMAIL
to="abc@abc.com"
from="cdde@cdde.com"
subject="Import Failure"
importance="HIGH";
file imptfail;
put "Hi,";
put " ";
put "The import was unsuccessful. Please correct the errors in the file and reload.";
put "Further processing of this file would be stopped until we receive a new file.";
put "Name of the file with error:&nm.";
put " ";
put "Thank you.";
put " ";

abort abend;
end; 
run;

%MEND Type2File;


%MACRO Import;
%do I=1 %to &totobs. ;
data _null_; 
set directory_summary;
If obs=&i. ;

call symput('fn',"\\filepathfiles\"||trim(filename)) ;
call symput('nm',trim(filename)) ;

IF filetype=".csv" and index(upcase(filename), "ABC") THEN call execute ('%Type1File') ;
ELSE IF filetype=".xls" and index(upcase(filename), "CDE") THEN call execute ('%Type2File');
ELSE IF filetype=".xls" and index(upcase(filename), "FGH") THEN call execute ('%Type3File') ;


run;

%sysExec move "Filepath1" "Filepath2";

%end;
%MEND Import;
%Import;

Re: Trigger email on proc import

cau83 — Wed, 15 Aug 2018 16:16:29 GMT

Does it work in the DATA STEP / call execute without being in the import macro? Have you tried adding a put statement or something else so that you know whether your conditional execution is resolving the way you think it would?

Re: Trigger email on proc import

PJ007 — Wed, 15 Aug 2018 17:10:28 GMT

Thank you for your response. It works when outside the macro and in a data step.

I think the reason it is failing is because the &syserr variable is resolving to 0. I tried syserr and sysrc.

None of them seem to work when called within the Import macro.

Re: Trigger email on proc import

PJ007 — Wed, 15 Aug 2018 17:30:24 GMT

I need the code to abort if the proc import fails.

I tried something as simple as this instead of the email. That doesnt seem to work either within the Import macro call:

data _null_;
if &syserr>0 then do;
put 'The import was unsucessful. Please correct the errors in the file and reload.';
abort abend;
end;
run;

SYMBOLGEN: Macro variable SYSERR resolves to 0

Even if the proc import failed, both syserr and sysrc are resolving to zero.

From the log:

data _null_; if 0>0 then do; put 'The import was unsucessful. Please correct the
errors in the file and reload.'; abort abend; end; run;