*** This Macro creates a template with v*h fields***; %MACRO mkfields(v,h); FILENAME d_fields TEMP; DATA extern; FILE d_fields; PUT "tdef newtemp des=""&v * &h - Felder"" "; anz=&v*&h; vs=INT(100/&v); hs=INT(100/&h); DO i=1 TO &v; DO j=1 TO &h; fnr=(i-1)*&h+j; lly=100-i*vs-1; llx=(j-1)*hs+1; uly=100-(i-1)*vs; ulx=(j-1)*hs+1; ury=100-(i-1)*vs; urx=j*hs; lry=100-i*vs-1; lrx=j*hs; PUT @6 fnr '/lly=' lly +3 'llx=' llx / @8 'uly=' uly +3 'ulx=' ulx / @8 'ury=' ury +3 'urx=' urx / @8 'lry=' lry +3 'lrx=' lrx ; END; END; PUT ';'; RUN; PROC GREPLAY tc=tempcat nofs; %INCLUDE d_fields; * PREVIEW newtemp; RUN; QUIT; %MEND mkfields; %mkfields(3,2)