DATA quad;
INPUT x y id;
CARDS;
0 0 1
0 2 1
2 2 1
2 0 1
2 2 2
3 3 2
4 2 2
; RUN;

DATA a;
id=2; v='Triângulo'; OUTPUT;
id=1; v='Quadrado'; OUTPUT; RUN;

PROC GMAP MAP=quad DATA=a;
ID id;
CHORO v;
RUN; QUIT;

* http://geoftp.ibge.gov.br/organizacao_do_territorio/malhas_territoriais/malhas_municipais/municipio_2018/UFs/GO/ ;
PROC MAPIMPORT DATAFILE='C:\Users\User\Desktop\go\52MUE250GC_SIR.shp' OUT=goias;
RUN;

DATA b;
segment=2; v=2;
RUN;

PROC GMAP MAP=goias DATA=b all;
ID segment;
CHORO v;
RUN; QUIT;

DATA goias; SET goias;
codigo=input(CD_GEOCMU, 7.); RUN;

DATA b;
codigo=2; segment=1; v=2; RUN;

PROC GMAP MAP=goias DATA=b all;
ID codigo;
CHORO v;
RUN; QUIT;

DATA b;
codigo=5201108; v=1; OUTPUT;
codigo=5208707; v=2; OUTPUT;
codigo=5217302; v=3; OUTPUT; RUN;

PROC GMAP MAP=goias DATA=b all;
ID codigo;
CHORO v;
RUN; QUIT;

PROC GMAP MAP=goias DATA=b all;
ID codigo;
PRISM v;
RUN; QUIT;

PROC GMAP MAP=goias DATA=b all;
ID codigo;
BLOCK v;
RUN; QUIT;

PROC GMAP MAP=goias DATA=b all;
ID codigo;
SURFACE v;
RUN; QUIT;

DATA goias; SET goias;
pop=ranpoi(2, 200);
RUN;

PROC SORT DATA=goias(keep=codigo) OUT=goias1 NODUPKEY; BY codigo; RUN;

DATA goias1; SET goias1;
pop=ranpoi(2, 200);
RUN;

PROC GMAP MAP=goias DATA=goias1 all;
ID codigo;
CHORO pop;
RUN; QUIT;

PROC SQL NOPRINT;
SELECT min(x) INTO:minx FROM goias;
SELECT max(x) INTO:maxx FROM goias;
SELECT min(y) INTO:miny FROM goias;
SELECT max(y) INTO:maxy FROM goias;
QUIT;
%put &minx &maxx &miny &maxy;

DATA grid;
DO x=&minx TO &maxx BY 0.1;
DO y=&miny TO &maxy BY 0.1;
OUTPUT;
END;
END;
RUN;

DATA grid; SET grid;
RETAIN hsys '3' xsys ysys "2";
function='label'; text='K'; color='red'; style='special'; size=1; when='a'; *Google : font special sas;
RUN;

PROC GMAP MAP=goias DATA=b all ANNO=grid;
ID codigo;
CHORO v;
RUN; QUIT;

PROC GINSIDE DATA=grid MAP=goias OUT=grid1 INSIDEONLY;
ID codigo; RUN;

PROC GMAP MAP=goias DATA=b all ANNO=grid1;
ID codigo;
CHORO v;
RUN; QUIT;