就像 Sandra Rossi 所说的那样-使用动态ABAP无法完成。 我采用的解决方案是在运行时一次生成该方法的代码。 我没有包括方法interface_exists 。 这可以使用RTTS轻松实现。

第一次运行类的构造函数时，方法get_all_tiles_tms的注释行将被删除，但前提是存在/UI2/IF_FLP_CONT_MGR接口。

 CLASS zcl_dynamic_method_change_demo定义
   上市
   最后
   创建公众。

   公共部分。
     类型：tt_tile_tm_combination_sorted TYPE字符串表。
     "我在这里使用string_Table。但是它可以在我们的754系统中使用
     "我们需要创建自己的实型Z版本
     "/img/ui2/if_flp_cont_mgr => tt_tile_tm_combination_sorted
     方法构造器。
     方法get_all_tiles_tms
       正在返回
         值（r_result）TYPE tt_tile_tm_combination_sorted。
   受保护的部分。
   专用部分。
     方法method_not_initialized
       正在返回
         值（r_result）TYPE abap_bool。
     方法initialise_method。
     方法strip_out_comments
       输入
         i_source_code TYPE siw_tab_code
       正在返回
         值（r_result）TYPE siw_tab_code。
 ENDCLASS。

 类别zcl_dynamic_method_change_demo IMPLEMENTATION。
   METHOD构造函数。
     IF interface_exists（'/UI2/IF_FLP_CONT_MGR'）EQ abap_false。
       消息"无法在此系统上运行"，类型为" E"。
     万一。
     IF method_not_initialized（）EQ abap_false。
       initialise_method（）。
       讯息'请重新开始交易。 您不应再看到此消息"
          输入" E"。
     万一。
   终结法。

   方法get_all_tiles_tms。
 *数据lt_tile_tm_combination TYPE/ui2/if_flp_cont_mgr => tt_tile_tm_combination_sorted。
 *数据lo_flp_cont_mgr类型参考/ui2/if_flp_cont_mgr。
 *数据lo_catalog_api类型参考/ui2/if_fdm_catalog_api。
 *数据lo_messaging类型参考/ui2/if_fcm_messaging。
 *数据lx_root类型参考cx_root。
 *尝试。
 *创建对象lo_catalog_api类型/ui2/cl_fdm_catalog_api
 *出口
 * iv_scope ='CUST'"或'CONF'
 * iv_use_cache = abap_true。
 *捕捉cx_root INTO lx_root。
 *消息lx_root TYPE'E'。
 * ENDTRY。
 *创建对象lo_messaging类型/ui2/cl_fcm_messaging。
 *创建对象lo_flp_cont_mgr类型/ui2/cl_flp_cont_mgr
 *出口
 * iv_scope ='CUST'"或'CONF'
 * io_catalog_api = lo_catalog_api
 * io_messaging = lo_messaging。
 * r_result = lo_flp_cont_mgr-> get_all_tiles_tms（）。
   终结法。

   方法initialise_method。
     数据写入器的类型参考if_siw_repository_writer。
     writer = cl_siw_resource_access => s_get_instance（）。
     DATA source_code TYPE siw_tab_code。
     尝试。
         writer-> read_method_source（
                   出口
                     i_clsname ='ZCL_DYNAMIC_METHOD_CHANGE_DEMO'
                     i_methodname ='GET_ALL_TILES_TMS'
                     i_state ='I'
                    输入
                      e_tab_code = source_code）。
         source_code = strip_out_comments（source_code）。
         writer-> write_class_method（
             i_clsname ='ZCL_DYNAMIC_METHOD_CHANGE_DEMO'
             i_methodname ='GET_ALL_TILES_TMS'
             i_tab_code = source_code）。
         数据rf_error类型参考cx_siw_resource_failure ..
       捕获cx_siw_resource_failure。
         消息rf_error类型'E'。
     ENDTRY。
   终结法。

   方法method_not_initialized。
     数据写入器的类型参考if_siw_repository_writer。
     writer = cl_siw_resource_access => s_get_instance（）。
     DATA source_code TYPE siw_tab_code。
     尝试。
         writer-> read_method_source（
                   出口
                     i_clsname ='ZCL_DYNAMIC_METHOD_CHANGE_DEMO'
                     i_methodname ='GET_ALL_TILES_TMS'
                     i_state ='I'
                    输入
                      e_tab_code = source_code）。
         数据rf_error类型参考cx_siw_resource_failure。
       捕获cx_siw_resource_failure INTO rf_error。
         消息rf_error类型'E'。
     ENDTRY。
     r_result = abap_false。
     FIELD-SYMBOLS <源代码行> TYPE siw_dte_code。
     循环AT source_code ASSIGNING 。
       检查sy-tabix NE 1和sy-tabix NE行（source_code）
                           AND（是INITIAL
                             或（1）NE'*'）。
       r_result = abap_true。
       出口。
     结局。
   终结法。

   方法strip_out_comments。
     r_result = i_source_code。
     FIELD-SYMBOLS <源代码行> TYPE siw_dte_code。
     循环r_result ASSIGNING <源代码行>。
       检查sy-tabix NE 1和sy-tabix NE行（r_result）
                           AND 不是INITIAL
                           AND <源代码行>（1）EQ'*'。
       <源代码行> = <源代码行> +1。
     结局。
   终结法。
 ENDCLASS。