//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.CR2.SEQ,DISP=SHR
//OUTDATA DD DSN=COINEWM.CR2COND.SEQ,DISP=SHR
//SYSIN DD *
********************************************************************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET,        *;
* COINEWM.CR2.SEQ AND WRITE BAD CONDUCT DATA                       *;
* TO COINEWM.CR2COND.SEQ.                                          *;
*                                                                  *;
*                                                                  *;
* BY  : H.S.MASHRIQUI.                                             *;
*                                                                  *;
********************************************************************;
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 ;
         REC_NUM = _N_ ;
********************************************************************;
**********  FIND BAD CONDUCT DATA                   ****************;
********************************************************************;
    DATA BADH2O   ;
         SET A ;
     IF ( CONDUCT GE 0.00 AND CONDUCT LE 10.00) THEN DELETE ;
********************************************************************;
********************************************************************;
*****************  BAD RESULT DATA           ***********************;
********************************************************************;
********************************************************************;
   DATA RESULT ;
        SET BADCOND  ;
     COMMA = ',' ;
     D  = '-' ;
     C  = ':' ;
********************************************************************;
********************************************************************;
     DATA CLEAN ;
          SET RESULT  ;
          FILE OUTDATA ;
  PUT TDDATEM 1-2  D$3 TDDATED 4-5 D$6 TDDATEY 07-10 COMMA $11
  TDTIMEH 14-15 C$16  TDTIMEM 17-18 C$19  TDTIMES 20-21 COMMA $22
  NDLATD 25-27 D$28 NDLATM 29-30 D$31 NDLATH 32-33 COMMA $34
  NDLONGD 37-39 D$40 NDLONGM 41-42 D$43 NDLONGH 44-45 COMMA $46
  H2OTEMP 49-55 .3 COMMA $56 CONDUCT 59-65 .3 COMMA $66
  SALIN 69-75 .3 COMMA $76 CHLFLUVT 79-85 .3 COMMA $86
  LITTRAN  89-95  .3 COMMA $96
  CWNDSPD  99-105  .3 COMMA $106
  CMWDIR 109-115 .3 COMMA $116 AIRTEMP 119-125 .3 COMMA $126
  BAROPRES 129-135 .3 COMMA $136 SOLRAD 139-145 .3 COMMA$ 146
  REC_NUM 149-155 ;
********************************************************************;
********************************************************************;
********************************************************************;
PROC PRINT DATA = RESULT ;
     TITLE 'BAD CONDUCT DATA ' ;
//
