eventvwr
in
the Search programs and files dialog box
and click OK.
yourfunction("type_of_event", "text_string");
Type of
Event
|
First Parameter
Value
|
Error
|
“ERROR”
|
Warning
|
“WARNING”
|
Information
|
“INFORMATION”
|
Success Audit
|
“SUCCESSAUDIT”
|
Failure Audit
|
“FAILUREAUDIT”
|
%macro pdata(file); %let cmdstr = "dir &file"; options noxwait; data _null_; call system(&cmdstr); run; %put &sysrc = sysrc; %put &file; %if &sysrc=0 %then %do; filename indata "&file"; /* Your data step code for this file. */ DATA a; infile indata length=linelen; length line $ 200; input @1 line $ varying200. linelen; PROC print; run; %end; %else %do; /* Log an Event of type Error. */ %let cmdstr = %str("The file &file did not exist so no data step ran."); %put &cmdstr; DATA _null_; x=ntlog("INFORMATION",&cmdstr); run; %end; %mend; %pdata(c:\config.syss)
/* Build a frame and add a pushbutton. Change the Attribute Name “name” to “object1”. In the Source window, add the following code. */ object1: x=ntlog("INFORMATION", "This is an INFORMATION event."); x=ntlog("WARNING", "This is a WARNING event."); x=ntlog("ERROR", "This is an ERROR event."); x=ntlog("SUCCESSAUDIT", "This is a SUCCESSAUDIT event."); x=ntlog("FAILUREAUDIT", "This is a FAILUREAUDIT event."); return;
%macro pdata(file); %local cmdstr; %let cmdstr = "dir &file"; options noxwait; DATA _null_; call system(&cmdstr); run; %if &sysrc=0 %then %do; filename indata "&file"; /* Your data step code for this file. */ DATA a; infile indata length=linelen; length line $ 200; input @1 line $ varying200. linelen; PROC print; run; %end; %else %do; /* Log an Event of type Error. */ %let cmdstr = %bquote(c:\support\sasset2\logevent.exe -s E "The file &file did not exist so no data step ran."); DATA _null_; %sysexec &cmdstr; run; %end; %mend; %pdata(c:\config.syss)