Simple OOPS ALV in SAP ABAP

 ABAP Code for displaying the sales order details using oops class and cl_salv_table

REPORT ZKT_SALV.

CLASS lcl_report DEFINITION.
*
  PUBLIC SECTION.

*   Final output table
    TYPES: BEGIN OF ty_vbak,
           vbeln TYPE vbak-vbeln,
           erdat TYPE erdat,
           auart TYPE auart,
           kunnr TYPE kunnr,
           netwr type vbak-netwr,
           END   OF ty_vbak.
*
    DATA: gt_vbak TYPE STANDARD TABLE OF ty_vbak.

    METHODS:
*     data selection
      get_data,
*
*     Generating output
      generate_output.
*
ENDCLASS.                    "lcl_report DEFINITION
*
*
START-OF-SELECTION.
  DATA: lo_report TYPE REF TO lcl_report.
*
  CREATE OBJECT lo_report.
*
  lo_report->get_data( ).
*
  lo_report->generate_output( ).
*
*----------------------------------------------------------------------*
*       CLASS lcl_report IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_report IMPLEMENTATION.
*
  METHOD get_data.
*   data selection
    SELECT vbeln erdat auart kunnr netwr
           INTO  TABLE gt_vbak
           FROM  vbak
           UP TO 50 ROWS.
*
  ENDMETHOD.                    "get_data
*
*.......................................................................
  METHOD generate_output.
* exception class
    DATA: lx_msg TYPE REF TO cx_salv_msg.
    TRY.
        cl_salv_table=>factory(
          IMPORTING
            r_salv_table = data(o_alv)
          CHANGING
            t_table      = gt_vbak ).
      CATCH cx_salv_msg INTO lx_msg.
    ENDTRY.

*...activate alv generic functions
    o_alv->get_functions( )->set_all( ).
*   Set the Column optimization
    o_alv->get_columns( )->set_optimize( ).

    o_alv->display( ).
*
  ENDMETHOD.                    "generate_output

ENDCLASS.