read 'alpdemog dat m' c1-c7                                                 
      name c1 'ID'                                                              
      name c2'Age'c3'FamSiz'c4 'Educ'c5 'Marital'c6 'Occ'c7'Inc'                
# Sample data:                                                                  
#  Age     FamSiz Educ Marital Occ   Inc                                        
# 001 40          4   12       1  10   190                                      
# 002 57          2   12       1  10   220                                      
# 003 35          1   16       0  10   220                                      
#                                                                               
      sort c1-c7 into c11-c17;                                                  
       by 'Inc' 'Occ' 'Marital' 'Educ' 'FamSiz' 'Age' 'ID'.                     
      write 'alpdemog datsort m' using c11-c17