                                                                        00000010
                                                                        00000040
                                                                        00000060
PGM=RET,PURP=303/STA,MORE=SAS,                                          00000070
A=11115000,B=S,S=BLK-01,S=BLK-05,                                       00000080
P=61,DR=2,P=665,P=70,P=530,DR=2,P=540,DR=2,                             00000090
P=535,DR=2,P=515,P=525,P=500,                                           00000100
D=M,HEAD=SAMPLE STORET-TO-S.A.S. RETRIEVAL - LEE MANNING,               00000110
SASPARMS=BEGIN,                                                         00000120
DATA WATER;                             * NAME THE SAS DATASET  FOR   ; 00000130
                                        * RECEIVING THE STORET DATA.  ; 00000140
                                        * - - - - - - - - - - - - - - ; 00000150
                                        * DEFINE INPUT FILE "WATER",  ; 00000160
INFILE FCF   LENGTH=L;                  * THE STORET "FCF" FILE       ; 00000170
                                        * - - - - - - - - - - - - - - ; 00000180
                                        * CHECK FOR RECORDS WHICH ARE ; 00000190
                                        * NOT STORET FCF DATA OR DE-  ; 00000200
INPUT @; IF L<305 THEN DELETE;          * LIMITER RECORDS (DELETE IF  ; 00000210
                                        * SHORTER THAN 305 CHARS.)    ; 00000220
                                        * - - - - - - - - - - - - - - ; 00000230
                                        * READ THE INPUT RECORD AND   ; 00000240
                                        * LOAD VALUES INTO THE NAMED  ; 00000250
                                        * VARIABLES USING RB FORMAT.  ; 00000260
INPUT @9 STA $15.                                                       00000270
DATE 26-31 YY 26-27 TIME 32-35                                          00000280
@36 FLOW RB4. PHOS RB4. TURB RB4.                                       00000290
SUSP RB4.                                                               00000300
FSUSP RB4. OSUSP RB4. DIS RB4.                                          00000310
FDIS RB4. TSOL RB4.;                    *                             ; 00000320
                                        * - - - - - - - - - - - - - - ; 00000330
IF YY=99 THEN DELETE;                   * DELETE THE DATA DELIMITERS, ; 00000340
DROP YY;                                * THEN DROP YY FROM ANALYSIS. ; 00000350
                                        * - - - - - - - - - - - - - - ; 00000360
IF PHOS<1.E-10 AND PHOS>0 THEN PHOS=.;  * STORET DATA VALUES IN THE   ; 00000370
IF FLOW<1.E-10 AND FLOW>0 THEN FLOW=.;  * RANGE 0-1.E-10 ARE "MISSING"; 00000380
IF TURB<1.E-10 AND TURB>0 THEN TURB=.;  *                             ; 00000390
IF SUSP<1.E-10 AND SUSP>0 THEN SUSP=.;  * THIS IS INDICATED IN SAS BY ; 00000400
                                        * SETTING THEM TO A '.'       ; 00000410
IF FSUSP<1.E-10 AND FSUSP>0                                             00000420
    THEN FSUSP=.;                       *                             ; 00000430
                                        *                             ; 00000440
IF OSUSP<1.E-10 AND OSUSP>0                                             00000450
    THEN OSUSP=.;                       *                             ; 00000460
IF DIS<1.E-10 AND DIS>0 THEN DIS=.;     *                             ; 00000470
IF FDIS<1.E-10 AND FDIS>0 THEN FDIS=.;  *                             ; 00000480
IF TSOL<1.E-10 AND TSOL>0 THEN TSOL=.;  *                             ; 00000490
                                        * - - - - - - - - - - - - - - ; 00000500
PROC PRINT;                             * MAKE PRINTED COPY OF ALL    ; 00000510
                                        * DATA IN SAS DATASET (FCF).  ; 00000520
                                        * - - - - - - - - - - - - - - ; 00000530
PROC CORR;                              * PERFORM MULTI-VARIATE CROSS ; 00000540
                                        * CORRELATION ANALYSIS OF DATA; 00000550
BY STA NOTSORTED;                       * WITHIN EACH STATION.        ; 00000560
                                        * USE THESE EIGHT VARIABLES.  ; 00000570
VAR PHOS TURB SUSP FSUSP OSUSP                                          00000580
     DIS FDIS TSOL;                     * - - - - - - - - - - - - - - ; 00000590
STOPSAS,                                                                00000600
./III     JOB (AAAASTORP,SIII),STORET,TIME=10,PRTY=1                    00000610
**ROUTE  PRINT HOLD                                                     00000620
**JOBPARM LINES=5                                                       00000630
