%let filepath=C://;* Filepath to pick up the files;
%macro extract(dir=, ext=);
%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......*/
/* export filenames in dataset */
format file $20. file2 $20.;
no = &i.;
file = "&name1.";
file2 = "&memname.";
%if &i = 1 %then %do;
set a_all a;
%extract(dir=&filepath, ext=/file extension/)
Registration is open! SAS is returning to Vegas for an AI and analytics experience like no other! Whether you're an executive, manager, end user or SAS partner, SAS Innovate is designed for everyone on your team. Register for just $495 by 12/31/2023.
If you are interested in speaking, there is still time to submit a session idea. More details are posted on the website.
Data Literacy is for all, even absolute beginners. Jump on board with this free e-learning and boost your career prospects.