FUNCTION z_pscmgib_dcf_sbu_filter.
*“----------------------------------------------------------------------
““Local Interface:
*“  TABLES
*“      SHLP_TAB TYPE  SHLP_DESCT
*“      RECORD_TAB STRUCTURE  SEAHLPRES
*“  CHANGING
*“     VALUE(SHLP) TYPE  SHLP_DESCR
*“     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
*“----------------------------------------------------------------------
&------------------------------------------------------------------------

•	Date created  : 27-May-2013                                             *
•	Preconditions : Nil                                                     *
•	References    : Nil                                                     *
•	History:
-------------------------------------------------------------------------
•	Index|Author | Requestor     | Date   |Description           |Transport *
-------------------------------------------------------------------------
•	1    |xx     | xx            |20120910|xxx                   |          *
-------------------------------------------------------------------------

DATA: ls_if     LIKE LINE OF shlp-interface,
lf_stufe TYPE prodh_stuf.
DATA:  BEGIN OF ls_rec,
zzdpc TYPE /gib/dcf_mara-zzdpc,
zzsbu TYPE /gib/dcf_mara-zzsbu,
zzspg TYPE /gib/dcf_mara-zzspg,
zzprf TYPE /gib/dcf_mara-zzprf,
END OF ls_rec,
ls_prop TYPE ddshfprop,
lt_rec LIKE STANDARD TABLE OF ls_rec.
DATA: lf_prdha TYPE prodh_d.
CHECK callcontrol-step = ‚SELECT‘.
READ TABLE shlp-fieldprop INTO ls_prop WITH KEY shlpoutput = ‚X‘.
CASE ls_prop-fieldname.
WHEN ‚ZZDPC‘.
lf_stufe = 2.
WHEN ‚ZZSBU‘.  lf_stufe = 3.
WHEN ‚ZZSPG‘.  lf_stufe = 4.
WHEN ‚ZZPRF‘.  lf_stufe = 5.
WHEN ‚ZZMPD‘.  lf_stufe = 6.
WHEN OTHERS.
MESSAGE s000(0k) WITH ‚Please specify hierarchy level‘(t01).  callcontrol-step = ‚EXIT‘.
EXIT.
ENDCASE.
CALL FUNCTION ‚RV_PRODUKTHIERARCHIE_SHOW‘
EXPORTING
stufe       = lf_stufe
IMPORTING
node_picked = lf_prdha.
IF lf_prdha IS INITIAL.
callcontrol-step = ‚EXIT‘.
EXIT.
ENDIF.
ls_rec-zzdpc = ls_rec-zzsbu = ls_rec-zzspg = ls_rec-zzprf = lf_prdha.
APPEND ls_rec TO lt_rec.
CALL FUNCTION ‚F4UT_RESULTS_MAP‘
TABLES
      shlp_tab          = shlp_tab
      record_tab        = record_tab
      source_tab        = lt_rec
CHANGING
      shlp              = shlp
      callcontrol       = callcontrol
EXCEPTIONS
illegal_structure = 1
OTHERS            = 2.

CHECK sy-subrc IS INITIAL.
callcontrol-step = ‚RETURN‘.
ENDFUNCTION.