*  THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(LATLONG)'    00010001
*                                                                       00030001
*  THIS FILE CONTAINS THE STORET/SAS RUN-STREAM WHICH MAY               00040001
*  BE USED TO READ A "MORE=4,EXPANDED" FCF FILE FROM STORET.            00050001
*  CODE FOUND HERE WILL NOT ONLY READ DATA, BUT WILL READ AND           00060001
*  RETAIN KEY INFORMATION FROM THE STATION HEADERS SUCH AS LAT/LONG     00070001
*  AND COUNTY CODES.                                                    00080001
*                                                                       00090001
** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE **  00100001
PGM=RET,MORE=4,EXPANDED,PRT=NO,                                         00110000
NOECHO,                                                                 00120000
A=51IFYGL,B=P,S=024,S=032,                                              00130000
P=94,P=32212,P=299,P=400,P=410,P=608,P=666,P=671,                       00140000
##################################################                      00150000
PGM=RET,MORE=4,EXPANDED,PRT=NO,                                         00160004
NOECHO,                                                                 00170004
A=EXAMPLE,S=LEE1,UK=TEST,                                               00180004
P=95,P=300,P=400,P=410,P=608,P=666,P=671,                               00190004
##################################################                      00200004
SASPARMS=BEGIN,                                                         00210004
OPTIONS NOSOURCE;                                                       00220004
DATA FROMFCF;                                                           00230004
ARRAY PRM(10) P1-P10;                                                   00240004
ARRAY RMK(10) $ R1-R10;                                                 00250004
LENGTH STATION $ 15;                                                    00260004
RETAIN LAT LONG SEC_STN;                                                00270004
LENGTH STCNTY $ 5; RETAIN STCNTY ' ';                                   00280004
LENGTH CAT_UNIT $ 8; RETAIN CAT_UNIT ' ';                               00290004
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00300004
FORMAT DATE YYMMDD8.;                                                   00310004
INFILE FCF LENGTH=L;                                                    00320004
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00330004
INPUT @26 YYDLIM $2. @ ; DROP YYDLIM;                                   00340004
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00350004
IF L=145 THEN DO;  *  L=145 SIGNALS POTENTIAL STATION HDR RECORD      ; 00360004
  INPUT @1 AGENCY $8. @9 STATION $15. @25 LINE $1. @; DROP LINE;        00370004
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00380004
       IF LINE='1' THEN INPUT @108 SEC_STN $12.                         00390004
                              @;                                        00400004
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00410004
       IF LINE='2' THEN DO;                                             00420004
                        INPUT @91  LATDEG  2.                           00430004
                              @94  LATMIN  2.                           00440004
                              @97  LATSEC  4.1                          00450004
                              @102 LONGDEG 3.                           00460004
                              @106 LONGMIN 2.                           00470004
                              @109 LONGSEC 4.1                          00480004
                              @;                                        00490004
                        LAT=LATDEG+LATMIN/60+LATSEC/3600;               00500004
                        LONG=LONGDEG+LONGMIN/60+LONGSEC/3600;           00510004
                        DROP LATDEG LATMIN LATSEC;                      00520004
                        DROP LONGDEG LONGMIN LONGSEC;                   00530004
                        END;                                            00540004
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00550004
       IF LINE='4' THEN INPUT @91 STCNTY $5.                            00560004
                              @;                                        00570004
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00580004
       IF LINE='7' THEN INPUT @120 CAT_UNIT $8.                         00590004
                              @;                                        00600004
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00610004
  END;                                                                  00620004
IF L=350;        * OMITS PARAMETER HEADERS AND STATION HEADERS ;        00630004
IF YYDLIM^='99'; * OMITS DELIMITER RECORDS ;                            00640004
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00650004
INPUT @1    AGENCY         $8.                                          00660004
      @9    STATION       $15.                                          00670004
      @26   DATE      YYMMDD6.                                          00680004
      @32   HH              2.                                          00690004
            MM              2.                                          00700004
      @36   (P1-P10)     (RB4.)                                         00710004
      @236  (R1-R10)      ($1.)                                         00720004
      @300  IDPTH          $5.                                          00730004
      @306  SAMPLE         $8.                                          00740004
      @314  DEPTH           8.                                          00750004
              ;                                                         00760004
    IF HH>24 THEN TIME=.;                                               00770004
    ELSE TIME=HMS(HH,MM,0);  DROP HH MM;                                00780004
    IF IDPTH='99999' THEN DEPTH=.; DROP IDPTH;                          00790004
    DO I=1 TO 10;                                                       00800004
      IF PRM(I)>0 & PRM(I)< 1.E-15 THEN PRM(I)=.;                       00810004
      IF RMK(I)=' ' THEN RMK(I)='.';                                    00820004
      END;                                                              00830004
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00840004
DATA _NULL_; SET FROMFCF;                                               00850004
FILE PRINT;                                                             00860004
IF _N_=1 THEN                                                           00870004
PUT @1   'AGENCY'                                                       00880004
    @10  'STATION'                                                      00890004
    @26  'CAT_UNIT'                                                     00900004
    @35  'STCNTY'                                                       00910004
    @41  '  LAT'                                                        00920004
    @49  '  LONG'                                                       00930004
    @58  ' DATE'                                                        00940004
    @65  ' TIME'                                                        00950004
    @71  '  DEPTH'                                                      00960004
        /                                                               00970004
    @9  '     PARAMETER VALUES'                                         00980004
    @110 ' REMARKS'                                                     00990004
            ;                                                           01000004
PUT @1   AGENCY      $8.                                                01010004
    @10  STATION    $15.                                                01020004
    @26  CAT_UNIT    $8.                                                01030004
    @35  STCNTY      $5.                                                01040004
    @41  LAT         7.4                                                01050004
    @49  LONG        8.4                                                01060004
    @58  DATE    YYMMDD6.                                               01070004
    @65  TIME      HHMM5.                                               01080004
    @71  DEPTH       7.2                                                01090004
    @80  SAMPLE      $8.                                                01100004
        /                                                               01110004
    @1 'SEC.ST.NUM'                                                     01120004
    @12 SEC_STN    $12.                                                 01130004
        /                                                               01140004
    @1 '--------'                                                       01150004
    @9  (P1-P10)   (10.2)                                               01160004
    @110 (R1-R10)   ($2.)                                               01170004
            ;                                                           01180004
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 01190004
STOPSAS,                                                                01200004
./III      JOB (AAAASTORP,SLJM),'SAMPLE RUN',                           01210004
./             MSGLEVEL=(1,1),PRTY=4                                    01220004
**ROUTE  PRINT HOLD                                                     01230004
**JOBPARM LINES=10                                                      01240004
