**  This program assigns formats for community areas and neighbourhood clusters ;

data test ; 
   set file ; 
   _rha04 ;
  ** Define community areas ;
  if rha = 'K' then do ;
     ca =  put(postal,$wpg_caf.) ;
     nrn = put(postal,$wpg_nrf.) ;

     * If the Community area is missing and Winnipeg is defined
       you may want to remove this group - it represents a small number of people. ;
     ** if ca='' then delete ;
  end ;  
  run ;