动态调用类方法

REPORT zdemo01.


CLASS cls DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS meth IMPORTING  p TYPE string
                       EXCEPTIONS e.
ENDCLASS.

CLASS cls IMPLEMENTATION.
  METHOD meth.
    cl_demo_output=>write( p ).
    RAISE e.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA(class) = `CLS`.
  DATA(meth) = `METH`.

  DATA(ptab) = VALUE abap_parmbind_tab(
    ( name = 'P'
      kind = cl_abap_objectdescr=>exporting
      value = REF #( `Hello ) ) ).

  DATA(etab) = VALUE abap_excpbind_tab(
    ( name = 'E' value = 4 ) ).

  CALL METHOD (class)=>(meth)
    PARAMETER-TABLE ptab
    EXCEPTION-TABLE etab.
  IF sy-subrc <> 0.
    cl_demo_output=>display( `Exception caught ...` ).
  ENDIF.