ding ding      ding d

data province;
    input city $char15.;
cards;
hunan
  chenzhou
  changsha
jiangsu
  nanjing
  shuzhou
  ;
run;

data province1;
    set province;
    retain province;
    length province $25;
   if substr(city,1,1)^=' ' then province=city;
   else do;city=cats(city,',',province);output;end;        
   keep city;
run;