/*  CS1Ex1 */

/*  IA Employees  */

data level1
        level2
        level3
        levelless;
  set ia.IAEmployees;
  select(substr(JobCode, 6, 1));
     when('1') output level1;
     when('2') output level2;
     when('3') output level3;  
     otherwise output levelless;
  end;
run;

/*  SE Employees  */

data level1;
  set ia.SEEmployees (where = (substr(JobCode, 6) = '1'));
run;

data level2;
  set ia.SEEmployees (where = (substr(JobCode, 6) = '2'));
run;

data level3;
  set ia.SEEmployees (where = (substr(JobCode, 6) = '3'));
run;

data levelless;
  set ia.SEEmployees (where = (substr(JobCode, 6) not in('1' '2' '3')));
run;