Check this code.
REPORT ZNA_CLASS_ALV.
TABLES: KNA1.
DATA: IT_KNA1 TYPE STANDARD TABLE OF KNA1 INITIAL SIZE 0.
DATA: WA_KNA1 LIKE LINE OF IT_KNA1.
DATA: OK_CODE TYPE SY-UCOMM.
DATA: CONT TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA: ALV_DISP TYPE REF TO CL_GUI_ALV_GRID.
INITIALIZATION.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: KUNNR FOR KNA1-KUNNR.
SELECTION-SCREEN: END OF BLOCK B1.
START-OF-SELECTION.
SELECT * FROM KNA1
INTO TABLE IT_KNA1
WHERE
KUNNR IN KUNNR.
IF SY-SUBRC = 0.
SORT IT_KNA1 BY KUNNR.
ENDIF.
CALL SCREEN '1001'.
&----
*& Module STATUS_1001 OUTPUT
&----
----
MODULE STATUS_1001 OUTPUT.
SET PF-STATUS 'STATUS_1001'.
IF CONT IS INITIAL.
CREATE OBJECT CONT
EXPORTING
CONTAINER_NAME = 'CONTAINER1'.
ENDIF.
CREATE OBJECT ALV_DISP
EXPORTING
I_PARENT = CONT.
CALL METHOD ALV_DISP->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = 'KNA1'
CHANGING
IT_OUTTAB = IT_KNA1
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.
CALL METHOD ALV_DISP->REFRESH_TABLE_DISPLAY
EXCEPTIONS
FINISHED = 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.
ENDMODULE. " STATUS_1001 OUTPUT
&----
*& Module USER_COMMAND_1001 INPUT
&----
----
MODULE USER_COMMAND_1001 INPUT.
CASE OK_CODE.
WHEN 'BACK'.
CALL SELECTION-SCREEN '1000'.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_1001 INPUT
Same as alv.
Rewards points if it is useful.
Bluesky
