//TEST2    JOB ,'NEWMAN',MSGCLASS=S,
//          CLASS=H,NOTIFY=COINEWM,TIME=5
/*JOBPARM SHIFT=D,LINES=90
/*ROUTE PRINT IOROOM
//*
//STEP1 EXEC SAS6,TIME=5
//ALLDATA DD DSN=COINEWM.COMMA.DATA(COMMA),DISP=SHR
//SYSIN DD *
********************************************************************;
DATA A ;
   INFILE ALLDATA DELIMITER=',' MISSOVER;
   INPUT EVAP55 EVAP56 EVAP57 EVAP58 EVAP59 EVAP60 EVAP61
         EVAP62 EVAP63 EVAP64 EVAP65 EVAP66 EVAP67 EVAP68
         EVAP69 EVAP70 EVAP71 EVAP72 EVAP73 EVAP74 EVAP75
         EVAP76 EVAP77 EVAP78 EVAP79 EVAP80 EVAP81 EVAP82
         EVAP83 EVAP84 EVAP85 EVAP86 EVAP87 EVAP88 EVAP89
         EVAP90 EVAP91 EVAP92 PREC55 PREC56 PREC57 PREC58
         PREC59 PREC60 PREC61 PREC62 PREC63 PREC64 PREC65
         PREC66 PREC67 PREC68 PREC69 PREC70 PREC71 PREC72
         PREC73 PREC74 PREC75 PREC76 PREC77 PREC78 PREC79
         PREC80 PREC81 PREC82 PREC83 PREC84 PREC85 PREC86
         PREC87 PREC88 PREC89 PREC90 PREC91 PREC92 TMAX55
         TMAX56 TMAX57 TMAX58 TMAX59 TMAX60 TMAX61 TMAX62
         TMAX63 TMAX64 TMAX65 TMAX66 TMAX67 TMAX68 TMAX69
         TMAX70 TMAX71        TMAX72 TMAX73 TMAX74 TMAX75
         TMAX76 TMAX77 TMAX78 TMAX79 TMAX80 TMAX81 TMAX82
         TMAX83 TMAX84 TMAX85 TMAX86 TMAX87 TMAX88 TMAX89
         TMAX90 TMAX91 TMAX92 TMIN55 TMIN56 TMIN57 TMIN58
         TMIN59 TMIN60 TMIN61 TMIN62 TMIN63 TMIN64 TMIN65
         TMIN66 TMIN67 TMIN68 TMIN69 TMIN70 TMIN71 TMIN72
         TMIN73 TMIN74 TMIN75 TMIN76 TMIN77 TMIN78 TMIN79
         TMIN80 TMIN81 TMIN82 TMIN83 TMIN84 TMIN85 TMIN86
         TMIN87 TMIN88 TMIN89 TMIN90 TMIN91 TMIN92  ;
         TAVE55 = (TMAX55 + TMIN55) / 2 ;
         TAVE92 = (TMAX92 + TMIN92) / 2 ;
PROC CANCORR DATA=A ALL
   VPREFIX=HVAR VNAME='HAS WIND DATA'
   WPREFIX=VVAR WNAME='NO WIND DATA';
   VAR EVAP92 PREC92  TAVE92;
   WITH EVAP55 PREC55  TAVE55       ;
********************************************************************;
//
