 It demonstrates a technique for counting occurrences of data           00000040
 values (Mercury in this example) within certain ranges, by             00000050
 STORET remark codes.  A histogram is drawn with the aggregated         00000060
 data.  It utilizes SAS PROC's FREQ and CHART.                          00000070
                                                                        00000080
PGM=RET,PURP=208/CON,MORE=SAS,PRT=NO,                                   00000090
A=21UTAH,B=P,S=498101,S=498110,                                         00000100
P=71900,                                                                00000110
NOECHO,                                                                 00000120
SASPARMS=BEGIN,                                                         00000130
DATA RAWFCF;                                                            00000140
*                                                                       00000150
INCLUDE (FCFREAD)                                                       00000160
FORMAT HG_LEVEL $8.;                                                    00000170
FORMAT REMARK $CHAR5.;                                                  00000180
IF P1<0.05 THEN HG_LEVEL='LT 0.05';                                     00000190
IF P1>=0.05 AND P1<0.1 THEN HG_LEVEL='0.05-0.1';                        00000200
IF P1>=0.1 AND P1<0.2 THEN HG_LEVEL='0.1-0.2';                          00000210
IF P1>=0.2 AND P1<0.3 THEN HG_LEVEL='0.2-0.3';                          00000220
IF P1>=0.3 AND P1<0.5 THEN HG_LEVEL='0.3-0.5';                          00000230
IF P1>=0.5 AND P1<0.8 THEN HG_LEVEL='0.5-0.8';                          00000240
IF P1>=0.8 THEN HG_LEVEL='0.8+UP';                                      00000250
REMARK='  '||R1;                                                        00000260
IF R1=' ' THEN REMARK='BLANK';                                          00000270
DROP P2-P50 R2-R50 USGSRMK BEGDATE BEGTIME ENDDATE ENDTIME              00000280
TYPE CALC NUMBER MORE AGENCY;                                           00000290
TITLE1 'STORET/SAS INTERFACE EXAMPLE';                                  00000300
TITLE2 '(STORET.HELP.MORE.SAS.EXAMPLE11)';                              00000310
TITLE3 '*  *  *';                                                       00000320
PROC SORT; BY STATION DATE TIME DEPTH;                                  00000330
PROC FREQ; BY STATION;                                                  00000340
TITLE4 'MERCURY LEVELS BY REMARK CODE';                                 00000350
TITLE5 '(INDIVIDUAL STATION)';                                          00000360
TABLES HG_LEVEL * REMARK / NOROW NOCOL ;                                00000370
PROC FREQ; TABLES HG_LEVEL * REMARK / NOROW NOCOL ;                     00000380
TITLE5 '(RUN GRAND TOTALS)';                                            00000390
PROC CHART;                                                             00000400
VBAR REMARK/GROUP=HG_LEVEL NOSPACE;                                     00000410
STOPSAS,                                                                00000420
./III      JOB (AAAASTORP,MIII),STORET,TIME=5,                          00000430
./             MSGLEVEL=(1,1),PRTY=1                                    00000440
**ROUTE  PRINT HOLD                                                     00000450
**JOBPARM LINES=10                                                      00000460
