CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
      EXPORTING                                 
        I_INTERNAL_TABNAME = 'tkomvdeb'     
        I_BYPASSING_BUFFER = 'X'             
      CHANGING                               
        ct_fieldcat = gt_fieldcat.           

call function 'REUSE_ALV_GRID_DISPLAY'         
    exporting                                 
      I_CALLBACK_PROGRAM = repid               
      I_CALLBACK_PF_STATUS_SET = g_pf_status   
      I_CALLBACK_USER_COMMAND = g_user_command
      IS_LAYOUT = gs_layout                   
      IT_FIELDCAT = gt_fieldcat               
    tables                                     
      t_outtab = tkomvdeb                     
    EXCEPTIONS                                 
       program_error            = 1           
       OTHERS                   = 2.           

data: begin of tkomvdeb occurs 0,
      vbelnvbak type vbak-vbeln, 
      kunnrvbak type vbak-kunnr. 
      include structure komv.     
data: end of tkomvdeb.           

DATA: BEGIN OF tkomvdeb OCCURS 0,
      vbelnvbak TYPE vbak-vbeln,
      kunnrvbak TYPE vbak-kunnr.
        INCLUDE STRUCTURE komv.
DATA: END OF tkomvdeb.

TYPE-POOLS: slis.
DATA gt_fieldcat TYPE slis_t_fieldcat_alv.
INCLUDE zmyincl.
DATA rid LIKE sy-repid.
rid = sy-repid.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
          i_program_name     = rid
          i_inclname         = 'ZMYINCL'
          i_internal_tabname = 'TKOMVDEB'
          i_bypassing_buffer = 'X'
     CHANGING
          ct_fieldcat        = gt_fieldcat.

D_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
         I_PROGRAM_NAME         = D_REPID
         I_INTERNAL_TABNAME     = 'TKOMVDEB'
         I_INCLNAME             = D_REPID
     CHANGING
         CT_FIELDCAT            = DIT_FIELDCAT
     EXCEPTIONS
         INCONSISTENT_INTERFACE = 1
         PROGRAM_ERROR          = 2
         OTHERS                 = 3.

    i_callback_user_command        = 'USER_COMMAND'

form user_command using u_ucomm  like sy-ucomm
                        selfield type slis_selfield.
         read table my_write index selfield-tabindex.
         check sy-subrc = 0.

if my_write-belnr ne space.
set parameter id 'BUK' field bukrs.
set parameter id 'BLN' field my_write-belnr.
set parameter id 'GJR' field my_write-budat+0(4).

call transaction 'FB03' and skip first screen.
endif.
endform.

REPORT ZYS_S005.

TYPE-POOLS : SLIS.

DATA :
       DIT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       D_REPID LIKE SY-REPID
       .
DATA : BEGIN OF DIT_USR01 OCCURS 0,
         BNAME LIKE USR01-BNAME,
         LANGU LIKE USR01-LANGU,
       END OF DIT_USR01.

START-OF-SELECTION.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE DIT_USR01
         FROM USR01.

END-OF-SELECTION.
  D_REPID = SY-REPID.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
      EXPORTING
           I_PROGRAM_NAME         = D_REPID
           I_INTERNAL_TABNAME     = 'DIT_USR01'
           I_INCLNAME             = D_REPID
       CHANGING
           CT_FIELDCAT            = DIT_FIELDCAT
       EXCEPTIONS
           INCONSISTENT_INTERFACE = 1
           PROGRAM_ERROR          = 2
           OTHERS                 = 3.

  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
           I_CALLBACK_PROGRAM       = D_REPID
           I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
           IT_FIELDCAT              = DIT_FIELDCAT
      TABLES
           T_OUTTAB                 = DIT_USR01
      EXCEPTIONS
           PROGRAM_ERROR            = 1
           OTHERS                   = 2.

*...обработчик USER_COMMAND
FORM USER_COMMAND USING U_UCOMM  LIKE SY-UCOMM
                        SELFIELD TYPE SLIS_SELFIELD.
  CASE U_UCOMM.
    WHEN '&IC1'. " даблклик
      CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
         EXPORTING
              TEXTLINE1    = 'What about my feelings?'
         EXCEPTIONS
              OTHERS       = 1.
    "...
  ENDCASE.
ENDFORM.