动态调用类

** Declare variables

DATA o_ref TYPE REF TO object.

DATA: l_clsname TYPE seoclass-clsname,

           l_methname TYPE seocpdname.

DATA id(6) TYPE c.

DATA address(150) TYPE c.

DATA phonenumber (20) TYPE c.

**Create the class dynamically

l_clsname = 'ZCL_NAME01'.

CREATE OBJECT o_ref TYPE (l_clsname).

        EXPORTING   zvkorg         = ‘0001’

                              zvtweg        = ‘01’

                              zspart         = ‘01’

**Passing The Attribute Values

l_methname = 'SET_PROPERTY'.

CALL METHOD o_ref->(l_methname)

  EXPORTING

    name      = 'ID'

    new_value = id.

**Calling Method in the classes

l_methname = 'GET_ADDRESS'.

CALL METHOD o_ref->(l_methname)

  IMPORTING

    address = address.

**Get the attribute value.

l_methname = 'GET_PROPERTY'.

CALL METHOD o_ref->(l_methname)

  EXPORTING

    name      = ' PHONENUMBER'

  IMPORTING

    new_value = phonenumber.