_sasunit_getextension.sas

Go to the documentation of this file.

 
%MACRO _sasunit_getExtension (
    i_file  
); 

%LOCAL i; %LET i=0;
%DO %WHILE("%scan(&i_file,%eval(&i+1),.)" NE "");
   %LET i=%eval(&i+1);
%END;
%IF &i>1 %THEN .%scan(&i_file,&i,.);

%MEND _sasunit_getExtension;