*  THIS DATASET IS NAMED 'STORET.HELP.EXAMPLES.SAS.LIBRARY(DLOAD)'      00000100
*                                                                       00000300
*  THIS FILE CONTAINS A STORET RETRIEVAL WITH SAS INSTRUCTIONS AND      00000400
*  JCL TO CREATE A MAINFRAME FILE OF STORET DATA WHICH MAY BE EASILY    00000500
*  DOWNLOADED TO A PERSONAL COMPUTER.                                   00000600
*                                                                       00000700
*  Note:                                                                00000800
*   To eliminate explanatory columns headers from output file,          00000900
*                                                                       00001000
*   SAS instruction      ==> RETAIN HEADER 'YES';                       00001100
*                                                                       00001200
*   Should be changed to ==> RETAIN HEADER 'NO';                        00001300
*                                                                       00001400
** DELETE THIS LINE AND ALL PRECEEDING LINES BEFORE USING THIS FILE **  00001500
                                                                        00001600
PGM=RET,MORE=4,EXPANDED,                                                00001700
###########################################                             00001800
#  SAS PART OF THIS RUN WILL CREATE A     #                             00001900
#  FILE OF ASCII DATA FOR DOWN-LOAD TO    #                             00002000
#  A PERSONAL COMPUTER.                   #                             00002100
###########################################                             00002200
A=31DELRBC,S=091017,S=091020,                                           00002300
#                                                                       00002400
P=10,   P=300,  P=310,  P=400,  P=410,                                  00002500
P=610,  P=615,  P=620,  P=625,  P=650,                                  00002600
P=940,  P=1027, P=1034, P=1045, P=1051,                                 00002700
BD=800101,ED=801231,                                                    00002800
#    USE ANC=A TO DEFEND AGAINST "FUNNY" VALUES FROM COMPOSITE SAMPLES  00002900
ANC=A,                                                                  00003000
#                                                                       00003100
SASPARMS=BEGIN,                                                         00003200
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;                          00003300
DATA _NULL_;     INFILE FCF LENGTH=L;                                   00003400
*                                                                   ;   00003500
FORMAT HEADER $3.;                                                      00003600
RETAIN HEADER 'YES'; * YES OR NO  (COLUMN HEADINGS IN OUTPUT FILE)  ;   00003700
*                                                                   ;   00003800
RETAIN LAT LONG PTR;                                                    00003900
LENGTH STCNTY $ 5; RETAIN STCNTY ' ';                                   00004000
ARRAY P(I) P1-P15;                                                      00004100
ARRAY R(I) $1 R1-R15;                                                   00004200
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00004300
INPUT @26 YYDLIM $2. @ ;                                                00004400
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00004500
IF L=145 THEN DO;  *  L=145 SIGNALS POTENTIAL STATION HDR RECORD    ;   00004600
  INPUT @25 LINE $1. @ ;                                                00004700
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00004800
       IF LINE='2' THEN DO;                                             00004900
                        INPUT @91  LATDEG  2.                           00005000
                              @94  LATMIN  2.                           00005100
                              @97  LATSEC  4.1                          00005200
                              @102 LONGDEG 3.                           00005300
                              @106 LONGMIN 2.                           00005400
                              @109 LONGSEC 4.1                          00005500
                              @;                                        00005600
                        LAT=LATDEG+LATMIN/60+LATSEC/3600;               00005700
                        LONG=LONGDEG+LONGMIN/60+LONGSEC/3600;           00005800
                        END;                                            00005900
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00006000
       IF LINE='4' THEN INPUT @91 STCNTY $5.                            00006100
                              @;                                        00006200
      * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;   00006300
  END;                                                                  00006400
IF L<305 THEN DELETE;                                                   00006500
IF YYDLIM='99' THEN DELETE;                                             00006600
INPUT @1  AGENCY       $8.                                              00006700
      @9  STATION     $15.                                              00006800
     @26  DATE    YYMMDD6.                                              00006900
     @32  TIME         $4.                                              00007000
     @36 (P1-P15)    (RB4.)                                             00007100
    @236 (R1-R15)     ($1.)                                             00007200
    @306  MEDIA        $8.                                              00007300
    @314  DPTHCHK      $8.                                              00007400
    @   ;                                                               00007500
DEPTH=9999.99;                                                          00007600
IF MEDIA='WATER' & DPTHCHK^=' ' THEN INPUT @314 DEPTH 8.;               00007700
IF TIME>'2400' THEN TIME='    ';                                        00007800
FILE DLOAD;                                                             00007900
IF HEADER='YES' THEN DO;                                                00008000
  HEADER='NO';                                                          00008100
  PUT @1  ' AGENCY '                                                    00008200
     @10  ' STATION       '                                             00008300
     @26  ' LAT  '                                                      00008400
     @33  ' LONG  '                                                     00008500
     @41  'ST-CO'                                                       00008600
     @47  '  DATE  '                                                    00008700
     @56  'TIME'                                                        00008800
     @61  ' DEPTH '                                                     00008900
     @75  'DATA VALUES AND REMARKS   (ARRAY OF 15 COLUMNS)'             00009000
         ;                                                              00009100
  PUT @1  '--------'                                                    00009200
     @10  '---------------'                                             00009300
     @26  '------'                                                      00009400
     @33  '-------'                                                     00009500
     @41  '-----'                                                       00009600
     @47  '--------'                                                    00009700
     @56  '----'                                                        00009800
     @61  '-------'                                                     00009900
     @75  '----------- ----------- ----------- ----------- ----------- '00010000
          '----------- ----------- ----------- ----------- ----------- '00010100
          '----------- ----------- ----------- ----------- ----------- '00010200
         ;                                                              00010300
  END;                                                                  00010400
PUT   @1  AGENCY       $8.                                              00010500
     @10  STATION     $15.                                              00010600
     @26  LAT          Z6.3                                             00010700
     @33  LONG         Z7.3                                             00010800
     @41  STCNTY       $5.                                              00010900
     @47  DATE    YYMMDD8.                                              00011000
     @56  TIME         $4.                                              00011100
     @61  DEPTH         7.2                                             00011200
     @  ;                                                               00011300
PTR=75;                                                                 00011400
DO OVER P;                                                              00011500
  IF P>0 AND P<1.E-15 THEN P=999999;                                    00011600
  IF R=' ' THEN R='_';                                                  00011700
  PUT  @PTR     P   BEST9.                                              00011800
       @PTR+10  R      $1.                                              00011900
       @  ;                                                             00012000
  PTR=PTR+12;                                                           00012100
  END;                                                                  00012200
PUT;                                                                    00012300
STOPSAS,                                                                00012400
./iii      JOB (aaaaSTORP,Miii),'* DLOAD *',TIME=2,                     00012500
./             MSGLEVEL=(1,1),PRTY=2                                    00012600
**ROUTE  PRINT HOLD                                                     00012700
**JOBPARM LINES=10                                                      00012800
./DLOAD DD UNIT=DISK,DISP=(NEW,CATLG),                                  00012900
./  DCB=(RECFM=FB,LRECL=255,BLKSIZE=2550),                              00013000
./  SPACE=(TRK,(1,1)),                                                  00013100
./  DSN=iiiaaaa.F01.DLOAD.DATA                                          00013200
