Проблема с циклом SAS do

Question

Это мой код:

libname Project 'XXX'; run;
%let dname = q1males;
%let Gender = 'Male';
%let samp = q1msamp;
%let stats = Malestats;


data project.data1; set project.data;
id = _n_;
run;



data project.&dname; set project.data1; 
if Gender = &Gender;
run;
%macro question;
%do i = 1 %to 5;

proc surveyselect data = project.&dname method = SRS sampsize = 27 
                out = project.&samp;
                id _all_;
run;

proc print data = project.&samp;
run;

proc sql;
create table project.&stats&i as
select 'Weight',
avg(Weight) as Mean format 10.2 label 'Mean Weight',
std(Weight) as Std format 10.2 label 'Std. Dev Weight'
from project.&samp;
QUIT;
%end;
%mend question;
%question;

%do j = 1 %to 5;
data project.merged&j;
merge project.femalestats&j project.malestats&j;
by _Tema003 Mean Std;
run;

Все работает нормально, за исключением последних 6 строк, начиная с %do j = от 1 % до 5.Я дважды запускаю предшествующий ему код для женских и мужских наборов данных, и с помощью последних 6 строк я пытаюсь объединить женские и мужские наборы данных (например:project.Femalestats1 объединен с project.Malestats1 будет в новом наборе данных project.merged1.) В моем журнале не отображаются ошибки, но я также не получаю объединенные наборы данных.Я попробовал proc sql с неутешительными результатами.

Какая-нибудь помощь?Спасибо!

Answer 1

Вы не можете использовать циклы макросов вне макроса.Заключите последние строки в макрос, как вы это делаете в question макрос.

Кроме того, вам нужно завершить цикл:

%macro myloop();
   %do i=1 %to 5;

      <stuff>

   %end
%mend;

%myloop;