topic Declaring Variables in Arrays: Looking for an easier method in SAS Procedures

Declaring Variables in Arrays: Looking for an easier method

warnost — Mon, 16 Apr 2012 20:34:56 GMT

Hello,

I am using arrays to transform numeric variables in a SAS data set. I am seeking a quick way to declare transformed variables in arrays, such that a prefix is applied to the original variable name. In the below code, is there any way to declare the variables in the arrays t1var and t2var other than typing them out? I don't want to use t1-3, this would be faster but when my data set has lots of variables it is important that they retain their original names (plus the prefix) so that they can be easily identified.

Data data.Recoded_Variables;

Set data.Variables;

/*data.Variables contains 3 numeric

variables: sales, expenses, employees */

Array var

sales expenses employees;

Array t1var

t1sales t1expenses t1employees;

Array t2var

t2sales t2expenses t2employees;

Do i=1 to dim(var);

t1var= var/lag(var)-1;

t2var= lag(t1var);

End;

Drop i;

Run;

Thank you!

Will

Re: Declaring Variables in Arrays: Looking for an easier method

Linlin — Mon, 16 Apr 2012 21:40:12 GMT

try this one:

data variables;

input id sales expenses employees ;

cards;

1 200 100 2

2 300 200 3

3 400 220 4

;

proc sql noprint;

select name

,cats('t1',name)

,cats('t2',name)

into :name separated by ' '

, :t1name separated by ' '

, :t2name separated by ' '

from dictionary.columns

where libname='WORK' and memname='VARIABLES' and upcase(name) ne 'ID';/* note: libname and memname have to be capital letters */

quit;

data recoded_variables;

set variables;

Array var

&name;

Array t1var

&t1name;

Array t2var

&t2name;

Do i=1 to dim(var);

t1var= var/lag(var)-1;

t2var= lag(t1var);

End;

Drop i;

Run;

proc print;run;

Linlin

Message was edited by:Linlin

Re: Declaring Variables in Arrays: Looking for an easier method

data_null__ — Tue, 17 Apr 2012 00:49:08 GMT

This should work for any reasonable number of variables with names that arent too long for it to work properly.

data variables;

input sales expenses employees ;

cards;

200 100 2

300 200 3

400 220 4

;;;;

run;

%let vars=Sales-numeric-employees;

proc transpose data=variables(obs=0) out=names;

var &vars;

run;

proc sql noprint;

select _name_ into :vars separated by ' '

from names;

quit;

run;

data names;

length vname $32;

set names;

do vname = _name_,cats('T1',_name_),cats('T2',_name_);

output;

end;

retain n 0;

run;

proc transpose data=names out=arrays(drop=_name_);

var n;

id vname;

run;

data want;

if 0 then set arrays;

Array _v

&vars;

Array _t1

t1:;

Array _t2

t2:;

set variables;

Do i=1 to dim(_v);

_t1= _v/lag(_v)-1;

_t2= lag(_t1);

end;

Drop i;

Run;

proc contents varnum;

proc print;

run;

# Variable Type Len

1 sales Num 8

2 T1sales Num 8

3 T2sales Num 8

4 expenses Num 8

5 T1expenses Num 8

6 T2expenses Num 8

7 employees Num 8

8 T1employees Num 8

9 T2employees Num 8

Obs sales T1sales T2sales expenses T1expenses T2expenses employees T1employees T2employees

1 200 . . 100 . . 2 . .

2 300 0.50000 . 200 1.0 . 3 0.50000 .

3 400 0.33333 0.5 220 0.1 1 4 0.33333 0.5