获取信息集(ZFI002)维护内容 - GS01/GS02/GS03

客官°小女子只卖身不卖艺 2023-06-21 11:25 68阅读 0赞

T-CODE: GS01/GS02/GS03

![20191212161232374.jpg][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70][]

程序中获取信息集：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.

测试如下：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 1][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 2][]

程序中使用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.

[20191212161232374.jpg]: https://img-blog.csdnimg.cn/20191212161232374.jpg
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20191212161241441.jpg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY=,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 1]: https://img-blog.csdnimg.cn/20191212161931642.jpg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY=,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 2]: https://img-blog.csdnimg.cn/20191212161942711.jpg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY=,size_16,color_FFFFFF,t_70