Code: Alles auswählen.
TYPE-POOLS abap.
DATA: lr_class TYPE REF TO object,
lv_error TYPE REF TO cx_root,
lv_value TYPE char3 VALUE 'ABR',
lv_value_2 TYPE char3 VALUE 'O',
lv_value_3 TYPE ZZZ_TAB_T,
ls_parameter TYPE abap_parmbind,
lt_parameters TYPE abap_parmbind_tab.
ls_parameter-name = 'P_FUNC'.
ls_parameter-kind = cl_abap_objectdescr=>importing.
GET REFERENCE OF lv_value INTO ls_parameter-value.
INSERT ls_parameter INTO TABLE lt_parameters.
ls_parameter-name = 'P_KZ'.
ls_parameter-kind = cl_abap_objectdescr=>importing.
GET REFERENCE OF lv_value_2 INTO ls_parameter-value.
INSERT ls_parameter INTO TABLE lt_parameters.
ls_parameter-name = 'P_TAB'.
ls_parameter-kind = cl_abap_objectdescr=>changing.
GET REFERENCE OF lv_value_3 INTO ls_parameter-value.
INSERT ls_parameter INTO TABLE lt_parameters.
ls_methode-classname = 'ZZZ_KLASSE'.
ls_methode-methname = 'GET_XXX'.
TRY.
CREATE OBJECT lr_class TYPE (ls_methode-classname).
CALL METHOD lr_class->(ls_methode-methname)
PARAMETER-TABLE
lt_parameters.
CATCH cx_sy_dyn_call_error INTO lv_error.
MESSAGE lv_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
Code: Alles auswählen.
TYPE-POOLS abap.
DATA: lr_class TYPE REF TO object,
lv_error TYPE REF TO cx_root,
lv_value TYPE char3 VALUE 'ABR',
lv_value_2 TYPE char3 VALUE 'O',
lv_value_3 TYPE IT001,
ls_parameter TYPE abap_parmbind,
lt_parameters TYPE abap_parmbind_tab,
ls_methode type tmdir.
ls_parameter-name = 'P_FUNC'.
ls_parameter-kind = cl_abap_objectdescr=>exporting.
GET REFERENCE OF lv_value INTO ls_parameter-value.
INSERT ls_parameter INTO TABLE lt_parameters.
ls_parameter-name = 'P_KZ'.
ls_parameter-kind = cl_abap_objectdescr=>exporting.
GET REFERENCE OF lv_value_2 INTO ls_parameter-value.
INSERT ls_parameter INTO TABLE lt_parameters.
ls_parameter-name = 'P_TAB'.
ls_parameter-kind = cl_abap_objectdescr=>changing.
GET REFERENCE OF lv_value_3 INTO ls_parameter-value.
INSERT ls_parameter INTO TABLE lt_parameters.
ls_methode-classname = 'ZCL_AWTEST'.
ls_methode-methodname = 'TEST'.
TRY.
CREATE OBJECT lr_class TYPE (ls_methode-classname).
CALL METHOD lr_class->(ls_methode-methodname)
PARAMETER-TABLE
lt_parameters.
CATCH cx_sy_dyn_call_error INTO lv_error.
MESSAGE lv_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.