How to convert columns into rows

Question

present result
Mat_num        comp_code   disc          amount     
800000     SG01      SAPLF005                    0.00
800000     SG01      SAPLF005               31,500.00
6300001    SPM       SAPLF005                    0.00
6300001    SPM       SAPLF005              108,888.00
APS100     SMTP      SAPLF005                    0.00
APS100     SMTP      SAPLF005                    0.00
required format
Mat_num       disc             SG01          SMTP          SPM
800000   SAPLF005   31,500.00           0.00          0.00
800000   SAPLF005        0.00           0.00          0.00 
6300001  SAPLF005        0.00         0.00     108,888.00     
6300001  SAPLF005        0.00         0.00           0.00  
APS100   SAPLF005        0.00         0.00           0.00 
APS100   SAPLF005        0.00         0.00           0.00
Plain Text Attachment [ Scan and Save to Computer ]
REPORT  Z_CALC2                                 .
TABLES : KNC1.
TYPE-POOLS: SLIS.
  type-pools : abap.
field-symbols: <dyn_table> type standard table,
               <dyn_wa>,
               <dyn_field>.
data: dy_table type ref to data,
      dy_line  type ref to data,
      xfc type lvc_s_fcat,
      ifc type lvc_t_fcat.
DATA: BEGIN OF ITAB OCCURS 0,
          KUNNR LIKE KNC1-KUNNR,
          BUKRS LIKE KNC1-BUKRS,
          GJAHR LIKE KNC1-GJAHR,
          USNAM LIKE KNC1-USNAM,
          UMSAV LIKE KNC1-UMSAV,
      END OF ITAB.
*Result table
TYPES BEGIN OF RES_ITAB.
* RES_ITAB(10) TYPE C DEFAULE 'ZRES_ITAB'.
INCLUDE STRUCTURE ZRES_ITAB.
TYPES END OF RES_ITAB.
SELECT-OPTIONS : CCODE FOR KNC1-BUKRS DEFAULT 'SG01' TO 'SPM '.
DATA : BEGIN OF COMP_ITAB OCCURS 0,
          BUKRS LIKE KNC1-BUKRS,
       END OF COMP_ITAB.
DATA: COLS TYPE I,
      gap(10) TYPE c,
      Company_title type string .
start-of-selection.
  perform get_NUM_COLS.
  perform get_structure.
  perform create_dynamic_itab.
  perform get_data.
*  perform write_out.
FORM GET_NUM_COLS.
SELECT KUNNR BUKRS GJAHR USNAM UMSAV INTO TABLE ITAB FROM KNC1 WHERE
BUKRS IN CCODE.
CLEAR ITAB.
*CLEAR RES_ITAB.
LOOP AT ITAB .
     COMP_ITAB-BUKRS = ITAB-BUKRS.
     APPEND COMP_ITAB.
CLEAR COMP_ITAB.
ENDLOOP.
SORT COMP_ITAB BY BUKRS.
DELETE ADJACENT DUPLICATES FROM COMP_ITAB.
DESCRIBE TABLE COMP_ITAB LINES COLS.
ENDFORM.
*Get table structure
form get_structure.
data : idetails type abap_compdescr_tab,
       xdetails type abap_compdescr.
data : ref_table_des type ref to cl_abap_structdescr.
data fld_pos type i value 1.
* Get the structure of the table.
  ref_table_des ?=
              cl_abap_typedescr=>describe_by_name( 'ZRES_ITAB' ).
  idetails[] = ref_table_des->components[].
  loop at idetails into xdetails.
    clear xfc.
    XFC-COL_POS = fld_pos.
    xfc-fieldname = xdetails-name .
    xfc-datatype = xdetails-type_kind.
    xfc-inttype = xdetails-type_kind.
    xfc-intlen = xdetails-length.
    xfc-decimals = xdetails-decimals.
    append xfc to ifc.
    fld_pos = fld_pos + 1.
  endloop.
  DO  COLS TIMES.
    clear xfc.
    READ TABLE COMP_ITAB INDEX SY-INDEX.
    XFC-COL_POS = fld_pos.
    xfc-fieldname = COMP_ITAB-BUKRS .
    xfc-datatype = 'F'.
*    xfc-inttype = 'F'.   'details-type_kind.
    xfc-intlen = 14.
*    xfc-decimals = xdetails-decimals.
    append xfc to ifc.
    fld_pos = fld_pos + 1.
  ENDDO.
  clear xfc.
    XFC-COL_POS = fld_pos.
    xfc-fieldname = 'RECORD_TOTAL' .
    xfc-datatype = 'F'.
    xfc-inttype  = 'F'.
    xfc-intlen = 14.
*    xfc-decimals = xdetails-decimals.
    append xfc to ifc.
endform.
form create_dynamic_itab.
* Create dynamic internal table and assign to FS
  call method cl_alv_table_create=>create_dynamic_table
               exporting
                  it_fieldcatalog = ifc
               importing
                  ep_table        = dy_table.
  assign dy_table->* to <dyn_table>.
* Create dynamic work area and assign to FS
  create data dy_line like line of <dyn_table>.
  assign dy_line->* to <dyn_wa>.
endform.
form get_data.
LOOP AT ITAB.
        <DYN_WA>-KUNNR = ITAB-KUNNR.
        <DYN_WA>-USNAM = ITAB-USNAM.
        DO COLS TIMES.
           IF <DYN_WA>
DESCRIBE TABLE <dyn_table>.
*WRITE:/ SY-TFILL.
* Select Data from table.
* <dyn_table> = ITAB[].
*LOOP AT ITAB.
*    RES-KUNNR = ITAB-KUNNR.
*    RES-USNAM = ITAB-USNAM.
*    CASE ITAB-GJAHR.
*        WHEN 2005.
*            RES-UMSAV1 = ITAB-UMSAV.
*        WHEN 2006.
*            RES-UMSAV2 = ITAB-UMSAV.
*        WHEN 2007.
*            RES-UMSAV3 = ITAB-UMSAV.
*    ENDCASE.
*    RES-TOTAL = RES-UMSAV1 + RES-UMSAV2 + RES-UMSAV3 .
* APPEND RES.
*ENDLOOP.
endform.
form write_out.
  loop at <dyn_table> into <dyn_wa>.
    do.
      assign component  sy-index
         of structure <dyn_wa> to <dyn_field>.
      if sy-subrc <> 0.
        exit.
      endif.
      if sy-index = 1.
        write:/ <dyn_field>.
      else.
        write: <dyn_field>.
      endif.
    enddo.
  endloop.
endform.
Edited by: Alvaro Tejada Galindo on Feb 28, 2008 11:56 AM

Answer 1

solved myself