OO-ALV: Problem mit Eventsteuerung

Code: Alles auswählen.

DATA  go_alv_list TYPE REF TO cl_gui_alv_grid.
DATA go_handler TYPE REF TO lcl_handler.

class lcl_handler DEFINITION.
  PUBLIC SECTION.
    methods job_clicked for EVENT double_click of cl_gui_alv_grid
            IMPORTING E_ROW
                      E_COLUMN.
* (...)

Code: Alles auswählen.

  CREATE OBJECT go_handler. 

  SET HANDLER go_handler->job_clicked FOR go_alv_list. "go_alv_list 

Code: Alles auswählen.

   method job_clicked.
    perform usercomm using 'PICK' e_row-index e_column-fieldname.

  endmethod.

Code: Alles auswählen.

    WHEN 'PICK'.
      READ TABLE gt_list INTO ls_list INDEX iv_index.
      CHECK sy-subrc = 0.
      CALL METHOD zcl_jobc_xbp=>job_sm37_zeigen
        EXPORTING
          jobname = ls_list-jobname.
* ------

method JOB_SM37_ZEIGEN.


  submit z_jobc_show_sm37
         with jobname = jobname
         and return.


endmethod.

* ----
report Z_JOBC_SHOW_SM37.

type-pools abap.

parameters jobname type tbtcp-jobname.

data ls_par type BTCSELECT.
data lt_list type table of TBTCJOB.

START-OF-SELECTION.

  ls_par-jobname = jobname.
  ls_par-to_date = '99991231'.
  ls_par-eventid = '*'.
  ls_par-username = '*'.
  ls_par-SCHEDUL = ls_par-READY = ls_par-RUNNING =
         ls_par-FINISHED = ls_par-ABORTED =
         ls_par-prelim = abap_true.


  CALL FUNCTION 'BP_JOB_MANAGEMENT'
    EXPORTING
      jobselect_dialog              = 'N'
      joblist_opcode                = '21'
      JOBSEL_PARAM_INPUT            = ls_par
*     LIST_TITLE                    =
    tables
      joblist                       = lt_list
*   EXCEPTIONS
*     UNKNOWN_SELECTION_ERROR       = 1
*     INVALID_OPCODE                = 2
*     INVALID_DIALOG_TYPE           = 3
*     REFRESH_LIST_REQUIRED         = 4
*     EMPTY_LIST                    = 5
*     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.