*hand32.txt;
*********************2 PLOTS ON SAME PAGE DIFFERENT AXES;



DATA GNP; SET SASHELP.GNP;
 INV=INVEST;  GOV=GOVT;

PROC GPLOT DATA=GNP;
 PLOT1 INV*DATE='I';
 PLOT2 GNP*DATE='G';
RUN;

*******************MAP OF CHINA;

DATA CHINA;
 DO ID=1 TO 32;
  VARIABLE=ID;
 OUTPUT; END;

PROC GMAP MAP=MAPS.CHINA DATA=CHINA;
  ID ID;
  CHORO VARIABLE /COUTLINE=BLACK DISCRETE ;     *also use BLOCK and PRISM;
  TITLE1 BOX=3 'NATIONAL SALES';                *with XVIEW, YVIEW, ZVIEW;
RUN;


**************************PART OF THE MAP OF CHINA;


PROC GMAP MAP=MAPS.CHINA DATA=CHINA;
 WHERE (ID=3 OR   ID=9);
  ID ID;
  CHORO VARIABLE /COUTLINE=BLACK DISCRETE;
 PATTERN1 C=RED;
 PATTERN2 C=PURPLE;
  TITLE1 BOX=3 'NATIONAL SALES';
RUN;

**************************PART OF THE MAP OF CHINA;

TITLE; FOOTNOTE;
GOPTIONS RESET=ALL DEVICE=WIN NODISPLAY;
PROC GMAP MAP=MAPS.CHINA DATA=CHINA GOUT=WORK.GSEG;
  ID ID;
  CHORO ID /COUTLINE=BLACK DISCRETE  NAME='CHINAMAP';

PROC GSLIDE BORDER GOUT=WORK.GSEG NAME='BORDER2';
 TITLE BOX=1 'PART OF CHINA';
RUN;

GOPTIONS RESET=ALL;
PROC GREPLAY NOFS;
 IGOUT WORK.GSEG;
 TC WORK.TEMPCAT;
 TDEF CHINA_3
                 1/ ULX=0    ULY=100      URX=200  URY=100
                    LLX=0    LLY=-100     LRX=200  LRY=-100
                 2/ ULX= 5   ULY=95     URX=95   URY=95
                    LLX= 5   LLY= 5     LRX=95   LRY= 5 ;

 TEMPLATE=CHINA_3;
 TREPLAY 1:CHINAMAP
         2:BORDER2;
RUN;
QUIT;


RUN;