Date:         Tue, 4 Oct 2005 20:55:21 -0000
Reply-To:     sa polo <solouga4@rediffmail.com>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         sa polo <solouga4@REDIFFMAIL.COM>
Subject:      Re: WARNING: Apparent symbolic reference _K not resolved !!??
Comments: To: Chang Chung <chang_y_chung@HOTMAIL.COM>
Content-Type: text/plain; charset=iso-8859-1

 Thanks again Chang,
Just need some clarification on how statements below taken from the
program you wrote get executed.I would like to know how
the "file" statement gets correctly concatenated with the
file location, this is one piece of the program that i am unable
to understand.
-----------------------------------------------------------
 call execute('  file "' || '%fname(' || put(id,best.) || ')";');

 %nrstr(%%nrstr%()c:\&number.-&name..csv;%nrstr(%))
------------------------------------------------------------------
All help is much appreciated.
Sa Polo


On Mon, 03 Oct 2005 Chang Chung wrote :
>On Mon, 3 Oct 2005 16:18:07 -0000, sa polo <solouga4@REDIFFMAIL.COM> wrote:
>
> >Thanks Chang,
>
>I have used your edits to change my program but while
>i create a file using a  FILE  statement in a DATA STEP
>i get the WARNING: Apparent symbolic reference _K not resolved !!??
>i would like to get rid of this message.
>
>Also i need to invoke the macro through a CALL EXECUTE as i am
>reading the Id from within a DATA STEP.
>
>Any help is much appreciated as usual.
>
>proc format;
>   value fname
>     0801 = "S & K"
>   ;
>run;
>
>%macro fname(id);
>%*-- returns filename based on the input number --*;
>   %local number name;
>
>   %let number = %sysfunc(putn(&id., z4.));
>   %let name = %qsysfunc(putn(&id., fname.));
>   %let name = %qsysfunc(strip(&name.));
>   %let name = %qsysfunc(translate(&name., "_", " "));
>/*  %*;&number.-&name.*/
>   %put test= "&number.-&name.";
>    DATA _NULL_;
>    FILE "c:\&number.-%SUPERQ(name).csv";
>
>    RUN;
>%mend  fname;
>
>DATA _NULL_;
>CALL EXECUTE('%fname('||801||')');
>RUN;
>
>Hi, Sa,
>
>The macro as I wrote it is fine -- it returns a quoted string. The problem
>is that the call execute seems to resolve everything. And if you think of it
>a minuite, why not? It expects a character string, and thus the macro
>quoting is stripped away to produce a string for the call routine. Thus the
>call execute only sees (un)masked strings only.
>
>Well, if this is the case, then what you have to do is to force it to see a
>quoting function as a part of the string. It is easy -- Something like
>below. I know it works, but there are probably other people who can explain
>how it works much better than I can. HTH.
>
>Cheers,
>Chang
>
>proc format;
>   value fname
>     0801 = "S & K"
>   ;
>run;
>
>%macro fname(id);
>%*-- returns filename based on the input number --*;
>   %local r number name;
>   %let number = %sysfunc(putn(&id., z4.));
>   %let name = %qsysfunc(putn(&id., fname.));
>   %let name = %qsysfunc(strip(&name.));
>   %let name = %qsysfunc(translate(&name., '_', ' '));
>   %nrstr(%%nrstr%()c:\&number.-&name..csv;%nrstr(%))
>%mend  fname;
>
>%put fname=%fname(801);
>
>data _null_;
>   id = 801;
>   call execute('data _null_;');
>   call execute('  file "' || '%fname(' || put(id,best.) || ')";');
>   call execute('run;');
>run;
>
>/* on log
>NOTE: CALL EXECUTE generated line.
>1   + data _null_;
>2   +   file "%nrstr(c:\0801-S_&_K.csv;)";
>3   + run;
>
>NOTE: The file "c:\0801-S_&_K.csv;" is:
>       File Name=c:\0801-S_&_K.csv;,
>       RECFM=V,LRECL=256
>
>NOTE: 0 records were written to the file "c:\0801-S_&_K.csv;".
>*/