topic Re: How to peform a check before an action in SAS Programming

How to peform a check before an action

adrianang — Fri, 07 Nov 2014 08:30:49 GMT

Hi,

i am require to create a script to check if the file is empty then i need to move the file.

how can i do about it?

Thanks

user24feb — Fri, 07 Nov 2014 08:48:06 GMT

If your file is a SAS-dataset, try:

%Macro Del_F(File=,Lib=);

Data _NULL_;

MyFile=Open("&File.");

EmptyFlag=Attrn(MyFile,"ANY");

Call SymputX("Empty",EmptyFlag);

Run;

%If &Empty^=1 %Then %Do;

Proc Datasets Lib=&Lib. NoList MemType=Data;

Delete &File.;

Run;

%End;

%Mend;

%Del_F(File=<SASFile>,Lib=<Work>)

Ksharp — Fri, 07 Nov 2014 13:36:50 GMT

%let dsid=%sysfunc(open(sashelp.class));

%let nobs=%sysfunc(attrn(&dsid,nlobs));

%let dsid=%sysfunc(close(&dsid));

%put &nobs ;

Xia Keshan