* A SAS program to read and print the intermediate growth and crop
    harvest data for the 1983-1987 cotton growth experiments; 
DATA NDP037(DROP=X Y Z);
  INFILE IN;
  INPUT X $ 4 Y $ 5 Z $ 6 @;
  IF X EQ ' ' THEN DO;
    INPUT;
    RECCODE=4;
    END;
  ELSE IF Y EQ ' ' THEN DO;
    INPUT JDOY 2-4 XPLTHT 6-8 @10 XLAI 5.2 JNNODM 16-18 JNSQRM 20-22
      JNFLWM 24-26 JNGBLM 28-30 JNMBLM 32-34 JNABSM 36-39 XWLEFH 41-44
      XWSTMH 46-49 XWROTH 51-54 XWGBLH 56-59 XWMBLH 61-65;
    RECCODE=3;
    END;
  ELSE IF Z EQ ' ' THEN DO;
    INPUT YEAR 2-5 CO2 8-10 CO2COD $ 13 REP 16 IRRIG $ 19 NITRO $ 22;
    RECCODE=1;
    END;
  ELSE DO;
    INPUT INSTE $ 2-3 SITEE $ 4-5 YRCODE 6-7 EXPTNO 8-9 TRTNO 11-12
      JEMRGD 14-16 JSQRJD 18-20 JFLRJD 22-24 XLTYLD 26-29 XSDYLD 31-34
      @36 XSDWT 6.4 XBLSM 43-45 XSPB 47-48 @50 XLAIMX 5.2 XBIOM 56-60
      XSTMBR 62-65;
    RECCODE=2;
    END;
DATA PRINT;
  SET NDP037;
  FILE PRINT;
  OPTIONS MISSING=' ';
  IF RECCODE=1 THEN 
    PUT YEAR 2-5 CO2 8-10 CO2COD 13 REP 16 IRRIG 19 NITRO 22;
  ELSE IF RECCODE=2 THEN
    PUT INSTE 2-3 SITEE 4-5 YRCODE 6-7 EXPTNO 8-9 TRTNO 11-12
      JEMRGD 14-16 JSQRJD 18-20 JFLRJD 22-24 XLTYLD 26-29 XSDYLD 31-34
      @36 XSDWT 6.4 XBLSM 43-45 XSPB 47-48 @50 XLAIMX 5.2 XBIOM 56-60
      XSTMBR 62-65;
  ELSE IF RECCODE=3 THEN
    PUT JDOY 2-4 XPLTHT 6-8 @10 XLAI 5.2 JNNODM 16-18 JNSQRM 20-22
      JNFLWM 24-26 JNGBLM 28-30 JNMBLM 32-34 JNABSM 36-39 XWLEFH 41-44
      XWSTMH 46-49 XWROTH 51-54 XWGBLH 56-59 XWMBLH 61-65;
  ELSE IF RECCODE=4 THEN PUT '      ';
RUN;