获取信息集(ZFI002)维护内容 – GS01/GS02/GS03详解编程语言

T-CODE: GS01/GS02/GS03

程序中获取信息集：ZFI002，并将获取的值存入RANGE变量中

表：setleaf

range变量：lra_blart

*&---------------------------------------------------------------------* 
*& Report ZTEST 
*&---------------------------------------------------------------------* 
*& 获取信息集(ZFI002)维护内容 
*&---------------------------------------------------------------------* 
REPORT ztest. 
 
CONSTANTS: gc_setname TYPE setleaf-setname VALUE 'ZFI002'. 
 
DATA: lra_blart TYPE RANGE OF t003-blart. 
 
SELECT * 
  INTO TABLE @DATA(lt_setleaf) 
  FROM setleaf 
  WHERE setname = @gc_setname 
  AND   ( valfrom NE @space OR valto NE @space ). 
 
LOOP AT lt_setleaf INTO DATA(ls_setleaf). 
  lra_blart = VALUE #( BASE lra_blart 
                        ( sign   = ls_setleaf-valsign 
                          option = ls_setleaf-valoption 
                          low    = ls_setleaf-valfrom 
                          high   = ls_setleaf-valto ) ). 
ENDLOOP.

测试如下：

程序中使用lra_blart

  SELECT 
  bukrs, 
  belnr, 
  gjahr, 
  blart, 
  cpudt, 
  cputm, 
  budat, 
  monat, 
  xref2_hd 
  INTO TABLE @DATA(lt_bkpf) 
  FROM bkpf 
  WHERE blart IN @lra_blart.