abap - 如何以编程方式判断系统是 R/3 还是 S/4

Question

是否可以通过代码确定当前系统是 R/3 还是 S/4？
我需要它，因为我有一个方法可以返回人力资源相关数据的软件组件，但是这个组件应该与 R/3 和 S/4 系统不同。

    DATA(lv_software_component) = mo_configuration->get_software_component( ).

    SELECT * FROM tadir INTO TABLE @DATA(lt_inftype_tables)
            WHERE pgmid  = 'R3TR'
              AND object = 'TABL'
              AND devclass IN ( SELECT devclass FROM tdevc
                                               WHERE dlvunit = @lv_software_component
                                                  OR dlvunit = 'SAP_HRGXX'
                                                  OR dlvunit = 'SAP_HRRXX' )

在 R/3 上， lv_software_component应该是 'SAP_HRCMX' ，例如，在 S/4 上它应该是 'S4HCMCMX' .目前，我不知道如何以编程方式区分版本之间的区别。
我想出的最好的方法是硬编码 SY-SYSID ，因为我知道哪些系统是 S/4，哪些不是，但这不应该是理想的。
我感谢任何帮助，谢谢!

Answer 1

您可以使用下面的类方法来确定它。另一方面， is_s4h 方法仅存在于 S4 系统上。您需要在调用之前检查方法退出。

cl_cos_utilities=>is_s4h( )

工作完整示例:

REPORT ZMKY_ISS4.
CLASS cl_oo_include_naming DEFINITION LOAD.

DATA oref TYPE REF TO if_oo_class_incl_naming.
DATA: lt_methods TYPE seop_methods_w_include,
      lv_clskey  TYPE seoclskey,
      ls_cpdkey  TYPE seocpdkey,
      lv_iss4    TYPE abap_bool,
      lt_params  TYPE abap_parmbind_tab.

lv_clskey = 'CL_COS_UTILITIES'.
oref ?= cl_oo_include_naming=>get_instance_by_cifkey( lv_clskey ).
lt_methods = oref->get_all_method_includes( ).
ls_cpdkey-clsname = lv_clskey.
ls_cpdkey-cpdname = 'IS_S4H'.
READ TABLE lt_methods WITH KEY cpdkey = ls_cpdkey TRANSPORTING NO FIELDS.
IF sy-subrc EQ 0.
  lt_params = VALUE #( ( name  = 'RV_IS_S4H'
                  kind  = cl_abap_objectdescr=>returning
                  value = REF #( lv_iss4 ) ) ).
  CALL METHOD CL_COS_UTILITIES=>('IS_S4H')
    PARAMETER-TABLE
      lt_params.
ELSE.
  lv_iss4 = abap_false.
ENDIF.