Autor Tema: AYUDA - Como Hacer recursividad en ABAP ? /*********  (Leído 3606 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado omarb

  • Novato
  • *
  • Mensajes: 1
    • Ver Perfil
AYUDA - Como Hacer recursividad en ABAP ? /*********
« en: 10 de Marzo de 2015, 05:14:11 pm »
Hola chic@s.
Soy nuevo en esto y me gustaria hacer una recursividad en mi pequeño programa que saca un alv con los menus que hay en roles.
En la tabla AGR_HIER podermos ver los fields Object_ID y Parent_ID.
Mas abajo vereis el codigo fuente de mi programa y su include (declaracion de variables).
El primer loop me saca las transacciones que no tienen una carpeta asignada.

Lo que quiero hacer es escribir en mi variable de salida la ruta entera de la transacion.

Por ejemplo tengo un role que tiene dos carpetas.
Folder1
Folder2

En Folder1 hay Folder1.2 y dentro de este la transaction PA20
En folder2 tengo una transaction PA30.

Resultado seria asi.
Menu                      / Transaction
Folder1>Folder1.2 /PA20
Folder2                 /PA30

La verdad es que no sé como hacer recursion en ABAP.

Gracias por su ayuda,
Mas abajo todo mi programa,
Hace falta lanzarlo sobre un role que tenga Menus ( Mirad la table AGR_HIER).

Gracias.










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.

** AQUI pensaba poner mi recursividad.
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'.
  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'.
  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'.
  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'.
  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'.
  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

*INCLUDE zadp_prgn_print_agr_menu2_ffms.
*&---------------------------------------------------------------------*
*&      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           ZADP_PRGN_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.