*&---------------------------------------------------------------------*
*& Report Z99_4
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_4.

CLASS LCL_CLASS DEFINITION.
  PUBLIC SECTION.
    METHODS GET_SCARR EXPORTING ET_SCARR TYPE TY_SCARR.
ENDCLASS.
CLASS LCL_CLASS IMPLEMENTATION.
  METHOD GET_SCARR.
    SELECT *
      FROM SCARR
      INTO CORRESPONDING FIELDS OF TABLE @ET_SCARR.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.

*  " ABAP 7.40 릴리즈 이전
  DATA LO_CREF TYPE REF TO LCL_CLASS.
  CREATE OBJECT LO_CREF.

  DATA: LT_LIST TYPE TABLE OF SCARR.
  CALL METHOD LO_CREF->GET_SCARR
    IMPORTING
      ET_SCARR = LT_LIST.

  CL_DEMO_OUTPUT=>DISPLAY( LT_LIST ).

**" ABAP 7.40 릴리즈 이후
*  DATA(LO_CREF) = NEW LCL_CLASS( ).
*  LO_CREF->GET_SCARR( IMPORTING ET_SCARR = DATA(LT_LIST) ).
*  CL_DEMO_OUTPUT=>DISPLAY( LT_LIST ).