REPORT zztest_su_set1.
*Data Types For Reading Hierachial Sets and Level Sets
*Must be a Global Types
*Start
CONSTANTS: c_father_of_top LIKE grpdynp-name_coall VALUE '$$TOP$$'.
TYPES: BEGIN OF ty_set_parent,
groupname LIKE grpdynp-name_coall, "name of node
fromvalue LIKE setvalues-from, "From-Value of interval
tovalue LIKE setvalues-to, "To-Value of interval
father LIKE grpdynp-name_coall, "name of father node
descript LIKE sethier-descript,"description of this entry
END OF ty_set_parent.
TYPES: BEGIN OF ty_set_level,
level(4) TYPE n, "level in hierarchy
groupname LIKE grpdynp-name_coall, "name of node
fromvalue LIKE setvalues-from, "From-Value of interval
tovalue LIKE setvalues-to, "To-Value of interval
descript LIKE sethier-descript,"description of this entry
END OF ty_set_level.
TYPES: BEGIN OF ty_set,
level(4) TYPE n, "level in hierarchy
groupname LIKE grpdynp-name_coall, "name of node
fromvalue LIKE setvalues-from, "From-Value of interval
tovalue LIKE setvalues-to, "To-Value of interval
father LIKE grpdynp-name_coall, "name of father node
descript LIKE sethier-descript,"description of this entry
END OF ty_set.
DATA: data_tab_parent TYPE TABLE OF ty_set_parent WITH HEADER LINE.
DATA: data_tab_level TYPE TABLE OF ty_set_level WITH HEADER LINE.
DATA: data_tab_set TYPE TABLE OF ty_set,
data_wa_set TYPE ty_set.
* Tables to read sets
DATA: sethier LIKE sethier OCCURS 0 WITH HEADER LINE, "hierar. nodes
setvalues LIKE setvalues OCCURS 0 WITH HEADER LINE, "hier. values
g_setval_index LIKE sy-tabix, "index for setvalues,
g_int TYPE i,
g_setid LIKE sethier-setid,
g_rc TYPE c,
g_file_string TYPE string,
g_old_file LIKE lgrwo-exp_file.
DATA: it_wbs_set TYPE TABLE OF ty_set.
PARAMETERS : s_wbsgrp TYPE grpdynp-name_coall.
START-OF-SELECTION.
PERFORM get_set USING s_wbsgrp '0110'.
it_wbs_set = data_tab_set[].
*---------------------------------------------------------------------*
* FORM fetch_set *
*---------------------------------------------------------------------*
* Read one hierarchy node from database and copy it to data_tab_parent *
*---------------------------------------------------------------------*
* --> p_setid ID of set *
* --> p_father ID of father *
*---------------------------------------------------------------------*
FORM fetch_set USING p_setid LIKE sethier-setid
p_father LIKE sethier-setid.
DATA: l_header LIKE rgsbs,
lt_single LIKE rgsb1 OCCURS 0 WITH HEADER LINE,
lt_basic LIKE rgsbv OCCURS 0 WITH HEADER LINE.
* Read set from DB
CALL FUNCTION 'G_SET_FETCH'
EXPORTING
no_authority_check = 'X'
setnr = p_setid
IMPORTING
set_header = l_header
TABLES
set_lines_basic = lt_basic
set_lines_single = lt_single.
* Copy set into data tab
CLEAR data_tab_parent.
CALL FUNCTION 'G_SET_DECRYPT_SETID'
EXPORTING
setid = p_setid
IMPORTING
shortname = data_tab_parent-groupname.
IF p_father = space.
data_tab_parent-father = c_father_of_top.
ELSE.
CALL FUNCTION 'G_SET_DECRYPT_SETID'
EXPORTING
setid = p_father
IMPORTING
shortname = data_tab_parent-father.
ENDIF.
data_tab_parent-descript = l_header-title.
APPEND data_tab_parent.
* Copy values into data tab
data_tab_parent-father = data_tab_parent-groupname.
CLEAR: data_tab_parent-groupname, data_tab_parent-descript.
LOOP AT lt_basic.
data_tab_parent-fromvalue = lt_basic-from.
data_tab_parent-tovalue = lt_basic-to.
data_tab_parent-descript = lt_basic-title.
APPEND data_tab_parent.
ENDLOOP.
* Copy subsets into data tab
LOOP AT lt_single.
PERFORM fetch_set USING lt_single-setnr p_setid.
ENDLOOP.
ENDFORM. "fetch_set
Bluesky
