Table 9

Listing of the SAS retrieval program to read and print ndp029n.dat.

data ndp029;
infile 'a:ndp029n.dat';
input @1 x $char1. @@;
  if x='S' then input
           @1 station $char8. leg 9-10 num 12-13 @14 lat $char7.
           @21 lon $char6. @27 date $char11.;
  else input depth 2-5 temp 7-12 salin 14-21 nca 22-29 totalk 30-36
             ncarep 38-44;
if leg=. and depth=. then delete;
data ndp029;
set ndp029;
drop x;
proc print;
run;