/*SHORT TITLE:  Sample program to read footnote data */

*Note that there are two kinds of records, X and Y.

set width 80.

file handle in/ name='/eds/datasets/gen-ind-stats/data/footnote.dat'.

INPUT PROGRAM.
data list file=in / rec 1 (a).

do  if (rec eq 'X').
reread.
data list /
   countryx     2-4
   footnum      18-19
   foottxt      21-212 (a)
.
end case.
else if (rec eq 'Y').
reread.
data list /
   countryy      2-4
   table         6-7
   indust        9-13 (a)
   year         15-16
   footnumy     18-19 (a)
.
end case.
end if.
END INPUT PROGRAM.


temporary.
select if rec='X'.
freq vars=rec countryx to foottxt.
select if rec='Y'.
freq vars=rec countryy to footnumy.