| Date: | Tue, 6 May 1997 15:45:56 GMT |
|---|
| Reply-To: | Jay Weedon <j_weedon@ESCAPE.COM> |
|---|
| Sender: | "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU> |
|---|
| From: | Jay Weedon <j_weedon@ESCAPE.COM> |
|---|
| Organization: | None |
|---|
| Subject: | Re: Passing a list of filenames to a macro variable |
|---|
| Content-Type: | text/plain; charset=us-ascii |
|---|
On Mon, 05 May 1997 15:42:07 -0400, Jason Yarrington <jasony@pop.psu.edu>
wrote:
>I would like to modify the following code to pass a file of file names
>to the macro that I have written
>
>I have a file that looks like this:
>
>exp09001.dbf
>exp09003.dbf
>exp09011.dbf
>exp12111.dbf
>.
>.
>.
>
>And I would like to read the file and pass each file name to the macro
>below, in place of the parameter.
>
>%let srcpath = /home/yada/yada/yada/report/;
>
>%macro dbfconv(thisfile) ;
>filename dbdum "&srcpath.&thisfile..dbf";
>proc dbf db3=dbdum out=&thisfile ;
>%mend dbfconv;
>
>%dbfconv(exp09001); run;
>%dbfconv(exp09003); run;
>
>data one;
> set
> exp09001 exp09003
> ;
>
>Any suggestions would be greatly appreciated.
Assuming that your file containing the filenames is called mydir/names.txt,
you could try something like this:
* Initialize macro var SET as null string (will eventually contain string
exp09001 exp09003 ...);
%let set=;
data _null_;
* Read file containing filenames;
infile "mydir/names.txt";
input fname $;
* Concatenate filename in current record to macro var SET;
call symput( "set", symget("set") || " " || fname );
* Set up macro DBFCONV to execute w/current filename AFTER current datastep;
call execute ( "%dbfconv(" || fname || ")" );
run;
* Following datastep will be executed AFTER repeated executions of macro;
data one;
set &set;
run;
Jay Weedon.
| 
