ABAP中数据集的使用

另外，数据集可直接用于GGB0、GGB1的配置中，GGB0 和 GGB1 是用于定义和管理验证规则（Validation Rules）和替代规则（Substitution Rules）的事务代码，主要用于财务模块（如 FI、CO 等）中数据的校验和替代。目的:将数据集转换为可在ABAP使用的WHERE条件。数据集创建：GS01,存放底表：Setleaf。

CV编程师

176人浏览 · 2025-05-09 10:40:06

CV编程师 · 2025-05-09 10:40:06 发布

数据集创建：GS01,存放底表：Setleaf。

目的:将数据集转换为可在ABAP使用的WHERE条件

  DATA lr_cond TYPE RANGE OF setleaf-valfrom.
  DATA lv_name TYPE setleaf-setname.

  SELECT
     valsign   AS sign,
     valoption AS option,
     valfrom   AS low,
     valto AS high
     FROM setleaf
     WHERE setname = 'ZBUKRS'    "数据集ID
      AND setclass = '0000'
      AND subclass = ''
     INTO TABLE @lr_cond.

  SELECT SINGLE
      descript
    FROM setheadert
    WHERE setname  = 'ZBUKRS'    "数据集ID
      AND setclass = '0000'
      AND subclass = ''
      AND langu = '1'
    INTO @lv_name.

  DATA(lv_dyn_cond) = cl_shdb_seltab=>combine_seltabs( it_named_seltabs =  VALUE #( ( name = lv_name dref = REF #( lr_cond[] ) ) ) ).
*( BUKRS BETWEEN '0001' AND '0005'  OR BUKRS BETWEEN '8000' AND '8220'  OR BUKRS = '8700'  OR BUKRS = '8740')
  DATA(lv_dyn_where) = |{ shift_right( val = lv_dyn_cond places = 1 ) } )|.
*( BUKRS BETWEEN '0001' AND '0005'  OR BUKRS BETWEEN '8000' AND '8220'  OR BUKRS = '8700'  OR BUKRS = '8740' )
  WRITE lv_dyn_where.

另外，数据集可直接用于GGB0、GGB1的配置中，GGB0 和 GGB1 是用于定义和管理验证规则（Validation Rules）和替代规则（Substitution Rules）的事务代码，主要用于财务模块（如 FI、CO 等）中数据的校验和替代。