abap--关于集(set)的读取(如读取成本中心组下的所有成本中心)

在sap中很多地方使用了集(set)来存储层次关系的数据,如:
Cost Center Group
Cost Element Group
Order Group
Statistical Key Figure Group
Activity Type Group
Profit Center Group
Business Process Group
Cost Object Group
Account Group
WBS Element Group
Fund Group
Functional Area Group
Grant Group
Business Entities Set
Real Estate Set
Buildings Set
Rental Units Set
Rental Agreements Set
Management Contracts Set
Settlement Units Set
General Contracts Set
... 等等....，具体参见SETCLS表.

相关TCODE
GS01
GS02
GS03
GS04

相关数据表
setcls:Set Classes(SETCLASS(4))
SETCLST: Set Class Descriptions(LANGU(2),SETCLASS(4))
setheader:Set Header and Directory(SETCLASS(4),SUBCLASS(10),SETNAME(24))
setnode:Lower-level sets in sets((SETCLASS(4),SUBCLASS(10),SETNAME(24),LINEID(10))
setleaf:Values in Sets(SETCLASS(4),SUBCLASS(10),SETNAME(24),LINEID(10))

相关函数
'G_SET_GET_ALL_VALUES'
'G_SET_FETCH'

代码样例
该样例代码是提取某个成本中心组下的成本中心到range: s_kostl
*&---------------------------------------------------------------------*
*&      Form  GET_TREE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_kostl.
  data: l_count type i.
  data: begin of i_tree occurs 0,
      setname like setnode-setname,
    end of i_tree.
  data: i_subtree like i_tree occurs 0 with header line,
    i_temptree like i_tree occurs 0 with header line.
  select setname into  i_tree
    from setheader
    where setclass = '0101' and subclass = '1000'
      and setname in s_cengrp.
    read table i_setheader with key setname = i_tree-setname.
    if sy-subrc = 0.
      append i_tree to i_tree.
    endif.
  endselect.
  i_subtree[] = i_tree[].
  l_count = 1.
  while l_count > 0.
    read table i_subtree index 1.
    delete i_subtree index 1.
    select subsetname as setname
      into table i_temptree
      from setnode
      where setclass = '0101'
       and subclass = '1000' and subsetcls = '0101'
       and subsetscls = '1000' and setname = i_subtree-setname.
    append lines of i_temptree to i_tree.
    append lines of i_temptree to i_subtree.
    describe table i_subtree lines l_count.
  endwhile.
  select valsign as sign   valoption as option
    valfrom as low   valto   as high
    into table s_kostl
  from setleaf
    for all entries in i_tree
  where setclass = '0101'
    and subclass = '1000'  and setname = i_tree-setname.
endform.                    " GET_KOSTL
 代码二
DATA: t_set_values TYPE TABLE OF rgsb4.

CALL FUNCTION 'G_SET_GET_ALL_VALUES'
  EXPORTING
    client        = sy-mandt
    setnr         = 'NP_SLOC_SERV'
    table         = 'MARD'
    class         = '0000'
    fieldname     = 'LGORT'
  TABLES
    set_values    = t_set_values
  EXCEPTIONS
    set_not_found = 1
    OTHERS        = 2.
代码三

REPORT YTEST_GRP .

* -- Constant for the Set Class
CONSTANTS: c_cls_0106 TYPE rgsbs-class VALUE '0106'.

DATA: l_wa_set_lines_basic TYPE rgsbv,
      l_wa_hdr             TYPE rgsbs,
      l_i_for_lin          TYPE STANDARD TABLE OF rgsbf,
      l_i_set_lines_basic  TYPE STANDARD TABLE OF rgsbv,
      l_i_set_lines_data   TYPE STANDARD TABLE OF rgsb3,
      l_i_set_lines_multi  TYPE STANDARD TABLE OF rgsb2,
      l_i_set_lines_single TYPE STANDARD TABLE OF rgsb1.

DATA: l_v_setnr TYPE char50.

PARAMETERS: p_PCGRP type PCGRP,      " Profit Centre Group
            p_kokrs type kokrs.      " Controlling Area

CONCATENATE p_kokrs p_pcgrp INTO l_v_setnr.

*-- Get the Set description
CALL FUNCTION 'G_SET_FETCH'
EXPORTING
       class = c_cls_0106
       setnr = l_v_setnr
IMPORTING
       set_header = l_wa_hdr
TABLES
       formula_lines    = l_i_for_lin
       set_lines_basic  = l_i_set_lines_basic
       set_lines_data   = l_i_set_lines_data
       set_lines_multi  = l_i_set_lines_multi
       set_lines_single = l_i_set_lines_single
EXCEPTIONS
       no_authority = 1
       set_is_broken = 2
       set_not_found = 3
       OTHERS = 4.

*-- handle your exceptions here

      loop at l_i_set_lines_basic into l_wa_set_lines_basic.

        write :/ l_wa_set_lines_basic-from,
                 l_wa_set_lines_basic-to,
                 l_wa_set_lines_basic-title.
      endloop.

参考：https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/5541