Date:         Sat, 9 Aug 2003 23:54:47 -0400
Reply-To:     "Droogendyk, Harry" <Harry.Droogendyk@CIBC.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "Droogendyk, Harry" <Harry.Droogendyk@CIBC.COM>
Subject:      Re: help on fileref()/fexist()....
Content-Type: text/plain; charset="iso-8859-1"

You do not want to check for &filenumber=1.  Subsequent fopen's will return
2, 3, 4 etc....

Any positive value indicates a successful open.

                -----Original Message-----
                From:   Arto Raiskio [mailto:arto.raiskio@SUOMENPOSTI.COM]
                Sent:   August 9, 2003 2:58 PM
                To:     SAS-L@LISTSERV.UGA.EDU
                Subject:        Re: help on fileref()/fexist()....

                "Droogendyk, Harry" wrote
                > You must save the file number returned by the fopen and
use it in the
                > fclose:

                ok, so something like this works also

                filename ftpscr 'c:\temp\freespace.log';
                %macro m;
                %let filenumber = %sysfunc(fopen(ftpscr,I));
                %if &filenumber=1 %then %do;
                   Data _null_;do x=1 to 10;output;end;run; *data and proc
steps...;
                %end;
                %let close_rc = %sysfunc(fclose(&filenumber));
                %put _user_;
                %mend;
                %m;