Can anyone troubleshoot this code??

Question

hi all !
lemme tell u that i'm tryin to pop up a screen when someone clicks on connid which is a hotspot.but it isnt wrkin. here is the code:
*& Report  ZSS_OOP_ALV                                                 *
REPORT  zss_oop_alv .
*********************DATA DECLARATION-GLOBAL DATA FIELDS*************
DATA: alv_grid TYPE REF TO cl_gui_alv_grid,                         "for screen 1
      custom_container TYPE REF TO cl_gui_custom_container,
      alv_grid1 TYPE REF TO cl_gui_alv_grid,                        "for screen 2
      custom_container1 TYPE REF TO cl_gui_custom_container,
      pt_fieldcat TYPE lvc_t_fcat,
      pt_fieldcat1 TYPE lvc_t_fcat,
      ok_code LIKE sy-ucomm,
      save_ok LIKE sy-ucomm,
      layout1 TYPE lvc_s_layo.
*********************DATA DECLARATION-INTERNAL TABLE*****************
DATA: BEGIN OF i_list OCCURS 0.
        INCLUDE STRUCTURE sflight.
DATA: END OF i_list.
DATA: BEGIN OF i_list1 OCCURS 0.
        INCLUDE STRUCTURE sflight.
DATA: END OF i_list1.
********************DATA DECLARATION-INTERNAL TABLE*****************
DATA: BEGIN OF g_list OCCURS 0.
        INCLUDE STRUCTURE sticket.
DATA: END OF g_list.
**********************EVENT HANDLER CLASS****************
CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
    handle_hotspot_click
    FOR EVENT hotspot_click OF cl_gui_alv_grid
    IMPORTING e_row_id e_column_id es_row_no.
ENDCLASS.                    "lcl_event_handler DEFINITION
**********************EVENT HANDLER CLASS*************
CLASS lcl_event_handler IMPLEMENTATION.
  METHOD handle_hotspot_click .
    PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no .
  ENDMETHOD .                    "handle_hotspot_click
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION
***************CREATE AN INSTANCE OF THE CLASS***********************
DATA: gr_event_handler TYPE REF TO lcl_event_handler .
*--Creating an instance for the event handler
**********************START-OF-SELECTION*****************************
START-OF-SELECTION.
  SELECT * FROM  sflight INTO TABLE i_list.
  SELECT * FROM  sticket INTO TABLE g_list.
  CALL SCREEN 0100.
END-OF-SELECTION.
MODULE display PBO
MODULE display_alv OUTPUT.
  SET PF-STATUS 'MAIN101'.
  SET TITLEBAR 'MAIN100'.
  PERFORM prepare_field_catalog .
  PERFORM DISPLAY_ALV.
ENDMODULE.                    "display_alv OUTPUT
*&      Form  display_alv
      text
FORM display_alv.
  IF alv_grid IS INITIAL.                     "CHK IF GRID ALREADY EXISTS
    CREATE OBJECT custom_container            "IF NOT CREATE ONE CUSTOM CONTAINER FOR IT !
      EXPORTING
       PARENT                      =
        container_name              = 'CC_ALV'
       STYLE                       =
       LIFETIME                    = lifetime_default
       REPID                       =
       DYNNR                       =
       NO_AUTODEF_PROGID_DYNNR     =
     EXCEPTIONS
       CNTL_ERROR                  = 1
       CNTL_SYSTEM_ERROR           = 2
       CREATE_ERROR                = 3
       LIFETIME_ERROR              = 4
       LIFETIME_DYNPRO_DYNPRO_LINK = 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.
    CREATE OBJECT alv_grid                   "NOW CREATE A GRID
      EXPORTING
       I_SHELLSTYLE      = 0
       I_LIFETIME        =
        i_parent          = custom_container
       I_APPL_EVENTS     = space
       I_PARENTDBG       =
       I_APPLOGPARENT    =
       I_GRAPHICSPARENT  =
       I_NAME            =
     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.
    CALL METHOD alv_grid->set_ready_for_input              "INITIALLY SET IT AS NON-EDITABLE
      EXPORTING
        i_ready_for_input = 1.
    CALL METHOD alv_grid->set_table_for_first_display      "SET THE DISPLAY
        EXPORTING
       I_BUFFER_ACTIVE               =
       I_BYPASSING_BUFFER            =
       I_CONSISTENCY_CHECK           =
       I_STRUCTURE_NAME              = 'SFLIGHT'
       IS_VARIANT                    =
        i_save                        = 'A'
       I_DEFAULT                     = 'X'
       IS_LAYOUT                     =
       IS_PRINT                      =
       IT_SPECIAL_GROUPS             =
       IT_TOOLBAR_EXCLUDING          =
       IT_HYPERLINK                  =
       IT_ALV_GRAPHICS               =
       IT_EXCEPT_QINFO               =
      CHANGING
        it_outtab                     = i_list[]
        it_fieldcatalog               = pt_fieldcat
       IT_SORT                       =
       IT_FILTER                     =
      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.
  ELSE.
  ENDIF.
