ALV interactive + normal list

Question

Hi All,
I need some help regarding to  my requirement.
I do have ALV developed using classes.
When  i click a button on the alv, a normal list (using write statements) has to be displayed.
When i do this, still alv is displayed and when i click the back button then the normal list is appearing.
i used leave screen and leave list-processing. still its not working
Regards
Rajesh

Answer 1

I think you are doing inside the ALV events. Instead of that you can use this  approach, Have a Application toolbar button. when you click on that button handle that button in PAI.
check the sample. For this example create a screen and Create the status , with application toolbar button, Fcode as BUTTON. no need to create the Custom control on screen.
REPORT  ztest_oo_a.
DATA: it_vbak TYPE vbak_t.
DATA: dock TYPE REF TO cl_gui_docking_container,
      it_fcat TYPE lvc_t_fcat,
      wa_fcat TYPE lvc_s_fcat,
      grid TYPE REF TO cl_gui_alv_grid.
*       CLASS lcl_handler DEFINITION
CLASS lcl_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:  hotspot_click FOR EVENT hotspot_click OF cl_gui_alv_grid
    IMPORTING e_row_id e_column_id es_row_no.
ENDCLASS.                    "lcl_handler DEFINITION
*       CLASS lcl_handler IMPLEMENTATION
CLASS lcl_handler IMPLEMENTATION.
  METHOD hotspot_click.
    DATA:    row TYPE lvc_s_roid,
        wa_vbak TYPE vbak.
    row = es_row_no.
    READ TABLE it_vbak INTO wa_vbak INDEX row-row_id.
    SET PARAMETER ID 'AUN' FIELD wa_vbak-vbeln.
    CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
  ENDMETHOD.                    "HOTSPOT_CLICK
ENDCLASS.                    "lcl_handler IMPLEMENTATION
START-OF-SELECTION.
  DATA: obj TYPE REF TO  lcl_handler.
  CREATE OBJECT obj.
  SELECT *
    FROM vbak
    INTO TABLE it_vbak
    UP TO 20 ROWS.
  CALL SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SATR'.
  CREATE OBJECT dock
    EXPORTING
      repid     = sy-repid
      dynnr     = '100'
      extension = '1500'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6
  IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CREATE OBJECT grid EXPORTING i_parent = dock.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'VBAK'
    CHANGING
      ct_fieldcat            = it_fcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  wa_fcat-hotspot = 'X'.
  MODIFY it_fcat FROM wa_fcat INDEX 2 TRANSPORTING hotspot .
  SET HANDLER obj->hotspot_click FOR grid.
  CALL METHOD grid->set_table_for_first_display
*    EXPORTING
*      i_structure_name              = 'VBAK'
    CHANGING
      it_outtab                     = it_vbak
      it_fieldcatalog               = it_fcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
  IF sy-subrc NE 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 sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    when 'BUTTON'.
        LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN sy-dynnr.
    WRITE 'I am in Normal ALV Report'.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT