*&---------------------------------------------------------------------*
*& Report Z14_03
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_03.

CLASS lcl_example DEFINITION.
  PUBLIC SECTION.
    METHODS: calc_data IMPORTING num1 TYPE i num2 TYPE i,
      display_result.
  PRIVATE SECTION.
    DATA: result TYPE i.
ENDCLASS.

CLASS lcl_example IMPLEMENTATION.
  METHOD calc_data.
    result = num1 + num2.
  ENDMETHOD.

  METHOD display_result.
    WRITE: / 'The result is ', result.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: lo_example TYPE REF TO lcl_example,
        lv_num1    TYPE i VALUE 10,
        lv_num2    TYPE i VALUE 20.

  CREATE OBJECT lo_example.

  lo_example->calc_data( num1 = lv_num1 num2 = lv_num2 ).
  lo_example->display_result( ).