ALV im Dialogboxcontainer erzeugt Dump

Code: Alles auswählen.

  DATA:
* dialogbox Container
        gr_dialogbox     TYPE  REF TO cl_gui_dialogbox_container,
        gr_alv_customer   TYPE  REF TO cl_gui_alv_grid.

  DATA:  lt_kna1          TYPE STANDARD TABLE OF kna1,
        ls_kna1          TYPE kna1.

  DATA cnt TYPE i.

    SELECT * FROM kna1   INTO ls_kna1.
    check cnt LE 67.
    add 1 to cnt.
     append ls_kna1 to lt_kna1
   endselect.

  SORT lt_kna1 BY kunnr.
  DELETE ADJACENT DUPLICATES FROM lt_kna1.

  CREATE OBJECT gr_dialogbox
    EXPORTING
      width  = 600
      height = 400
      top    = 50
      left   = 50
*    EXCEPTIONS
*      cntl_error                  = 1
*      cntl_system_error           = 2
*      create_error                = 3
*      lifetime_error              = 4
*      lifetime_dynpro_dynpro_link = 5
*      event_already_registered    = 6
*      error_regist_event          = 7
*      others                      = 8
    .
  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 gr_alv_customer
    EXPORTING
      i_parent          = gr_dialogbox    " Parent-Container
*    EXCEPTIONS
*      error_cntl_create = 1
*      error_cntl_init   = 2
*      error_cntl_link   = 3
*      error_dp_create   = 4
*      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.

  gr_alv_cusomer->set_table_for_first_display(
    EXPORTING
      i_structure_name              =  'KNA1'    " Strukturname der internen Ausgabetabelle
    CHANGING
      it_outtab                     =  lt_kna1   " Ausgabetabelle
*    EXCEPTIONS
*      invalid_parameter_combination = 1
*      program_error                 = 2
*      too_many_lines                = 3
*      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.

  SET HANDLER gr_event_receiver->catch_close
             FOR gr_dialogbox.