I have used that too...
REPORT Ztst_chin_alv3.
----
*
----
tables : lfb1.
----
----
selection-screen begin of block a with frame title text-001.
parameters : bukrs like lfb1-bukrs.
parameters : lifnr like lfb1-lifnr.
selection-screen end of block a.
DATA: r_container TYPE REF TO cl_gui_custom_container.
DATA: r_grid TYPE REF TO cl_gui_alv_grid.
DATA: g_fieldcat TYPE lvc_t_fcat.
DATA: w_fieldcat LIKE LINE OF g_fieldcat.
DATA: g_layout TYPE lvc_s_layo.
DATA: ok_code LIKE sy-ucomm.
DATA: gs_variant TYPE disvariant.
DATA: t_selected TYPE lvc_t_row.
DATA wa_selected LIKE LINE OF t_selected.
DATA: it_items LIKE EBAN OCCURS 0.
data : it_lfb1 like lfb1 occurs 0 with header line.
----
----
INITIALIZATION.
AT SELECTION-SCREEN.
ok_code = sy-ucomm.
CASE ok_code.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
LEAVE PROGRAM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'ONLI' OR 'CRET'.
call screen 100.
WHEN OTHERS.
ENDCASE.
----
----
MODULE getdata OUTPUT.
IF sy-ucomm <> 'STOP'.
select lifnr bukrs akont fdgrv zwels
into corresponding fields of table it_lfb1
from lfb1
where
bukrs eq bukrs
and lifnr eq lifnr.
ENDIF.
ENDMODULE.
----
----
MODULE create_alv OUTPUT.
gs_variant-report = sy-repid.
IF r_container IS INITIAL.
CREATE OBJECT r_container
EXPORTING container_name = 'CONTAINER_1'.
CREATE OBJECT r_grid
EXPORTING i_parent = r_container.
*modify the headings in the field catalogue
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'ZCATSDBALVM'
CHANGING
ct_fieldcat = g_fieldcat[].
LOOP AT g_fieldcat INTO w_fieldcat.
CASE w_fieldcat-fieldname.
WHEN 'ZCURSTAT'.
w_fieldcat-scrtext_l = 'Prev.RelCode'.
w_fieldcat-scrtext_m = 'Prev.RelCode'.
w_fieldcat-scrtext_s = 'Prev.RelCode'.
w_fieldcat-reptext = 'Prev.RelCode'.
ENDCASE.
MODIFY g_fieldcat FROM w_fieldcat.
ENDLOOP.
CALL METHOD r_grid->set_table_for_first_display
EXPORTING i_structure_name = 'ZCATSDBALVM'
is_layout = g_layout
is_variant = gs_variant
i_save = 'A'
CHANGING it_outtab = it_lfb1[]
it_fieldcatalog = g_fieldcat[].
*ELSE.
*
*
ENDIF.
ENDMODULE.
----
----
MODULE status OUTPUT.
SET PF-STATUS '0100'.
ENDMODULE.
----
----
MODULE user_command INPUT.
ok_code = sy-ucomm.
CASE ok_code.
WHEN 'BACK'.
CALL SCREEN '1000'.
WHEN 'CANCEL'.
LEAVE PROGRAM.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
----
----
MODULE layout OUTPUT.
g_layout-zebra = 'X'.
g_layout-sel_mode = 'A'.
g_layout-grid_title = ''.
g_layout-detailtitl = ''.
ENDMODULE.
----
----
FORM get_selected_rows.
CALL METHOD r_grid->get_selected_rows
IMPORTING et_index_rows = t_selected.
IF t_selected IS INITIAL.
CALL FUNCTION 'WS_MSG'
EXPORTING
MSG_TYPE = 'E'
TEXT = 'Select Line'
TITL = 'Select Line'.
sy-ucomm = 'STOP'.
ENDIF.
ENDFORM.
Bluesky
