*  THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(CORREL)'
*
*  THIS FILE CONTAINS A STORET/SAS RUN-STREAM WHICH
*  READS DATA FOR SEVERAL STATIONS AND SEVERAL PARAMETERS
*  FROM STORET, PASSES THEM INTO SAS, AND HAS SAS PRINT THEM
*  AND PERFORM A MULTIPLE REGRESSION/CORRELATION ANALYSIS.
*
** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE **

PGM=RET,MORE=SAS,
A=11115000,B=S,S=BLK-01,S=BLK-05,
P=61,DR=2,P=665,P=70,P=530,DR=2,P=540,DR=2,
P=535,DR=2,P=515,P=525,P=500,
D=M,HEAD=SAMPLE STORET-TO-S.A.S. RETRIEVAL - LEE MANNING,
SASPARMS=BEGIN,
DATA WATER;
INFILE FCF   LENGTH=L;
INPUT @26 YTEST $2. @;
   IF L<305 THEN DELETE;
   IF YTEST='99' THEN DELETE; DROP YTEST;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
*  THE INPUT STATEMENT BELOW USES THE PROPER COLUMN NUMBERS AND      ;
*  FORMATS FOR THE STORET "MORE=SAS" FCF FILE.                       ;
*  THE ORDER OF THE VARIABLES IS CONTROLLED BY THE ORDER USED        ;
*  IN THE RETRIEVAL REQUEST ABOVE.                                   ;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
INPUT @9  STA        $15.
      @26 DATE   YYMMDD6.
      @36 FLOW       RB4.
          PHOS       RB4.
          TURB       RB4.
          SUSP       RB4.
          FSUSP      RB4.
          OSUSP      RB4.
          DIS        RB4.
          FDIS       RB4.
          TSOL       RB4.
                ;
                                        * - - - - - - - - - - - - - - ;
IF PHOS<1.E-10 AND PHOS>0 THEN PHOS=.;  * STORET DATA VALUES IN THE   ;
IF FLOW<1.E-10 AND FLOW>0 THEN FLOW=.;  * RANGE 0-1.E-10 ARE "MISSING";
IF TURB<1.E-10 AND TURB>0 THEN TURB=.;  *                             ;
IF SUSP<1.E-10 AND SUSP>0 THEN SUSP=.;  * THIS IS INDICATED IN SAS BY ;
                                        * SETTING THEM TO A '.'       ;
IF FSUSP<1.E-10 AND FSUSP>0
    THEN FSUSP=.;                       *                             ;
                                        *                             ;
IF OSUSP<1.E-10 AND OSUSP>0
    THEN OSUSP=.;                       *                             ;
IF DIS<1.E-10 AND DIS>0 THEN DIS=.;     *                             ;
IF FDIS<1.E-10 AND FDIS>0 THEN FDIS=.;  *                             ;
IF TSOL<1.E-10 AND TSOL>0 THEN TSOL=.;  *                             ;
                                        * - - - - - - - - - - - - - - ;
PROC PRINT;                             * MAKE PRINTED COPY OF ALL    ;
                                        * DATA IN SAS DATASET (FCF).  ;
                                        * - - - - - - - - - - - - - - ;
PROC CORR;                              * PERFORM MULTI-VARIATE CROSS ;
                                        * CORRELATION ANALYSIS OF DATA;
BY STA NOTSORTED;                       * WITHIN EACH STATION.        ;
                                        * USE THESE EIGHT VARIABLES.  ;
VAR PHOS TURB SUSP FSUSP OSUSP
     DIS FDIS TSOL;                     * - - - - - - - - - - - - - - ;
STOPSAS,
./III     JOB (AAAASTORP,SIII),STORET,PRTY=2,TIME=(0,30),
**ROUTE  PRINT HOLD
**JOBPARM LINES=5
