%macro generate(fond,point,file=); /* Macro écrite par Patrick Brossier (GIP RECLUS) fond nom du tableau qui recevra les coordonnées du fond point nom du tableau qui recevra les coordonnées des centres file filename du fichier ungenerate d'ARC/INFO, si ce paramètre est absent, la macro vous demandera de localiser le fichier. Cette macro transforme un fichier ungenerate d'ARC/INFO en un fond de carte SAS, et un tableau des centres associé. Version du 07/05/99 */ %if &file= %then %do; %filename(ent,old); %let file=ent; %end; data &fond(keep=id x y segment) &point(keep=id xc yc segment); infile &file; retain idc; a:input code $1. @@; if code=' ' then do;input id @@; if id=-99999 then do; id=idc; x=.; y=.; output &fond; goto b; end; if idc^=id then idc=id; input xc yc; segment+1; output &point; b:input code $1. @@; if code=' ' then do; input x y; output &fond; goto b; end; if code='E' then do; input; goto a; end; end; if code='E' then stop; run; %mend;