*  THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(BFCFANAL)'   00000101
*                                                                       00000301
*  THIS FILE CONTAINS A STORET/SAS RUN-STREAM WHICH SELECTS DATA        00000401
*  FROM THE STORET/BIOS SYSTEM, AND USING THE STORET/SAS INTERFACE,     00000501
*  PERFORMS A VARIETY OF DIFFERENT ANALYTICAL DISPLAYS FROM SAS.        00000601
*                                                                       00000701
*  DISPLAYS INCLUDE                                                     00000801
*    RELATIVE ABUNDANCE TABLES.                                         00000901
*    FREQUENCY ANALYSES OF TAXONOMIC ORDERS.                            00001001
*    BLOCK CHARTS OF POPULATION VERSUS STATION, DATE, AND ORDER.        00001101
*    BAR CHARTS OF POPULATION VERSUS STATION.                           00001201
*    PIE CHARTS OF POPULATION VERSUS STATION.                           00001301
*                                                                       00001401
** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE **  00001501
                                                                        00001601
PGM=ALLFS,                                                              00001701
#   ORIGINAL IN    'STORET.HELP.EXAMPLES.SAS.LIBRARY(BFCFANAL)'         00001801
FILEOUT=BIOSFS,                                                         00001901
A=11TRAIN,UK=CHOOCHOO,                                                  00002004
S=DIFFICULT-10,S=DIFFICULT-11,S=DIFFICULT-13,                           00002103
MISSING=SAS,                                                            00002202
NOECHO,                                                                 00002301
SASPARMS=BEGIN,                                                         00002401
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00002501
OPTIONS NOSOURCE LS=132 NOOVP NOTEXT82;                                 00002601
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00002701
DATA BIORAW;                                                            00002801
KEEP STATION SMP_DATE GEAR                                              00090001
      TAXCODE SCI_NAME ORDER COUNT;                                     00100001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00110001
FORMAT STATION $13.;        RETAIN STATION;                             00120001
FORMAT SMPKEY $27.;         RETAIN SMPKEY;                              00130001
FORMAT HOLDKEY $27.;        RETAIN HOLDKEY ;                            00140001
FORMAT SMP_DATE YYMMDD8.;   RETAIN SMP_DATE;                            00150001
FORMAT GEAR    $12.;        RETAIN GEAR ;                               00160001
FORMAT ORDER $CHAR16.;                                                  00170001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00180001
INFILE BFCF;                                                            00190001
INPUT @9 STATION $12. @24 REC_TYPE $2. @;                               00200001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00210001
IF REC_TYPE^='99' THEN RETURN;      * SKIP IF NOT A DATA RECORD   ;     00220001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00230001
  INPUT @55 GRP_NUM PIB2. @;                                            00240001
  IF GRP_NUM=999 THEN RETURN;       *    DELIMITER RECORD         ;     00250001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00260001
  IF GRP_NUM>4 THEN DO;             *    CHECK FOR BEGINNING      ;     00270001
                                    *    OF A NEW SAMPLE.         ;     00280001
    INPUT @26 SMPKEY $CHAR27. @ ;                                       00290001
    IF SMPKEY^=HOLDKEY THEN DO;     *    CLEAR ALL RETAIN VARS    ;     00300001
      HOLDKEY=SMPKEY;                                                   00310001
      GEAR=' ';                                                         00320001
      END;                                                              00330001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00340001
    INPUT @26 TEST $2. @;           *    SAMPLE DATE              ;     00350001
      IF TEST = '99' THEN RETURN;                                       00360001
      ELSE INPUT @26 SMP_DATE YYMMDD6. @;                               00370001
    END;                                                                00380001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00390001
  IF GRP_NUM=6 THEN DO;             *    IHS GROUP = 50GEARGR     ;     00400001
                                    *  -  -  -  -  -  -  -  -  -  ;     00410001
    INPUT @95 GEAR    $12. @;                                           00420001
    RETURN;                                                             00430001
    END;                                                                00440001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00450001
  IF GRP_NUM=8 THEN DO;             *    IHS GROUP = 90TAXGRP     ;     00460001
                                    *  -  -  -  -  -  -  -  -  -  ;     00470001
    INPUT @57 TAXCODE  $17.                                             00480001
         @128 COUNT     RB4.                                            00490001
         @312 SCI_NAME $30.                                             00500001
            @  ;                                                        00510001
                                                                        00520001
    WCODE=SUBSTR(TAXCODE,1,6);                                          00530001
    ORDER='ERROR';                                                      00540001
    IF WCODE='470602' THEN ORDER='COLLEMBOLA     ';                     00550001
    IF WCODE='470604' THEN ORDER='EPHEMEROPTERA  ';                     00560001
    IF WCODE='470615' THEN ORDER='PLECOPTERA     ';                     00570001
    IF WCODE='470623' THEN ORDER='COLEOPTERA     ';                     00580001
    IF WCODE='470627' THEN ORDER='MEGALOPTERA    ';                     00590001
    IF WCODE='470628' THEN ORDER='TRICHOPTERA    ';                     00600001
    IF WCODE='470630' THEN ORDER='DIPTERA        ';                     00610001
                                                                        00620001
    IF ORDER='ERROR' THEN DO;                                           00630001
      PUT / 'OOPS  -  ' ORDER= TAXCODE= SCI_NAME= ;                     00640001
      ORDER='ODONATA';                                                  00650001
      PUT '           FIXUP ASSUMED - ORDER SET TO "ODONATA"';          00660001
      END;                                                              00670001
                                                                        00680001
    IF STATION='DIFFICULT-10' THEN STATION='Station No.1 ';             00690001
    IF STATION='DIFFICULT-11' THEN STATION='Station No.2 ';             00700001
    IF STATION='DIFFICULT-13' THEN STATION='Station No.3 ';             00710001
                                                                        00720001
    IF COUNT >0 THEN OUTPUT;    *  SKIPS MISSING COUNTS  ;              00730001
    RETURN;                                                             00740001
    END;                                                                00750001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00760001
