Online File

How to use this page

---

Tech: The Dictionary Page Project

dalpha.sas
Program file
Alphabetic list from large text sample

---

*
  dalpha.sas
  Create list of web pages for dictionary.
  Rick Aster   February 2, 2003
*;
filename sample 'c:\My Documents\dpage\sample.txt'
filename alpha 'c:\My Documents\dpage\alpha.txt';

* 
  Read text sample. 
*;
data wordlist (keep=word);
   retain alphabet 'abcdefghijklmnopqrstuvwxyz';
   length word $ 2;
   infile sample flowover;
   input word @@;
   word = lowcase(word);
   * Verify that word contains only letters. ;
   if verify(word, alphabet) then delete;
   * In v. 9: if notalpha(word) then delete ;
   * Save first 2 letters and first letter of word. ;
   output;
   word = substr(word, 1, 1);
   output;
run;
*
  Create alphabetic list. 
*;
proc sort data=wordlist out=alphalist nodupkey;
   by word;
run;
*
  Save as text file for review.
*;
data _null_;
   set alphalist;
   file alpha;
   put word;
run;