PGM=RET,MORE=4,                                                         00001000
###########################################                             00001100
#  SAS PART OF THIS RUN WILL CREATE A     #                             00001300
#  FILE OF ASCII DATA FOR DOWN-LOAD TO    #                             00001400
#  A PERSONAL COMPUTER.                   #                             00001500
#  THE FILE WILL CONTAIN ONLY THE STATION #                             00001603
#  DESCRIPTIONS, NO WATER QUALITY DATA.   #                             00001703
###########################################                             00001800
A=31DELRBC,S=091017,S=091020,                                           00001900
P=0,ED=010101,                                                          00002002
#                                                                       00002100
SASPARMS=BEGIN,                                                         00002500
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;                          00002600
DATA _NULL_;     INFILE FCF LENGTH=L;                                   00002700
RETAIN LAT LONG;                                                        00002800
RETAIN AGENCY STATION;                                                  00002900
RETAIN LATDEG LATMIN LATSEC LONGDEG LONGMIN LONGSEC;                    00003000
LENGTH STCNTY $ 5; RETAIN STCNTY ' ';                                   00003100
LENGTH CAT_UNIT $ 8; RETAIN CAT_UNIT ' ';                               00003200
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00003400
INPUT @1 AGENCY $8. @9 STATION $15. @26 YYDLIM $2. @ ;                  00003500
IF _N_<=21 THEN DELETE;                                                 00003601
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00003700
IF L=145 THEN DO;  *  L=145 SIGNALS POTENTIAL STATION HDR RECORD    ;   00003800
  INPUT  @25 LINE $1. @ ;                                               00003900
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   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
                        END;                                            00005100
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00005200
       IF LINE='4' THEN INPUT @91 STCNTY $5.                            00005300
                              @;                                        00005400
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00005500
       IF LINE='7' THEN INPUT @120 CAT_UNIT $8.                         00005600
                              @;                                        00005700
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00005800
  END;                                                                  00005900
IF L^=305 THEN DELETE;                                                  00006000
FILE DLOAD;                                                             00006800
PUT   @1  AGENCY       $8.                                              00006900
     @10  STATION     $15.                                              00007000
     @25  LATDEG       Z2.                                              00007100
     @27  '-'                                                           00007200
     @28  LATMIN       Z2.                                              00007300
     @30  '-'                                                           00007400
     @31  LATSEC       Z4.1                                             00007500
     @36  LONGDEG      Z3.                                              00007600
     @39  '-'                                                           00007701
     @40  LONGMIN      Z2.                                              00007801
     @42  '-'                                                           00007901
     @43  LONGSEC      Z4.1                                             00008001
     @48  LAT          Z6.3                                             00008101
     @55  LONG         Z7.3                                             00008201
     @63  CAT_UNIT     $8.                                              00008301
     @72  STCNTY       $5.                                              00008401
        ;                                                               00008600
STOPSAS,                                                                00009700
./iii      JOB (aaaaSTORM,Miii),'* DLOAD *',TIME=(,7),                  00009800
./             MSGLEVEL=(1,1),PRTY=4                                    00009900
**ROUTE  PRINT HOLD                                                     00010000
**JOBPARM LINES=10                                                      00010100
./DLOAD DD UNIT=DISK,DISP=(NEW,CATLG),                                  00010200
./  DCB=(RECFM=FB,LRECL=255,BLKSIZE=2550),                              00010300
./  SPACE=(TRK,(1,1)),                                                  00010400
./  DSN=iiiaaaa.F01.DLOAD.DATA                                          00010500
