Three different output tables

Question

Hi Experts,
what has to be done if you have three different output tables which you would like
display by the ALV.  How can you change between those three  tables .
If possible I wold like to use the same alv reference.
data ref_alv TYPE REF TO cl_gui_alv_grid.
If this is not possible
please tell me the other way ?
Regards
sas

Answer 1

hi,
maybe it helps to understand me better!
<outtab2>
<outtab3>
might be also dislayed as like as  <outtab>
PROCESS BEFORE OUTPUT.
  MODULE alvgrid_out.
PROCESS AFTER INPUT.
  MODULE user_command_0600.
MODULE alvgrid_out OUTPUT.
  PERFORM init.
ENDMODULE.                 " ALVGRID_OUT  OUTPUT
FORM init.
  IF NOT r_nsize IS INITIAL AND NOT r_normes IS INITIAL AND gv_flag IS INITIAL.
    PERFORM alv_size.
    gv_flag = 'X'.
  ENDIF.
  IF NOT r_slim IS INITIAL AND NOT r_slimes IS INITIAL AND gv_flag IS INITIAL.
    PERFORM alv_slimsize.
    gv_flag = 'X'.
  ENDIF.
  IF NOT r_stocky IS INITIAL AND NOT r_stomes IS INITIAL AND gv_flag IS INITIAL.
    PERFORM alv_stockysize.
    gv_flag = 'X'.
  ENDIF.
  IF NOT r_nsize IS INITIAL AND NOT r_normes IS INITIAL AND gv_paiflag EQ 'NO'.
    PERFORM alv_size.
  ENDIF.
  IF NOT r_slim IS INITIAL AND NOT r_slimes IS INITIAL AND    gv_paiflag EQ 'SL'.
    PERFORM alv_slimsize.
  ENDIF.
  IF NOT r_stocky IS INITIAL AND NOT r_stomes IS INITIAL AND   gv_paiflag EQ 'ST'.
    PERFORM alv_stockysize.
  ENDIF.
ENDFORM.                    "init
MODULE user_command_0600 INPUT.
  IF NOT r_nsize IS INITIAL AND NOT r_normes IS INITIAL AND sy-ucomm EQ 'NO'.
    gv_paiflag = 'NO'.
  ENDIF.
  IF NOT r_slim IS INITIAL AND NOT r_slimes IS INITIAL AND sy-ucomm EQ 'SL'.
    gv_paiflag = 'SL'.
  ENDIF.
  IF NOT r_stocky IS INITIAL AND NOT r_stomes IS INITIAL AND sy-ucomm EQ 'ST'.
    gv_paiflag = 'ST'.
  ENDIF.
  FREE: ref_alv, ref_container.
ENDMODULE.                 " USER_COMMAND_0600  INPUT
FORM alv_size .
  CHECK ref_alv IS INITIAL.
  CREATE OBJECT ref_container
    EXPORTING
      container_name = 'ALV'.
  gv_layout-no_toolbar = 'X'.
  CLEAR: gs_fcat, gs_zpd.
  READ TABLE lt_sgroup INTO ls_sgr INDEX 1.
  gs_fcat-fieldname = 'ORG_SIGN'.
  gs_fcat-coltext = ''.
  gs_fcat-outputlen = 2.
  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.
  gs_fcat-fieldname = 'DESCRIPTION'.
  gs_fcat-coltext =   ls_sgr-sizegroup_name.
  gs_fcat-outputlen = 30.
  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.
  SORT r_nsize BY low.
  DELETE ADJACENT DUPLICATES FROM r_nsize.
  LOOP AT r_nsize.
    CONDENSE r_nsize-low NO-GAPS.
    gs_fcat-fieldname =  r_nsize-low.
    gs_fcat-coltext   =  r_nsize-low.
    gs_fcat-outputlen = 5.
    APPEND gs_fcat TO gt_fcat.
  ENDLOOP.
  CLEAR gs_fcat.
  LOOP AT gt_fcat INTO gs_fcat WHERE  fieldname NE refer.
    gs_fcat-edit = 'X'.
    MODIFY gt_fcat FROM gs_fcat TRANSPORTING edit.
  ENDLOOP.
  CLEAR gs_fcat.
  LOOP AT gt_fcat INTO gs_fcat WHERE  fieldname EQ 'DESCRIPTION'.
    gs_fcat-edit = ' '.
    MODIFY gt_fcat FROM gs_fcat TRANSPORTING edit.
  ENDLOOP.
  CLEAR gs_fcat.
  LOOP AT gt_fcat INTO gs_fcat WHERE  fieldname EQ 'ORG_SIGN'.
    gs_fcat-edit = ' '.
    MODIFY gt_fcat FROM gs_fcat TRANSPORTING edit.
  ENDLOOP.
  FIELD-SYMBOLS: <lt_ss> TYPE table,
  <test> TYPE ANY.
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = gt_fcat
    IMPORTING
      ep_table        = new_table.
  ASSIGN new_table->* TO <outtab>.
  CREATE DATA new_line LIKE LINE OF <outtab>.
  ASSIGN new_line->* TO <l_line> .
  SORT r_normes BY low.
  DELETE ADJACENT DUPLICATES FROM r_normes.
  LOOP AT r_normes.
    ASSIGN COMPONENT 2 OF STRUCTURE <l_line> TO <test>.
    <test> = r_normes-low.
    APPEND <l_line> TO <outtab>.
  ENDLOOP.
  CLEAR gs_cpmpon.
  REFRESH: gt_compon, gv_comp
  PERFORM read_comp
    TABLES gv_comp
     USING
        'zpd'
        <l_line>.
  CREATE OBJECT ref_alv
    EXPORTING
      i_parent      = ref_container
      i_appl_events = 'X'
    EXCEPTIONS
      OTHERS        = 5.
  CALL METHOD ref_alv->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_enter.
  CREATE OBJECT ref_alv_events.
  SET HANDLER ref_alv_events->handle_data_changed FOR ref_alv.
* <outtab2>
* <outtab3>
* might be also dislayed
  CALL METHOD ref_alv->set_table_for_first_display
    EXPORTING
      is_layout            = gv_layout
      it_toolbar_excluding = it_toolbar_excluding  " TYPE UI_FUNCTIONS
    CHANGING
      it_fieldcatalog      = gt_fcat
      it_outtab            = <outtab>
    EXCEPTIONS
      OTHERS               = 4.
  CALL METHOD cl_gui_cfw=>flush.
ENDFORM.                    " ALV_SIZE