//CR5AUXFL 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 AND MAKES A GRAPH OF THE SELECTED PARAMETER*;
*                                                                  *;
*                                                                  *;
*                                                                  *;
* 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 24-25 NDLATH 27-28
         NDLONGD 30-32 NDLONGM 34-35 NDLONGH 37-38
         H2OTEMP  40-47  CONDUCT  49-56  SALIN  58-65
         CHLFLUVT  67-74  AUXFLUVT  76-83  FLOSWTCH  85-92
         LITTRAN  94-101 FLORATE 103-110 WNDSPD 112-119
         RWNDSPD 121-128 CWNDSPD 130-137 MWDIR 139-146
         CMWDIR 139-146 AIRTEMP 148-155
         BAROPRES 157-164 SOLRAD 166-173 ;
         OBS = _N_ ;
         FLAT = NDLATD +(NDLATM + NDLATS/100)/60 ;
         MTIME = TDDATED * 24 * 60 + TDTIMEH * 60 + TDTIMEM
                 + TDTIMES / 60 -18700 ;
********************************************************************;
********************************************************************;
 TITLE1 J=C F=SWISSB 'AUXFLUVT' ;
 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 'AUXFLUVT');
 AXIS2 VALUE  = ( F = SWISSB H = 1)
       LENGTH =   75 PCT
       LABEL  = ( F = SWISS H=1  'TIME MINUTES' );
       PLOT AUXFLUVT * MTIME/FRAME
       HAXIS = AXIS2
       VAXIS = AXIS1 ;
 RUN ;
//
