//TESTCLN3 JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=90
/*JOBPARM SHIFT=D,LINES=90
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=90
//RAWDATA DD DSN=COINEWM.CRUISE3.CLEANMID,DISP=SHR
//OUTDATA DD DSN=COINEWM.CRUISE3.MIDASTST,DISP=SHR
//SYSIN DD *
********************************************************************;
*            ** OUTPUT FILE NAME : CRUISE3.MIDASTST     ************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET :       *;
* COINEWM.CRUISE3.CLEANMID   AND CREATES A NEW FILE OF SELECTED    *;
* DATA NAMED MIDASTST.                        IF YOU NEED MORE     *;
* PARAMETERS PLEASE ADD THOSE IN READING AND ALSO IN WRITING.      *;
*                                                                  *;
* BY  : MARIE NEWMAN.   DATE : MAY    4, 1994                      *;
*                                                                  *;
********************************************************************;
*********       READ THE DATA FILE *********************************;
*********        COINEWM.CRUISE3.CLEANMID   ************************;
*********   ADD MORE PARAMETERS BELOW IF YOU NEED  *****************;
DATA A ;
   INFILE RAWDATA ;
   INPUT TDDATEM  1-2     TDDATED  4-5      TDDATEY  7-10
         TDTIMEH  12-13   TDTIMEM  15-16    TDTIMES  18-19
         NDLATD   21-22   NDLATM   24-25    NDLATH   27-28
         NDLONGD  30-32   NDLONGM  34-35    NDLONGH  37-38
         H2OTEMP   40-47  CONDUCT  49-56    SALIN    58-65
         CHLFLUVT 67-74   AUXFLUVT 76-83    FLOSWTCH 85-92
         LITTRAN  94-101  FLORATE  103-110  WNDSPD   112-119
         RWNDSPD  121-128 CWNDSPD  130-137  CMWDIR   139-146
         AIRTEMP  148-155 BAROPRES 157-164  SOLRAD   166-173 ;

********************************************************************;
********************************************************************;
C = ',' ;
D = '/' ;
E = ':' ;
F = '.' ;
********************************************************************;
*********   ADD MORE PARAMETERS BELOW IF YOU NEED  *****************;
*********   AND ADJUST COLUMN POSITION, MAKE NEW OUTPUT FILE *******;
DATA B ;
SET A ;
C = ',' ;
D = '/' ;
E = ':' ;
F = '.' ;
FILE OUTDATA ;
 PUT TDDATEM 1-2 D$ 3 TDDATED 4-5 D$6 TDDATEY  7-10 C$ 11
 TDTIMEH 12-13 E$ 14 TDTIMEM 15-16 E$17 TDTIMES 18-19 C$ 20
 NDLATD 21-22 E$ 23 NDLATM 24-25 F$ 26 NDLATH 27-28 C$ 29
 NDLONGD 30-32 E$ 33 NDLONGM 34-35 F$ 36 NDLONGH 37-38 C$ 39
 H2OTEMP 40-47 .4 C$ 48 CONDUCT 49-56 .4 C$ 57 SALIN 58-65 .4 ;
//
