/*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.