topic Re: Use array in macro in SAS Procedures

Use array in macro

WouterKBC — Mon, 05 Sep 2016 13:45:54 GMT

How can you use an array in a macro?

I cannot define an array in a macro, so I decided to make the array in a datastep and reference to it:

data _null_;
	x1 = 1;
	x2 = 2;
	array bonds{2} x1-x2;
	call symput('blub', bonds);
run;
%macro test(input=);
	%let var = 1;
	%put 1;
	%put &var;
%mend test;
%test(input=&blub);

It fails at the symput:

ERROR: Illegal reference to the array bonds.

Re: Use array in macro

Cynthia_sas — Mon, 05 Sep 2016 14:07:31 GMT

Hi:
The array reference "bonds" is not something that you can use the way you envision. Let's start by saying that it doesn't matter what you want to do with the token or array reference "bonds" -- it is just reference, not a physical data structure.

A SAS array name is just one way to reference a group of variables that you want to have treated as though it was like an array. So anytime you use the reference BONDS, SAS will expect you to use a subscript or index, such as BONDS(1) (which points to X1) or BONDS(2) (which points to X2).

I guess I don't understand what you are doing in your %TEST macro program. Do you want to pass the values of X1 and X2 to the macro program or do you want to pass the variable names to the macro program?

What is the purpose of your %let var=1; are you thinking that var will be your index to the array?

cynthia

Re: Use array in macro

WouterKBC — Mon, 05 Sep 2016 14:27:49 GMT

It's just some dummy code.

Let's assume:

%macro test(input=);
	%let var = input{1};
	%put &var;
%mend test;

Can I pass my bonds array to this macro?

Re: Use array in macro

Shmuel — Mon, 05 Sep 2016 14:30:51 GMT

Call Symput in data step is equivalent to %LET, that is assing value to a macro variable;

In your code "bonds" is a reference name of an array, not a variable value.

You can try a macro similar to that:

%macro test(array=1 2 3);

%let i = 1;

%do %until(&x = );

%let x = %scan(input, &i);

%put I = &i x = &x;

%let i = %eval(&i +1);

%end;

%mend;

%test

Re: Use array in macro

Shmuel — Mon, 05 Sep 2016 14:34:29 GMT

I made a mismatch;
use array instead input un the macro

Re: Use array in macro

Shmuel — Mon, 05 Sep 2016 14:38:09 GMT

Here is the repaired code to test:

%macro test(array=1 2 3);

%let i = 1;

%do %until(&x = );

%let x = %scan(&array, &i);

%put I = &i x = &x;

%let i = %eval(&i +1);

%end;

%mend;

%test;

Re: Use array in macro

WouterKBC — Mon, 05 Sep 2016 14:40:27 GMT

Thanks for your reply.

I still have one problem. The array is defined outside the macro in a data step.

Whenever I try to 'call symput', I get the error 'Illegal reference to the array' so I cannot use it as a parameter.

Any suggestions?

Re: Use array in macro

WouterKBC — Mon, 05 Sep 2016 14:53:16 GMT

Something suboptimal:

array=&var1-&var10

Where var... is defined outside the macro (with call symput).

In this case, the vars need to be filled with some dummy data which is not what I want.

Re: Use array in macro

Shmuel — Mon, 05 Sep 2016 14:54:09 GMT

Then you can do:

data _NULL_;

x1 = 1; x2=2;

array bonds{2} x1-x2;

len = length(bonds);

length array_string = $20;

array_string = left(x1);

do i=2 to len;

array_straing = trim(array_string) || ' '||left(x(i));

end;

call symput ('my_array', trim(array));

run;

then use the macro test as:

%test(array = &my_array);

Re: Use array in macro

WouterKBC — Mon, 05 Sep 2016 14:59:49 GMT

177 len = length(bonds);
ERROR: Illegal reference to the array bonds.

Re: Use array in macro

Shmuel — Mon, 05 Sep 2016 15:27:53 GMT

sorry, next code runs without errors:

data _NULL_;
      x1 = 1; x2=2;
     array bonds{2} x1-x2;
      len = dim(bonds);
      length array_string $20;
      array_string = left(x1);
      do i=2 to len;
           array_straing = trim(array_string) || ' '||left(bonds(i));
      end;

      call symput ('my_array', trim(array_string));
run;

Re: Use array in macro

BrunoMueller — Mon, 05 Sep 2016 16:04:18 GMT

To put all values of an array into one string, you can use the CAT... functions together with the OF keyword and an arrayname. See example below.

data _NULL_;
  x1 = 1;
  x2 = 2;
  x3 = 3;
  array bonds{*} x1-x3;
  length array_string $20;
  array_string = catx(" ", of bonds{*});
  call symputx('my_array', array_string);
run;
%put NOTE: &=my_array;

Bruno

Re: Use array in macro

Reeza — Mon, 05 Sep 2016 16:29:24 GMT

Based on your other question about importing multiple excel workbooks/sheets I can't help but suggest that this is the wrong path to be going down.

You need to provide the file paths. SAS can extract them from a directory or you can provide the path or generate them in some manner, assuming some logic in naming, to pass to your proc import. An array will not help in any way with this process.

If you have the paths in a datastep you can call the import procedure macro via a call execute statement.

Re: Use array in macro

ChrisRodrig — Wed, 23 Oct 2019 00:28:15 GMT

Thanks for this!

Let me loop through an array/variable list to execute a nested macro I created.

i'm sure there are other approaches but this was simple enough.

Re: Use array in macro

ChrisRodrig — Wed, 23 Oct 2019 00:48:08 GMT

***Since I was using this to execute a nested macro I created, I changed the code a little to only run til the end of the list- instead of when x was null.

%macro test(array=Var1 Var2 Var3 .... );
%let i = 1;

%do %until( &i = %eval(%sysfunc(countw(&array.)) +1));
%let x = %scan(&array, &i);
%put I = &i x = &x;
%let i = %eval(&i +1);
%MyNestedMacro(varn= &x);
%end;
%mend;
%test;

Re: Use array in macro

Patrick — Wed, 23 Oct 2019 12:24:25 GMT

@ChrisRodrig

You do realize that you're posting answers to a 3 years old thread.

Re: Use array in macro

ChrisRodrig — Wed, 23 Oct 2019 18:49:22 GMT

I realize I ran the code today and it worked, so this 3 year old post provided a helpful solution...

And now I'm wasting time replying to a snarky comment:/

Are you trying to be some kind of SAS-troll?