ENDFORM.                    " alv_display
*&      Module  STATUS_0100  OUTPUT
      text
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE user_command_0100 INPUT.                       "FOR THE EXIT BACK AND UP FUNCTIONS
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'EXIT'.
      PERFORM exit_program.
    WHEN 'BACK'  .
      PERFORM exit_program.
    WHEN 'UP'  .
      PERFORM exit_program.
    WHEN 'SWITCH'.
      PERFORM switch_edit_mode.
    WHEN OTHERS.
    do nothing
  ENDCASE.
SET HANDLER gr_event_handler->handle_hotspot_click FOR alv_grid1 .
CREATE OBJECT gr_event_handler .
ENDMODULE.                 " USER_COMMAND_0100  INPUT
      FORM EXIT_PROGRAM                                             *
FORM exit_program.
  LEAVE PROGRAM.
ENDFORM.                    "exit_program
*&      Form  switch_edit_mode
      text
FORM switch_edit_mode.
*§3.Use IS_READY_FOR_INPUT to fetch current substate of editable cells.
  IF alv_grid->is_ready_for_input( ) EQ 0.
*§4.Use SET_READY_FOR_INPUT to switch between the substates.
    CALL METHOD alv_grid->set_ready_for_input
      EXPORTING
        i_ready_for_input = 1.
  ELSE.
    CALL METHOD alv_grid->set_ready_for_input
      EXPORTING
        i_ready_for_input = 0.
  ENDIF.
ENDFORM.                               " SWITCH_EDIT_MODE
*&      Form  prepare_field_catalog
      text
FORM prepare_field_catalog .
  DATA ls_fcat TYPE lvc_s_fcat .
  ls_fcat-fieldname = 'CARRID' .
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '9' .
  ls_fcat-coltext = 'Carrier ID' .
  ls_fcat-seltext = 'Carrier ID' .
  ls_fcat-col_pos = '2' .
  APPEND ls_fcat TO pt_fieldcat .
  CLEAR ls_fcat .
  ls_fcat-fieldname = 'CONNID' .
  ls_fcat-ref_table = 'SFLIGHT' .
  ls_fcat-ref_field = 'CONNID' .
  ls_fcat-hotspot = 'X'.
ls_fcat-outputlen = '9' .
  ls_fcat-col_pos = '1' .
ls_fcat-coltext = 'Connection ID' .
ls_fcat-seltext = 'Connection ID' .
  APPEND ls_fcat TO pt_fieldcat .
ENDFORM .                    "prepare_field_catalog
*&      Form  handle_hotspot_click
      text
     -->P_E_ROW_ID  text
     -->P_E_COLUMN_ID  text
     -->P_ES_ROW_NO  text
FORM handle_hotspot_click USING i_row_id TYPE lvc_s_row
                                i_column_id TYPE lvc_s_col
                                is_row_no TYPE lvc_s_roid.
READ TABLE i_list INDEX is_row_no-row_id .
READ TABLE g_list with key CONNID = i_list-connid .
CALL SCREEN 200 STARTING AT 10 5.           "Details about passenger-seat matching
IF sy-subrc = 0 AND i_column_id-fieldname = 'CONNID' .
ENDIF .
ENDFORM .
*&      Module  STATUS_0200  OUTPUT
      text
