学习笔记（二十三）

CLASS circle DEFINITION.
  PUBLIC SECTION.
    METHODS: get_area IMPORTING value(radius) TYPE f RETURNING value(area) TYPE f.
  PRIVATE SECTION.
    CONSTANTS pi TYPE f VALUE '3.14159265'.
ENDCLASS.

CLASS circle IMPLEMENTATION.
  METHOD get_area.
    area = radius ** 2 * pi.
  ENDMETHOD.
ENDCLASS.

DATA: obj_circle TYPE REF TO circle,
      r_area TYPE f.

START-OF-SELECTION.
  CREATE OBJECT obj_circle.
  CALL METHOD obj_circle->get_area
    EXPORTING
      radius = '1.2'
    RECEIVING
      area   = r_area.

  WRITE / r_area.
  r_area = obj_circle->get_area( '1.6' ).
  WRITE / r_area.