Dynamical Call of ALV - No data update

Question

Hi,
I tried to use use the ALV dynamically. With dynamically I mean that I that I have diffrent data structures, depending what was selected by the user. The first call of the program is always correct. The data is displayed correctly. But when the data structure is changing, the ALV display is not updated.  For a better understanding I post a extract of my coding:
<b>1. Creation of Container</b>
CREATE OBJECT g_custom_container
    EXPORTING              
      container_name              = 'PARENT_CONT'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5.
  IF sy-subrc <> 0.
    ASSERT 1 = 2.
  ENDIF.
<b>2.Creation of splitter container</b>
  CREATE OBJECT splitter
     EXPORTING
       parent            = g_custom_container
       rows              = 2
       columns           = 2
    EXCEPTIONS
      cntl_error        = 1
      cntl_system_error = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
    ASSERT 1 = 2.
  ENDIF.
container_2 = splitter->get_container(
                            row       = 1
                            column    = 2 ).
<b>3.Dynamic Creation of alv object</b>
  CREATE OBJECT go_grid
    EXPORTING
      i_parent = container_2.
<b>4. Get Fieldcatalogue</b>
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = lv_structure_name
    CHANGING
      ct_fieldcat            = lt_fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
    ASSERT 1 = 2.
  ENDIF.
<b>5. Set table for first display</b>
  CALL METHOD go_grid->set_table_for_first_display
*    EXPORTING
*      i_structure_name = lv_structure_name
    CHANGING
      it_fieldcatalog  = lt_fieldcat
      it_outtab        = <lt_out_data>.
  CALL METHOD ls_alv_ref-alv_ref->refresh_table_display.
  CALL METHOD cl_gui_cfw=>flush.
Perhaps someone could help.....
Best Regards, Edgar

Answer 1

Hello Edgar
The following sample report <b>ZUS_SDN_TWO_ALV_GRIDS_8</b> shows how to solve your problem. Please note that for the sake of simplicity I replaced the tree containing the structure names with an ALV list. However, the switch between the different structures is triggered by the <b>DOUBLE_CLICK</b> event.
I like to add that the integration of the first displayed ALV list (DD02L) into GT_OUTTAB is not really elegant. In addition, with <b>$TMP</b> I marked a problematic part of the coding with respect to your requirement to have the right layout for each displayed ALV list:
If you have a <b>fixed </b>assignment of <i>tabname -> 4-digit handle</i> then it is ok. I my sample report the layouts only work if you select the tabnames in the very same order.
Before showing the entire coding I describe crucial parts of the coding:
[code]TYPES: BEGIN OF ty_s_outtab.
TYPES: tabname    TYPE tabname.
TYPES: layout     TYPE lvc_s_layo.
TYPES: variant    TYPE disvariant.
TYPES: fcat       TYPE lvc_t_fcat.
TYPES: data       TYPE REF TO data.
TYPES: END OF ty_s_outtab.[/code]
Every time a new structure is selected the corresponding ALV data are stored as new record in GT_OUTTAB which is of line type TY_S_OUTTAB.
[code]  READ TABLE gt_outtab INTO gs_outtab INDEX 2.
  ASSIGN gs_outtab-fcat    TO <gt_fcat>.
  ASSIGN gs_outtab-data->* TO <gt_outtab>.[/code]
Since the ALV list data and the fieldcatalog are fully dynamic I use global field-symbols for these data.
[code]&----
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS_0100'.  " contains push button "DETAIL"
SET TITLEBAR 'xxx'.
  CALL METHOD go_grid2->set_table_for_first_display
    EXPORTING
      i_structure_name = gs_outtab-tabname
      is_layout        = gs_outtab-layout
      is_variant       = gs_outtab-variant
      i_save           = 'A'
    CHANGING
      it_outtab        = <gt_outtab>
      it_fieldcatalog  = <gt_fcat>
    EXCEPTIONS
      OTHERS           = 4.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT[/code]