module STATUS_0200 output.                   "PBO    for    200
PERFORM build_cat .
PERFORM display_alv1.
endmodule.                 " STATUS_0200  OUTPUT
FORM display_alv1.
  IF alv_grid1 IS INITIAL.                     "CHK IF GRID ALREADY EXISTS
    CREATE OBJECT custom_container            "IF NOT CREATE ONE CUSTOM CONTAINER FOR IT !
      EXPORTING
       PARENT                      =
        container_name              = 'CC_ALV1'
       STYLE                       =
       LIFETIME                    = lifetime_default
       REPID                       =
       DYNNR                       =
       NO_AUTODEF_PROGID_DYNNR     =
     EXCEPTIONS
       CNTL_ERROR                  = 1
       CNTL_SYSTEM_ERROR           = 2
       CREATE_ERROR                = 3
       LIFETIME_ERROR              = 4
       LIFETIME_DYNPRO_DYNPRO_LINK = 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.
    CREATE OBJECT alv_grid1                   "NOW CREATE A GRID
      EXPORTING
       I_SHELLSTYLE      = 0
       I_LIFETIME        =
        i_parent          = custom_container1
       I_APPL_EVENTS     = space
       I_PARENTDBG       =
       I_APPLOGPARENT    =
       I_GRAPHICSPARENT  =
       I_NAME            =
     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.
    CALL METHOD alv_grid1->set_ready_for_input              "INITIALLY SET IT AS NON-EDITABLE
      EXPORTING
        i_ready_for_input = 1.
    CALL METHOD alv_grid1->set_table_for_first_display      "SET THE DISPLAY
        EXPORTING
       I_BUFFER_ACTIVE               =
       I_BYPASSING_BUFFER            =
       I_CONSISTENCY_CHECK           =
       I_STRUCTURE_NAME              = 'STICKET'
       IS_VARIANT                    =
        i_save                        = 'A'
       I_DEFAULT                     = 'X'
       IS_LAYOUT                     =
       IS_PRINT                      =
       IT_SPECIAL_GROUPS             =
       IT_TOOLBAR_EXCLUDING          =
       IT_HYPERLINK                  =
       IT_ALV_GRAPHICS               =
       IT_EXCEPT_QINFO               =
      CHANGING
        it_outtab                     = g_list[]
        it_fieldcatalog               = pt_fieldcat1
       IT_SORT                       =
       IT_FILTER                     =
      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.
  ELSE.
  ENDIF.
ENDFORM.                    " alv_display1
*&      Form  build_cat
      text
-->  p1        text
<--  p2        text
form build_cat .
  DATA ls_fcat TYPE lvc_s_fcat .
  ls_fcat-fieldname = 'CONNID' .
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '9' .
  ls_fcat-coltext = 'CONNECTION ID' .
  ls_fcat-seltext = 'CONNECTION ID' .
  ls_fcat-col_pos = '2' .
  ls_fcat-hotspot = 'X' .
  APPEND ls_fcat TO pt_fieldcat1 .
  CLEAR ls_fcat .
  ls_fcat-fieldname = 'BOOKID' .
  ls_fcat-ref_table = 'STICKET' .
  ls_fcat-ref_field = 'BOOKID' .
ls_fcat-outputlen = '9' .
  ls_fcat-col_pos = '1' .
ls_fcat-coltext = 'Connection ID' .
ls_fcat-seltext = 'Connection ID' .
  APPEND ls_fcat TO pt_fieldcat1 .
endform.                    " build_cat
waitin for some help
sachin

Answer 1

Hi Sachin,
The Event for hotspot was not registered properly. You should add the code SET HANDLER before displaying the ALV grid.
I have changed the code. It should work now.
Please reward helpful posts.
Regards
Wenceslaus.
**********************DATA DECLARATION-GLOBAL DATA FIELDS**************
DATA: alv_grid TYPE REF TO cl_gui_alv_grid, "for screen 1
custom_container TYPE REF TO cl_gui_custom_container,
alv_grid1 TYPE REF TO cl_gui_alv_grid, "for screen 2
custom_container1 TYPE REF TO cl_gui_custom_container,
pt_fieldcat TYPE lvc_t_fcat,
pt_fieldcat1 TYPE lvc_t_fcat,
ok_code LIKE sy-ucomm,
save_ok LIKE sy-ucomm,
layout1 TYPE lvc_s_layo.
**********************DATA DECLARATION-INTERNAL TABLE******************
DATA: BEGIN OF i_list OCCURS 0.
        INCLUDE STRUCTURE sflight.
DATA: END OF i_list.
DATA: BEGIN OF i_list1 OCCURS 0.
        INCLUDE STRUCTURE sflight.
DATA: END OF i_list1.
*********************DATA DECLARATION-INTERNAL TABLE******************
DATA: BEGIN OF g_list OCCURS 0.
        INCLUDE STRUCTURE sticket.
