1

我正在尝试使用 RTTS 类构建动态类型。我已经构建了一个包含列名的组件表'COL_1'，'COL_2'等等......CL_ABAP_STRUCTDESCR=>CREATE( )在第 73 行的标准方法中类型创建失败：

       if comp-name+off(1) cn 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_' or
          comp-name+off(*) cn 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789'.
*        illegal character in component name
         raise exception type CX_SY_STRUCT_COMP_NAME
           exporting textid = CX_SY_STRUCT_COMP_NAME=>illegal_char_in_name
                     component_name = comp-name
                     component_number = comp_no.

的验尸comp-name值为COL_1。如您所见，这些字符是有效的。我不明白这里的 IF 条件如何为真。

在以完全相同的方式调用此方法之前，我已经在我自己的模块中测试了列名的有效性，并且 IF 条件在那里返回 FALSE。

重现此错误的最少代码：

  DATA: ty_output       TYPE REF TO CL_ABAP_STRUCTDESCR,
        it_output       TYPE REF TO DATA,    
        wa_comp         TYPE cl_abap_structdescr=>component,
        it_comp         TYPE cl_abap_structdescr=>component_table,
        c_index         TYPE string.

  DO 7 TIMES.
    c_index = sy-index.
    CONCATENATE 'COL_' c_index INTO wa_comp-name.
    IF wa_comp-name(*) cn 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_1234567890'.
      WRITE 'NO'. " <= This branch is entered.
    ENDIF.
    IF 'COL_1' cn 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_1234567890'.
      WRITE 'NO'. " <= This branch is NOT entered.
    ENDIF.
    wa_comp-type = CL_ABAP_ELEMDESCR=>GET_STRING( ).
    APPEND wa_comp TO it_comp.
  ENDDO.

  ty_output = cl_abap_structdescr=>create( it_comp ).
  CREATE DATA it_output TYPE HANDLE ty_output.
4

1 回答 1

1

这是由sy-index(integer) 到c_index(string) 的强制转换在wa_comp-name.

转换sy-index为类型变量n而不是string解决问题。

于 2020-05-27T20:55:31.977 回答