Retrieve SAP cost element group hierarchy

*&---------------------------------------------------------------------*
*& Report  ZCE_GROUPS                                               *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*
REPORT ZCE_GROUPS.

* GSETC type pool stores codes for differenct group classes
*    i.e. gsetc_costelement_setclass = '0102'.
TYPE-POOLS: gsetc.

TYPES: gseth_node_line    LIKE grpobjects,
       gseth_node_tab     TYPE gseth_node_line OCCURS 0.
TYPES: gseth_val_line     LIKE grpvalues,
       gseth_val_tab      TYPE gseth_val_line OCCURS 0.
TYPES: GSETH_MD_LINE      LIKE GRPMDLINE,
       GSETH_MD_TAB       TYPE GSETH_MD_LINE OCCURS 0.
DATA: it_nodes            TYPE  gseth_node_tab,
      it_values           TYPE  gseth_val_tab,
      it_mdtab            type gseth_md_tab,
      wa_mdtab            type GSETH_MD_LINE.

DATA: ld_setid            TYPE sethier-setid,
      ld_info             LIKE grphinfo,
      ld_overwrite        LIKE sy-datar.

PARAMETERS: p_cele        LIKE GRPDYNP-NAME_COALL,
            p_burks       TYPE bseg-BUKRS.

 CONCATENATE gsetc_costelement_setclass 'UNIV' p_cele INTO ld_setid.
  CALL FUNCTION 'K_HIERARCHY_TABLES_READ'
    EXPORTING
      e_class                           = gsetc_costelement_setclass
                           "from gsetc type-pool = '0102'
      e_setid                           = ld_setid
      e_kokrs                           = 'UNIV'
      E_MANDT                           = sy-mandt
      E_MASTER_DATA                     = 'XXX'  "retrieve master data into mdtab

* displays popup to confirm if a large amount of data is to be retrieved
    E_STRUCTURE                       = 'X  X0200'  "displays popup to confirm

*     E_REPLACE_CLASS                   =
*     E_REPLACE_UNIT                    =
*     E_REPLACE_TABLE                   = ' '
*     E_REPLACE_FIELD                   = ' '
*     E_SUFFIX                          =
*     E_OLD_LINE_LEVEL                  = 0
*   IMPORTING
*     I_DOUBLE_CHECK                    =
*     I_MASTER_DATA                     =
    TABLES
      t_nodes                           = it_nodes
      t_values                          = it_values
      T_MASTER_DATA                     = it_mdtab
*     T_FORMULA                         =
*     T_FIELD_INFO                      =
*     T_NODE_LIST_OVERWRITE             =
    CHANGING
      c_info                            = ld_info
      c_overwrite                       = ld_overwrite
   EXCEPTIONS
     no_controlling_area               = 1
     no_chart_of_account               = 2
     different_controlling_areas       = 3
     different_chart_of_accounts       = 4
     set_not_found                     = 5
     illegal_field_replacement         = 6
     illegal_table_replacement         = 7
     fm_raise                          = 8
     convert_error                     = 9
     no_overwrite_standard_hier        = 10
     no_bukrs_for_kokrs                = 11
     OTHERS                            = 12.

BREAK-POINT.