_sasunit_existvar.sas

Go to the documentation of this file.

 
%MACRO _sasunit_existVar (
   i_data       
  ,i_var        
  ,i_vartype    
); 

%LOCAL dsid varnum;
%LET dsid=%sysfunc(open(&i_data,i));
%IF &dsid EQ 0 %THEN 0;
%ELSE %DO;
   %LET varnum=%sysfunc(varnum(&dsid,&i_var));
   %IF &varnum LE 0 %THEN 0;
   %ELSE 
      %IF &i_vartype NE 
         AND %sysfunc(vartype(&dsid,&varnum)) NE %upcase(&i_vartype) 
         %THEN 0;
   %ELSE 1;
   %LET dsid = %sysfunc(close(&dsid));
%END;
%MEND _sasunit_existVar;