//COINDATA JOB (1110,81912,,100),'DANA MAX',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM
/*JOBPARM SHIFT=D
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS
//RAWDATA DD DSN=COINEWM.MIDAS.SEQ,DISP=SHR
//SAS.SYSIN DD *
********************************************************************;
* THIS PROGRAM READS MIDAS DATA FROM 1 SEQUENTIAL DATA SET, MIDAS. *;
* DATA.                                                            *;
* THIS PROGRAM CALCULATES AND PRINTS MEAN OF SOME VARABLES         *;
*                                                                  *;
* BASICALLY IT IS DANA'S PROGRAM.                                  *;
*                                                                  *;
********************************************************************;
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
         NDTD1 49-55 NDTD2 57-63 NDTD3 65-71 NDTD4 73-79
         NDTD5 81-87
         BLKSTAT $ 89 CYCSTAT $ 91 SNRSTAT $ 93
         GDOP 95-99 TRUCOG 101-107 MAGCOG 109-115 KNOTSOG 117-120

                ERRNM 144-147 ERRDIR $ 149
         WPLATD 151-152 WPLATM 155-156 WPLATH 158-159
         WPLONGD 164-166 WPLONGM 169-170 WPLONGH 172-173
         RNGWPT 178-182 BEARWPT 184-186
         LORLATD 188-189 LORLATM 192-193 LORLATH 195-196
         LORLONGD 201-203 LORLONGM 206-207 LORLONGH 209-210
         PRETD1 215-221 PRETD2 223-229
         GPSLATD 231-232 GPSLATM 235-236 GPSLATH 238-240
         GPSLONGD 245-247 GPSLONGM 250-251 GPSLONGH 253-255
         H2OTEMP 260-266 CONDUCT 268-274 SALIN 276-280
         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 DIFVT1 366-372
         DIFVT2 374-380 SINGVT1 382-384 SINGVT2 386-392
         SINGVT3 394-400 PULS1 402-405 PULS2 407-410 SERA 412-414;
DATA B ; SET A ;
IF NDLATD  = 29 & NDLATM  = 03 & NDLONGD = 90 & NDLONGM = 30 ;
IF NDLATD  = 28 & NDLATM  = 59 & NDLONGD = 90 & NDLONGM = 30 ;
IF NDLATD  = 28 & NDLATM  = 55 & NDLONGD = 90 & NDLONGM = 30 ;
IF NDLATD  = 28 & NDLATM  = 50 & NDLONGD = 90 & NDLONGM = 30 ;
IF NDLATD  = 28 & NDLATM  = 46 & NDLONGD = 90 & NDLONGM = 30 ;
IF NDLATD  = 28 & NDLATM  = 42 & NDLONGD = 90 & NDLONGM = 29 ;
IF NDLATD  = 28 & NDLATM  = 38 & NDLONGD = 90 & NDLONGM = 30 ;
IF NDLATD  = 28 & NDLATM  = 34 & NDLONGD = 90 & NDLONGM = 29 ;
IF NDLATD  = 28 & NDLATM  = 34 & NDLONGD = 90 & NDLONGM = 44 ;
IF NDLATD  = 28 & NDLATM  = 34 & NDLONGD = 91 & NDLONGM = 00 ;
IF NDLATD  = 28 & NDLATM  = 34 & NDLONGD = 91 & NDLONGM = 14 ;
IF NDLATD  = 28 & NDLATM  = 38 & NDLONGD = 91 & NDLONGM = 14 ;
IF NDLATD  = 28 & NDLATM  = 42 & NDLONGD = 91 & NDLONGM = 14 ;
IF NDLATD  = 28 & NDLATM  = 47 & NDLONGD = 91 & NDLONGM = 15 ;
IF NDLATD  = 28 & NDLATM  = 51 & NDLONGD = 91 & NDLONGM = 15 ;
IF NDLATD  = 28 & NDLATM  = 55 & NDLONGD = 91 & NDLONGM = 14 ;
IF NDLATD  = 28 & NDLATM  = 58 & NDLONGD = 91 & NDLONGM = 14 ;
IF NDLATD  = 29 & NDLATM  = 05 & NDLONGD = 91 & NDLONGM = 26 ;
IF NDLATD  = 29 & NDLATM  = 11 & NDLONGD = 91 & NDLONGM = 37 ;
IF NDLATD  = 29 & NDLATM  = 17 & NDLONGD = 91 & NDLONGM = 48 ;
IF NDLATD  = 29 & NDLATM  = 23 & NDLONGD = 92 & NDLONGM = 00 ;
IF NDLATD  = 29 & NDLATM  = 18 & NDLONGD = 92 & NDLONGM = 00 ;
IF NDLATD  = 29 & NDLATM  = 14 & NDLONGD = 91 & NDLONGM = 59 ;
IF NDLATD  = 29 & NDLATM  = 10 & NDLONGD = 91 & NDLONGM = 59 ;
IF NDLATD  = 29 & NDLATM  = 06 & NDLONGD = 91 & NDLONGM = 59 ;
IF NDLATD  = 29 & NDLATM  = 02 & NDLONGD = 91 & NDLONGM = 59 ;
IF NDLATD  = 28 & NDLATM  = 56 & NDLONGD = 91 & NDLONGM = 59 ;
IF NDLATD  = 28 & NDLATM  = 51 & NDLONGD = 91 & NDLONGM = 48 ;
IF NDLATD  = 28 & NDLATM  = 45 & NDLONGD = 91 & NDLONGM = 37 ;
IF NDLATD  = 28 & NDLATM  = 39 & NDLONGD = 91 & NDLONGM = 26 ;
IF NDLATD  = 28 & NDLATM  = 34 & NDLONGD = 91 & NDLONGM = 14 ;
IF NDLATD  = 28 & NDLATM  = 44 & NDLONGD = 91 & NDLONGM = 23 ;
IF NDLATD  = 28 & NDLATM  = 53 & NDLONGD = 91 & NDLONGM = 32 ;
IF NDLATD  = 29 & NDLATM  = 03 & NDLONGD = 91 & NDLONGM = 41 ;
IF NDLATD  = 29 & NDLATM  = 12 & NDLONGD = 91 & NDLONGM = 50 ;
IF NDLATD  = 29 & NDLATM  = 23 & NDLONGD = 91 & NDLONGM = 59 ;
IF NDLATD  = 28 & NDLATM  = 57 & NDLONGD = 91 & NDLONGM = 59 ;
IF NDLATD  = 29 & NDLATM  = 01 & NDLONGD = 92 & NDLONGM = 14 ;
IF NDLATD  = 29 & NDLATM  = 06 & NDLONGD = 92 & NDLONGM = 29 ;
IF NDLATD  = 29 & NDLATM  = 11 & NDLONGD = 92 & NDLONGM = 45 ;
IF NDLATD  = 29 & NDLATM  = 15 & NDLONGD = 92 & NDLONGM = 45 ;
IF NDLATD  = 29 & NDLATM  = 19 & NDLONGD = 92 & NDLONGM = 45 ;
PROC PRINT DATA = B ; VAR NDLATD NDLATM NDLATH NDLONGD NDLONGM
     NDLONGH TDDATED TDTIMEH TDTIMEM TDTIMES ;
PROC SORT ; BY NDLATD ;
PROC MEANS DATA=B;
   VAR H2OTEMP CONDUCT SALIN CHLFLUVT CWNDSPD CMWDIR AIRTEMP BAROPRES
       SOLRAD LITTRAN ;
//
