/* You must specify a path for this variable */
%let path=path-to-your-web-server;

goptions reset=all dev=java;

ods html path="&path" file="javaplot.html"
         style=analysis;

data WORK.citytemp;
   input  month faren city $;
   datalines;
   1      40.5    Raleigh
   1      12.2    Minn
   1      52.1    Phoenix
   2      42.2    Raleigh
   2      16.5    Minn
   2      55.1    Phoenix
   3      49.2    Raleigh
   3      28.3    Minn
   3      59.7    Phoenix
   4      59.5    Raleigh
   4      45.1    Minn
   4      67.7    Phoenix
   5      67.4    Raleigh
   5      57.1    Minn
   5      76.3    Phoenix
   6      74.4    Raleigh
   6      66.9    Minn
   6      84.6    Phoenix
   7      77.5    Raleigh
   7      71.9    Minn
   7      91.2    Phoenix
   8      76.5    Raleigh
   8      70.2    Minn
   8      89.1    Phoenix
   9      70.6    Raleigh
   9      60.0    Minn
   9      83.8    Phoenix
  10      60.2    Raleigh
  10      50.0    Minn
  10      72.2    Phoenix
  11      50.0    Raleigh
  11      32.4    Minn
  11      59.8    Phoenix
  12      41.2    Raleigh
  12      18.6    Minn
  12      52.5    Phoenix
;


title1 'Average Monthly Temperature';
footnote1 'Source: 1984 American Express Appointment Book';
          

symbol1 color=green interpol=spline width=3 value=triangle
        height=1 pointlabel;
symbol2 color=blue interpol=spline width=3 value=circle
        height=1;
symbol3 color=red interpol=spline width=3 value=square
        height=1;

legend1 label=none value=(tick=1 'Minneapolis');
footnote 'Point label option';
proc gplot data=citytemp;
   plot faren*month=city /  hminor=0
                            vminor=1
                            caxis=red
                            legend=legend1
			    name='pointlbl';
run;

goptions reset=all dev=java;
data grades;
   input section $ grade @@;
   datalines;
A 74 A 89 A 91 A 76 A 87 A 93 A 93 A 96 A 55
B 72 B 72 B 84 B 81 B 97 B 78 B 88 B 90 B 74
C 62 C 74 C 71 C 87 C 68 C 78 C 80 C 85 C 82
;
title1 'Comparison of Grades by Section';
symbol interpol=boxtjf20
       co=blue
       bwidth=6
       value=square
       cv=ltgray
       height=4;
axis1 label=none
      value=(t=1 'Monday' j=c 'section'
             t=2 'Wednesday' j=c 'section'
             t=3 'Friday' j=c 'section')
      offset=(5,5)
      length=50;
footnote 'Interpol=Boxtjf20';

proc gplot data=grades;
   plot grade*section / haxis=axis1
                        vaxis=50 to 100 by 10
			name='plotjf';
run;
quit;

goptions reset=all dev=java;
data nikkei;
   input date date9. points;
   format date date9. points comma6.;
   datalines;
19MAR1990    32721.44
19MAR1990    31198.21
19MAR1990    31263.24
20MAR1990    31551.03
20MAR1990    30570.08
20MAR1990    30807.19
22MAR1990    30775.86
22MAR1990    28830.37
22MAR1990    29843.34
23MAR1990    30372.16
23MAR1990    29597.39
23MAR1990    30372.16
26MAR1990    31840.49
26MAR1990    30378.16
26MAR1990    31840.49
27MAR1990    32164.36
27MAR1990    31367.62
27MAR1990    31825.96
28MAR1990    31799.61
28MAR1990    31107.21
28MAR1990    31263.57
29MAR1990    31437.61
29MAR1990    30876.60
29MAR1990    31026.16
30MAR1990    31002.07
30MAR1990    29827.64
30MAR1990    29980.45
02APR1990    29979.96
02APR1990    28002.07
02APR1990    28002.07
03APR1990    28791.21
03APR1990    27678.18
03APR1990    28759.72
04APR1990    29143.34
04APR1990    28090.23
04APR1990    28442.94
05APR1990    28423.49
05APR1990    27251.04
05APR1990    28249.06
06APR1990    29278.78
06APR1990    28274.23
06APR1990    29278.78
09APR1990    30524.19
09APR1990    29297.73
09APR1990    30397.93
10APR1990    30382.92
10APR1990    29624.68
10APR1990    29624.68
11APR1990    30003.06
11APR1990    29340.18
11APR1990    29440.28
12APR1990    29687.96
12APR1990    29127.64
12APR1990    29623.20
13APR1990    29586.28
13APR1990    28953.50
13APR1990    29213.92
;
run;

/* define titles and footnote */
title1 'Nikkei Stock Average';
footnote 'Interpol=hiloct';

/* modify symbol characteristics */
symbol1 interpol=hiloct co=blue;

/* produce the plot */
proc gplot data=nikkei;
   plot points*date / frame des='D0323U05-1';
run;
quit;

ods html close;