DATA: END OF g_list.
***********************EVENT HANDLER CLASS*[DEFINITION]****************
CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
    handle_hotspot_click
    FOR EVENT hotspot_click OF cl_gui_alv_grid
    IMPORTING e_row_id e_column_id es_row_no.
ENDCLASS. "lcl_event_handler DEFINITION
***********************EVENT HANDLER CLASS*[IMPLEMENTATION]*************
CLASS lcl_event_handler IMPLEMENTATION.
  METHOD handle_hotspot_click .
    PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no .
  ENDMETHOD . "handle_hotspot_click
ENDCLASS. "lcl_event_handler IMPLEMENTATION
****************CREATE AN INSTANCE OF THE CLASS************************
DATA: gr_event_handler TYPE REF TO lcl_event_handler .
*--Creating an instance for the event handler
***********************START-OF-SELECTION******************************
START-OF-SELECTION.
  CREATE OBJECT gr_event_handler .
  SELECT * FROM sflight INTO TABLE i_list.
  SELECT * FROM sticket INTO TABLE g_list.
  CALL SCREEN 0100.
END-OF-SELECTION.
* MODULE display PBO
MODULE display_alv OUTPUT.
  SET PF-STATUS 'MAIN101'.
  SET TITLEBAR 'MAIN100'.
  PERFORM prepare_field_catalog .
  PERFORM display_alv.
ENDMODULE. "display_alv OUTPUT
*& Form display_alv
* text
FORM display_alv.
  IF alv_grid IS INITIAL. "CHK IF GRID ALREADY EXISTS
    CREATE OBJECT custom_container
      EXPORTING
*    PARENT                      =
        container_name              = 'CC_ALV'
    CREATE OBJECT alv_grid
      EXPORTING
        i_parent          = custom_container
    CALL METHOD alv_grid->set_ready_for_input "INITIALLY SET IT AS NON-EDITABLE
EXPORTING
i_ready_for_input = 1.
    SET HANDLER gr_event_handler->handle_hotspot_click FOR alv_grid .
    CALL METHOD alv_grid->set_table_for_first_display "SET THE DISPLAY
    EXPORTING
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME = 'SFLIGHT'
* IS_VARIANT =
    i_save = 'A'
* I_DEFAULT = 'X'
* IS_LAYOUT =
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
    CHANGING
    it_outtab = i_list[]
    it_fieldcatalog = pt_fieldcat
* IT_SORT =
* IT_FILTER =
    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.
  ELSE.
  ENDIF.
ENDFORM. " alv_display
*& Module STATUS_0100 OUTPUT
* text
*& Module USER_COMMAND_0100 INPUT
* text
MODULE user_command_0100 INPUT. "FOR THE EXIT BACK AND UP FUNCTIONS
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'EXIT'.
      PERFORM exit_program.
    WHEN 'BACK' .
      PERFORM exit_program.
    WHEN 'UP' .
      PERFORM exit_program.
    WHEN 'SWITCH'.
      PERFORM switch_edit_mode.
    WHEN OTHERS.
* do nothing
  ENDCASE.
*SET HANDLER gr_event_handler->handle_hotspot_click FOR alv_grid1 .
ENDMODULE. " USER_COMMAND_0100 INPUT
* FORM EXIT_PROGRAM *
FORM exit_program.
  LEAVE PROGRAM.
ENDFORM. "exit_program
*& Form switch_edit_mode
* text
FORM switch_edit_mode.
*§3.Use IS_READY_FOR_INPUT to fetch current substate of editable cells.
  IF alv_grid->is_ready_for_input( ) EQ 0.
*§4.Use SET_READY_FOR_INPUT to switch between the substates.
    CALL METHOD alv_grid->set_ready_for_input
      EXPORTING
        i_ready_for_input = 1.
  ELSE.
    CALL METHOD alv_grid->set_ready_for_input
      EXPORTING
        i_ready_for_input = 0.
  ENDIF.
