Rows as columns and dynamic alv display

Question

Hi everyone,
I need to build a intenal table dynamically as well as dispaly few rows as columns in alv output.
I have seen posts where internal table has been created dynamicaaly as well seen the posts where rows of the table are displayed as columns but, can we achieve both the functionalities at same time.
I have table as:
SO     PO     Date    MAT    QTY  
1        A       X    Y1      10 
                       K1      15
                       M2      11
2       B       X1     Y2       5
                       M1      12
3       C       1x     Z1      15
                       K1       6
                       L1      10
Now the ouput has to be :
SO     PO   Date     MAT-Y1    MAT-K1    MAT-Y2   MAT-L1     Mat-Z1    MAT-M1   MAT-M2
1        A     X      10          15                                               11            
2        B     X1                         5                             12                
3        C     1X                  6                10          15                                       
I will not be knowing the number of materials untill runtime(dynamic) and as well the rows has to be displayed as columns. Is it possible to do that.
Regards
Edited by: Madhu Posanipalli on Jun 6, 2011 4:51 PM

Answer 1

Hi,
Check below code. It will work definitly.
*& Report  YTEST_PROG_RP
REPORT  YTEST_PROG_RP.
type-POOLs slis.
TYPES: BEGIN OF ty_tab,
    so TYPE i,
    po TYPE c,
    date(2) TYPE c,
    mat(2) TYPE c,
    qty TYPE i,
END OF ty_tab.
DATA: itab TYPE STANDARD TABLE OF ty_tab INITIAL SIZE 0,
      jtab TYPE STANDARD TABLE OF ty_tab INITIAL SIZE 0,
      ktab TYPE STANDARD TABLE OF ty_tab INITIAL SIZE 0,
      wa_tab TYPE ty_tab, wa_j TYPE ty_tab, wa_k TYPE ty_tab.
FIELD-SYMBOLS: <t_dyntable> TYPE STANDARD TABLE,
               <fs_dyntable>,
               <fs_fldval> type any.
*ALV data declarations
data: fieldcatalog type LVC_T_FCAT, " with header line, "slis_t_fieldcat_alv with header line,
      fieldcatalog1 TYPE LVC_s_FCAT,
      fieldcatalog2 type  slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid,
      gt_events     type slis_t_event,
      gd_prntparams type slis_print_alv.
DATA t_newtable TYPE REF TO data.
DATA t_newline  TYPE REF TO data.
DATA wa_flname TYPE string.
*Start-of-selection.
START-OF-SELECTION.
  perform data_retrieval.
  perform build_fieldcatalog.
  perform dynamic_table.
  perform build_layout.
  perform build_events.
  perform build_print_params.
  perform display_alv_report.
*&      Form  BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
form build_fieldcatalog.
  DATA: lv_field1 TYPE string, lv_cnt LIKE sy-tabix VALUE 3, itab_lines TYPE i.
  DATA: fieldname(20) TYPE c.
  DATA: fieldvalue(10) TYPE c.
  DATA: index(3) TYPE c.
  DATA: wa_cat LIKE LINE OF fieldcatalog2,
  wa_colno(2) TYPE n,
  wa_flname(5) TYPE c. .
  fieldcatalog1-fieldname   = 'SO'.
fieldcatalog1-seltext   = 'SO'.
  fieldcatalog1-col_pos     = 1.
  fieldcatalog1-outputlen   = 2.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
  append fieldcatalog1 to fieldcatalog.
  clear  fieldcatalog1.
  fieldcatalog1-fieldname   = 'PO'.
fieldcatalog1-seltext   = 'PO'.
  fieldcatalog1-col_pos     = 2.
  fieldcatalog1-outputlen   = 2.
  append fieldcatalog1 to fieldcatalog.
  clear  fieldcatalog1.
  fieldcatalog1-fieldname   = 'DATE'.
fieldcatalog1-seltext   = 'Date'.
  fieldcatalog1-col_pos     = 3.
  fieldcatalog1-outputlen   = 2.
  append fieldcatalog1 to fieldcatalog.
  clear  fieldcatalog1.
  LOOP AT itab INTO wa_tab.
    lv_cnt = lv_cnt + 1.
    CONCATENATE 'MAT-' wa_tab-mat into lv_field1.
    TRANSLATE lv_field1 TO UPPER CASE.
    fieldcatalog1-fieldname   = lv_field1.
   fieldcatalog1-seltext   = lv_field1.
    fieldcatalog1-col_pos     = lv_cnt.
    fieldcatalog1-outputlen   = 6.
    append fieldcatalog1 to fieldcatalog.
    clear fieldcatalog1.
    CLEAR: lv_field1, wa_tab.
  ENDLOOP.
  CLEAR lv_cnt.
