/*****************************************************************/

  /*           S A S   S A M P L E   L I B R A R Y                 */

  /*                                                               */

  /*     NAME: GR23N06                                             */

  /*    TITLE: Simple Block Chart - GR23N06                        */

  /*  PRODUCT: GRAPH                                               */

  /*   SYSTEM: ALL                                                 */

  /*     KEYS: graphics gchart pattern reference block             */

  /*    PROCS: GCHART                                              */

  /*     DATA: INTERNAL                                            */

  /*                                                               */

  /*      REF: SAS/GRAPH REFERENCE GUIDE                           */

  /*     MISC:                                                     */

  /*                                                               */

  /*****************************************************************/

 

    /* set the graphics environment */

 goptions reset=global gunit=pct border

          ftext=swissb htitle=6 htext=2.9;

 

    /* create data set TOTALS */

 data totals;

    length dept $ 7 site $ 8;

    input dept site quarter sales;

    cards;

 Parts   Sydney  1 7843.97

 Parts   Atlanta 1 9225.26

 Parts   Paris   1 4643.97

 Repairs Sydney  1 6092.82

 Repairs Atlanta 1 10210.21

 Repairs Paris   1 7891.98

 Tools   Sydney  1 5017.36

 Tools   Atlanta 1 6254.18

 Tools   Paris   1 6611.70

 Parts   Sydney  2 5023.44

 Parts   Atlanta 2 11595.07

 Parts   Paris   2 8158.29

 Repairs Sydney  2 6005.31

 Repairs Atlanta 2 7789.59

 Repairs Paris   2 6938.56

 Tools   Sydney  2 8245.17

 Tools   Atlanta 2 3003.99

 Tools   Paris   2 7268.34

 Parts   Sydney  3 10537.96

 Parts   Atlanta 3 7047.91

 Parts   Paris   3 5989.85

 Repairs Sydney  3 4726.46

 Repairs Atlanta 3 5411.66

 Repairs Paris   3 6010.38

 Tools   Sydney  3 4067.10

 Tools   Atlanta 3 6248.52

 Tools   Paris   3 9717.96

 Parts   Sydney  4 10565.57

 Parts   Atlanta 4 9588.51

 Parts   Paris   4 6909.08

 Repairs Sydney  4 10312.99

 Repairs Atlanta 4 7488.30

 Repairs Paris   4 3930.37

 Tools   Sydney  4 2075.74

 Tools   Atlanta 4 3624.19

 Tools   Paris   4 6414.25

 ;

 run;

 

    /* define global statements for chart */

 title 'Total Sales';

 footnote j=r 'GR23N06  ';

 pattern1 value=solid color=green;

 

    /* generate block chart */

 proc gchart data=totals;

    format sales dollar8.;

    block site

          / sumvar=sales

            des='GR23N06-1';

    label site='00'x;

 run;

 quit;