CÓDIGO T: GS01 / GS02 / GS03
Obtenga la información establecida en el programa: ZFI002 y almacene el valor obtenido en la variable RANGE
表 : setleaf
Variable de rango: 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.
La prueba es la siguiente:
Usa lra_blart en el programa
SELECT
bukrs,
belnr,
gjahr,
blart,
cpudt,
cputm,
budat,
monat,
xref2_hd
INTO TABLE @DATA(lt_bkpf)
FROM bkpf
WHERE blart IN @lra_blart.