类函数的定义及使用

*----------------------------------------------------------------------*
*       CLASS ball DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS ball DEFINITION.
  PUBLIC SECTION.
    CONSTANTS pi TYPE f VALUE '3.14'.
    METHODS:get_volumn IMPORTING value(radius) TYPE i
                       RETURNING value(volumn) TYPE f.
ENDCLASS.                    "ball DEFINITION

*----------------------------------------------------------------------*
*       CLASS ball IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS ball IMPLEMENTATION.
  METHOD get_volumn.
    volumn = 4 * pi * radius ** 3 / 3.
  ENDMETHOD.                    "get_volumn
ENDCLASS.                    "ball IMPLEMENTATION

DATA:volumn TYPE f,
      ball_obj TYPE REF TO ball.
DATA:res TYPE p DECIMALS 2.
PARAMETERS:radius TYPE i.

START-OF-SELECTION.
  CREATE OBJECT ball_obj.
  volumn = ball_obj->get_volumn( radius )."调用类方法所定义函数
  MOVE volumn TO res."原值为浮点类型，采用科学计数法，转换为2位小数的P类型
  WRITE: / res.