/* Example of use of SYSDAY and SYSDATE  */
title "This was run on &SYSDAY, &SYSDATE";
run;

/* A demonstration of %scan  */
%let indvars=write math female socst;
%let indvar=%scan(&indvars,2); run;

data hsb2;
  input  id female race ses prog
         read write math science socst;
datalines;
 70 0 4 1 1 57 52 41 47 57
121 1 4 2 3 68 59 53 63 61
 86 0 4 3 1 44 33 54 58 31
141 0 4 3 3 63 44 47 53 56
172 0 4 2 2 47 52 57 53 61
113 1 4 2 2 44 52 51 63 61
 50 0 3 2 1 50 59 42 53 61
 11 0 1 2 2 34 46 45 39 36
 84 0 4 2 1 63 57 54 51 63
 48 1 3 2 2 57 55 52 50 51
 75 1 4 2 3 60 46 51 53 61
 60 1 4 2 2 57 65 51 63 61
 95 0 4 3 2 73 60 71 61 71
104 0 4 3 2 54 63 57 55 46
 38 0 3 1 2 45 57 50 31 56
115 0 4 1 1 42 49 43 50 56
 76 0 4 3 2 47 52 51 50 56
195 0 4 2 1 57 57 60 56 52
;


proc reg data=hsb2;
model read=&indvar;
run;

/* The regall macro  */
%macro regall(dep=,indep=);
%let k=1;
%let indx=%scan(&indep,&k);
%do %while("&indx" ne "");
proc reg data=hsb2;
model &dep=&indx;
run;
%let k=%eval(&k+1);
%let indx=%scan(&indep,&k);
%end;
%mend;

%regall(dep=read,indep=write math female socst);