Table 8. Listing of the SAS retrieval program to read and print ndp029w.dat.

data ndp029;
infile 'a:ndp029w.dat' lrecl=37;
input @1 x $char1. @@;
  if x='W' 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;
if latdeg=. and depth=. then delete;
data ndp029;
set ndp029;
drop x;
proc print;
run;

tbeaty 03/01