The second ALV list which displays the table records is always newly displayed in the PBO module.
In the event handler method <b>HANDLE_DOUBLE_CLICK</b> we need to do two things:
- store the current fieldcatalog back to GT_OUTTAB
- store the name of the new selected table/structure -> trigger PAI
In routine <b>HANDLE_DB_CLICK</b> we create a new entry for GT_OUTTAB if it does not yet exist. Next we select this entry and display it again as second ALV list.
[code]
*& Report  ZUS_SDN_TWO_ALV_GRIDS_8
*& Description: Display two ALV lists in splitter container (left/right)
*&              Left ALV list contains DB table names,
*& right ALV list displays entries of selected DB table
*& SDN thread: Dynamical Call of ALV - No data update
*&       Link: https:||Dynamical Call of ALV - No data update
*& Screen '0100' contains no elements.
*& ok_code -> assigned to GD_OKCODE
*& Flow logic:
PROCESS BEFORE OUTPUT.
   MODULE STATUS_0100.
PROCESS AFTER INPUT.
   MODULE USER_COMMAND_0100.
REPORT  zus_sdn_two_alv_grids_8.
TYPE-POOLS: abap.
DATA:
  gd_repid         TYPE syst-repid,
  gd_okcode        TYPE ui_func,
  go_docking       TYPE REF TO cl_gui_docking_container,
  go_splitter      TYPE REF TO cl_gui_splitter_container,
  go_cell_left     TYPE REF TO cl_gui_container,
  go_cell_right    TYPE REF TO cl_gui_container,
  go_grid1         TYPE REF TO cl_gui_alv_grid,
  go_grid2         TYPE REF TO cl_gui_alv_grid,
  gs_layout        TYPE lvc_s_layo.
TYPES: BEGIN OF ty_s_outtab.
TYPES: tabname    TYPE tabname.
TYPES: layout     TYPE lvc_s_layo.
TYPES: variant    TYPE disvariant.
TYPES: fcat       TYPE lvc_t_fcat.
TYPES: data       TYPE REF TO data.
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab  TYPE STANDARD TABLE OF ty_s_outtab
                    WITH DEFAULT KEY.
DATA:
  gt_dd02l         TYPE STANDARD TABLE OF dd02l,
  gs_outtab        TYPE ty_s_outtab,
  gt_outtab        TYPE ty_t_outtab.
FIELD-SYMBOLS:
  <gt_fcat>        TYPE lvc_t_fcat,
  <gt_outtab>      TYPE table.
      CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
  PUBLIC SECTION.
    CLASS-DATA:
      md_tabname_selected  TYPE tabname  READ-ONLY.
    CLASS-METHODS:
      handle_double_click FOR EVENT double_click OF cl_gui_alv_grid
        IMPORTING
          e_row
          e_column
          es_row_no
          sender.
ENDCLASS.                    "lcl_eventhandler DEFINITION
      CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
  METHOD handle_double_click.
  define local data
    DATA:
      ls_dd02l       TYPE dd02l,
      ls_outtab      TYPE ty_s_outtab.
    CHECK ( sender = go_grid1 ).
    READ TABLE gt_dd02l INTO ls_dd02l INDEX e_row-index.
    "   Store data of currently displayed ALV list (except for DD02L)
    IF ( md_tabname_selected = space ).
    ELSE.
      READ TABLE gt_outtab INTO ls_outtab
           WITH KEY tabname = md_tabname_selected.  " old
      CALL METHOD go_grid2->get_frontend_fieldcatalog
        IMPORTING
          et_fieldcatalog = ls_outtab-fcat.
      MODIFY gt_outtab FROM ls_outtab INDEX syst-tabix.
    ENDIF.
    md_tabname_selected = ls_dd02l-tabname.  " new selected DB table
  Triggers PAI of the dynpro with the specified ok-code
   cl_gui_cfw=>set_new_ok_code( 'HANDLE_DB_CLICK' ).  " not 4.6c
    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'HANDLE_DB_CLICK'
     IMPORTING
       RC       =
  ENDMETHOD.                    "handle_double_click
ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
  gd_repid = syst-repid.
  SELECT        * FROM  dd02l INTO TABLE gt_dd02l
         WHERE  tabname LIKE 'KN%1'   OR
                tabname LIKE 'LF%1'   OR
                tabname LIKE 'VB%'   OR
                tabname LIKE 'MAR%'   OR
                tabname LIKE 'E07%'
         AND    tabclass = 'TRANSP'.  " transparent table
  SORT gt_dd02l BY tabname.
  PERFORM init_controls.
  PERFORM add_first_table.
Set event handler
  SET HANDLER:
    lcl_eventhandler=>handle_double_click FOR go_grid1.
  READ TABLE gt_outtab INTO gs_outtab INDEX 1.
