 * THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(BFCFDOC)'    00010007
 *                                                                      00030007
 * THIS FILE CONTAINS A STORET/SAS RUN-STREAM WHICH DOCUMENTS THE       00040007
 * INPUT RECORD LAYOUTS NEEDED TO READ A MACHINE-READABLE FILE          00050007
 * PRODUCED USING "FILEOUT=BIOSFS,".                                    00060007
 *                                                                      00070007
 * ALTHOUGH THIS RUN STREAM WILL RUN AS SUPPLIED, IT IS INTENDED        00080007
 * AS INFORMATION ONLY, AND USERS ARE ADVISED TO USE IT TO              00090007
 * IDENTIFY RECORD TYPES, COLUMN OFFSETS, AND FIELD FORMATS             00100007
 * NEEDED TO ACQUIRE DATA FROM A STORET BIOSFS RETRIEVAL.               00110007
 *                                                                      00120007
 ** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE ** 00130007
                                                                        00140007
 PGM=ALLFS,                                                             00150007
 #   ORIGINAL IN    'STORET.HELP.EXAMPLES.SAS.LIBRARY(BFCFDOC)'         00160007
 FILEOUT=BIOSFS,                                                        00180007
 A=11TRAIN,UK=CHOOCHOO,                                                 00190013
 S=DIFFICULT-10,S=DIFFICULT-11,S=DIFFICULT-13,                          00200012
 MISSING=SAS,                                                           00210007
 NOECHO,                                                                00220007
 SASPARMS=BEGIN,                                                        00230007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00240007
 DATA BIORAW;                                                           00250007
 FORMAT SAMPDATE YYMMDD8.;                                              00260007
 FORMAT SAMPTIME HHMM5.;                                                00270007
 FILE PRINT NOTITLES HEADER=PGHD LINESLEFT=LL;                          00280007
 INFILE BFCF LENGTH=LENGTH;                                             00290007
 INPUT @1 AGENCY $8. STATION $15. @24 REC_TYPE $2. @;                   00300007
 IF REC_TYPE='01' THEN PUT _PAGE_;                                      00310007
 IF REC_TYPE>'09' THEN PUT;                                             00320007
 IF LL<8 THEN PUT _PAGE_;                                               00330007
 PUT '*****  ' REC_TYPE= LENGTH= AGENCY= STATION= @;                    00340007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00350007
 IF REC_TYPE<'99' THEN DO;           *    STATION HEADER           ;    00360007
   INPUT @91 TEXT $CHAR41. @;        *  -  -  -  -  -  -  -  -  -  ;    00370007
   PUT '  **  ' TEXT $CHAR41. ;                                         00380007
   END;                                                                 00390007
   ELSE PUT;                                                            00400007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00410007
 IF REC_TYPE^='99' THEN RETURN;                                         00420007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00430007
 INPUT @53 SORT_SEQ  PIB2.                                              00440007
       @55 GRP_NUM   PIB2.                                              00450007
             @ ;                                                        00460007
 PUT '*****  ' GRP_NUM= '  ' SORT_SEQ=;                                 00470007
                                     *  -  -  -  -  -  -  -  -  -  ;    00480007
 IF GRP_NUM=999 THEN RETURN;         *    DELIMITER RECORD         ;    00490007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00500007
   IF GRP_NUM=4 THEN RETURN;         *    IHS GROUP = 30SURVEY     ;    00510007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00520007
   IF GRP_NUM=0 OR GRP_NUM>4 THEN DO;*    ALL SAMPLE DATA RECORDS  ;    00530007
                                     *    HAVE THE SAMPLE KEY IN   ;    00540007
                                     *    THE KEY FIELD            ;    00550007
                                     *  -  -  -  -  -  -  -  -  -  ;    00560007
     INPUT @41 SURVEY $5. @;                                            00570007
                                                                        00580007
     INPUT @26 SAMPDATE YYMMDD6. HH 2. MM 2. @ ;                        00590007
        IF HH>24 THEN SAMPTIME=.;                                       00600007
                 ELSE SAMPTIME=HMS(HH,MM,0);                            00610007
                                                                        00620007
     INPUT @46 SAMPID $6.                                               00630007
           @52 REPLNUM $1.                                              00640007
             @  ;                                                       00650007
                                                                        00660007
     PUT '****  ' SURVEY= ;                                             00670007
     PUT '***  ' SAMPDATE= SAMPTIME= ;                                  00680007
     PUT '**  ' SAMPID= ;                                               00690007
     PUT '*  ' REPLNUM= ;                                               00700007
     END;                                                               00710007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00720007
   IF GRP_NUM=5 THEN DO;             *    IHS GROUP = 40SAMPRF     ;    00730007
                                     *  -  -  -  -  -  -  -  -  -  ;    00740007
     INPUT @57 ESAMPDT PD6.                                             00750007
           @68 (SNOTE1-SNOTE4)  ($CHAR64.)                              00760007
          @324 END_DATE $10.                                            00770007
          @334 COMMUNI $CHAR23.                                         00780007
             @  ;                                                       00790007
     IF ESAMPDT < 0 THEN DO;                                            00800007
       END_DATE=' ';                                                    00810007
       ESAMPDT=.;                                                       00820007
       END;                                                             00830007
     PUT ESAMPDT= END_DATE= COMMUNI=;                                   00840007
     PUT SNOTE1= / SNOTE2= / SNOTE3= / SNOTE4=;                         00850007
     RETURN;                                                            00860007
     END;                                                               00870007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    00880007
   IF GRP_NUM=0 THEN DO;             *    BIOS WATER QUALITY DATA  ;    00890007
                                     *  -  -  -  -  -  -  -  -  -  ;    00900007
     INPUT @57 PARM PD3.                                                00910007
           @60 LONGNAME $CHAR50.                                        00920007
          @110 (SHORT1-SHORT3)  ($CHAR10.)                              00930007
          @140 FLOATVAL RB4.                                            00940007
          @144 CHARVAL $8.                                              00950007
          @152 REMARK $1.                                               00960007
          @153 ALPHANUM $1.                                             00970007
             @  ;                                                       00980007
     PUT PARM= LONGNAME= ;                                              00990007
     PUT SHORT1= / SHORT2= / SHORT3= ;                                  01000007
     IF ALPHANUM = 'A' THEN FLOATVAL=. ;                                01010007
     PUT FLOATVAL= CHARVAL= REMARK= ALPHANUM= ;                         01020007
     RETURN;                                                            01030007
     END;                                                               01040007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    01050007
   IF GRP_NUM=6 THEN DO;             *    IHS GROUP = 50GEARGR     ;    01060007
                                     *  -  -  -  -  -  -  -  -  -  ;    01070007
     INPUT @57 GEAR     IB2.                                            01080007
           @59 GMESH    RB4.                                            01090007
           @66 GVOL     RB4.                                            01100007
           @70 GAREA    RB4.                                            01110007
           @74 GLEN     RB4.                                            01120007
           @78 GDIAM    RB4.                                            01130007
           @82 GWIDTH   RB4.                                            01140007
           @86 GVOLTS   RB4.                                            01150007
           @90 GAMPS    RB4.                                            01160007
           @94 GCURTYP  $1.                                             01170007
           @95 GEARNAME $23.                                            01180007
             @  ;                                                       01190007
     IF GMESH  <=0 THEN GMESH  = . ;                                    01200007
     PUT GEAR= GEARNAME=;                                               01210007
     PUT GMESH= GVOL= GAREA= GLEN= GDIAM= GWIDTH=                       01220007
          GVOLTS= GAMPS= GCURTYP=;                                      01230007
     RETURN;                                                            01240007
     END;                                                               01250007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    01260007
   IF GRP_NUM=7 THEN DO;             *    IHS GROUP = 60REFERN     ;    01270007
                                     *  -  -  -  -  -  -  -  -  -  ;    01280007
     INPUT @57 REFTYPE  $1.                                             01290007
           @58 REFNUM  IB2.                                             01300007
             @  ;                                                       01310007
      PUT REFTYPE= REFNUM=;                                             01320007
     RETURN;                                                            01330007
     END;                                                               01340007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    01350007
   IF GRP_NUM=8 THEN DO;             *    IHS GROUP = 90TAXGRP     ;    01360007
                                     *  -  -  -  -  -  -  -  -  -  ;    01370007
     INPUT @57 TAXCODE  $17.                                            01380007
           @74 LIFESTA  IB2.                                            01390007
           @76 BATCHID   $1.                                            01400007
          @104 HYBRID   $17.                                            01410007
          @121 IDCONF    $1.                                            01420007
          @122 SEETABLE IB2.                                            01430007
          @124 LOCNT    RB4.                                            01440007
          @128 CNT      RB4.                                            01450007
          @132 HICNT    RB4.                                            01460007
          @136 SSLOCNT  RB4.                                            01470007
          @140 SSCNT    RB4.                                            01480007
          @144 SSHICNT  RB4.                                            01490007
          @148 WETWT    RB4.                                            01500007
          @152 DRYWT    RB4.                                            01510007
          @156 ASHWT    RB4.                                            01520007
          @160 SLENMAX  RB4.                                            01530007
          @164 SLENMIN  RB4.                                            01540007
          @168 FLENMAX  RB4.                                            01550007
          @172 FLENMIN  RB4.                                            01560007
          @176 TLENMAX  RB4.                                            01570007
          @180 TLENMIN  RB4.                                            01580007
          @184 TNOTE1   $64.                                            01590007
          @248 TNOTE2   $64.                                            01600007
          @312 SCI_NAME $45.                                            01610007
          @357 COM_NAME $45.                                            01620007
          @402 LIFSTAGE $23.                                            01630007
             @  ;                                                       01640007
     IF LIFESTA  < 0 THEN LIFESTA  = . ;                                01650007
     IF SEETABLE < 0 THEN SEETABLE = . ;                                01660007
     PUT TAXCODE= SCI_NAME= IDCONF= / COM_NAME=;                        01670007
     PUT LIFESTA= LIFSTAGE= BATCHID=;                                   01680007
     PUT HYBRID= SEETABLE=;                                             01690007
     PUT TNOTE1= / TNOTE2=;                                             01700007
     PUT CNT= '         ' LOCNT= '  ' HICNT=;                           01710007
     PUT SSCNT= '      ' SSLOCNT= SSHICNT=;                             01720007
     PUT WETWT= DRYWT= ASHWT=;                                          01730007
     PUT SLENMAX= FLENMAX= TLENMAX=;                                    01740007
     PUT SLENMIN= FLENMIN= TLENMIN=;                                    01750007
     RETURN;                                                            01760007
     END;                                                               01770007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    01780007
 PGHD:                                                                  01790007
  HDATE=TODAY();                                                        01800007
  PUT 'STORET RETRIEVAL DATE '                                          01810007
     HDATE YYMMDD8.                                                     01820007
 '                  **   SAS DISPLAY OF DATA  -  DUMP OF BFCF FILE  **' 01830007
     ;                                                                  01840007
  PUT;                                                                  01850007
  RETURN;                                                               01860007
 *  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;    01870007
 STOPSAS,                                                               01880007
 ./iii      JOB (aaaaSTORP,Miii),'BIOS-SAS',NOTIFY=iii,                 01890007
 ./             MSGLEVEL=(1,1),PRTY=4                                   01900007
 **ROUTE  PRINT HOLD                                                    01910007
 **JOBPARM LINES=10                                                     01920007
