Interchanging rows and colums of internal table

Question

Hi all,
I have one requirement to interchange the rows and colums of 3X3 internal table.(internal table contains 3 rows and 3 columns ). In the new internal table, I have to display the rows as column values and column values as rows..
It's urgently. Kindly send me the sample code for the same.
Thanks in advance.
Ramesh.

Answer 1

Hi ramesh,
it is not possible to create a 'transponed' internal table if the (2) fields in your table arte or different type. Thus each row of the new table would be of different type.
The quick solution for display is
field-symbols:
  <any> type any.
do.
  loop at itab.
    assign component sy-index of structure itab to <any>.
    if sy-subrc <> 0.
* not assigned means no more components
      exit.
    endif.
    write <any>.
  endloop.
  if sy-subrc = 0.
* start a new line for the next field
    write /.
  else.
* all done
    exit.
  endif.
enddo.
If you really want to store the values in transposes table, you could do so by storing their references in fields of type REF TO DATA because this is good for any data.
possible usage:
types:
  ty_t_reftab type standard table of ref to data with default key,
  ty_t_transposed type standard table of ty_t_reftab with default key.
data:
  lt_transposed type ty_t_transposed,
  lv_ref type ref to data.
field-symbols:
  <any> type any,
  <transposed> type line of ty_t_transposed
do.
  loop at itab.
    at first.
      append initial line to lt_transposed assigning <transposed>.
    endat.
    assign component sy-index of structure itab to <any>.
    if sy-subrc <> 0.
* not assigned means no more components
      exit.
    endif.
    get refernce of <any> into lv_ref.
    append lv_ref to <transposed>. 
  endloop.
  if sy-subrc <> 0.
* all done
    exit.
  endif.
enddo.
read table
Sorry, don't know what it's good for. If you need the values, access them like
loop at lt_transposed assigning <transposed>.
  loop at <transposed> assigning <any>.
    write <any>->*. "Hope that works with WRITE
  endloop.
endloop.
Regards,
Clemens