在编写 基于 Func 生成 PO 的 Data Type 规则时找到一个关于数据类型的转换文章 Generalize the call to conversion exit functions以下是针对相关复现

    1. FUNCTION zfm_generalize_conversion.
    2. *"----------------------------------------------------------------------
    3. *"*"本地接口：
    4. *"  IMPORTING
    5. *"     REFERENCE(I_VARIABLE)
    6. *"     REFERENCE(I_CONVER_TYPE) TYPE  C DEFAULT 'I'
    7. *"  EXPORTING
    8. *"     REFERENCE(O_VARIABLE)
    9. *"  EXCEPTIONS
    10. *"      CONVER_TYPE_FAIL
    11. *"----------------------------------------------------------------------
    13.   " note:
    14.   "  - 要求 i_variable 或 o_variable 参考数据元素或表字段创建( 可取到 转换规则 )
    15.   "  - 优先使用 i_variable 的转换规则
    16.   "  - I_CONVER_TYPE 指定转换方式 I 外值转内值 O 内值转外值
    17.   "  - 例外 CONVER_FAIL 为转换异常
    19.   DATA: lo_data TYPE REF TO data.
    20.   DATA: lv_rule TYPE funcname.
    22.   " 获取字段属性
    23.   DESCRIBE FIELD i_variable OUTPUT-LENGTH DATA(l_len)
    24.                             EDIT MASK DATA(l_mask).
    25.   IF l_mask IS INITIAL.
    27.     DESCRIBE FIELD o_variable OUTPUT-LENGTH l_len
    28.                               EDIT MASK l_mask.
    29.     IF l_mask IS INITIAL.
    30.       o_variable = i_variable.
    31.       RETURN.
    32.     ENDIF.
    34.   ENDIF.
    36.   REPLACE FIRST OCCURRENCE OF '==' IN l_mask WITH ''.
    37.   CONDENSE l_mask NO-GAPS.
    39.   " 为 APLHA 类的转换设置传出长度
    40.   CREATE DATA lo_data TYPE c LENGTH l_len.
    41.   IF lo_data IS BOUND.
    42.     ASSIGN lo_data->* TO FIELD-SYMBOL(<fs_data>).
    43.     IF <fs_data> IS ASSIGNED.
    44.       " pass
    45.     ELSE.
    46.       " 异常处理
    47.       o_variable = i_variable.
    48.     ENDIF.
    49.   ELSE.
    50.     " 异常处理
    51.     o_variable = i_variable.
    52.   ENDIF.
    54.   " 转换规则
    55.   CASE i_conver_type.
    56.     WHEN 'I'.
    57.       lv_rule = |CONVERSION_EXIT_{ l_mask }_INPUT|.
    58.     WHEN 'O'.
    59.       lv_rule = |CONVERSION_EXIT_{ l_mask }_OUTPUT|.
    60.     WHEN OTHERS.
    61.       RAISE conver_type_fail.
    62.   ENDCASE.
    64.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    65.     EXPORTING
    66.       input  = i_variable
    67.     IMPORTING
    68.       output = <fs_data>
    69.     EXCEPTIONS
    70.       OTHERS = 1.
    71.   IF sy-subrc = 0.
    72.     o_variable = <fs_data>.
    73.   ELSE.
    74.     o_variable = i_variable.
    75.   ENDIF.
    77. ENDFUNCTION.