How to retrieve internaltable column wise data in rowwise

Question

hi  all,
My question is Suppose I  have intenal table with 3 cols and 4 rows of data.Now i want to display table first col data as first row and so on...
input data :
eg: c1    c2     c3
r1 1     2       3
r2 4     5       6
r3 7     8       9
r4 10    11      12.
outputdata should be like this:
    1  4  7  10
    2  5  8  11
    3  6  9  12.
please help me out ,
Thanks in advance,
Santhosh.E

Answer 1

Santhosh,
If you want to have some flexibility for extending to multiple columns --
  WA_DATA-COLUMN1 = '1'.
  WA_DATA-COLUMN2 = 'a'.
  WA_DATA-COLUMN3 = 'x'.
  APPEND WA_DATA TO T_DATA.
  WA_DATA-COLUMN1 = '2'.
  WA_DATA-COLUMN2 = 'b'.
  WA_DATA-COLUMN3 = 'y'.
  APPEND WA_DATA TO T_DATA.
  WA_DATA-COLUMN1 = '3'.
  WA_DATA-COLUMN2 = 'c'.
  WA_DATA-COLUMN3 = 'z'.
  APPEND WA_DATA TO T_DATA.
  LOOP AT T_DATA INTO WA_DATA.
    WRITE :/ WA_DATA-COLUMN1, WA_DATA-COLUMN2, WA_DATA-COLUMN3.
  ENDLOOP.
  NEW-LINE.
  FIELD-SYMBOLS : <FS_ANY> TYPE ANY.
  DATA : COL_NO TYPE I VALUE 1.
  DATA : ROW_NO TYPE I VALUE 1.
  DATA : TOTAL_LINES TYPE I.
  DATA : TOTAL_ROWS TYPE I.
  DESCRIBE TABLE T_DATA LINES TOTAL_ROWS.
  WHILE SY-INDEX <= TOTAL_ROWS.
    DO.
      READ TABLE T_DATA INTO WA_DATA INDEX ROW_NO.
      IF SY-SUBRC = 0.
        ASSIGN COMPONENT COL_NO OF STRUCTURE WA_DATA TO <FS_ANY>.
        WRITE: <FS_ANY>.
      ELSE.
        EXIT.
      ENDIF.
      ROW_NO = ROW_NO + 1.
    ENDDO.
    COL_NO = COL_NO + 1.
    ROW_NO = 1.
    NEW-LINE.
  ENDWHILE.
Regards,
Ravi
Note : Please close the thread and mark the helpful answers
Message was edited by: Ravikumar Allampallam