data AllSubjects(keep=Age Subject);
  input Age @;
  do i=1 to 3;
    input Subject $ @;
    output;
  end;
datalines;
  13 Math History English
  14 Math Science English
  run;
data schedules_dstep(drop=Age2);
  set sashelp.class(where=(Age in (13,14)));
  do i=1 to NSubjects;
    set AllSubjects(rename=(Age=Age2)) nobs=NSubjects point=i;
    if Age=Age2 then output;
  end;
run;
proc sort data=schedules_dstep;
  by Subject Age Name;
run;
proc print data=schedules_dstep;
  by Subject;
  id Subject;
  title1 "Many-to-many results";
run;