How to peform a check before an action

[adrianang]

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]

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]

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

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

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

%put &nobs  ;

Xia Keshan