*  THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(BIOSUM)'     00000100
*                                                                       00000300
*  THIS FILE CONTAINS A STORET/SAS RUN-STREAM WHICH WILL SUMMARIZE      00000400
*  ALL OBSERVED TAXA FOR ANY SELECTED SET OF BIOS DATA.                 00000500
*  THE SUMMARY LISTS OBSERVED SPECIES IN TAXONOMIC ORDER, AND TOTALS    00000600
*  THE COUNT OF SAMPLES WITH EACH TAXON, AS WELL AS SUMMARIZING         00000700
*  POPULATION DATA FOR ALL OBSERVATIONS, BY YEAR WITHIN THE PERIOD      00000800
*  OF RECORD.                                                           00000900
*                                                                       00001000
** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE **  00001100
                                                                        00001200
PGM=ALLFS,FILEOUT=BIOSFS,BIOSFSONLY,MISSING=SAS,PRT=NO,                 00001300
#------------------------------------------------------------#          00001400
#   STORET.HELP.EXAMPLES.SAS.LIBRARY(BIOSUM)                 #          00001500
#------------------------------------------------------------#          00001600
A=11TRAIN,S=ALL,UK=CHOOCHOO,                                            00001700
ONLYATTR=BIO,                                                           00001800
NOECHO,                                                                 00001900
SASPARMS=BEGIN,                                                         00002000
 OPTIONS NOSOURCE;                                                      00002100
 DATA BIORAW;                                                           00002200
 INFILE BFCF;                                                           00002300
 FORMAT YEAR $4.;                                                       00002400
 INPUT @24  REC_TYPE   $2.                                              00002500
            @     ;                                                     00002600
 IF REC_TYPE^='99' THEN RETURN;      *    NOT A DATA RECORD        ;    00002700
 INPUT @55  GRP_NUM  PIB2.                                              00002800
            @     ;                                                     00002900
 IF GRP_NUM  = 999 THEN RETURN;      *    DELIMITER RECORD         ;    00003000
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00003100
   IF GRP_NUM=8 THEN DO;                                                00003200
     INPUT @26 YEAR      $2.                                            00003300
           @57 CODE     $17.                                            00003400
          @124 LOCNT    RB4.                                            00003500
          @128 COUNT    RB4.                                            00003600
          @132 HICNT    RB4.                                            00003700
          @312 TAXON    $45.                                            00003800
             @  ;                                                       00003900
     YEAR='19'||YEAR;                                                   00004000
     IF COUNT=. THEN PUT _ALL_;                                         00004100
     IF LOCNT=. THEN LOCNT=1;                                           00004200
     IF HICNT=. THEN HICNT=1;                                           00004300
     IF COUNT=. THEN COUNT=(HICNT+LOCNT)/2.0;                           00004400
     OUTPUT;                                                            00004500
     RETURN;                                                            00004600
     END;                                                               00004700
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00004800
 PROC TABULATE DATA=BIORAW FORMCHAR='|- - |+| - ';                      00004900
   CLASS CODE TAXON YEAR;                                               00005000
   VAR COUNT;                                                           00005100
   TABLE CODE*TAXON*YEAR,                                               00005200
          COUNT='OBSERVED'*(N='TIMES OBSERVED'*F=8.                     00005300
                            MIN='MINIMUM COUNT'*F=8.                    00005400
                            MAX='MAXIMUM COUNT'*F=8.                    00005500
                            MEAN='AVERAGE COUNT'*F=9.3) /               00005600
         RTS=55 BOX='  SUMMARY OF SPECIES OBSERVATIONS';                00005700
 TITLE1 'SPECIES OBSERVED';                                             00005800
 TITLE2 '- * -';                                                        00005900
 TITLE3 'ALL SELECTED STATIONS';                                        00006003
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00006100
STOPSAS,                                                                00006200
./iii      JOB (aaaaSTORP,Miii),'BIOS SUMMARY',TIME=2,                  00006300
./             MSGLEVEL=(1,1),PRTY=2                                    00006400
**ROUTE  PRINT HOLD                                                     00006500
**JOBPARM LINES=999                                                     00006600
