//MASRIQUI JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=2
/*JOBPARM SHIFT=D,LINES=90
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=2
//RAWDATA DD DSN=COINEWM.CR2DIST1.SEQ2,DISP=SHR
//OUTDATA DD DSN=COINEWM.CR22KM.SEQ,DISP=SHR
//SYSIN DD *
********************************************************************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET,        *;
* COINEWM.MIDAS.SEQ AND WRITES CLEANED PARAMETERS IN THE FILE      *;
* COINEWM.CR1CLEAN.SEQ. THIS FILE WILL BE USED FOR ANY TYPE OF     *;
* ANALYSIS.                                                        *;
*                                                                  *;
* BY  : H.S.MASHRIQUI.                                             *;
*                                                                  *;
********************************************************************;
DATA A ;
   INFILE RAWDATA;
   INPUT OBS JUMP TYPE FREQ MFLAT MFLON H2OTEMP CONDUCT SALIN CHLFLUVT
   LITTRAN CWNDSPD CMWDIR AIRTEMP BAROPRES SOLRAD  ;
********************************************************************;
********************************************************************;
********************************************************************;
********************************************************************;
     COMMA  =  ','   ;
     D      =  '-'   ;
     C      =  ':'   ;
********************************************************************;
********************************************************************;
********************************************************************;
********************************************************************;
********************************************************************;
*********  WRITE CLEANED DATA TO OUTPUT FILE  **********************;
********************************************************************;
********************************************************************;
     DATA CLEAN ;
          SET A ;
          FILE OUTDATA ;
  PUT OBS  1-5  COMMA$ 6 JUMP 8-12 COMMA$ 13 TYPE 15-19 COMMA$ 20
  FREQ 22-26 COMMA$ 27 MFLAT 29-36 .4 COMMA$ 37 MFLON 39-46 .4
  COMMA$ 47 H2OTEMP 49-56 .4 COMMA$ 57 CONDUCT 59-66 .4 COMMA$ 67
SALIN 69-76 .4 COMMA$ 77 CHLFLUVT 79-86 .4 COMMA$ 87 LITTRAN 89-96 .4
COMMA$ 97 CWNDSPD 99-106 .4 COMMA$ 107 CMWDIR 109-116 .4 COMMA$ 117
AIRTEMP 119-126 .4 COMMA$ 127 BAROPRES 129-136 .4 COMMA$ 137
SOLRAD 139-146 .4 COMMA$ 147 ;
********************************************************************;
//
