//CR2TEST1 JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=5
/*JOBPARM SHIFT=D,LINES=90
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=5
//RAWDATA DD DSN=COINEWM.CRUISE2.CLEANMID,DISP=SHR
//OUTDATA DD DSN=COINEWM.CRUISE2.CLEANTST,DISP=SHR
//SYSIN DD *
********************************************************************;
* MARIE,     ** OUTPUT FILE NAME : CRUISE2.CLEANTST  ***************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET :       *;
* COINEWM.CRUISE2.CLEANMID   AND CREATES A NEW FILE WITH CLEANED   *;
* DATA AS SCREENED WITH FOLLOWING CONDITIONS. IF YOU NEED MORE     *;
* PARAMETERS PLEASE ADD THOSE IN READING AND ALSO IN WRITING.      *;
*                                                                  *;
* BY  : H.S.MASHRIQUI.  DATE : MAY 26, 1994                        *;
*                                                                  *;
********************************************************************;
*********       READ THE DATA FILE *********************************;
*********        COINEWM.CRUISE2.CLEANMID  *************************;
*********   ADD MORE PARAMETERS BELOW IF YOU NEED  *****************;
DATA A ;
   INFILE RAWDATA ;
   INPUT TDDATEM  2-3     TDDATED  5-6      TDDATEY  8-11
         TDTIMEH  13-14   TDTIMEM  16-17    TDTIMES  19-20
         NDLATD   22-23   NDLATM   26-27    NDLATH   29-30
         NDLONGD  35-37   NDLONGM  40-41    NDLONGH  43-44
         H2OTEMP  260-266 CONDUCT  268-274  SALIN    276-282
         CHLFLUVT 284-290 AUXFLUVT 292-298  FLOSWTCH 300-302
         LITTRAN  304-309 FLORATE  311-315  WNDSPD   317-321
         RWNDSPD  323-327 CWNDSPD  329-333  MWDIR    335-337
         DEVWDIR  339-341 CMWDIR   343-345  AIRTEMP  347-351
         BAROPRES 353-357 SOLRAD   359-364 ;
********************************************************************;
********************************************************************;
     IF ( NDLATD   < 22.0 OR NDLATD   > 40 ) THEN DELETE ;
     IF ( NDLONGD  < 82.0 OR NDLONGD  > 103 ) THEN DELETE ;
     IF ( H2OTEMP  < 10.0 OR H2OTEMP  > 25 ) THEN H2OTEMP  = . ;
     IF ( CONDUCT  < 00.0 OR CONDUCT  > 5  ) THEN CONDUCT  = . ;
     IF ( SALIN    < 14.0 OR SALIN    > 33 ) THEN SALIN    = . ;
     IF ( CHLFLUVT < 0.05 OR CHLFLUVT > 1  ) THEN CHLFLUVT = . ;
     IF ( LITTRAN  < 0.00 OR LITTRAN  > 99 ) THEN LITTRAN  = . ;
     IF ( CWNDSPD  < 0.00 OR CWNDSPD  > 20 ) THEN CWNDSPD  = . ;
     IF ( CMWDIR   < 0.00 OR CMWDIR  > 360 ) THEN CMWDIR   = . ;
     IF ( AIRTEMP  < 10.0 OR AIRTEMP  > 23 ) THEN AIRTEMP  = . ;
     IF ( BAROPRES < 29.0 OR BAROPRES > 31 ) THEN BAROPRES = . ;
     IF ( SOLRAD   < 0.00 OR SOLRAD   > 1  ) THEN SOLRAD   = . ;
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
 C$ 66 CHLFLUVT 67-74 .4 C$ 75 AUXFLUVT 76-83 .4 C$ 84 FLOSWTCH
 85-92 .4 C$ 93 LITTRAN 94-101 .4 C$ 102 FLORATE 103-110 .4 C$ 111
 WNDSPD 112-119 .4 C$ 120 RWNDSPD 121-128 .4 C$ 129 CWNDSPD 130-137 .4
 C$ 138 CMWDIR 139-146 .4 C$ 147 AIRTEMP 148-155 .4 C$ 156
 BAROPRES 157-164 .4 C$ 165 SOLRAD 166-173 .4 C$ 174 ;
//
