Interactive ALV report using OOPS

Hello friends in this post,

we are going to see interactive ALV report using OOPS SAP ABAP.

&———————————————————————
*& Report ZALV_OOINTERACTIVE *
*& Author Admin*
*& Published at mcqvillage.in *
&———————————————————————
*& AS : Simple Interactive ALV report developed using OOPS *
*& *
&———————————————————————
REPORT ZALV_OOINTERACTIVE.
*Class definition for handling double click
CLASS event_class DEFINITION DEFERRED.
*Internal table and work area declarations for dd02l and dd03l
DATA : it_dd02l TYPE TABLE OF dd02l,
wa_dd02l TYPE dd02l,
it_dd03l TYPE TABLE OF dd03l,
wa_dd03l TYPE dd03l.
*data declarations for ALV Main list
DATA : ty_lay1 TYPE lvc_s_layo,
it_fieldcat TYPE lvc_t_fcat ,
ty_fieldcat TYPE lvc_s_fcat ,
c_alv1 TYPE REF TO cl_gui_alv_grid,
c_cont1 TYPE REF TO cl_gui_custom_container,
event_receiver TYPE REF TO event_class.
*data declarations for ALV Interactive list
DATA : ty_lay2 TYPE lvc_s_layo,
it_fcat TYPE lvc_t_fcat ,
ty_fcat TYPE lvc_s_fcat ,
c_alv2 TYPE REF TO cl_gui_alv_grid,
c_cont2 TYPE REF TO cl_gui_custom_container.
**Select options for multiple values and NOT ranges
SELECT-OPTIONS : s_table FOR wa_dd02l-tabname NO INTERVALS.

Initialization event
INITIALIZATION.
*Start of selection event
START-OF-SELECTION.
*fetch data into table and field characteristics
PERFORM fetch_data.
*ALV display for output
PERFORM alv_output.
*&———————————————————————*
*& Form FETCH_DATA
*&———————————————————————*

text
———————————————————————-

–> p1 text

<– p2 text
———————————————————————-
FORM fetch_data .
*Select the table details
SELECT * FROM dd02l INTO CORRESPONDING FIELDS OF TABLE it_dd02l
WHERE tabname IN s_table
AND tabclass = ‘TRANSP’.
ENDFORM. ” FETCH_DATA
———————————————————————-

CLASS lcl_event_receiver DEFINITION
———————————————————————-
CLASS event_class DEFINITION.
*Handling double click
PUBLIC SECTION.
METHODS:
handle_double_click
FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row .
ENDCLASS. “lcl_event_receiver DEFINITION
*———————————————————————-*

CLASS lcl_event_receiver IMPLEMENTATION
———————————————————————-
CLASS event_class IMPLEMENTATION.
METHOD handle_double_click.
DATA : ls_dd02l LIKE LINE OF it_dd02l.
*Reading the selected data into a variable
READ TABLE it_dd02l INDEX e_row-index INTO ls_dd02l.

*Select the field details of the selected table
SELECT * FROM dd03l INTO CORRESPONDING FIELDS OF TABLE it_dd03l
WHERE tabname EQ ls_dd02l-tabname.
*calling the ALV containing the field values
CALL SCREEN 101.
ENDMETHOD. “handle_double_click
ENDCLASS. “lcl_event_receiver IMPLEMENTATION
*&———————————————————————*
*& Module pbo_100 OUTPUT
*&———————————————————————*
MODULE pbo_100 OUTPUT.
*set pf-status ‘XXX’.
*set titlebar ‘XXX’.
ENDMODULE. ” PBO_100 OUTPUT
&———————————————————————
*& Module alv_100 OUTPUT
*&———————————————————————*
MODULE alv_100 OUTPUT.
*Check if there is no custom container in screen 100
IF c_cont1 IS INITIAL.
*Creating object of container
CREATE OBJECT c_cont1
EXPORTING
container_name = ‘CCONT’.
IF sy-subrc <> 0.