 This dataset is named 'STORET.HELP.FLOW.LIBRARY(SASOLD)'               00010002
                                                                        00030002
 It describes the procedure for passing flow data, retrieved from the   00040002
 STORET Daily Flow System, to the Statistical Analysis System (SAS)     00050004
 software resident on EPA's computer system.  The sample data set below 00051004
 contains the Job Control Language (JCL) and control cards necessary to 00060004
 retrieve the flow data and place it into a temporary STORET MORE=3     00070004
 formatted Further Computational File (FCF).  Refer to the dataset named00080004
 STORET.HELP.FILE.FORMATS for a detailed description of MORE=3 FCF      00090004
 format.  The SAS source statements specified are necessary to extract  00100004
 the flow values from the FCF and format them so they may be processed  00110004
 by the SAS analysis procedures.                                        00120004
                                                                        00140002
                                                                        00150002
//iii      JOB (aaaaSTORP,Miii),STORET,NOTIFY=iii,TIME=5,               00160002
//             MSGCLASS=A,MSGLEVEL=(1,1),PRTY=1                         00170002
/*ROUTE  PRINT HOLD                                                     00180002
/*JOBPARM LINES=10                                                      00190002
/*CNTL  CWT.TRY,EXC                                                     00200002
//FLOWSTEP  EXEC  FLOW                                                  00210003
//DISTR.INPUT DD *                                                      00220002
?RETRIEVE                                                               00230002
P60                                                                     00240002
D                                                                       00250002
S19 06809500                                                            00260002
?WQSPGM                                                                 00270004
/*                                                                      00280002
//SASSTEP EXEC SAS                                                      00290003
//SAS.WATER DD DSN=&FCF,DISP=(OLD,PASS)                                 00300002
//SAS.SYSIN DD *                                                        00310002
OPTIONS S=72;                            * USE 72 COLUMNS;              00320002
                                         * - - - - - - - - - - - - - - ;00330002
DATA FCF;                                * NAME THE SAS DATASET FOR    ;00340002
                                         * RECEIVING THE FLOW DATA     ;00350002
                                         * - - - - - - - - - - - - - - ;00360002
                                         * DEFINE INPUT FILE "WATER" TO;00370002
INFILE WATER LENGTH = L;                 * THE STORET "FCF" FILE       ;00380002
                                         * - - - - - - - - - - - - - - ;00390002
INPUT @;                                 * CHECK FOR RECORDS WHICH ARE ;00400002
IF L > 75 THEN DELETE;                   * NOT STORET MORE=3 FCF DATA  ;00410002
INPUT YY 26-27 @;                        * OR DELIMITER RECORDS        ;00420002
IF YY = 99 THEN DELETE;                  * IF LONGER THAN 75 CHARS     ;00430002
                                         * THEN DELETE THE DELIMIT     ;00440002
                                         * - - - - - - - - - - - - - - ;00450002
                                         * READ THE INPUT RECORD AND   ;00460002
                                         * LOAD VALUE INTO THE VARIABLE;00470002
                                         * NAMED FLOW, USING RB FORMAT ;00480002
INPUT @9 STA $15. DATE 26-31 @36 FLOW RB4.;                             00490005
                                         * - - - - - - - - - - - - - - ;00500002
DROP YY;                                 * DROP YY FROM ANALYSIS       ;00510002
                                         * - - - - - - - - - - - - - - ;00520002
                                         * STORET DATA VALUES IN THE   ;00530002
IF FLOW < 1.E-10 AND FLOW > 0            * RANGE 0 TO 1.E-10 ARE       ;00540002
  THEN FLOW = .;                         * "MISSING" AND REPRESENT     ;00550002
                                         * IN SAS BY A '.'             ;00560002
                                         * - - - - - - - - - - - - - - ;00570002
PROC PRINT;                              * MAKE PRINTED COPY OF ALL    ;00580002
                                         * DATA IN SAS DATASET (FCF)   ;00590002
                                         * - - - - - - - - - - - - - - ;00600002