Display data
  CALL METHOD go_grid1->set_table_for_first_display
    EXPORTING
      i_structure_name = gs_outtab-tabname
      is_layout        = gs_outtab-layout
    CHANGING
      it_outtab        = gt_dd02l
    EXCEPTIONS
      OTHERS           = 4.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  READ TABLE gt_outtab INTO gs_outtab INDEX 2.
  ASSIGN gs_outtab-fcat    TO <gt_fcat>.
  ASSIGN gs_outtab-data->* TO <gt_outtab>.
NOTE: method called in PBO module
CALL METHOD go_grid2->set_table_for_first_display
   EXPORTING
     i_structure_name = gs_outtab-tabname
     is_layout        = gs_outtab-layout
     is_variant       = gs_outtab-variant
     i_save           = 'A'
   CHANGING
     it_outtab        = <gt_outtab>
     it_fieldcatalog  = <gt_fcat>
   EXCEPTIONS
     OTHERS           = 4.
IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Link the docking container to the target dynpro
  CALL METHOD go_docking->link
    EXPORTING
      repid                       = gd_repid
      dynnr                       = '0100'
     CONTAINER                   =
    EXCEPTIONS
      OTHERS                      = 4.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
NOTE: dynpro does not contain any elements
  CALL SCREEN '0100'.
Flow logic of dynpro (does not contain any dynpro elements):
*PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
*PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
END-OF-SELECTION.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS_0100'.  " contains push button "DETAIL"
SET TITLEBAR 'xxx'.
  CALL METHOD go_grid2->set_table_for_first_display
    EXPORTING
      i_structure_name = gs_outtab-tabname
      is_layout        = gs_outtab-layout
      is_variant       = gs_outtab-variant
      i_save           = 'A'
    CHANGING
      it_outtab        = <gt_outtab>
      it_fieldcatalog  = <gt_fcat>
    EXCEPTIONS
      OTHERS           = 4.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE user_command_0100 INPUT.
  CASE gd_okcode.
    WHEN 'BACK' OR
         'END'  OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.
  User has pushed button "Display Details"
    WHEN 'HANDLE_DB_CLICK'.
      PERFORM handle_db_click.
    WHEN OTHERS.
  ENDCASE.
  CLEAR: gd_okcode.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Form  HANDLE_DB_CLICK
      text
-->  p1        text
<--  p2        text
FORM handle_db_click.
define local data
  DATA:
    ld_handle(4) TYPE n,
    ls_outtab    TYPE ty_s_outtab.
  READ TABLE gt_outtab INTO ls_outtab
       WITH KEY tabname = lcl_eventhandler=>md_tabname_selected.
  IF ( syst-subrc NE 0 ).
    CLEAR: ls_outtab.
    ls_outtab-tabname = lcl_eventhandler=>md_tabname_selected.
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
    I_BUFFER_ACTIVE              =
      i_structure_name             = ls_outtab-tabname
    I_CLIENT_NEVER_DISPLAY       = 'X'
    I_BYPASSING_BUFFER           =
    I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = ls_outtab-fcat
    EXCEPTIONS
      inconsistent_interface       = 1
      program_error                = 2
      OTHERS                       = 3.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CREATE DATA ls_outtab-data TYPE TABLE OF (ls_outtab-tabname).
    ASSIGN ls_outtab-data->* TO <gt_outtab>.
    SELECT * FROM (ls_outtab-tabname) UP TO 50 ROWS
      INTO TABLE <gt_outtab>.
    ls_outtab-layout-no_toolbar = abap_false.
    ls_outtab-layout-zebra      = abap_true.
    ls_outtab-layout-smalltitle = abap_true.
    CONCATENATE ls_outtab-tabname ':'
      INTO ls_outtab-layout-grid_title.
    CONCATENATE ls_outtab-layout-grid_title 'Table Records'
      INTO ls_outtab-layout-grid_title
      SEPARATED BY space.
    ls_outtab-variant-report    = gd_repid.
    DESCRIBE TABLE gt_outtab.
    ld_handle = syst-tfill + 1.
    WRITE ld_handle TO ls_outtab-variant-handle.  " $TMP: Problem!!!
    APPEND ls_outtab TO gt_outtab.
  ENDIF.
  " NOTE: read into GLOBAL variable gs_outtab !!!!
  READ TABLE gt_outtab INTO gs_outtab
        WITH KEY tabname = lcl_eventhandler=>md_tabname_selected.
  ASSIGN gs_outtab-fcat    TO <gt_fcat>.
  ASSIGN gs_outtab-data->* TO <gt_outtab>.
