//*                                                                     00000040
//S EXEC WQDIST,PRINT=A                                                 00000050
//DIST.CARDFD DD DATA                                                   00000060
PGM=RET,PURP=303/STA,MORE=SAS,                                          00000070
A=31DELRBC,S=091017,                                                    00000080
P=10,P=300,P=400,P=31616,                                               00000090
BD=780101,                                                              00000100
HEAD=SAMPLE STORET-TO-S.A.S. RETRIEVAL - LEE MANNING,                   00000110
/*                                                                      00000120
//USERSTEP EXEC SAS,PRINT=A                                             00000130
//SAS.FCF DD DSN=&FCF,DISP=(OLD,PASS)                                   00000140
//SAS.SYSIN DD *                                                        00000150
OPTIONS S=72 NODATE LINESIZE=120 NOOVP;                                 00000160
DATA MYDATA;                                                            00000170
INFILE FCF;                                                             00000180
FORMAT DATE YYMMDD8.;                                                   00000190
FORMAT TIME HHMM5.;                                                     00000200
FORMAT DEPTH $6.;                                                       00000210
LENGTH AGENCY $ 8;                                                      00000220
LENGTH STATION $ 24;                                                    00000230
ARRAY P(I) P1-P50;                                                      00000240
ARRAY R(I) $ R1-R50;                                                    00000250
LENGTH VIOLATED $ 20;                                                   00000260
LABEL P1=WATER TEMP CENTIGRADE;                                         00000270
LABEL P2=DISSOLVED OXYGEN;                                              00000280
LABEL P3=PH;                                                            00000290
LABEL P4=FECAL COLIFORM;                                                00000300
LABEL DATE=STORET SAMPLING DATE;                                        00000310
TITLE1 SAMPLE STORET-TO-S.A.S. RETRIEVAL - LEE MANNING;                 00000320
INPUT @26 YY 2. @; IF YY=99 THEN DELETE;                                00000330
INPUT @1 AGENCY $8. @9 STATION $15. @26 DATE YYMMDD6. @32 HR 2. MN 2.   00000340
@36 (P1-P50)(RB4.) @236 (R1-R50)($1.) @300 DEPTH $6.;                   00000350
STATION=AGENCY||' '||STATION;                                           00000360
TIME=HMS(HR,MN,0);                                                      00000370
DO OVER P;                                                              00000380
IF R='K' THEN P=.;                         * SAME AS "RMKK=EXCL," ;     00000390
END;                                                                    00000400
VIOLATED='NONE';NV=0;                                                   00000410
IF P1^=.&P1>15 THEN DO;NV=NV+1;VIOLATED='HIGH TEMPERATURE';END;         00000420
IF P2^=. & P2<=5 THEN DO;VIOLATED='LOW DISS.OXYGEN';NV=NV+1;END;        00000430
IF P3^=.&(P3<6|P3>8) THEN DO;VIOLATED='EXTREME PH';NV=NV+1;END;         00000440
IF P4^=.&P4>100 THEN DO;VIOLATED='HIGH COLIFORM';NV=NV+1;END;           00000450
IF NV>1 THEN VIOLATED='MULTIPLE VIOLATIONS';                            00000460
KEEP STATION DATE TIME DEPTH P1-P4 R1-R4 VIOLATED;                      00000470
PROC PRINT; ID DATE; BY STATION;                                        00000480
PROC FREQ; TABLES VIOLATED; BY STATION;                                 00000490
LABEL P1=TEMPERATURE - DISS.OXY.;                                       00000500
PROC PLOT; BY STATION;                                                  00000510
PLOT P1*DATE='+' P2*DATE='*'/VZERO OVERLAY                              00000520
VAXIS=0 5 10 15 20 25 30                                                00000530
VREF=0 5 10 15 20 25 30                                                 00000540
HAXIS=6575 6940 7305 7671 8036                                          00000550
HREF=6575 6940 7305 7671 8036;                                          00000560
