//CR3FREQ2 JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=4
/*JOBPARM SHIFT=D,LINES=90
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=4
//RAWDATA DD DSN=COINEWM.CRUISE3.MIDAS,DISP=SHR
//SYSIN DD *
********************************************************************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET,        *;
* COINEWM.CR2.SEQ                                                  *;
* THIS PROGRAM CALCULATES AND PRINTS MEAN OF SOME VARABLES         *;
*                                                                  *;
*                                                                  *;
* BY  : H.S.MASHRIQUI.                                             *;
*                                                                  *;
********************************************************************;
DATA A ;
   INFILE RAWDATA;
   INPUT TDDATEM 1-2 TDDATED 4-5 TDDATEY 7-10
         TDTIMEH 12-13 TDTIMEM 15-16 TDTIMES 18-19
         NDLATD 21-22 NDLATM 25-26 NDLATH 28-29
         NDLONGD 34-36 NDLONGM 39-40 NDLONGH 42-43
         H2OTEMP 259-265 CONDUCT 267-273 SALIN 275-281
         CHLFLUVT 283-289 AUXFLUVT 291-297 FLOSWTCH 299-301
         LITTRAN 303-308 FLORATE 310-314 WNDSPD 316-320
         RWNDSPD 322-326 CWNDSPD 328-332 MWDIR 334-336
         DEVWDIR 338-340 CMWDIR 342-344 AIRTEMP 346-351
         BAROPRES 353-357 SOLRAD 359-365 ;
         FLAT = NDLATD  + ( NDLATM  + NDLATH/100  )/60 ;
         FLON = NDLONGD + ( NDLONGM + NDLONGH/100 )/60 ;
PROC SORT  DATA = A ; BY TDDATED ;
PROC MEANS DATA = A ;
     VAR   H2OTEMP CONDUCT SALIN CHLFLUVT AUXFLUVT LITTRAN FLORATE
     CWNDSPD CMWDIR AIRTEMP BAROPRES SOLRAD ;
PROC CHART DATA = A ;
VBAR H2OTEMP / TYPE = FREQ MIDPOINTS = 22.0 22.5 23.0 23.5
         24.0 24.5 25.0 25.5 26.0 26.5 27.0 27.5 ;
PROC CHART DATA = A ;
VBAR CONDUCT / TYPE = FREQ MIDPOINTS = 3.0 3.25 3.50 3.75
         4.00 4.25 4.50 4.75 5.00 5.25 5.50 ;
PROC CHART DATA = A ;
VBAR SALIN   / TYPE = FREQ MIDPOINTS = 19.0 20.0 21.0 22.0
         23.0 24.0 25.0 26.0 27.0 28.0 29.0 30.0 31.0 32.0
         33.0 34.0 35.0 ;
PROC CHART DATA = A ;
VBAR CHLFLUVT / TYPE = FREQ MIDPOINTS = 0.0 0.25 0.50 0.75
         1.00 1.25 6.00 7.00 8.00  ;
PROC CHART DATA = A ;
VBAR AUXFLUVT / TYPE = FREQ MIDPOINTS = 3.00 4.00 5.00 6.00
         7.00 8.00 9.00 10.0  ;
PROC CHART DATA = A ;
VBAR LITTRAN / TYPE = FREQ MIDPOINTS = 10.0 20.0 30.0 40.0
         50.0 60.0 70.0 80.0 90.0 100.0 ;
PROC CHART DATA = A ;
VBAR FLORATE / TYPE = FREQ MIDPOINTS = 5.0 10.0 15.0 20.0 25.0
         30.0 35.0 40.0 45.0 50.0 60.0 65.0 70.0 ;
PROC CHART DATA = A ;
VBAR CWNDSPD  / TYPE = FREQ MIDPOINTS = 5.0 10.0 15.0 20.0
         25.0 30.0 35.0 40.0 45.0 50.0 55.0 60.0 ;
PROC CHART DATA = A ;
VBAR CMWDIR   / TYPE = FREQ MIDPOINTS = 0.00 100  200  300
         400 500 600 700 800 900 ;
PROC CHART DATA = A ;
VBAR AIRTEMP / TYPE = FREQ MIDPOINTS = 0.00 5.00 10.0 15.0
         20.0 25.0 30.0  ;
PROC CHART DATA = A ;
VBAR BAROPRES / TYPE = FREQ MIDPOINTS = 5.0 10.0 15.0 20.0 25.0
         30.0 35.0 ;
PROC CHART DATA = A ;
VBAR SOLRAD   / TYPE = FREQ MIDPOINTS = 0.0 0.25 0.50 0.75
         1.00 10.0 20.0 30.0 40.0 50.0 55.0 60.0 65.0 70.0 75.0
         80.0 85.0 ;
//
