Hallo, auch ich habe das gerade eben mal ausprobiert, weil ich recht neu in SAS bin. Ist auf jeden Fall eine gute Übung. Hat Spass gemacht. *1 ist offen; *0 ist geschlossen; %macro ReportOpenLockers(count); data tueren (drop=i j); array lockers[&count.] ; *alle array variablen auf eins setzen; do i=1 to &count.; lockers = 1; end; *zwei Scheifen durchlaufen; do j=2 to &count.; do i=j to &count. by j; if lockers = 1 then lockers = 0; else if lockers = 0 then lockers = 1; end; end; run; proc transpose data=tueren out=tueren; run; proc print data=tueren; where Col1 = 1; run; %mend ReportOpenLockers; %ReportOpenLockers(100); Viele Grüße Sven
... View more
