Take a look the following example if it solves your problem.

data tmp;
length Name   $10   Year  8   work_1985    work_1986    work_1987    $5;
infile cards truncover;
input Name      Year     work_1985    work_1986    work_1987   ;
cards;
Henry      1993         FirmA          FirmA            FirmB   
Jack         1988         FirmD         FirmD            FirmD  
Dennis      2000        FirmC          FirmC           FirmC
;

data tmp2;
  set tmp;
  array work_year(*) work_1985    work_1986    work_1987;
  do i=1 to dim(work_year);
     working_firm=catx('-',substr(vname(work_year(i)),6,4),work_year(i));
     output;
  end;
  keep name year working_firm;
  run;

  proc print;run;