*  THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(BFCFGRAF)'   00010005
*                                                                       00030005
*  THIS FILE CONTAINS SAS INSTRUCTIONS TO PRODUCE GRAPHICS OUTPUT       00040005
*  FROM BIOS-FS DATA PREVIOUSLY TRAPPED USING "FILEOUT=BIOSFS,"         00050005
*  AS AN INSTRUCTION IN A STORET BIOSFS RETRIEVAL.                      00060005
*                                                                       00070005
** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE **  00080005
                                                                        00090005
OPTIONS NOTEXT82;                                                       00100005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00110005
TSO ALLOC FI(BFCF) DA('iiiaaaa.BFCF') SHR REU; RUN;                     00120005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00130005
DATA GMUCITY;                                                           00140007
KEEP STATION SMP_DATE GEAR                                              00150005
      TAXCODE SCI_NAME ORDER COUNT;                                     00160005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00170005
FORMAT STATION $13.;        RETAIN STATION;                             00180005
FORMAT SMPKEY $27.;         RETAIN SMPKEY;                              00190005
FORMAT HOLDKEY $27.;        RETAIN HOLDKEY ;                            00200005
FORMAT SMP_DATE YYMMDD8.;   RETAIN SMP_DATE;                            00210005
FORMAT GEAR    $12.;        RETAIN GEAR ;                               00220005
FORMAT ORDER $CHAR16.;                                                  00230005
LABEL STATION='Station ID';                                             00240005
LABEL SMP_DATE='Sample Date';                                           00250005
LABEL ORDER='Taxonomic Order:';                                         00260005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00270005
INFILE BFCF LENGTH=LENGTH;                                              00280005
INPUT @9 STATION $12. @24 REC_TYPE $2. @26 DLIM $2. @;                  00290005
IF DLIM='99' THEN RETURN;                                               00300005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00310005
IF REC_TYPE^='99' THEN RETURN;   *  RETURN IF NOT A DATA RECORD   ;     00320005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00330005
  INPUT @55 GRP_NUM PIB2. @;                                            00340005
  IF GRP_NUM=999 THEN RETURN;       *    DELIMITER RECORD         ;     00350005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00360005
  IF GRP_NUM>4 THEN DO;             *    ALL RECORDS WITH MINOR   ;     00370005
                                    *    VALUE IN THE KEY FIELD   ;     00380005
    INPUT @26 SMPKEY $CHAR27. @ ;                                       00390005
    IF SMPKEY^=HOLDKEY THEN DO;     *    CLEAR ALL RETAIN VARS    ;     00400005
      HOLDKEY=SMPKEY;                                                   00410005
      GEAR=' ';                                                         00420005
      END;                                                              00430005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00440005
    INPUT @26 TEST $2. @;           *    SAMPLE DATE              ;     00450005
      IF TEST = '99' THEN RETURN;                                       00460005
      ELSE INPUT @26 SMP_DATE YYMMDD6. @;                               00470005
    END;                                                                00480005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00490005
  IF GRP_NUM=6 THEN DO;             *    IHS GROUP = 50GEARGR     ;     00500005
                                    *  -  -  -  -  -  -  -  -  -  ;     00510005
    INPUT @95 GEAR    $23. @;                                           00520005
    RETURN;                                                             00530005
    END;                                                                00540005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00550005
  IF GRP_NUM=8 THEN DO;             *    IHS GROUP = 90TAXGRP     ;     00560005
                                    *  -  -  -  -  -  -  -  -  -  ;     00570005
    INPUT @57 TAXCODE  $17.                                             00580005
         @128 COUNT    RB4.                                             00590005
         @312 SCI_NAME $30.                                             00600005
            @  ;                                                        00610005
                                                                        00620005
    WCODE=SUBSTR(TAXCODE,1,6);                                          00630005
    ORDER='ERROR';                                                      00640005
    IF WCODE='470602' THEN ORDER='Collembola     ';                     00650005
    IF WCODE='470604' THEN ORDER='Ephemeroptera  ';                     00660005
    IF WCODE='470615' THEN ORDER='Plecoptera     ';                     00670005
    IF WCODE='470623' THEN ORDER='Coleoptera     ';                     00680005
    IF WCODE='470627' THEN ORDER='Megaloptera    ';                     00690005
    IF WCODE='470628' THEN ORDER='Trichoptera    ';                     00700005
    IF WCODE='470633' THEN ORDER='Diptera        ';                     00710009
    IF ORDER='ERROR' THEN DO;                                           00720005
      PUT / 'OOPS - ' ORDER= TAXCODE= SCI_NAME= ;                       00730005
      ORDER='odonata';          *  ASSIGN CRITTER TO ORDER      ;       00740005
      PUT   '          FIXUP TAKEN - ' ORDER=;                          00750005
      END;                                                              00760005
                                                                        00770005
    IF STATION='DIFFICULT-10' THEN STATION='Station No.1 ';             00780005
    IF STATION='DIFFICULT-11' THEN STATION='Station No.2 ';             00790005
    IF STATION='DIFFICULT-13' THEN STATION='Station No.3 ';             00800005
                                                                        00810005
    IF COUNT >0 THEN OUTPUT;    *  SKIPS MISSING COUNTS  ;              00820005
    RETURN;                                                             00830005
    END;                                                                00840005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00850005
  GOPTIONS DEVICE=TEK4107T VPOS=61 HPOS=140                             00860005
         CTITLE=RED FTITLE=XSWISS                                       00870005
         CBY=GREEN HBY=1.0 FBY=SIMPLEX                                  00880005
         COLORS=(BLUE CYAN GREEN YELLOW RED PINK WHITE)                 00890008
          ;                                                             00900005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01090005
