Table 7. Listing of the SAS retrieval program to read and print ndp029e.dat.

data ndp029;
infile 'ndp029e.dat';
input @1 x $char1. @@;
  if x='E' then input
           @1 station $char6. latdeg latmin latsec 14-15 lathem $ 16
           londeg lonmin lonsec 26-27 lonhem $ 28 @30 date $char7.;
  else input depth 2-5 temp 7-12 salin 14-21 pH 22-29 totalk 30-36
             nca 38-44;
if latdeg=. and depth=. then delete;
data ndp029;
set ndp029;
drop x;
proc print;
run;

tbeaty 03/01