Call Function 'Reuse _ alv_grid_display'
Exporting
I _callback_program = g_repid
I _callback_user_command = ' User_callback'
I _structure_name = 'T_ output'
I _grid_title = 'Document list'
Is_layout = gs_layout
Is_variant = g_variant
I _default = 'X'
I _save = 'A'
It_fieldcat = gt_fieldcat []
It_sort = gt_sort []
It_events = gt_events []
Tables
T_outtab = it_output
Exceptions
Program_error = 1
Others = 2 .
Endform . "Display_data
Form User_callback Using Rf_ucomm Type Sy-ucomm
Rs_selfield Type Slis_selfield.
Case Rf_ucomm.
When '& Ic1' .
Read Table It_output Index Rs_selfield-tabindex Assigning <Fs_output>.
If SY-SUBRC = 0 .
Set Parameter ID : 'Bln' Field <Fs_output>-belnr ." Parameter ID F1> technical information> parameter ID can be used to obtain
Set Parameter ID:'Buk' Field<Fs_output>-bukrs.
Set Parameter ID:'Gjr' Field<Fs_output>-gjahr.
Call Transaction 'Fb03' And Skip First Screen." Skip First Screen Ignore selection screen
Endif.
Endcase.
Endform."User_callback