//**************                                                        00000100
//*  MOREALL  **                                                        00000200
//**************                                                        00000300
//MOREALL EXEC SAS                                                      00000400
//SAS.FCF DD DISP=SHR,DSN=LJMA014.MOREALL.FCF                           00000500
//SAS.FCFABF DD DISP=SHR,DSN=LJMA014.MOREALL.FCFABF                     00000600
//SAS.SYSIN DD DATA                                                     00000700
DATA _NULL_;                                                            00000800
* THIS IS THE PARAMETER ABBREVIATION FILE FOR THE RUN;                  00000900
INFILE FCFABF;                                                          00001000
INPUT @1  PAR_NUM       5.                                              00001100
      @6  PARH1   $CHAR10.                                              00001200
      @16 PARH2   $CHAR10.                                              00001300
      @26 PARU    $CHAR10.                                              00001400
      @36 DESCRIP $CHAR50.                                              00001500
         ;                                                              00001600
FILE PRINT HEADER=P NOTITLES;                                           00001700
PUT @5  PAR_NUM       5.                                                00001800
    @12 PARH1   $CHAR10.                                                00001900
    @22 PARH2   $CHAR10.                                                00002000
    @32 PARU    $CHAR10.                                                00002100
    @45 DESCRIP $CHAR50.                                                00002200
       ;                                                                00002300
RETURN;                                                                 00002400
P:                                                                      00002500
PUT @10 ' STORET PARAMETER CODES FOUND IN THIS RUN' //                  00002600
    @7 'PARM'                                                           00002700
    @15 'SHORT ABBREVIATION'                                            00002800
    @50 'DESCRIPTION'                                                   00002900
      / ;                                                               00003000
RETURN;                                                                 00003100
*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  ;     00003200
DATA _NULL_;                                                            00003300
* THIS IS THE RAW DATA FILE FOR THE RUN;                                00003400
INFILE FCF LENGTH=L;                                                    00003500
RETAIN SAMP_NUM;                                                        00003600
INPUT @26 DLM_CHK $2. @; IF DLM_CHK='99' THEN DELETE; DROP DLM_CHK;     00003700
FILE PRINT HEADER=H NOTITLES LINESLEFT=LL;                              00003800
IF L=145 THEN DO;                                                       00003900
  INPUT @24 LINE $2. @26 T_LINE $CHAR120.;                              00004000
  IF LINE='1' THEN DO;                                                  00004100
    PUT _PAGE_;                                                         00004200
    SAMP_NUM=0;                                                         00004300
    END;                                                                00004400
  IF T_LINE ^= ' ' THEN                                                 00004500
  PUT T_LINE $CHAR120.;                                                 00004600
  DELETE;                                                               00004700
  END;                                                                  00004800
FORMAT KEY_DATE YYMMDD8.;                                               00004900
FORMAT KEY_TIME HHMM5.;                                                 00005000
INPUT @1   AGENCY      $8.                                              00005100
      @9   STATION    $15.                                              00005200
      @24  LINE        $2.                                              00005300
      @26  KEY_DATE   YYMMDD6.                                          00005400
      @32  HH1          2.                                              00005500
           MM1          2.                                              00005600
      @50  SAMP_MED    $CHAR8.                                          00005700
      @58  SAMP_DEP    $CHAR8.                                          00005800
      @75  REC_SEQ      2.                                              00005900
      @77  NP_MAX       4.                                              00006000
            @;                                                          00006100
   SAMP_NUM=SAMP_NUM + 1;                                               00006200
   IF HH1>24 THEN KEY_TIME=.;                                           00006300
   ELSE KEY_TIME=HMS(HH1,MM1,0); DROP HH1 MM1;                          00006400
IF LL<10 THEN PUT _PAGE_;                                               00006500
PUT    @1 '-----------------------------' //                            00006600
       @1 'SAMPLE NUMBER' @15 SAMP_NUM 8. /                             00006700
       @1 '    DATE/TIME' @15 KEY_DATE YYMMDD8. KEY_TIME HHMM6. /       00006800
       @1 '        DEPTH' @15 SAMP_DEP $CHAR8. /                        00006900
       @1 '       MEDIUM' @18 SAMP_MED $CHAR8. /                        00007000
       @1 '   PARAMETERS' @15 NP_MAX  8.                                00007100
           ;                                                            00007200
PUT / '     PARAM           VALUE RMK';                                 00007300
RETAIN MAXLEN;  MAXLEN=80 + 12*NP_MAX;  DROP MAXLEN;                    00007400
RETAIN PTR;        PTR=81;              DROP PTR;                       00007500
   DO WHILE(PTR < MAXLEN);                                              00007600
      INPUT @PTR      PAR_NUM  IB4.                                     00007700
            @PTR + 4  VALUE    RB4.                                     00007800
            @PTR + 8  RMK       $1.                                     00007900
            @PTR + 9  DECPT      2.                                     00008000
              @;                                                        00008100
      PTR = PTR + 12;                                                   00008200
      DO WHILE(VALUE < 10**-DECPT);                                     00008300
        DECPT=DECPT+1; END;                                             00008400
      PUT @5 PAR_NUM 5.0 @28 RMK $1. @;                                 00008500
      IF DECPT=-1 THEN PUT @15 VALUE E12.;                              00008600
      IF DECPT=0 THEN PUT @15 VALUE 12.0;                               00008700
      IF DECPT=1 THEN PUT @15 VALUE 12.1;                               00008800
      IF DECPT=2 THEN PUT @15 VALUE 12.2;                               00008900
      IF DECPT=3 THEN PUT @15 VALUE 12.3;                               00009000
      IF DECPT=4 THEN PUT @15 VALUE 12.4;                               00009100
      IF DECPT=5 THEN PUT @15 VALUE 12.5;                               00009200
      IF DECPT=6 THEN PUT @15 VALUE 12.6;                               00009300
      IF DECPT=7 THEN PUT @15 VALUE 12.7;                               00009400
      END;                                                              00009500
RETURN;                                                                 00009600
H:                                                                      00009700
PUT @10 'STORET DATA DISPLAY PROGRAM' /                                 00009800
    @10 '        MORE=ALL' /;                                           00009900
RETURN;                                                                 00010000