ENDFORM.                    " HANDLE_DB_CLICK
*&      Form  INIT_CONTROLS
      text
-->  p1        text
<--  p2        text
FORM init_controls .
Create docking container
  CREATE OBJECT go_docking
    EXPORTING
      parent                      = cl_gui_container=>screen0
      ratio                       = 90
    EXCEPTIONS
      OTHERS                      = 6.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CALL METHOD go_docking->set_extension
    EXPORTING
      extension  = 99999 " full-size screen
    EXCEPTIONS
      cntl_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.
Create splitter container
  CREATE OBJECT go_splitter
    EXPORTING
      parent            = go_docking
      rows              = 1
      columns           = 2
     NO_AUTODEF_PROGID_DYNNR =
     NAME              =
    EXCEPTIONS
      cntl_error        = 1
      cntl_system_error = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
Get cell container
  CALL METHOD go_splitter->get_container
    EXPORTING
      row       = 1
      column    = 1
    RECEIVING
      container = go_cell_left.
  CALL METHOD go_splitter->get_container
    EXPORTING
      row       = 1
      column    = 2
    RECEIVING
      container = go_cell_right.
  CALL METHOD go_splitter->set_column_mode
    EXPORTING
      mode              = cl_gui_splitter_container=>mode_relative
   IMPORTING
     RESULT            =
    EXCEPTIONS
      cntl_error        = 1
      cntl_system_error = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CALL METHOD go_splitter->set_column_width
    EXPORTING
      id                = 1
      width             = 25
   IMPORTING
     RESULT            =
    EXCEPTIONS
      cntl_error        = 1
      cntl_system_error = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CALL METHOD go_splitter->set_column_sash
    EXPORTING
      id                = 1
      type              = cl_gui_splitter_container=>type_movable
      value             = cl_gui_splitter_container=>false
   IMPORTING
     RESULT            =
    EXCEPTIONS
      cntl_error        = 1
      cntl_system_error = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
Create ALV grids
  CREATE OBJECT go_grid1
    EXPORTING
      i_parent          = go_cell_left
    EXCEPTIONS
      OTHERS            = 5.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CREATE OBJECT go_grid2
    EXPORTING
      i_parent          = go_cell_right
    EXCEPTIONS
      OTHERS            = 5.
  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.                    " INIT_CONTROLS
*&      Form  ADD_FIRST_TABLE
      text
-->  p1        text
<--  p2        text
FORM add_first_table .
define local data
  DATA:
    ls_outtab    TYPE ty_s_outtab.
  ls_outtab-tabname = 'DD02L'.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
  EXPORTING
  I_BUFFER_ACTIVE              =
    i_structure_name             = ls_outtab-tabname
  I_CLIENT_NEVER_DISPLAY       = 'X'
  I_BYPASSING_BUFFER           =
  I_INTERNAL_TABNAME           =
  CHANGING
    ct_fieldcat                  = ls_outtab-fcat
  EXCEPTIONS
    inconsistent_interface       = 1
    program_error                = 2
    OTHERS                       = 3.
  IF sy-subrc <> 0.
*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
      WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  GET REFERENCE OF gt_dd02l INTO ls_outtab-data.
  ls_outtab-layout-no_toolbar = abap_false.
  ls_outtab-layout-zebra      = abap_true.
  ls_outtab-layout-smalltitle = abap_true.
  CONCATENATE ls_outtab-tabname ':'
    INTO ls_outtab-layout-grid_title.
  CONCATENATE ls_outtab-layout-grid_title 'Table Records'
    INTO ls_outtab-layout-grid_title
    SEPARATED BY space.
  ls_outtab-variant-report    = gd_repid.
  ls_outtab-variant-handle    = '0002'.
  INSERT ls_outtab INTO gt_outtab INDEX 1.
  ls_outtab-layout-no_toolbar = abap_true.
ls_outtab-layout-zebra      = abap_true.
ls_outtab-layout-smalltitle = abap_true.
  ls_outtab-layout-grid_title = 'DB Tables'.
ls_outtab-variant-report    = gd_repid.
  ls_outtab-variant-handle    = '0001'.
  DELETE ls_outtab-fcat WHERE ( fieldname NE 'TABNAME' ).
  INSERT ls_outtab INTO gt_outtab INDEX 1.
ENDFORM.                    " ADD_FIRST_TABLE[/code]
Regards,
  Uwe