使用cl_salv_table输出ALV(普通模式)

  REPORT  ZTEST_OO_ALV.
*----------------------------------------------------------------------*
*       CLASS lcl_report DEFINITION
*----------------------------------------------------------------------*
 CLASS LCL_REPORT DEFINITION.

   PUBLIC SECTION.

     TYPES: BEGIN OF TY_VBAK,
               VBELN TYPE VBAK-VBELN,
               ERDAT TYPE ERDAT,
               AUART TYPE AUART,
               KUNNR TYPE KUNNR,
            END   OF TY_VBAK.

     DATA: T_VBAK TYPE STANDARD TABLE OF TY_VBAK.

     DATA: O_ALV TYPE REF TO CL_SALV_TABLE.

     METHODS:
       GET_DATA,
       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.

     SELECT VBELN ERDAT AUART KUNNR
     INTO  TABLE T_VBAK FROM  VBAK  UP TO 20 ROWS.

   ENDMETHOD.                    "get_data

   METHOD GENERATE_OUTPUT.

     DATA: LX_MSG TYPE REF TO CX_SALV_MSG.
     TRY.
         CL_SALV_TABLE=>FACTORY(
           IMPORTING
             R_SALV_TABLE = O_ALV
           CHANGING
             T_TABLE      = T_VBAK ).
       CATCH CX_SALV_MSG INTO LX_MSG.
     ENDTRY.

     O_ALV->DISPLAY( ).

   ENDMETHOD.                    "generate_output

 ENDCLASS.                    "lcl_report IMPLEMENTATION