//TESTCLN1 JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=4
/*JOBPARM SHIFT=D,LINES=4
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=4
//RAWDATA DD DSN=COINEWM.CR1CLEAN.SEQ,DISP=SHR
//OUTDATA DD DSN=COINEWM.CRUISE1.SELECTC1,DISP=SHR
//SYSIN DD *
********************************************************************;
*            ** OUTPUT FILE NAME : CRUISE1.SELECTC1     ************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET :       *;
* COINEWM.CR1CLEAN.SEQ       AND CREATES A NEW FILE OF SELECTED    *;
* DATA NAMED SELECTC1.                        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.CR1CLEAN.SEQ       ************************;
*********   ADD MORE PARAMETERS BELOW IF YOU NEED  *****************;
DATA A ;
   INFILE RAWDATA ;
   INPUT DATE$    1-10    TIME$    12-21    LAT$     23-33
         LONG$    35-45
         H2OTEMP   48-55  CONDUCT  58-65    SALIN    68-75;

********************************************************************;
********************************************************************;
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   DATE$ 1-10 C$ 11 TIME$ 12-22 C$ 23
 LAT$ 24-34    C$ 35 LONG$ 36-46    C$ 47
 H2OTEMP 48-58 .4 C$ 59 CONDUCT 60-70 .4 C$ 71 SALIN 72-82 .4 ;
//
