*  THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(FLOWFORM)'
*
*  THIS FILE CONTAINS A STORET/SAS RUN-STREAM WHICH READS IN FLOW
*  DATA FROM THE DAILY VALUES FILE AND CONVERTS THE DATA FOR
*  USE WITH SAS.
*
** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE **

//III      JOB (AAAASTORP,MIII),STORET,NOTIFY=III,TIME=(,7),            00000019
//             MSGCLASS=A,MSGLEVEL=(1,1),PRTY=4                         00000020
/*ROUTE  PRINT HOLD                                                     00000021
/*JOBPARM LINES=10                                                      00000022
/*CNTL  CWT.TRY,EXC                                                     00000023
//FLOWX EXEC FLOW                                                       00000024
//DISTR.INPUT DD *                                                      00000025
?START                                                                  00000026
?06                                                                     00000027
?RET                                                                    00000028
P              - user-specified retreival program -                     00000029
D                       - control cards -                               00000032
S                                                                       00000033
/*                                                                      00000034
//USERSTEP EXEC SAS                                                     00000035
//FLOWIN DD DSN=&DATA,DISP=(OLD,DELETE)                                 00000036
//SASOUT DD DSN=iiiaaaa.existing.sas.dataset,DISP=OLD                   00000037
//SYSIN DD *                                                            00000038
OPTIONS S=72;                                                           00000039
                                                                        00000040
DATA SASOUT.FLOWDATA;                                                   00000041
                                                                        00000042
INFILE FLOWIN;                                                          00000043
                                                                        00000044
LENGTH DEFAULT=4;                                                       00000045
FORMAT DATE YYMMDD6.;                                                   00000046
                                                                        00000047
INPUT @10 GAGE $CHAR15. @37 WYR IB2. @41 NOVAL RB4.                     00000048
       @1611 BMONTH IB2. @;                                             00000049
                                                                        00000050
DO I=BMONTH TO 12, 1 TO BMONTH-1;                                       00000051
   IF I >= BMONTH  THEN YEAR = WYR-1901;   ELSE YEAR = WYR-1900;        00000052
   OFFSET = (((I-1)*31)*4)+1;                                           00000053
   DO J=1 TO 31;                                                        00000054
     INPUT  @OFFSET+44 FLOW RB4. @;                                     00000055
     IF FLOW ^= NOVAL THEN DO;                                          00000056
       DATE = MDY(I,J,YEAR);                                            00000057
       KEEP GAGE WYR DATE FLOW;                                         00000058
       OUTPUT;                                                          00000059
       END;                                                             00000060
     OFFSET = OFFSET + 4;                                               00000061
     END;                                                               00000062
   END;                                                                 00000063
                                                                        00000064
 PROC PRINT;                                                            00000065
/*                                                                      00000066
