transpose row values

[Riteshdell]

Hello Expert, 

I have source data like below and looking for below output, could you Please help me on it.

[Shmuel · Accepted solution]

You can use next code:

data want;
  set have;
      array k {india usa uk aus};
      array d $ {india_desc usa_title uk_mem aus_coun};
      do i=1 to 4;
          key = k(i);
          desc = d(i);
          output;
      end;
     keep bkey key desc;
run;