Create dynamic internal table and assign to FS
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = fieldcatalog
    IMPORTING
      ep_table        = t_newtable.
  ASSIGN t_newtable->* TO <t_dyntable>.
  CREATE DATA t_newline LIKE LINE OF <t_dyntable>.
  ASSIGN t_newline->* TO <fs_dyntable>.
DESCRIBE TABLE fieldcatalog LINES itab_lines.
  loop at fieldcatalog INTO fieldcatalog1.
    CLEAR wa_cat.
    wa_cat-fieldname = fieldcatalog1-fieldname.
    wa_cat-seltext_s = fieldcatalog1-fieldname.
    wa_cat-outputlen = fieldcatalog1-outputlen.
    APPEND wa_cat TO fieldcatalog2.
    CLEAR fieldcatalog1.
  ENDLOOP.
endform.                    " BUILD_FIELDCATALOG
*&      Form  BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'.  "Sets fcode for when double
                                        "click(press f2)
gd_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT
*&      Form  DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
  gd_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
           i_callback_program      = gd_repid
           i_callback_top_of_page   = 'TOP-OF-PAGE'  "see FORM
           i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
           is_layout               = gd_layout
            it_fieldcat             = fieldcatalog2[]
           it_special_groups       = gd_tabgroup
           it_events               = gt_events
           is_print                = gd_prntparams
           i_save                  = 'X'
           is_variant              = z_template
       tables
            t_outtab                = <t_dyntable>
       exceptions
            program_error           = 1
            others                  = 2.
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
endform.                    " DISPLAY_ALV_REPORT
*&      Form  DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
  DATA: lv_index LIKE sy-tabix.
  wa_tab-so = 1.
  wa_tab-po = 'A'.
  wa_tab-date = 'X'.
  wa_tab-mat = 'Y1'.
  wa_tab-qty = 10.
  append wa_tab to itab.
  clear wa_tab.
  wa_tab-mat = 'K1'.
  wa_tab-qty = 15.
  append wa_tab to itab.
  CLEAR wa_tab.
  wa_tab-mat = 'M2'.
  wa_tab-qty = 11.
  append wa_tab to itab.
  CLEAR wa_tab.
  wa_tab-so = 2.
  wa_tab-po = 'B'.
  wa_tab-date = 'X1'.
  wa_tab-mat = 'Y2'.
  wa_tab-qty = 5.
  append wa_tab to itab.
  CLEAR wa_tab.
  wa_tab-mat = 'M1'.
  wa_tab-qty = 12.
  append wa_tab to itab.
  CLEAR wa_tab.
  wa_tab-so = 3.
  wa_tab-po = 'C'.
  wa_tab-date = '1x1'.
  wa_tab-mat = 'Z1'.
  wa_tab-qty = 15.
  append wa_tab to itab.
  CLEAR wa_tab.
wa_tab-mat = 'K1'.
wa_tab-qty = 6.
append wa_tab to itab.
CLEAR wa_tab.
  wa_tab-mat = 'L1'.
  wa_tab-qty = 10.
  append wa_tab to itab.
  CLEAR wa_tab.
  LOOP AT itab INTO wa_tab.
    if wa_tab-so is NOT INITIAL AND wa_tab-po is NOT INITIAL AND wa_tab-date is NOT INITIAL.
      wa_j-so = wa_tab-so.
      wa_j-po = wa_tab-po.
      wa_j-date = wa_tab-date.
      lv_index = wa_tab-so.
    else.
      READ TABLE itab INTO wa_j WITH KEY so = lv_index.
    ENDIF.
    wa_j-mat = wa_tab-mat.
    wa_j-qty = wa_tab-qty.
    APPEND wa_j to jtab.
    CLEAR: wa_tab, wa_j.
  ENDLOOP.
endform.                    " DATA_RETRIEVAL
Form  TOP-OF-PAGE                                                 *
ALV Report Header                                                 *
Form top-of-page.
**ALV Header declarations
*data: t_header type slis_t_listheader,
     wa_header type slis_listheader,
     t_line like wa_header-info,
     ld_lines type i,
     ld_linesc(10) type c.
