//COIGPLOT JOB (1110,81912,,100),'DANA MAX',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=9
/*JOBPARM SHIFT=D
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS606,TIME=9
//RAWDATA DD DSN=COINEWM.MIDAS.SEQ,DISP=SHR
//SYSIN DD *
GOPTIONS DEVICE=GDDMFAM4 GDDMNICKNAME=IBM3820 GDDMTOKEN=IMG240
    ROTATE;
********************************************************************;
* THIS PROGRAM PRODUCES 1 CARTESIAN GRAPH USING THE SAS GPLOT      *;
* COMMAND. THE GRAPH PLOTS THE VARIABLE LIGHT TRANSMISSION         *;
* (LITTRAN) AND SALINITY (SALIN), FROM THE MIDAS.SEQ DATA SET.     *;
*               NOTE THAT 7 VARIABLES HAVE BEEN OMITTED, THE TIME  *;
* ALLOWANCE ON LINES 2 AND 6, AND GOPTION INFO ON LINE 9.          *;
********************************************************************;
DATA P921;
   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-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 DIFVT1 366-372
         DIFVT2 374-380 SINGVT1 382-384 SINGVT2 386-392
         SINGVT3 394-400                                         ;
   OBSERVE = _N_;
TITLE1 J=C F=SWISSB 'LIGHT TRANSMISSION AND SALINITY';
SYMBOL H=0.25;
PROC GPLOT;
   AXIS1 VALUE = (F = SWISS H=1)
         LENGTH= 50.4 PCT
         LABEL = (F = SWISS H=1 A=90 'LIGHT TRANSMISSION IN PERCENT')
         ORDER = 0 TO 100 BY 10;
   AXIS2 VALUE = (F = SWISS H=1)
         LENGTH= 75 PCT
         LABEL = (F = SWISS H=1 'OBSERVATIONS')
         ORDER = 0 TO 53000 BY 5000;
   AXIS3 VALUE = (F = SWISS H=1)
         LENGTH= 71.2 PCT
         LABEL = (F = SWISS H=1 'SALINITY IN PARTS PER THOUSAND')
         ORDER = 15 TO 35 BY 5;
   PLOT LITTRAN * SALIN  / FRAME
   VAXIS = AXIS1
   HAXIS = AXIS3;
RUN;
//
