Need help for hotspot linking from an ALV Grid to another transaction

Question

Hi all,
I have to make a field in an ALV Grid link to a transaction. I activated the hotspot for the field in the field catalog and created a 'User_command' that i call in the REUSE_ALV_GRID_DISPLAY, but when i click on the hotpsot, it doesnot take me to the transaction. Please provide some help.
Here is the code:
*Internal table and work area for field catalog
DATA: i_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv,
          wa_fieldcat TYPE slis_fieldcat_alv,
          v_repid LIKE sy-repid,
          wa_layout TYPE slis_layout_alv,
          i_event TYPE slis_t_event,
internal table and work area for subtotals
        i_sort TYPE STANDARD TABLE OF slis_sortinfo_alv,
        wa_sort TYPE slis_sortinfo_alv.
  PERFORM prepare_fieldcatalog.
  PERFORM prepare_layout.
  PERFORM prepare_subtotal.
  PERFORM display_alv.
FORM display_alv .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   i_callback_program               = v_repid
   i_callback_pf_status_set          = 'STATUS'
   i_callback_user_command           = 'USER_COMMAND'
    is_layout                         = wa_layout
    it_fieldcat                       = i_fieldcat
   IT_SORT                           = i_sort
   it_events                         = i_event
    TABLES
      t_outtab                          = i_final
EXCEPTIONS
   program_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.
ENDFORM.                    " display_alv
*&      Form  prepare_fieldcatalog
FORM prepare_fieldcatalog .
  PERFORM f_build USING:
    c_bukrs text-011,
    c_gjahr text-012,
    c_lifnr text-013,
    c_ebeln text-014,
    c_ebelp text-015,
    c_dmbtr text-016,
    c_hkont text-017,
    c_wrbtr text-018,
    c_wmwst text-019,
    c_mwskz text-020,
    c_text1 text-021,
    c_kbetr text-022,
    c_spcode text-023.
ENDFORM.                    " prepare_fieldcatalog
*&      Form  f_build
FORM f_build  USING    p_c_fieldname TYPE slis_fieldname
                       p_text TYPE c.
  CLEAR wa_fieldcat.
  CASE p_c_fieldname.
    WHEN c_dmbtr OR c_wrbtr OR c_wmwst.
      wa_fieldcat-do_sum = 'x'.
  ENDCASE.
  IF p_c_fieldname = c_ebeln.
    wa_fieldcat-hotspot = 'X'.
  ENDIF.
  wa_fieldcat-fieldname = p_c_fieldname.
  wa_fieldcat-seltext_m = p_text.
  APPEND wa_fieldcat TO i_fieldcat.
ENDFORM.                    " f_build
*&      Form  prepare_layout
FORM prepare_layout .
  wa_layout-info_fieldname = c_rowcolor.
wa_layout-f2code = '<F2CODE>'.
*APPEND wa_layout to i_layout.
ENDFORM.                    " prepare_layout
*&      Form  USER_COMMAND
FORM user_command USING r_ucomm LIKE sy-ucomm
                               rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN c_back OR c_canc OR c_exit.
      LEAVE TO SCREEN 0.
    WHEN c_click.
      READ TABLE i_final INTO wa_final INDEX rs_selfield-tabindex .
      IF sy-subrc EQ 0.
        IF rs_selfield-fieldname EQ c_ebeln.
          SET PARAMETER ID c_bes FIELD wa_final-ebeln.
          CALL TRANSACTION c_me23n AND SKIP FIRST SCREEN.
        ENDIF.
      ENDIF.
  ENDCASE.
ENDFORM.                    " USER_COMMAND
*&      Form  status
FORM status  USING    p_extab TYPE slis_t_extab.
  SET PF-STATUS c_standard.
ENDFORM.                    " status
*&      Form  prepare_subtotal
FORM prepare_subtotal .
  wa_sort-spos = c_10.
  wa_sort-fieldname = c_mwskz.
  wa_sort-subtot = 'X'.
  wa_sort-up = 'X'.
  APPEND wa_sort TO i_sort.
ENDFORM.                    " prepare_subtotal

Answer 1

Hi,
Check this example..
TYPE-POOLS: slis.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: BEGIN OF wa_ekko,
ebeln like ekko-ebeln,
ekorg like ekko-ekorg,
ekgrp like ekko-ekgrp,
END OF wa_ekko.
DATA: v_repid TYPE syrepid.
v_repid = sy-repid.
DATA it_ekko LIKE STANDARD TABLE OF wa_ekko WITH HEADER LINE.
SELECT * UP TO 100 ROWS
FROM ekko
INTO CORRESPONDING FIELDS OF TABLE it_ekko.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
          i_program_name     = v_repid
          i_internal_tabname = 'WA_EKKO'
          i_inclname         = v_repid
     CHANGING
          ct_fieldcat        = gt_fieldcat.
have hotspot for a PO.
DATA: s_fieldcat LIKE LINE OF gt_fieldcat.
s_fieldcat-hotspot = 'X'.
MODIFY gt_fieldcat FROM s_fieldcat TRANSPORTING hotspot
       WHERE fieldname = 'EBELN'.
Pass the program.
v_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
          i_callback_program      = v_repid
          it_fieldcat             = gt_fieldcat
          i_callback_user_command = 'USER_COMMAND'
     TABLES
          t_outtab                = it_ekko.
      FORM display_detail                                           *
-->  UCOMM                                                         *
-->  SELFIELD                                                      *
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
  IF ucomm = '&IC1'.
    READ TABLE it_ekko INDEX selfield-tabindex.
    IF sy-subrc = 0.
      SET PARAMETER ID 'BES' FIELD it_ekko-ebeln.
      CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDIF.
ENDFORM.
Thanks,
Naren