Title
wa_header-typ  = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.
Date
wa_header-typ  = 'S'.
wa_header-key = 'Date: '.
CONCATENATE  sy-datum+6(2) '.'
              sy-datum+4(2) '.'
              sy-datum(4) INTO wa_header-info.   "todays date
append wa_header to t_header.
clear: wa_header.
Total No. of Records Selected
describe table it_ekko lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Records Selected: ' ld_linesc
                   into t_line separated by space.
wa_header-typ  = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.
call function 'REUSE_ALV_COMMENTARY_WRITE'
      exporting
           it_list_commentary = t_header.
           i_logo             = 'Z_LOGO'.
endform.                    "top-of-page
      FORM USER_COMMAND                                          *
      --> R_UCOMM                                                *
      --> RS_SELFIELD                                            *
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
   WHEN '&IC1'.
  Check field clicked on within ALVgrid report
   IF rs_selfield-fieldname = 'EBELN'.
    Read data table, using index of row user clicked on
     READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
     SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
    Sxecute transaction ME23N, and skip initial data entry screen
     CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
   ENDIF.
ENDCASE.
ENDFORM.                    "user_command
*&      Form  BUILD_EVENTS
      Build events table
form build_events.
data: ls_event type slis_alv_event.
call function 'REUSE_ALV_EVENTS_GET'
      exporting
           i_list_type = 0
      importing
           et_events   = gt_events[].
read table gt_events with key name =  slis_ev_end_of_page
                          into ls_event.
if sy-subrc = 0.
   move 'END_OF_PAGE' to ls_event-form.
   append ls_event to gt_events.
endif.
   read table gt_events with key name =  slis_ev_end_of_list
                          into ls_event.
if sy-subrc = 0.
   move 'END_OF_LIST' to ls_event-form.
   append ls_event to gt_events.
endif.
endform.                    " BUILD_EVENTS
*&      Form  BUILD_PRINT_PARAMS
      Setup print parameters
form build_print_params.
gd_prntparams-reserve_lines = '3'.   "Lines reserved for footer
gd_prntparams-no_coverpage = 'X'.
endform.                    " BUILD_PRINT_PARAMS
*&      Form  END_OF_PAGE
form END_OF_PAGE.
  data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.
  write: sy-uline(50).
  skip.
  write:/40 'Page:', sy-pagno .
endform.                    "END_OF_PAGE
*&      Form  END_OF_LIST
form END_OF_LIST.
  data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.
  skip.
  write:/40 'Page:', sy-pagno .
endform.                    "END_OF_LIST
*&      Form  dynamic_table
      text
-->  p1        text
<--  p2        text
FORM dynamic_table .
  DATA: lv_s1 TYPE string, lv_s2 TYPE string.
  DATA lv_mat TYPE string.
  DATA: fieldvalue(10) TYPE c.
  ktab[] = jtab[].
  delete ADJACENT DUPLICATES FROM ktab COMPARING so.
  loop at ktab INTO wa_tab.
Field1
    wa_flname = 'SO'.
    fieldvalue = wa_tab-so.
    CONDENSE    fieldvalue NO-GAPS.
    ASSIGN COMPONENT  wa_flname
        OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
    <fs_fldval> =  fieldvalue.
    CLEAR fieldvalue.
Field2
    wa_flname = 'PO'.
    fieldvalue = wa_tab-po.
    CONDENSE    fieldvalue NO-GAPS.
    ASSIGN COMPONENT  wa_flname
        OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
    <fs_fldval> =  fieldvalue.
    CLEAR fieldvalue.
Field3
    wa_flname = 'DATE'.
    fieldvalue = wa_tab-date.
    CONDENSE    fieldvalue NO-GAPS.
    ASSIGN COMPONENT  wa_flname
        OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
    <fs_fldval> =  fieldvalue.
    CLEAR fieldvalue.
    loop at jtab INTO wa_j WHERE so = wa_tab-so.
      CONCATENATE 'MAT-' wa_j-mat INTO lv_mat.
      wa_flname = lv_mat.
      fieldvalue = wa_j-qty.
      CONDENSE    fieldvalue NO-GAPS.
      ASSIGN COMPONENT  wa_flname
          OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
      <fs_fldval> =  fieldvalue.
      CLEAR: wa_j, fieldvalue.
    ENDLOOP.
    APPEND <fs_dyntable> TO <t_dyntable>.
    CLEAR wa_tab.
    FREE <fs_dyntable>.
  ENDLOOP.
ENDFORM.                    " dynamic_table
Ram.