* TopSongs1 Example
  Read and display a comma delimited file;

options linesize=70 nodate pageno=1;
data songs;
   infile 'c:/datasets/top-songs.txt' firstobs=3 dlm=',' dsd truncover;
   length group $ 18 title $ 25 writer1 $ 14 writer2 $ 14 producer1 $ 14
          producer2 $ 14;
   input number group $ title $ writer1 $ writer2 $ producer1 $ 
         producer2 $ release_date DATE. record_co $ weeks top_rank;
   drop number;
   if top_rank = . then delete;

proc sort;
   by top_rank;

proc print;
   id title;
   format release_date WORDDATE.

run;
quit;