PROC SORT; BY STATION SMP_DATE GEAR DESCENDING COUNT;                   00770001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00780001
TITLE1 'GMU Study';                                                     00790001
TITLE2 '-  -  -';                                                       00800001
TITLE3 'Impact of Urbanization on Insect Biota';                        00810001
TITLE4 'Streams in VA South of DC';                                     00820001
FOOTNOTE1 'RAW DATA RESIDES IN THE EPA STORET/BIOS'                     00830001
' SYSTEM UNDER AGENCY CODE 11TRAIN';                                    00840004
LABEL STATION='Station ID';                                             00850001
LABEL SMP_DATE='Sample Date';                                           00860001
LABEL SCI_NAME='Scientific Name';                                       00870001
LABEL TAXCODE='BIOS Taxonomic Code';                                    00880001
LABEL COUNT='Total Count';                                              00890001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00900001
PROC PRINT SPLIT=' '; BY STATION SMP_DATE GEAR;                         00910001
ID STATION SMP_DATE GEAR;                                               00920001
VAR TAXCODE ORDER SCI_NAME COUNT;                                       00930001
SUM COUNT;SUMBY SMP_DATE;PAGEBY STATION;                                00940001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00950001
PROC FREQ; BY STATION;WEIGHT COUNT;                                     00960001
TABLE ORDER*SMP_DATE/;                                                  00970001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00980001
PROC CHART DATA=BIORAW; BY STATION;                                     00990001
BLOCK ORDER/GROUP=SMP_DATE SUMVAR=COUNT DISCRETE                        01000001
MIDPOINTS='COLEOPTERA' 'DIPTERA' 'EPHEMEROPTERA' 'COLLEMBOLA'           01010001
           'MEGALOPTERA' 'PLECOPTERA' 'TRICHOPTERA'                     01020001
  ;                                                                     01030001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01040001
PROC CHART DATA=BIORAW;                                                 01050001
BLOCK ORDER/GROUP=STATION SUMVAR=COUNT DISCRETE                         01060001
  ;                                                                     01070001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01080001
DATA BIOGRPS;  SET BIORAW;                                              01090001
IF ORDER>'H' THEN ORDER='OTHER';                                        01100001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01110001
PROC CHART DATA=BIOGRPS;                                                01120001
BLOCK STATION/GROUP=SMP_DATE SUBGROUP=ORDER SUMVAR=COUNT DISCRETE       01130001
  ;                                                                     01140001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01150001
PROC CHART DATA=BIOGRPS;                                                01160001
VBAR STATION/SUBGROUP=ORDER SUMVAR=COUNT DISCRETE;                      01170001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01180001
PROC CHART DATA=BIOGRPS; BY STATION NOTSORTED;                          01190001
PIE ORDER/SUMVAR=COUNT DISCRETE;                                        01200001
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01210001
STOPSAS,                                                                01220001
./iii      JOB (aaaaSTORp,Miii),'BIOS-SAS',NOTIFY=iii,                  01230001
./             MSGLEVEL=(1,1),PRTY=4                                    01240001
**ROUTE  PRINT HOLD                                                     01250001
**JOBPARM LINES=10                                                      01260001
