data perm.people(drop=type);
        infile census;
        retain Address;
        input type $1. @;
        if type='H' then 
           input @3 Address $15.;
        if type='P';
        input @3 Name $10. @13 Age 3. 
              @15 Gender $1.;
     run;