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


data one;
   input city $9. sales;
   cards;
Portland  5200
Denver    9800
St. Louis 7500
Atlanta   12500
New York  17600
;
run;


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


data addn;
   set one;
   cityord=_n_;
run;


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


data cityname;

   /* create START and LABEL by renaming CITYORD and CITY    */
set addn(rename=(cityord=start city=label));
   fmtname='dataord';
   type='N';

      /* retain only variables required by control data set  */
   keep fmtname label start type;
run;


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


title1 f=swissb 'SALES FOR MAJOR CITIES';

symbol1  i=none f=swissb v='$' h=4 c=black;
symbol2  i=none v=none;

axis1 order=0 to 20000 by 5000 offset=(0,0)
      value=(f=swissb) label=none;
axis2 minor=none offset=(3,3) value=(f=swissb h=1.5)
      label=none;

proc gplot data=addn;
   plot sales*cityord / vaxis=axis1  autovref haxis=axis2;
   plot2 sales*cityord / vaxis=axis1 haxis=axis2;
   format sales dollar8. cityord dataord.;
run;


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