sas, Can I use array to rename variables?

I have a set of variables need to be renamed, I tried the following code and
get error message, not sure if it's not feasible or just simply a syntax error.

Please offer your expertise,Many thanks in advance.


%LET NAME=var1 var2 ....varn;
DATA PEGT3A;
SET PEGT3;
ARRAY VARN [*] &NAME;
DO I=1 TO DIM(VARN);
RENAME VARN[I]=VARN[I] || '__'||3;
END;
RUN;

LOG:

RENAME VARN[I]=VARN[I] || '__'||3;
-
22
76
ERROR 22-322: Syntax error, expecting one of the following: -, :, =.

ERROR 76-322: Syntax error, statement will be ignored.

Not really sure what you're after here, there are other ways to do the
rename.
Perhaps the following will help you to clarify the question.

dm 'log' clear;
dm 'out' clear;

%let name=%str($varn1-varn3);

data pegt3;
length var1-var3 $10;
var1='1'; var2='2'; var3='3'; output;
run;

data pegt3a(drop=i var1-var3);
set pegt3;
array var[*] $var1-var3;
array varn[*] &name;
do i=1 to dim(var);
varn[i]=compress(var[i]|| '__'||'3');
end;
run;


proc print data=pegt3a;
run;

RENAME is not executable. You could do something like this to
accomplish what your program appears to be trying to do.

data work.test;
attrib var1-var30 length=$1;
call missing(of var:);
run;
%let renameList = ;
proc sql noprint;
select cats(name,'=',name,'_3') into :renameList separatedBy ' '
from dictionary.columns
where libname eq 'WORK' and memname eq 'TEST' and name like 'var%'
;
quit;
run;
%put _user_;
proc datasets library=work;
modify test;
rename &renamelist;
run;
contents data=test varnum;
run;
quit;


However, I would advise against putting _3 on the end of the name as
your program implies. Because it will cripple the name range. If you
have V9 and put the 3 in the name before the variable numbers you can
do something like the following.

Much easier.

data work.test;
attrib var1-var30 length=$1;
call missing(of var:);
rename var1-var30 = var3_1-var3_30;
run;
proc contents varnum;
run;

little macro might help:

data PEGT3;
input var1 var2 var3;
datalines;
1 2 3
4 5 6
7 8 9
;

proc print data=PEGT3;
run;

%macro Rename(n);
%global rename;
%let rename=;
%do i=1 %to &n;
%let rename=&rename var&i=var&i.__3;
%end;
%mend;

%Rename(3);

DATA PEGT3A;
SET PEGT3;
RENAME &rename;
RUN;

proc print data=PEGT3A;
run;

***** Output *****
The SAS System 11:12
Tuesday, April 17, 2007 30

Obs var1 var2 var3

1 1 2 3
2 4 5 6
3 7 8 9

The SAS System 11:12
Tuesday, April 17, 2007 31

Obs var1__3 var2__3 var3__3

1 1 2 3
2 4 5 6
3 7 8 9

-----Original Message-----
From: SAS(r) Discussion [mailto: XXXX@XXXXX.COM ] On Behalf Of
Sophia Tong
Sent: Tuesday, April 17, 2007 1:08 PM
To: XXXX@XXXXX.COM
Subject: Can I use array to rename variables?

I have a set of variables need to be renamed, I tried the following code
and get error message, not sure if it's not feasible or just simply a
syntax error.

Please offer your expertise,Many thanks in advance.


%LET NAME=var1 var2 ....varn;
DATA PEGT3A;
SET PEGT3;
ARRAY VARN [*] &NAME;
DO I=1 TO DIM(VARN);
RENAME VARN[I]=VARN[I] || '__'||3;
END;
RUN;

LOG:

RENAME VARN[I]=VARN[I] || '__'||3;
-
22
76
ERROR 22-322: Syntax error, expecting one of the following: -, :, =.

ERROR 76-322: Syntax error, statement will be ignored.


-----Message Disclaimer-----

This e-mail message is intended only for the use of the individual or
entity to which it is addressed, and may contain information that is
privileged, confidential and exempt from disclosure under applicable law.
If you are not the intended recipient, any dissemination, distribution or
copying of this communication is strictly prohibited. If you have
received this communication in error, please notify us immediately by
reply email to XXXX@XXXXX.COM and delete or destroy all copies of
the original message and attachments thereto. Email sent to or from the
Principal Financial Group or any of its member companies may be retained
as required by law or regulation.

Nothing in this message is intended to constitute an Electronic signature
for purposes of the Uniform Electronic Transactions Act (UETA) or the
Electronic Signatures in Global and National Commerce Act ("E-Sign")
unless a specific statement to the contrary is included in this message.

While this communication may be used to promote or market a transaction
or an idea that is discussed in the publication, it is intended to provide
general information about the subject matter covered and is provided with
the understanding that The Principal is not rendering legal, accounting,
or tax advice. It is not a marketed opinion and may not be used to avoid
penalties under the Internal Revenue Code. You should consult with
appropriate counsel or other advisors on all matters pertaining to legal,
ta

orry, I thought you wanted an rename and a value change. Another example
-similiar to the previous:


data pegt3;
length var1-var3 $10;
var1='1'; var2='2'; var3='3'; output;
run;

%macro makeds;
data _null_;
set pegt3;
array var[*] $var1-var3;
call symput('x',dim(var));
run;

data pegt3a;
set pegt3;
array var[*] $var1-var3;
%do i=1 %to &x;
rename var&i=varn&i._3;
%end;
run;

proc print data=pegt3a;
run;
%mend makeds;

%makeds




On 4/17/07, Huang, JS < XXXX@XXXXX.COM > wrote: