//UUUNMEX  JOB (AAAASTORPUUU,MUUU),' FLOW  F1P     ',TIME=(2,35),
//             MSGLEVEL=(1,1),NOTIFY=UUU,PRTY=2
/*ROUTE  PRINT HOLD
/*JOBPARM LINES=40
//*   THIS DATASET IS NAMED 'STORET.HELP.FLOW.LIBRARY(F1P)'
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
*   SAS EXAMPLE SHOWING HOW TO PROCESS THE MACHINE READABLE FILE    ;
*   NAMED 'STORET.HELP.FLOW.GAGE.SUMMARY' TO PRODUCE A FILE OF      ;
*   USER-DEFINED SUBSET OF THE GAGING STATIONS WITHIN THE STORET    ;
*   DAILY FLOW SYSTEM.                                              ;
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
//SASSTEP  EXEC SAS
//FLOGAGES DD DSN=STORET.HELP.FLOW.GAGE.SUMMARY,DISP=SHR
//*  OUTPUT FILE
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
* -  CHANGE NAME FOR DSN BELOW                                      ;
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
//CARDFILE DD DSN=UUUAAAA.NMGAGES.FILE01,DISP=(NEW,CATLG,DELETE),
//  UNIT=DISK,DCB=(RECFM=FB,LRECL=200,BLKSIZE=4000),
//  SPACE=(TRK,(800,400),RLSE)
//SYSIN DD *
DATA GAGES;
INFILE FLOGAGES;
FORMAT STATE $20.;
FORMAT FIPS_ST $2.;
FORMAT FIPS_CTY $3.;
FORMAT LAT $8.;
FORMAT LONG $9.;
INPUT @1 GAGE_ID   $15.
     @16 HUC        $8.
         @16 REGION     $2.
             SUBREG     $2.
             ACCTUNIT   $2.
             CATUNIT    $2.
     @24 LOCATION  $48.
     @72 LAT        $6.
         @72 LATDEG     $2.
             LATMIN     $2.
             LATSEC     $2.
     @78 LONG       $7.
         @78 LONGDEG    $3.
             LONGMIN    $2.
             LONGSEC    $2.
     @85 FIPS_ST     2.
     @87 FIPS_CTY    3.
     @90 SITECODE   $2.
     @92 BEG_WYR     4.
     @96 END_WYR     4.
    @100 DRAINAGE  RB4.
    @104 CONTR_DR  RB4.
    @108 WELL_DP   RB4.
    @112 ELEV      PD4.
          ;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
*  GAGE_ID  ==>  GAGING STATION NUMBER                               ;
*  HUC      ==>  USGS HYDROLOGIC UNIT CODING                         ;
*  LOCATION ==>  GAGING STATION LOCATION DESCRIPTION                 ;
*  LAT      ==>  LATITUDE                                            ;
*  LONG     ==>  LONGITUDE                                           ;
*  FIPS_ST  ==>  FIPS NUMERIC STATE CODE                             ;
*  FIPS_CTY ==>  FIPS NUMERIC COUNTY CODE                            ;
*  SITECODE ==>  SITE CLASSIFICATION                                 ;
*  BEG_WYR  ==>  START OF PERIOD OF RECORD FOR FLOW DATA ONLY        ;
*  END_WYR  ==>  END OF PERIOD OF RECORD FOR FLOW DATA ONLY          ;
*  DRAINAGE ==>  PRIMARY DRAINAGE AREA  (IN SQUARE MILES)            ;
*  CONTR_DR ==>  CONTRIBUTING DRAINAGE AREA  (IN SQUARE MILES)       ;
*  WELL_DP  ==>  WELL DEPTH (IN HUNDREDTHS OF A FOOT)                ;
*  ELEV     ==>  ELEVATION  (IN FEET, ABOVE MEAN SEA LEVEL)          ;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
*  DEPENDING UPON THE DESIRED SUBSET OF GAGES, "IF" STATEMENTS OF    ;
*  THE KIND BELOW, MAY BE INCLUDED AS NEEDED TO LIMIT THE SCOPE OF   ;
*  THE REQUEST.                                                      ;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
IF FIPS_ST = '35';                         * SELECT NEW MEXICO       ;
*F SITECODE = 'SW';                        * SURFACE WATER SITES ONLY;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
*  STATEMENTS BELOW ARE "TRANSLATORS" FOR VARIOUS MISSING VALUES     ;
*  AND/OR ENCODED DATA.                                              ;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
IF BEG_WYR=0000 THEN DO;                   * BOTH DATES ARE MISSING  ;
  END_WYR = .;
  BEG_WYR = .;
  END;
IF HUC = '00000000'  THEN HUC = ' ';       * HUC IS MISSING          ;
IF ELEV < 0  THEN ELEV = .;                * ELEVATION IS MISSING    ;
STATE = FIPNAME(FIPS_ST);                  * TRANSLATE STATE CODE    ;
*AT = LATDEG||' '||LATMIN||' '||LATSEC;    * FORMAT LATITUDE         ;
*ONG = LONGDEG||' '||LONGMIN||' '||LONGSEC;* FORMAT LONGITUDE        ;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
*  THE FOLLOWING PUT STATEMENTS WRITE A FILE                         ;
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
FILE CARDFILE;
PUT  FIPS_ST 1-2 ',' FIPS_CTY 4-6  ',' GAGE_ID 8-23 ','
     LAT 25-30 ',' LONG 32-38 ',"' LOCATION 41-91 '",'
     HUC 94-101 ',';
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;
