    THE SAS PART OF THIS RETRIEVAL USES PROC UNIVARIATE                 00000040
    TO COMPUTE VARIOUS STATISTICS FOR EACH COMBINATION OF               00000050
    STATION, YEAR, AND PARAMETER.                                       00000060
    A PRINTED REPORT IS PRODUCED, AND THE DATA IS PLACED                00000070
    IN A MACHINE READABLE FILE USING DDNAME OUTFILE.                    00000080
                                                                        00000090
                                                                        00000100
PGM=RET,PURP=208/STA,MORE=SAS,PRT=NO,                                   00000110
A=31DELRBC,B=P,S=091014,S=091023,                                       00000120
R=*,ANC=A,DSROC=1,                                                      00000130
P=10,P=300,P=1027,                                                      00000140
BD=760101,                                                              00000150
NOECHO,                                                                 00000160
SASPARMS=BEGIN,                                                         00000170
DATA RAWDATA;                                                           00000180
*                                                                       00000190
INCLUDE (FCFREAD)                                                       00000200
OPTIONS NOSOURCE;    * -    SUPPRESSES SOURCE LISTING BELOW HERE  ;     00000210
RENAME P1=P_10 P2=P_300 P3=P_1027 ;                                     00000220
YEAR=YEAR(DATE);                                                        00000230
DROP P4-P50 R1-R50 AGENCY BEGDATE BEGTIME ENDDATE                       00000240
ENDTIME TYPE CALC NUMBER USGSRMK MORE;                                  00000250
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00000260
PROC PRINT;                                                             00000270
TITLE1 RAW DATA FROM STORET;                                            00000280
ID DATE;                                                                00000290
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00000300
PROC UNIVARIATE NOPRINT;                                                00000310
BY STATION YEAR NOTSORTED;                                              00000320
VAR P_10 P_300 P_1027 ;                                                 00000330
OUTPUT                                                                  00000340
    OUT=COMPDATA                                                        00000350
     N = OBS_10 OBS_300 OBS_1027                                        00000360
MEDIAN = MDN_10 MDN_300 MDN_1027                                        00000370
  MEAN = AVE_10 AVE_300 AVE_1027 ;                                      00000380
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00000390
PROC PRINT;                                                             00000400
TITLE1 FINAL RESULTS AS COMPUTED FROM STORET;                           00000410
ID STATION;                                                             00000420
VAR YEAR OBS_10 AVE_10 MDN_10 OBS_300 AVE_300 MDN_300 OBS_1027          00000430
AVE_1027 MDN_1027;                                                      00000440
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00000450
*       NOW PLACE COMPUTATIONAL RESULTS IN OUTFILE                ;     00000460
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00000470
DATA _NULL_;  SET COMPDATA;                                             00000480
FILE OUTFILE;                                                           00000490
PUT  @1  STATION     $24.                                               00000500
    @25  YEAR          4.                                               00000510
    @29  OBS_10        3.                                               00000520
    @32  AVE_10        7.1                                              00000530
    @39  MDN_10        7.1                                              00000540
    @46  OBS_300       3.                                               00000550
    @49  AVE_300       7.1                                              00000560
    @56  MDN_300       7.1                                              00000570
    @63  OBS_1027      3.                                               00000580
    @66  AVE_1027      7.1                                              00000590
    @73  MDN_1027      7.1                                              00000600
            ;                                                           00000610
STOPSAS,                                                                00000620
./iii      JOB (aaaaSTORP,Miii),STORET,TIME=(,30),                      00000630
./             MSGLEVEL=(1,1),PRTY=4                                    00000640
**ROUTE  PRINT HOLD                                                     00000650
**JOBPARM LINES=10                                                      00000660
./OUTFILE DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),                         00000670
./           DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),                      00000680
./           SPACE=(TRK,(1,1),RLSE),                                    00000690
./           DSN=iiiaaaa.OUTFILE                                        00000700
