Generate the vertical bar chart of leading producers for each grain type.BY-group processing generates a separate graph for each value TYPE. Each new graph generates a new body file. NOZERO suppresses the midpoints that do not have any observations. INSIDE= displays the SUM statistic inside the bars. 
proc gchart data=type (where=(megtons gt 31));
     format country $country.;
     by type;
     vbar3d year / discrete
                   sumvar=megtons
                   group=country
                   nozero
                   shape=cylinder
                   noframe
                   patternid=group
                   inside=sum
                   width=12
                   maxis=axis4
                   raxis=axis2
                   gaxis=axis5
                   cframe=grayaa
                   name='type'
                   des='Leading Producers';
 run;
 quit;