*           THE FANCY 'CAMERA READY' STUFF.                       ;     01100005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01110005
TITLE1 C=GREEN        'George Mason University Study';                  01120005
TITLE2 C=GREEN              '-----------------';                        01130005
TITLE3 C=GREEN   'Impact of Urbanization on Insect Biota';              01140005
TITLE4 C=GREEN 'Streams in Virginia south of Washington, DC';           01150005
FOOTNOTE1 J=C F=SIMPLEX C=GREEN '- Raw data resides in the '            01160005
F=XSWISS C=CYAN 'STORET/BIOS'                                           01170005
F=SIMPLEX C=GREEN ' system under agency code 11TRAIN -';                01180006
SYMBOL1 C=CYAN V=NONE I=JOIN;                                           01190005
SYMBOL2 C=RED V=NONE I=JOIN;                                            01200008
SYMBOL3 C=YELLOW V=NONE I=JOIN;                                         01210005
SYMBOL4 C=PINK V=NONE I=JOIN;                                           01220005
SYMBOL5 C=BLUE V=NONE I=JOIN;                                           01230005
PATTERN1 C=CYAN V=S;                                                    01240005
PATTERN2 C=RED  V=S;                                                    01250008
PATTERN3 C=YELLOW V=S;                                                  01260005
PATTERN4 C=PINK V=S;                                                    01270005
PATTERN5 C=BLUE V=S;                                                    01280005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01290005
PROC GCHART DATA=GMUCITY;                                               01300005
BLOCK ORDER/SUMVAR=COUNT GROUP=STATION SUBGROUP=SMP_DATE DISCRETE       01310005
CAXIS=WHITE CTEXT=GREEN COUTLINE=PINK NOHEADING                         01320005
MIDPOINTS='Coleoptera' 'Diptera' 'Ephemeroptera' 'Collembola'           01330005
          'Megaloptera' 'Plecoptera' 'Trichoptera'                      01340005
     ;                                                                  01350005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01360005
DATA BIOGRPS; SET GMUCITY;                                              01370005
IF ORDER>'H' THEN ORDER='Other';                                        01380005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01390005
PROC GCHART DATA=BIOGRPS;                                               01400005
VBAR STATION/SUBGROUP=ORDER SUMVAR=COUNT DISCRETE CTEXT=GREEN;          01410005
PIE ORDER/SUMVAR=COUNT DISCRETE GROUP=STATION                           01420005
ACROSS=2 DOWN=2 NOHEADING                                               01430005
SLICE=ARROW PCT=ARROW VALUE=NONE                                        01440005
CTEXT=GREEN                                                             01450005
OTHER=0                                                                 01460005
     ;                                                                  01470005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01480005
PROC FREQ DATA=BIOGRPS; WEIGHT COUNT;                                   01490005
TABLE STATION*ORDER/OUT=BIOTMPS NOPRINT;                                01500005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01510005
DATA BIOCUMS; SET BIOTMPS; BY STATION;                                  01520005
RETAIN C1-C4 0;                                                         01530005
KEEP STATION ORDER COUNT;                                               01540005
LABEL COUNT='Count of Organisms';                                       01550005
IF ORDER='Coleoptera' THEN C1=C1+COUNT;                                 01560005
IF ORDER='Diptera' THEN C2=C2+COUNT;                                    01570005
IF ORDER='Ephemeroptera' THEN C3=C3+COUNT;                              01580005
IF ORDER='Other' THEN C4=C4+COUNT;                                      01590005
IF LAST.STATION THEN DO;                                                01600005
  HCNT=COUNT;                                                           01610005
  ORDER='Coleoptera';    COUNT=C1; OUTPUT;                              01620005
  ORDER='Diptera';       COUNT=C1+C2; OUTPUT;                           01630005
  ORDER='Ephemeroptera'; COUNT=C1+C2+C3; OUTPUT;                        01640005
  ORDER='Other';         COUNT=C1+C2+C3+C4; OUTPUT;                     01650005
  COUNT=HCNT;                                                           01660005
  C1=0; C2=0; C3=0; C4=0;                                               01670005
  END;                                                                  01680005
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     01690005
PROC GPLOT DATA=BIOCUMS;                                                01700005
PLOT COUNT*STATION=ORDER/CTEXT=GREEN CAXIS=GREEN AREAS=4;               01710005
