This sample computes the product of a list of variables that have a common prefix. This macro is building the list of variables by placing an asterisk in between the variables. Given the list of var1-var5, the macro generates var1*var2*var3*var4*var5.

Below are two other SAS notes that also calculate the product.

SAS note 24628

SAS note 35452

---

These sample files and code examples are provided by SAS Institute Inc. "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and fitness for a particular purpose. Recipients acknowledge and agree that SAS Institute shall not be liable for any damages whatsoever arising out of their use of this material. In addition, SAS Institute will provide no support for the materials contained herein.

data test;                                                                                                                              
  input xc1 xc2 xc3 xc4 xc5;                                                                                                              
cards;                                                                                                                                  
1 2 3 4 3                                                                                                                               
;                                                                                                                                       
                                                                                                                                        
%macro product(x);                                                                                                                      
                                                                                                                                        
 %let tmp1=%sysfunc(anydigit(&x));                                                                                                      
 %let tmp2=%sysfunc(anydigit(&x));                                                                                                      
 %let var=%substr(%scan(&x,1),1,%eval(&tmp1-1));                                                                                        
 %let begin=%substr(%scan(&x,1),&tmp1);                                                                                                 
 %let end=%substr(%scan(&x,2),&tmp2);                                                                                                   
                                                                                                                                        
   %do i=&begin %to &end;                                                                                                               
    %if &i ne &end %then                                                                                                                
     &var&i*;                                                                                                                           
    %else                                                                                                                               
     &var&i;                                                                                                                            
   %end;                                                                                                                                
                                                                                                                                        
%mend product;                                                                                                                          
                                                                                                                                        
data two;                                                                                                                               
 set test;                                                                                                                              
 total=%product(xc1-xc5);                                                                                                               
 put total=;                                                                                                                            
run;       

---

These sample files and code examples are provided by SAS Institute Inc. "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and fitness for a particular purpose. Recipients acknowledge and agree that SAS Institute shall not be liable for any damages whatsoever arising out of their use of this material. In addition, SAS Institute will provide no support for the materials contained herein.

/** Log results **/

total=72

Operating System and Release Information