Selektion untergeordneter PSP-Elemente

Untergeordnete PSP-Elemente

Hallo,

ich habe vor einiger Zeit das gleiche gebraucht.
Das einzige brauchbare, das ich gefunden habe, war der FuBa PLM_GET_SUBORDINATE_PS_OBJECTS, der untergeordnete Elemente liest.
Er liest aber nur eine Stufe nach unten.
Ich hab mir dann eine Schleife gemacht, die die untergeordneten Elemente liest, diese in eine interne Tabelle schreibt, um alle Elemente zu sammeln. Dann wird der FuBa für alle untergeordneten Elemente aufgerufen (in der Schleife), um in der Hierarchie immer weiter nach unten zu kommen.
Du brauchst halt 3 interne Tabellen:
1) speichert immer die aktuellen PSP-Elemente
2) speichert die untergeordneten PSP-Elemente
3) sammelt alle ermittelten PSP-Elemente

Gruß,
Werner.

Funktionsbaustein

Hier der Baustein. Funktioniert wunderbar:

FUNCTION zsubordinate_psp.
*"----------------------------------------------------------------------
*"*"Globale Schnittstelle:
*" IMPORTING
*" REFERENCE(IPSPNR) TYPE PRPS-PSPNR
*" TABLES
*" IT_SUB_PSP STRUCTURE PLM_PS_SUBORD_WBS
*"----------------------------------------------------------------------

DATA: wa_sub_psp TYPE plm_ps_subord_wbs,
it_pspnr2 TYPE TABLE OF plm_ps_subord_wbs,
wa_pspnr2 TYPE plm_ps_subord_wbs.
DATA: it_nezplan TYPE TABLE OF plm_ps_subord_ntw,
wa_nezplan TYPE plm_ps_subord_ntw.
DATA: it_vorgaenge TYPE TABLE OF plm_ps_subord_act,
wa_vorgaenge TYPE plm_ps_subord_act.
DATA: it_elemtent TYPE TABLE OF plm_ps_subord_ael,
wa_elemtent TYPE plm_ps_subord_ael.

DATA: l_posid TYPE prps-posid.
DATA: l_pspnr TYPE prps-pspnr.


CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
EXPORTING
input = ipspnr
IMPORTING
OUTPUT = l_posid.


* Untergeordnete PSP Elemente vorhanden?
CALL FUNCTION 'PLM_GET_SUBORDINATE_PS_OBJECTS'
EXPORTING
i_wbs_id = l_posid
TABLES
sub_wbs_elem_data = it_sub_psp
sub_network_data = it_nezplan
sub_activity_data = it_vorgaenge
sub_act_elem_data = it_elemtent.
.
* Wenn vorhanden, dann weitere Unter-PSP's suchen
LOOP AT it_sub_psp INTO wa_sub_psp.

MOVE wa_sub_psp-posid TO l_posid.

CALL FUNCTION 'PLM_GET_SUBORDINATE_PS_OBJECTS'
EXPORTING
i_wbs_id = l_posid
TABLES
sub_wbs_elem_data = it_pspnr2
sub_network_data = it_nezplan
sub_activity_data = it_vorgaenge
sub_act_elem_data = it_elemtent.

* Wenn vorhanden, dann in interne Tabelle speichern
LOOP AT it_pspnr2 INTO wa_pspnr2.
MOVE wa_pspnr2 TO wa_sub_psp.
APPEND wa_sub_psp TO it_sub_psp.
ENDLOOP.

REFRESH it_pspnr2.
CLEAR wa_pspnr2.

ENDLOOP.

ENDFUNCTION.