BookmarkSubscribeRSS Feed

Sample Dynamic File Scan

Started ‎07-10-2014 by
Modified ‎10-05-2015 by
Views 803

%let filepath=C://;* Filepath to pick up the files;

 

%macro extract(dir=, ext=);

 

    %let filrf=mydir;

    %let rc=%sysfunc(filename(filrf,&dir));

    %let did=%sysfunc(dopen(&filrf));

    %let memcnt=%sysfunc(dnum(&did));

 

    %do i = 1 %to &memcnt;

        %let memname = %qsysfunc(dread(&did, &i));

        %let fid = %sysfunc(mopen(&did, &memname));

           

        %let extname=%qscan(%qsysfunc(dread(&did,&i)),-1,.);    /* Returns the extension from each file */

       

        /* Returns the file name portion */

        %let name1=%qscan(%qsysfunc(dread(&did,&i)),1,.);       /* filename with yymmdd */

        %let name2=%substr(&name1,1,(%length(&name1)-6));       /* filename without yymmdd */

 

        /* Checks to see if file contains an extension */

        %if %qupcase(%qsysfunc(dread(&did,&i))) ne %qupcase(&ext) %then %do;

                                                                                %if (%qupcase(&extname) eq %qupcase(&ext)) and ("&name1" ne "") %then %do;             

   

            /* if condition TRUE then execute SAS statement......*/

 

            %put user;

            /* export filenames in dataset */

            data a;

            format file $20. file2 $20.;

            no = &i.;

            file = "&name1.";

            file2 = "&memname.";

            run;

 

            data a_all;

                %if &i = 1 %then %do;

                set a;

                %end;

                %else %do;

                set a_all a;

                %end;

            run;

              

            %end;

        %end;

    %end;

 

    %let rc=%sysfunc(dclose(&did));    

 

%mend;                                                                               

%extract(dir=&filepath, ext=/file extension/)

 

Version history
Last update:
‎10-05-2015 03:45 PM
Updated by:

hackathon24-white-horiz.png

The 2025 SAS Hackathon Kicks Off on June 11!

Watch the live Hackathon Kickoff to get all the essential information about the SAS Hackathon—including how to join, how to participate, and expert tips for success.

YouTube LinkedIn

SAS AI and Machine Learning Courses

The rapid growth of AI technologies is driving an AI skills gap and demand for AI talent. Ready to grow your AI literacy? SAS offers free ways to get started for beginners, business leaders, and analytics professionals of all skill levels. Your future self will thank you.

Get started

Article Labels
Article Tags