data territories;
  set maps.names;
  where Territory contains "France";
  Territory_Upper=upcase(Territory);
run;
proc sort data=territories;
  by Territory_Upper name;
run;
proc print data=territories;
  var Territory Name;
  title1 "Territories of France";
run;