/*                                      */
 /* teacher salary data                  */
 /*  i      subject index                */
 /* salary  salary (in thousands $)      */
 /*  exp    experience (in years)        */
 /* gender  gender (m or f) (character)  */
 /*                                      */
  data payequity ;
   infile 'salary.dat';
   input i salary exp gender $ ;
 /*                 add some dummies     */
   fem = (gender = 'f') ;
   femexp = fem*exp ;
 run ;