                                                                        00000400
                                                                        00000600
PGM=RET,PURP=303/STA,MORE=SAS,                                          00000700
A=11115000,B=S,S=BLK-01,S=BLK-05,                                       00000800
P=61,DR=2,P=665,P=70,P=530,DR=2,P=540,DR=2,                             00000900
P=535,DR=2,P=515,P=525,P=500,                                           00001000
D=M,HEAD=SAMPLE STORET-TO-S.A.S. RETRIEVAL - LEE MANNING,               00001100
SASPARMS=BEGIN,                                                         00001200
DATA ANYNAME.STUFF;                     * NAME THE SAS DATASET FOR    ; 00001300
                                        * RECEIVING THE STORET DATA.  ; 00001400
                                        * - - - - - - - - - - - - - - ; 00001500
                                        * DEFINE INPUT FILE "WATER",  ; 00001600
INFILE WATER LENGTH=L;                  * THE STORET "FCF" FILE       ; 00001700
                                        * - - - - - - - - - - - - - - ; 00001800
                                        * CHECK FOR RECORDS WHICH ARE ; 00001900
                                        * NOT STORET FCF DATA OR DE-  ; 00002000
INPUT @;IF L<305 THEN DELETE;           * LIMITER RECORDS (DELETE IF  ; 00002100
                                        * SHORTER THAN 305 CHARS.)    ; 00002200
                                        * - - - - - - - - - - - - - - ; 00002300
                                        * READ THE INPUT RECORD AND   ; 00002400
                                        * LOAD VALUES INTO THE NAMED  ; 00002500
                                        * VARIABLES USING RB FORMAT.  ; 00002600
INPUT @9 STA $15.                                                       00002700
DATE 26-31 YY 26-27 TIME 32-35                                          00002800
@36 FLOW RB4. PHOS RB4. TURB RB4.                                       00002900
SUSP RB4. FSUSP RB4. OSUSP RB4.                                         00003000
DIS RB4. FDIS RB4. TSOL RB4.;           *                             ; 00003100
                                        * - - - - - - - - - - - - - - ; 00003200
IF YY=99 THEN DELETE;                   * DELETE THE DATA DELIMITERS, ; 00003300
DROP YY;                                * THEN DROP YY FROM ANALYSIS. ; 00003400
                                        * - - - - - - - - - - - - - - ; 00003500
IF PHOS<1.E-10 AND PHOS>0 THEN PHOS=.;  * STORET DATA VALUES IN THE   ; 00003600
IF FLOW<1.E-10 AND FLOW>0 THEN FLOW=.;  * RANGE 0-1.E-10 ARE "MISSING"; 00003700
IF TURB<1.E-10 AND TURB>0 THEN TURB=.;  * THIS IS INDICATED IN SAS BY ; 00003800
IF SUSP<1.E-10 AND SUSP>0 THEN SUSP=.;  * SETTING THEM TO A '.'       ; 00003900
IF FSUSP<1.E-10 AND FSUSP>0 THEN                                        00004000
THEN FSUSP=.;                           *                             ; 00004100
IF OSUSP<1.E-10 AND OSUSP>0 THEN                                        00004200
THEN OSUSP=.;                           *                             ; 00004300
IF DIS<1.E-10 AND DIS>0 THEN DIS=.;     *                             ; 00004400
IF FDIS<1.E-10 AND FDIS>0 THEN FDIS=.;  *                             ; 00004500
IF TSOL<1.E-10 AND TSOL>0 THEN TSOL=.;  *                             ; 00004600
                                        * - - - - - - - - - - - - - - ; 00004700
PROC PRINT;                             * MAKE PRINTED COPY OF ALL    ; 00004800
                                        * DATA IN SAS DATASET (FCF).  ; 00004900
                                        * - - - - - - - - - - - - - - ; 00005000
PROC CORR;                              * PERFORM MULTI-VARIATE CROSS ; 00005100
                                        * CORRELATION ANALYSIS OF DATA; 00005200
BY STA NOTSORTED;                       * WITHIN EACH STATION.        ; 00005300
VAR PHOS TURB SUSP FSUSP OSUSP                                          00005400
DIS FDIS TSOL;                          * USE THESE EIGHT VARIABLES.  ; 00005500
                                        * - - - - - - - - - - - - - - ; 00005600
STOPSAS,                                                                00005700
./III     JOB (AAAASTORP,SIII),STORET,TIME=(,30),PRTY=4                 00005800
**ROUTE  PRINT HOLD                                                     00005900
**JOBPARM LINES=5                                                       00006000
./ANYNAME DD DISP=(,CATLG),UNIT=DISK,                                   00007000
./  SPACE=(TRK,(10,10),RLSE),                                           00007010
./  DSN=IIIAAAA.ANYNAME                                                 00007100
