*  THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(STATIONS)'   00000102
*                                                                       00000302
*  THIS FILE CONTAINS A STORET/SAS RUN-STREAM WHICH WILL CREATE         00000402
*  A QUICK LIST OF STATIONS AND SOME OF THEIR ATTRIBUTES.               00000502
*                                                                       00000602
*  THIS RUN DOES -NOT- READ AND/OR DEAL WITH ANY OF THE DATA            00000702
*  STORED AT THE SELECTED STATIONS.                                     00000802
*                                                                       00000902
** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE **  00001002
                                                                        00001102
PGM=RET,MORE=4,PRT=NO,                                                  00001200
NOECHO,                                                                 00001300
A=21VASWCB,B=P,S=100-00001,S=100-00010,                                 00001400
P=0,ED=010101,                                                          00001500
##################################################                      00001600
SASPARMS=BEGIN,                                                         00001700
OPTIONS NOSOURCE;                                                       00001800
DATA FROMFCF;                                                           00001900
LENGTH AGENCY $ 8; RETAIN AGENCY ' ';                                   00002000
LENGTH STATION $ 15; RETAIN STATION ' ';                                00002100
RETAIN LAT LONG SEC_STN;                                                00002200
LENGTH STCNTY $ 5; RETAIN STCNTY ' ';                                   00002300
LENGTH CAT_UNIT $ 8; RETAIN CAT_UNIT ' ';                               00002400
LENGTH READY $ 3; RETAIN READY 'NO ';                                   00002502
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00002600
INFILE FCF LENGTH=L;                                                    00002700
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00002800
INPUT @26 YYDLIM $2. @ ; DROP YYDLIM;                                   00002900
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00003000
IF L=145 THEN DO;  *  L=145 SIGNALS POTENTIAL STATION HDR RECORD      ; 00003100
  INPUT @1 AGENCY $8. @9 STATION $15. @25 LINE $1. @; DROP LINE;        00003200
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00003300
       IF LINE='1' THEN DO;                                             00003402
                        INPUT @108 SEC_STN $12.                         00003502
                              @;                                        00003600
                        READY='YES';                                    00003702
                        RETURN;                                         00003802
                        END;                                            00003902
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00004000
       IF LINE='2' THEN DO;                                             00004100
                        INPUT @91  LATDEG  2.                           00004200
                              @94  LATMIN  2.                           00004300
                              @97  LATSEC  4.1                          00004400
                              @102 LONGDEG 3.                           00004500
                              @106 LONGMIN 2.                           00004600
                              @109 LONGSEC 4.1                          00004700
                              @;                                        00004800
                        LAT=LATDEG+LATMIN/60+LATSEC/3600;               00004900
                        LONG=LONGDEG+LONGMIN/60+LONGSEC/3600;           00005000
                        DROP LATDEG LATMIN LATSEC;                      00005100
                        DROP LONGDEG LONGMIN LONGSEC;                   00005200
                        END;                                            00005300
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00005400
       IF LINE='4' THEN INPUT @91 STCNTY $5.                            00005500
                              @;                                        00005600
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00005700
       IF LINE='7' THEN INPUT @120 CAT_UNIT $8.                         00005800
                              @;                                        00005900
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00006000
  RETURN;                                                               00006102
  END;                                                                  00006200
IF YYDLIM='99' & READY='YES'                                            00006302
               THEN DO;                                                 00006402
                    OUTPUT;  *  CREATE ONE RECORD PER STATION         ; 00006502
                    READY='NO ';                                        00006602
                    END;                                                00006702
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00006800
DATA _NULL_; SET FROMFCF;                                               00006900
FILE PRINT;                                                             00007000
IF _N_=1 THEN                                                           00007100
PUT @1   'AGENCY'                                                       00007200
    @10  'STATION'                                                      00007300
    @26  'SEC_STN'                                                      00007402
    @39  'CAT_UNIT'                                                     00007502
    @48  'STCNTY'                                                       00007602
    @54  '  LAT'                                                        00007702
    @62  '  LONG'                                                       00007802
            ;                                                           00007900
PUT @1   AGENCY      $8.                                                00008000
    @10  STATION    $15.                                                00008100
    @26  SEC_STN    $12.                                                00008202
    @39  CAT_UNIT    $8.                                                00008302
    @48  STCNTY      $5.                                                00008402
    @54  LAT         7.4                                                00008502
    @62  LONG        8.4                                                00008602
            ;                                                           00008700
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 00008800
STOPSAS,                                                                00008900
./III      JOB (AAAASTORP,MIII),'EXAMPLE(STATIONS)',TIME=(5,00),        00009002
./             MSGLEVEL=(1,1),PRTY=2                                    00009100
**ROUTE  PRINT HOLD                                                     00009200
**JOBPARM LINES=10                                                      00009300
