x cd /pub/sasmacro;   %let pgm=test_circagg;   filename pgm "&pgm..sas";
  *---Test setup to test the circagg -- circular area aggregation -- macro.
      jgb, 12/2002
  ---*;

 libname temp '/pub/data/sf32000x/temp';
 libname user '/tmp/scratch/user';
 %libname(sf32000x);

 options mprint NOsymbolgen;

 /*<=========================Comment out=====================================
*---This was what we ran for Hearnes Center request, 12-4-02---;
  %circagg(setsin=sf32000x.mobgs sf32000x.ilbgs,
           setout=temp.hearnes_radii,
           filetype=s3f2000x,
           x0=92.333779,y0=38.948351,
           radius=10 20 30 60 100,
           sitename=%str(Columbia, MO),
           sumlev=150,
           filter=,
           debug=1)
  ===========================End commented out================================ */


  %circagg(setsin=sf32000x.usstcnty,
           setout=temp.columbia_500miles,
           filetype=s3f2000x,
           x0=92.333779,y0=38.948351,
           radius=500,
           sitename=%str(Columbia, MO),
           sumlev=050,
           filter=,
           debug=1)

  %include sascode(notify);