  THE RETRIEVAL REQUEST SHOWN HERE USES SAS                             00000220
  TO MORE EFFECTIVELY DISPLAY STORET DATA                               00000230
  IN THE CASE WHERE A SINGLE, INFREQUENTLY                              00000240
  OBSERVED PARAMETER IS RETRIEVED FROM A                                00000250
  NUMBER OF STORET STATIONS.                                            00000260
                                                                        00000270
  THE USE OF STORET OPTION "NOECHO" AND                                 00000280
  SAS OPTION "NOSOURCE" TOGETHER ELIMINATE                              00000290
  MOST OF THE PRINTOUT ASSOCIATED WITH                                  00000291
  THE "%SCAN" PROCESSOR.                                                00000292
                                                                        00000293
PGM=RET,PURP=106/EPA,PRT=NO,MORE=4,                                     00000300
MASK,EXTRACT=P81620,P=81620,NOECHO,                                     00000400
SASPARMS=BEGIN,                                                         00000500
OPTIONS NOSOURCE;                                                       00000600
DATA FCF;                                                               00000700
LENGTH STATION $ 24;                                                    00000800
LENGTH LAT_LONG $ 25; RETAIN LAT_LONG ' ';                              00000900
LENGTH LOCATION $ 48; RETAIN LOCATION ' ';                              00001000
LENGTH MAJ_BAS $ 24; RETAIN MAJ_BAS ' ';                                00001100
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00001200
FORMAT DATE YYMMDD8.;                                                   00001300
FORMAT TIME HHMM5.;                                                     00001400
FORMAT DEPTH $6.;                                                       00001500
INFILE FCF LENGTH=L;                                                    00001600
DROP AGENCY YYDLIM LINE KHR KMN TEST ORG;                               00001700
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00001800
RETAIN ORG 90;                                                          00001900
INPUT @26 YYDLIM $2. @ ;                                                00002000
IF L=145 THEN DO;                                                       00002100
  INPUT @1 AGENCY $8. STATION $15. @25 LINE $1. @;                      00002200
  STATION=AGENCY||' '||STATION;                                         00002300
       IF LINE='1' THEN DO;                                             00002400
            INPUT @ORG+2 TEST     $15. @;                               00002500
            IF TEST=' ' THEN ORG=25;                                    00002600
         END;                                                           00002700
       IF LINE='2' THEN INPUT @ORG+1 LAT_LONG $22.                      00002800
                              @;                                        00002900
       IF LINE='3' THEN INPUT @ORG+1 LOCATION $48.                      00003000
                              @;                                        00003100
       IF LINE='5' THEN INPUT @ORG+1 MAJ_BAS $24.                       00003200
                              @;                                        00003300
  END;                                                                  00003400
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00003500
IF L=305 | L=75;        * OMITS PARAMETER HEADERS AND STATION HEADERS ; 00003600
IF YYDLIM^='99';        * OMITS DELIMITER RECORDS                     ; 00003700
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00003800
INPUT @1 AGENCY $8. @9 STATION $15. @26 DATE YYMMDD6.                   00003900
@32 KHR $2. KMN $2.                                                     00004000
@36 TETRDFON RB4. @236 RMK $1. @301 DEPTH $5.;                          00004100
IF KHR<'25' THEN TIME=HMS(KHR,KMN,0);                                   00004200
STATION=AGENCY||' '||STATION;                                           00004300
IF TETRDFON > 0. & TETRDFON < 1.E-15 THEN TETRDFON = . ;                00004400
OUTPUT;                                                                 00004500
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00004600
PROC SORT; BY STATION;                                                  00004700
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00004800
DATA _NULL_; SET FCF; BY STATION;                                       00004900
OPTIONS LS=132;                                                         00005000
FILE PRINT NOTITLES HEADER=H LINESLEFT=LL;                              00005100
IF FIRST.STATION THEN DO;                                               00005200
  IF LL<4 THEN PUT _PAGE_;                                              00005300
  PUT @1 75*'-'                                                         00005400
    @78 '--------' @87 '-----' @94 '----'                               00005500
    @102 '-----------' @116 '------' /                                  00005600
    @8 STATION @33 MAJ_BAS /                                            00005700
    @1 LAT_LONG @25 LOCATION                                            00005800
    @78 DATE @87 TIME @94 DEPTH @102 TETRDFON 9.1 @118 RMK $1.;         00005900
  RETURN;                                                               00006000
END;                                                                    00006100
PUT @78 DATE @87 TIME @94 DEPTH @102 TETRDFON 9.1 @118 RMK $1.;         00006200
RETURN;                                                                 00006300
H: SDATE=TODAY();                                                       00006400
PUT @1 'STORET RETRIEVAL DATE' SDATE WORDDATE18.                        00006500
@59 'STORET SYSTEM' /                                                   00006600
@48 'STATIONS SAMPLING TETRADIFON (TEDION)' /                           00006700
@59 '(CAS 116290)'                                                      00006800
    @102 ' P=81620  ' ;                                                 00006900
PUT @102 'TETRADIFON' /                                                 00007000
    @102 'IN SEDIMENT' @116 'REMARK';                                   00007100
PUT @10 'STATION LOCATION AND IDENTIFICATION'                           00007200
    @80 'DATE' @87 'TIME' @94 'DEPTH'                                   00007300
    @102 'DRY WT UG/KG' @115 '(K=L.T.)';                                00007400
RETURN;                                                                 00007500
STOPSAS,                                                                00007600
./III      JOB (AAAASTORP,MIII),STORET,NOTIFY=III,TIME=3,               00007700
./             MSGLEVEL=(1,1),PRTY=4                                    00007800
**ROUTE  PRINT HOLD                                                     00007900
**JOBPARM LINES=10                                                      00008000
