Recursividad en ABAP /AYUDA/

[hijodelmar]

Hola chic@s
Necesito vuestra ayuda con un programa que estoy haciendo,

Mi programa lee los roles que tienes un menu asignado con transacciones y saca un fichero excel,
Quiero sacar en una tabla interna la recursividad jerarquica de las carpetas del role que tenga menu.
Aqui os dejo mi programa, podeis compilarlo para ver el resultado que hace, por ahorq solo saca las transaciones que no tienen ninguna carpeta asignada.
Podeis lanzar el programa sobre el role SAP_EP_RW_FSCM_TRM_TM-FO. podeis visualizar el role usando la transaccion PFCG or tabla, AGR_HIER.

Gracias por su ayuda.



REPORT ZPRGN_PRINT_AGR_MENU3.
*&---------------------------------------------------------------------*
*& INCLUDES
*&---------------------------------------------------------------------*
INCLUDE ZPRGN_PRINT_AGR_DATA.

*** Program START ****

CLEAR: LS_OUTPUT,
i_agrhier.


SELECT agr_name from AGR_HIER into i_agrhier-agr_name where agr_name in p_agr.

append i_agrhier.

ENDSELECT.

DELETE ADJACENT DUPLICATES FROM i_agrhier COMPARING agr_name.

PERFORM f00_get_nodes.




data: lv_floo type flag.

*lt_MENU
*l_tcodes
*lt_NODES2


loop at lt_nodes2 into ls_nodes where folder ne 'X'.

if ls_nodes-reporttype = 'TR' and ls_nodes-parent_id = '00000001'.
ls_output-TRANSCODE = ls_nodes-report.
ls_output-SUBMENU = 'No menu assigned'.

read table l_tcodes into l_tcodes WITH KEY tcode = ls_nodes-report.
ls_output-TRANSTXT = l_tcodes-txt.
ls_output-role = ls_nodes-agr_name.

SELECT single text from agr_texts into ls_output-txtrole where agr_name eq ls_nodes-agr_name
and spras eq p_langu
and line eq '00000'.
Append ls_output to lt_output.
endif.
ENDLOOP.

clear ls_output.

LOOP at lt_nodes2 into ls_nodes.
*
** do 10 times.
* read table lt_MENU WITH KEY object_id = ls_nodes-parent_id into ls_menu.
*
* ls_output-TRANSCODE = ls_nodes-report.
* ls_output-SUBMENU = ls_menu-TEXT.
*
* read table l_tcodes into l_tcodes WITH KEY tcode = ls_nodes-report.
* ls_output-TRANSTXT = l_tcodes-txt.
*
*
* read table lt_nodes2 into ls_nodes WITH KEY folder = 'X' parent_id = ls_nodes-object_id.
ENDLOOP.






*** CALL THE ALV OUTPUT.
PERFORM F0002_PRINT_REPORT TABLES LT_OUTPUT.





*&---------------------------------------------------------------------*
*& S t a r t o f forms / routines
*&---------------------------------------------------------------------*

FORM F0002_PRINT_REPORT TABLES LT_OUTPUT.

TYPE-POOLS: SLIS, TRUXS, ICON.
DATA: S_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA S_CAT TYPE SLIS_FIELDCAT_ALV.
DATA T_CAT TYPE SLIS_T_FIELDCAT_ALV.

S_LAYOUT-NO_INPUT = 'X'.
S_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
S_LAYOUT-ZEBRA = 'X'.

REFRESH T_CAT.
CLEAR S_CAT.
S_CAT-FIELDNAME = 'ROLE'. " Nombre del role
S_CAT-SELTEXT_L = TEXT-T10.
S_CAT-DATATYPE = 'CHAR'.
S_CAT-OUTPUTLEN = '50'.
APPEND S_CAT TO T_CAT.

CLEAR S_CAT.
S_CAT-FIELDNAME = 'TXTROLE'. "Description del role
S_CAT-SELTEXT_L = TEXT-T20.
S_CAT-DATATYPE = 'CHAR'.
S_CAT-OUTPUTLEN = '50'.
APPEND S_CAT TO T_CAT.


CLEAR S_CAT.
S_CAT-FIELDNAME = 'SUBMENU'. "Nombre de la carpeta (ruta de la transaction)
S_CAT-SELTEXT_L = TEXT-T21.
S_CAT-DATATYPE = 'CHAR'.
S_CAT-OUTPUTLEN = '50'.
APPEND S_CAT TO T_CAT.

CLEAR S_CAT.
S_CAT-FIELDNAME = 'TRANSCODE'. "Transaction
S_CAT-SELTEXT_L = TEXT-T22.
S_CAT-DATATYPE = 'CHAR'.
S_CAT-OUTPUTLEN = '50'.
APPEND S_CAT TO T_CAT.

CLEAR S_CAT.
S_CAT-FIELDNAME = 'TRANSTXT'. "Descripcion de la transaccion.
S_CAT-SELTEXT_L = TEXT-T23.
S_CAT-DATATYPE = 'CHAR'.
S_CAT-OUTPUTLEN = '50'.
APPEND S_CAT TO T_CAT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT = S_LAYOUT
IT_FIELDCAT = T_CAT
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_BACKGROUND_ID = 'ALV_BACKGROUND'
TABLES
T_OUTTAB = LT_OUTPUT
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC NE 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM. " F0002_PRINT_REPORT


*** ALV HEADER ****
FORM TOP_OF_PAGE.

* Table affichage ALV - entête
DATA: LT_LINE TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.

DATA : L_TEXT1(70).
DATA : L_TEXT2(70).
DATA : L_TEXT3(70).
DATA : L_DATE(10).

DATA : W_TOT(10) TYPE C.

