//TEST3    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.BITNET.DATA(SPACE),DISP=SHR
//SYSIN DD *
********************************************************************;
DATA A ;
   INFILE ALLDATA;
   INPUT EV55 EV56 EV57 EV58 EV59 EV60 EV61
         EV62 EV63 EV64 EV65 EV66 EV67 EV68
         EV69 EV70 EV71 EV72 EV73 EV74 EV75
         EV76 EV77 EV78 EV79 EV80 EV81 EV82
         EV83 EV84 EV85 EV86 EV87 EV88 EV89
         EV90 EV91 EV92 PC55 PC56 PC57 PC58
         PC59 PC60 PC61 PC62 PC63 PC64 PC65
         PC66 PC67 PC68 PC69 PC70 PC71 PC72
         PC73 PC74 PC75 PC76 PC77 PC78 PC79
         PC80 PC81 PC82 PC83 PC84 PC85 PC86
         PC87 PC88 PC89 PC90 PC91 PC92 TX55
         TX56 TX57 TX58 TX59 TX60 TX61 TX62
         TX63 TX64 TX65 TX66 TX67 TX68 TX69
         TX70 TX71 TX71 TX72 TX73 TX74 TX75
         TX76 TX77 TX78 TX79 TX80 TX81 TX82
         TX83 TX84 TX85 TX86 TX87 TX88 TX89
         TX90 TX91 TX92 TN55 TN56 TN57 TN58
         TN59 TN60 TN61 TN62 TN63 TN64 TN65
         TN66 TN67 TN68 TN69 TN70 TN71 TN72
         TN73 TN74 TN75 TN76 TN77 TN78 TN79
         TN80 TN81 TN82 TN83 TN84 TN85 TN86
         TN87 TN88 TN89 TN90 TN91 TN92  ;
         PROC PRINT DATA=A ;
PROC CANCORR DATA=A ALL
   VPREFIX=HVAR VNAME='HAS WIND DATA'
   WPREFIX=VVAR WNAME='NO WIND DATA';
   VAR EV75 PC75  TX75 TN75;
   WITH EV55 PC55  TX55 TN55;
********************************************************************;
//
