Sample SAS command file

options ls=79 compress=yes;
filename rawin '/home/twork1/nes_cdrom/majpan80/nes80pan.dat';

data pid ;
 infile rawin lrecl=4040;
 input v0022  32  v0188  248  v0191  251 ;

 pid1 = v0191;
 if pid1 ge 8 then pid1 = .;

 if v0022 eq 1 then appcart = 'Approve';
 if v0022 eq 5 then appcart = 'Disapp';

 if v0188 eq 1 then pid3cat = 'Rep'; 
 if v0188 eq 2 then pid3cat = 'Ind'; 
 if v0188 eq 5 then pid3cat = 'Dem'; 
run;

proc freq;
  tables  pid3cat * appcart / cellchi2 chisq expected deviation;