有没有类似“移动对应忽略首字母”之类的东西？

Question

我正在寻找一种类似于 MOVE-CORRESPONDING IGNORING INITIALS 的语言构造或功能模块。简而言之，我想要的功能与 MOVE-CORRESPONDING source TO dest 完全相同，但忽略 source 中初始的所有字段。

有这样的事吗？

Answer 1

我已经准备了我自己的一段代码，我想分享一下。它并不完美，不适用于复杂的结构。然而，除了在平面结构上工作之外，我现在不需要任何其他东西。

CLASS lcl_utilities DEFINITION FINAL CREATE PRIVATE.
  PUBLIC SECTION.
    CLASS-METHODS:
      move_corresponding_ignore_init
        IMPORTING
          i_str_source TYPE any
        CHANGING
          c_str_dest   TYPE any.
ENDCLASS.

CLASS lcl_utilities IMPLEMENTATION.
  METHOD move_corresponding_ignore_init.
    DATA:
      l_rcl_abap_structdescr TYPE REF TO cl_abap_structdescr.

    l_rcl_abap_structdescr ?= cl_abap_typedescr=>describe_by_data( i_str_source ).
    LOOP AT l_rcl_abap_structdescr->components ASSIGNING FIELD-SYMBOL(<fs_str_component>).
      ASSIGN COMPONENT <fs_str_component>-name OF STRUCTURE c_str_dest TO FIELD-SYMBOL(<fs_dest_field>).
      IF sy-subrc = 0.
        ASSIGN COMPONENT <fs_str_component>-name OF STRUCTURE i_str_source TO FIELD-SYMBOL(<fs_source_field>).
        ASSERT sy-subrc = 0.
        IF <fs_source_field> IS NOT INITIAL.
          <fs_dest_field> = <fs_source_field>.
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDMETHOD.                    "move_corresponding_ignore_init
ENDCLASS.

...和一个小宏，以便更像一种语言结构来使用它。

DEFINE move_corresponding_ignore_init.
  lcl_utilities=>move_corresponding_ignore_init(
    exporting
      i_str_source = &1
    changing
      c_str_dest   = &2
  ).
END-OF-DEFINITION.

Answer 2

不存在任意结构的语言构造。对于字符字段，您可以使用 OVERLAY ...WITH，但如果您尝试对结构执行此操作，则会导致非常混乱的代码以及可变长度内容的许多不可预见的麻烦。最好的选择是使用 RTTI (运行时类型识别) 来执行此操作，但在检查初始值时要小心。