SAP Table for Cost Center Hierarchy and Groups: SETNODE / SETLEAF Tree Generator

REPORT z_set_hierarchy_tree.

* Prints a cost center, cost element or profit center group as a tree
* from SETHEADERT, SETNODE and SETLEAF, recursively.
* Set class 0101 cost center group, 0102 cost element group,
* 0106 profit center group.
* SUBCLASS = controlling area for 0101 and 0106, chart of accounts for 0102.

DATA: gv_setclass TYPE setnode-setclass VALUE '0101',
      gv_subclass TYPE setnode-subclass VALUE '1000',
      gv_kokrs    TYPE kokrs VALUE '1000',
      gv_langu    TYPE spras VALUE 'E',
      gv_top      TYPE setnode-setname VALUE 'H1'.

START-OF-SELECTION.
  PERFORM read_node USING gv_top 0.

FORM read_node USING iv_setname TYPE setnode-setname
                     iv_level   TYPE i.
  TYPES: BEGIN OF ty_cc,
           kostl TYPE csks-kostl,
           ktext TYPE cskt-ktext,
         END OF ty_cc.
  DATA: lt_nodes  TYPE STANDARD TABLE OF setnode,
        ls_node   TYPE setnode,
        lt_leaves TYPE STANDARD TABLE OF setleaf,
        ls_leaf   TYPE setleaf,
        lt_cc     TYPE STANDARD TABLE OF ty_cc,
        ls_cc     TYPE ty_cc,
        lv_text   TYPE setheadert-descript,
        lv_sub    TYPE setnode-setname,
        lv_indent TYPE i,
        lv_pos2   TYPE i,
        lv_next   TYPE i.

  lv_indent = iv_level * 2 + 1.
  lv_pos2   = lv_indent + 4.

  CLEAR lv_text.
  SELECT SINGLE descript FROM setheadert INTO lv_text
    WHERE setclass = gv_setclass
      AND subclass = gv_subclass
      AND setname  = iv_setname
      AND langu    = gv_langu.
  WRITE AT /lv_indent iv_setname.
  WRITE lv_text.

* Child groups in their maintained order
  SELECT * FROM setnode INTO TABLE lt_nodes
    WHERE setclass = gv_setclass
      AND subclass = gv_subclass
      AND setname  = iv_setname
    ORDER BY seqnr.
  lv_next = iv_level + 1.
  LOOP AT lt_nodes INTO ls_node.
    lv_sub = ls_node-subsetname.
    PERFORM read_node USING lv_sub lv_next.
  ENDLOOP.

* Value ranges assigned directly to this group
  SELECT * FROM setleaf INTO TABLE lt_leaves
    WHERE setclass = gv_setclass
      AND subclass = gv_subclass
      AND setname  = iv_setname
    ORDER BY seqnr.
  LOOP AT lt_leaves INTO ls_leaf.
    IF ls_leaf-valto IS INITIAL.
      ls_leaf-valto = ls_leaf-valfrom.
    ENDIF.
    IF gv_setclass = '0101'.
* Expand the range against cost centers valid today
      SELECT c~kostl t~ktext
        FROM csks AS c
        LEFT OUTER JOIN cskt AS t
          ON  t~kokrs = c~kokrs
          AND t~kostl = c~kostl
          AND t~datbi = c~datbi
          AND t~spras = gv_langu
        INTO TABLE lt_cc
        WHERE c~kokrs = gv_kokrs
          AND c~kostl BETWEEN ls_leaf-valfrom AND ls_leaf-valto
          AND c~datbi >= sy-datum
          AND c~datab <= sy-datum.
      LOOP AT lt_cc INTO ls_cc.
        WRITE AT /lv_pos2 ls_cc-kostl.
        WRITE ls_cc-ktext.
      ENDLOOP.
    ELSE.
      WRITE AT /lv_pos2 ls_leaf-valfrom.
      WRITE: 'to', ls_leaf-valto.
    ENDIF.
  ENDLOOP.
ENDFORM.

REPORT z_set_hierarchy_fm.

* Alternative: read the whole group tree with function modules.
* G_SET_ENCRYPT_SETID builds the SETID; G_SET_TREE_IMPORT returns
* one SET_HIERARCHY row per node with LEVEL, SHORTNAME and DESCRIPT.

DATA: lv_setid TYPE sethier-setid,
      lv_short TYPE c LENGTH 24 VALUE 'H1',
      lv_kokrs TYPE sethier-kokrs,
      lv_ktopl TYPE sethier-ktopl,
      lt_hier  TYPE STANDARD TABLE OF sethier,
      ls_hier  TYPE sethier,
      lt_vals  TYPE STANDARD TABLE OF setvalues,
      lv_ind   TYPE i.

START-OF-SELECTION.

  IF '0101' = '0102'.
    lv_ktopl = '1000'.
  ELSE.
    lv_kokrs = '1000'.
  ENDIF.

  CALL FUNCTION 'G_SET_ENCRYPT_SETID'
    EXPORTING
      setclass             = '0101'
      shortname            = lv_short
      kokrs                = lv_kokrs
      ktopl                = lv_ktopl
    IMPORTING
      setid                = lv_setid
    EXCEPTIONS
      no_co_area_specified = 1
      illegal_setclass     = 2
      OTHERS               = 3.
  IF sy-subrc <> 0.
    WRITE: / 'Could not build set ID, sy-subrc', sy-subrc.
    RETURN.
  ENDIF.

  CALL FUNCTION 'G_SET_TREE_IMPORT'
    EXPORTING
      setid                     = lv_setid
      langu                     = 'E'
    TABLES
      set_hierarchy             = lt_hier
      set_values                = lt_vals
    EXCEPTIONS
      set_not_found             = 1
      illegal_field_replacement = 2
      illegal_table_replacement = 3
      set_is_damaged            = 4
      OTHERS                    = 5.
  IF sy-subrc <> 0.
    WRITE: / 'G_SET_TREE_IMPORT failed, sy-subrc', sy-subrc.
    RETURN.
  ENDIF.

  LOOP AT lt_hier INTO ls_hier.
    lv_ind = ls_hier-level * 2 + 1.
    WRITE AT /lv_ind ls_hier-shortname.
    WRITE ls_hier-descript.
  ENDLOOP.