OPTIONS LS=MAX PS=MAX NOCENTER COMPRESS=YES MACROGEN MLOGIC;
LIBNAME IN '.DATA';
%MACRO MM;
DATA _NULL_;
%DO I=3 %TO 60 %BY 3;
%IF %EVAL(&I)=3 OR %EVAL(&I)=6 OR %EVAL(&I)=12 OR %EVAL(&I)=24 OR %EVAL(&I)=36 OR %EVAL(&I)=48 OR %EVAL(&I)=60 %THEN %DO;
%PUT &I.;
%END;
%ELSE %PUT "0";
%END;
RUN;
%MEND;
%MM;