*************************
* Titre d'entête
*************************
* Date d'éxécution
WRITE SY-DATUM TO L_DATE DD/MM/YYYY.
CLEAR L_TEXT1.
CONCATENATE TEXT-X01 L_DATE INTO L_TEXT1 SEPARATED BY SPACE.
LS_LINE-INFO = L_TEXT1.

*- Titre d'entête
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-INFO = SY-TITLE.
APPEND LS_LINE TO LT_LINE.

*- Date d'éxécution
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-INFO = L_TEXT1.
APPEND LS_LINE TO LT_LINE.

* Nombre total d'enregistrements
CLEAR L_TEXT2.
DESCRIBE TABLE LT_OUTPUT LINES W_TOT.
CONCATENATE TEXT-X02 W_TOT INTO L_TEXT2 SEPARATED BY SPACE.
LS_LINE-INFO = L_TEXT2.
APPEND LS_LINE TO LT_LINE.

* chargement d'entête
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
i_logo = 'ENJOYSAP_LOGO'
IT_LIST_COMMENTARY = LT_LINE.


ENDFORM. "top_of_page


*&---------------------------------------------------------------------*
*& Form F00_GET_NODES
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM F00_GET_NODES .

DATA: l_transco type TSTCT.

DATA: i_smenurls LIKE agr_buffi OCCURS 100 WITH HEADER LINE,
i_smendtls LIKE agr_shier_bor OCCURS 0 WITH HEADER LINE.

LOOP AT i_agrhier. " specified roles into selection screen

* Reading nodes, texts and transactions.
CALL FUNCTION 'MENU_AGR_TREE_READ_HIERARCHY'
EXPORTING
ACTIVITY_GROUP = i_agrhier-agr_name
TABLES
NODES = lt_NODES
TEXTS = lt_TEXTS
URLS = i_smenurls
add_details = i_smendtls
TCODES = lt_TCODES.
* Sorting nodes
CALL FUNCTION 'MENU_AGR_TREE_SORT_NODES'
TABLES
INPUT_TABLE_UNSORTED = lt_NODES
OUTPUT_TABLE_SORTED = lt_NODES2.

if sy-subrc ne 0.
message s422(s#) with i_agrhier-agr_name raising action_cancelled.
else.

if lt_NODES[] is initial.
* Role doesn't have a menu.
message s363(s#) with i_agrhier-agr_name raising menu_does_not_exist.
endif.

endif.


loop at lt_NODES2 into ls_nodes where folder eq 'X'.

LOOP AT LT_TEXTS into ls_TEXTS where spras eq p_langu and object_id eq ls_nodes-object_id .

Append LS_TEXTS to LT_MENU.

ENDLOOP.
endloop.

ENDLOOP.

LOOP AT lt_tcodes into ls_tcodes.
SELECT * from TSTCT into l_transco where SPRSL eq p_langu and tcode eq ls_tcodes-tcode.
l_tcodes-tcode = l_transco-tcode.
l_tcodes-txt = l_transco-ttext.
append l_tcodes.
ENDSELECT.

ENDLOOP.


ENDFORM. " F00_GET_NODES



*&---------------------------------------------------------------------*
*& Include ZPRGN_PRINT_AGR_DATA
*&---------------------------------------------------------------------*

TABLES: AGR_DEFINE.
TYPES: begin of lt_menuroles,
ROLE like AGR_HIER-AGR_NAME,
TXTROLE like AGR_HIERT-TEXT,
SUBMENU like AGR_HIERT-TEXT,
TRANSCODE like AGR_TCODES-TCODE,
TRANSTXT like TSTCT-TTEXT,
END OF lt_menuroles.


DATA: LT_OUTPUT TYPE TABLE OF lt_menuroles WITH HEADER LINE,
LS_OUTPUT type lt_menuroles.


DATA: i_agrhier type AGR_HIER OCCURS 0 WITH HEADER LINE,
lt_hiertcd type AGR_HIER OCCURS 0 WITH HEADER LINE,
i_agrhiert type AGR_HIERT OCCURS 0 WITH HEADER LINE,
i_agrtxt type AGR_TEXTS OCCURS 0 WITH HEADER LINE.

DATA: lv_sortord type agr_hier-sort_order ,
lv_parentid type agr_hier-parent_id,
lv_objectid type agr_hier-object_id.


Types: BEGIN OF lt_folders,
objid like agr_hier-object_id,
parentid like agr_hier-parent_id,
menutxt like agr_hiert-text,
end of lt_folders.

Types: BEGIN OF l_tcodes,
tcode like agr_hier-report,
txt like agr_hiert-text,
end of l_tcodes.

DATA : LT_folders TYPE TABLE OF lt_folders WITH HEADER LINE.
DATA : l_tcodes TYPE TABLE OF l_tcodes WITH HEADER LINE.


DATA: lv_numfold type agr_hier-object_id,
lv_lastF type agr_hier-object_id.



DATA:
lt_NODES type AGR_HIER OCCURS 0,
lt_TEXTS type AGR_HIERT OCCURS 0,
lt_MENU type AGR_HIERT OCCURS 0,
lt_TCODES type AGR_TCODES OCCURS 0,
lt_NODES2 type AGR_HIER OCCURS 0.

DATA: ls_TEXTS like LINE OF lt_TEXTS,
ls_TCODES like line of lt_TCODES,
ls_NODES like line of lt_NODES,
ls_NODES2 like line of lt_NODES,
ls_MENU like line of lt_MENU .



*&---------------------------------------------------------------------*
*& S e l e c t i o n s c r e e n
*&---------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-sel.
SELECT-OPTIONS: p_agr for agr_define-agr_name.
PARAMETERS: p_langu LIKE t002-spras DEFAULT sy-langu.
SELECTION-SCREEN END OF BLOCK b1.



*Omar