ENDFORM. " SWITCH_EDIT_MODE
*& Form prepare_field_catalog
* text
FORM prepare_field_catalog .
  DATA ls_fcat TYPE lvc_s_fcat .
  ls_fcat-fieldname = 'CARRID' .
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '9' .
  ls_fcat-coltext = 'Carrier ID' .
  ls_fcat-seltext = 'Carrier ID' .
  ls_fcat-col_pos = '2' .
  APPEND ls_fcat TO pt_fieldcat .
  CLEAR ls_fcat .
  ls_fcat-fieldname = 'CONNID' .
  ls_fcat-ref_table = 'SFLIGHT' .
  ls_fcat-ref_field = 'CONNID' .
  ls_fcat-hotspot = 'X'.
* ls_fcat-outputlen = '9' .
  ls_fcat-col_pos = '1' .
* ls_fcat-coltext = 'Connection ID' .
* ls_fcat-seltext = 'Connection ID' .
  APPEND ls_fcat TO pt_fieldcat .
ENDFORM . "prepare_field_catalog
*& Form handle_hotspot_click
* text
* -->P_E_ROW_ID text
* -->P_E_COLUMN_ID text
* -->P_ES_ROW_NO text
FORM handle_hotspot_click USING i_row_id TYPE lvc_s_row
i_column_id TYPE lvc_s_col
is_row_no TYPE lvc_s_roid.
  READ TABLE i_list INDEX is_row_no-row_id .
  READ TABLE g_list WITH KEY connid = i_list-connid .
  CALL SCREEN 200 STARTING AT 10 5. "Details about passenger-seat matching
  IF sy-subrc = 0 AND i_column_id-fieldname = 'CONNID' .
  ENDIF .
ENDFORM .                    "handle_hotspot_click
*& Module STATUS_0200 OUTPUT
* text
MODULE status_0200 OUTPUT. "PBO for 200
  PERFORM build_cat .
  PERFORM display_alv1.
ENDMODULE. " STATUS_0200 OUTPUT
FORM display_alv1.
  IF alv_grid1 IS INITIAL. "CHK IF GRID ALREADY EXISTS
    CREATE OBJECT custom_container "IF NOT CREATE ONE CUSTOM CONTAINER FOR IT !
    EXPORTING
* PARENT =
    container_name = 'CC_ALV1'
* STYLE =
* LIFETIME = lifetime_default
* REPID =
* DYNNR =
* NO_AUTODEF_PROGID_DYNNR =
* EXCEPTIONS
* CNTL_ERROR = 1
* CNTL_SYSTEM_ERROR = 2
* CREATE_ERROR = 3
* LIFETIME_ERROR = 4
* LIFETIME_DYNPRO_DYNPRO_LINK = 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.
    CREATE OBJECT alv_grid1 "NOW CREATE A GRID
    EXPORTING
* I_SHELLSTYLE = 0
* I_LIFETIME =
    i_parent = custom_container1
* I_APPL_EVENTS = space
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
* 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.
    CALL METHOD alv_grid1->set_ready_for_input "INITIALLY SET IT AS NON-EDITABLE
    EXPORTING
    i_ready_for_input = 1.
    CALL METHOD alv_grid1->set_table_for_first_display "SET THE DISPLAY
    EXPORTING
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME = 'STICKET'
* IS_VARIANT =
    i_save = 'A'
* I_DEFAULT = 'X'
* IS_LAYOUT =
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
    CHANGING
    it_outtab = g_list[]
    it_fieldcatalog = pt_fieldcat1
* IT_SORT =
* IT_FILTER =
    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.
  ELSE.
  ENDIF.
ENDFORM. " alv_display1
*& Form build_cat
* text
* --> p1 text
* <-- p2 text
FORM build_cat .
  DATA ls_fcat TYPE lvc_s_fcat .
  ls_fcat-fieldname = 'CONNID' .
  ls_fcat-inttype = 'C' .
  ls_fcat-outputlen = '9' .
  ls_fcat-coltext = 'CONNECTION ID' .
  ls_fcat-seltext = 'CONNECTION ID' .
  ls_fcat-col_pos = '2' .
  ls_fcat-hotspot = 'X' .
  APPEND ls_fcat TO pt_fieldcat1 .
  CLEAR ls_fcat .
  ls_fcat-fieldname = 'BOOKID' .
  ls_fcat-ref_table = 'STICKET' .
  ls_fcat-ref_field = 'BOOKID' .
* ls_fcat-outputlen = '9' .
  ls_fcat-col_pos = '1' .
* ls_fcat-coltext = 'Connection ID' .
* ls_fcat-seltext = 'Connection ID' .
  APPEND ls_fcat TO pt_fieldcat1 .
ENDFORM. " build_cat