/*用DATA STEP讀入資料*/
DATA FISHDATA;
   INFILE DATALINES MISSOVER;
   INPUT LOCATION & $10. DATE DATE7.
         LENGTH1 WEIGHT1 LENGTH2 WEIGHT2 LENGTH3 WEIGHT3
         LENGTH4 WEIGHT4;
   FORMAT DATE DATE7.;
   DATALINES;
COLE POND   2JUN95 31 .25 32 .3  32 .25 33 .3
COLE POND   3JUL95 33 .32 34 .41 37 .48 32 .28
COLE POND   4AUG95 29 .23 30 .25 34 .47 32 .3
EAGLE LAKE  2JUN95 32 .35 32 .25 33 .30
EAGLE LAKE  3JUL95 30 .20 36 .45
EAGLE LAKE  4AUG95 33 .30 33 .28 34 .42
;
RUN;
/*用PROC PRINT顯示資料*/
PROC PRINT DATA=FISHDATA;
TITLE 'ORIGINAL DATA';
RUN;