Obtain the maintenance content of the information set (ZFI002)-GS01 / GS02 / GS03

T-CODE: GS01/GS02/GS03

Get the information set in the program: ZFI002, and store the obtained value in the RANGE variable

表 ： setleaf

Range variable: 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.

The test is as follows:

 

Use lra_blart in the program

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