Downport rtti_get_classes_impl_intf (#816)

Co-authored-by: Christian Günter <christian.guenter@emineo.ch>
This commit is contained in:
Christian Günter 2024-01-26 08:08:09 +01:00 committed by GitHub
parent 02af594f49
commit 703646ca48
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -912,9 +912,15 @@ CLASS z2ui5_cl_util_func IMPLEMENTATION.
FIELD-SYMBOLS <any> TYPE any.
ASSIGN obj->('IF_XCO_AO_INTERFACE~IMPLEMENTATIONS') TO <any>.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE cx_sy_dyn_call_illegal_class.
ENDIF.
obj = <any>.
ASSIGN obj->('IF_XCO_INTF_IMPLEMENTATIONS_FC~ALL') TO <any>.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE cx_sy_dyn_call_illegal_class.
ENDIF.
obj = <any>.
CALL METHOD obj->('IF_XCO_INTF_IMPLEMENTATIONS~GET').