//CR5H2OTP JOB ,'MASRIQUI',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=90
/*JOBPARM SHIFT=D,LINES=900
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=90
//RAWDATA DD DSN=COINEWM.CRUISE5.MIDAS,DISP=SHR
//SYSIN DD *
GOPTIONS DEVICE=GDDMFAM4 GDDMNICKNAME=IBM3820 GDDMTOKEN=IMG240
   ROTATE ;
********************************************************************;
* THIS PROGRAM READS MIDAS DATA FROM : SEQUENTIAL DATA SET,        *;
* COINEWM.CRUISE5.MIDAS.                                           *;
*                                                                  *;
*                                                                  *;
*                                                                  *;
*                                                                  *;
*                                                                  *;
********************************************************************;
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
         CMWDIR 342-344 AIRTEMP 346-351
         BAROPRES 353-357 SOLRAD 359-365 ;
         OBS = _N_ ;
         FLAT = NDLATD +(NDLATM + NDLATS/100)/60 ;
         MTIME = TDDATED * 24 * 60 + TDTIMEH * 60 + TDTIMEM
                 + TDTIMES / 60  ;
********************************************************************;
********************************************************************;
 TITLE1 J=C F=SWISSB 'SOLRAD  ' ;
 TITLE2 J=C F=SWISSB 'CRUISE 5 DATA' ;
 SYMBOL I= NEEDLE ;
 PROC GPLOT ;
 AXIS1 VALUE  = ( F = SWISSB H=1)
       LENGTH =   75 PCT
       LABEL  = ( F = SWISS H=1 A=90 'SOLRAD  ');
 AXIS2 VALUE  = ( F = SWISSB H = 1)
       LENGTH =   75 PCT
       LABEL  = ( F = SWISS H=1  'TIME MINUTES' );
       PLOT SOLRAD   * MTIME/FRAME
       HAXIS = AXIS2
       VAXIS = AXIS1 ;
 RUN ;
//
