ABAP /

FindIncludes

  1. REPORT  ZNADAR_BUSCA_INCLUDES                               .
  2. tables: d010inc.
  3. select-OPTIONS: s_inclu for d010inc-INCLUDE.
  4.  
  5. data: s_padre like d010inc-INCLUDE.
  6. end-of-SELECTION.
  7.  
  8.    loop at s_inclu.
  9.      at first.
  10.         s_padre = 'Programa Padre'.
  11.         write: / '|', s_padre.
  12.         s_padre = 'Include'.
  13.         write: '|', s_padre, '|'.
  14.         write / sy-uline.
  15.      ENDAT.
  16.      clear s_padre.
  17.      perform busca_include using s_inclu-low
  18.                             CHANGING s_padre.
  19.  
  20.      write: / '|', s_padre, '|', s_inclu-low, '|'.
  21.    endloop.
  22.  
  23. form busca_include using p_include
  24.                     CHANGING p_padre.
  25. data: ls_padre like d010inc-INCLUDE.
  26.     SELECT SINGLE master into ls_padre FROM  D010INC
  27.            WHERE  INCLUDE  = p_include.
  28.     if sy-subrc eq 0.
  29.       PERFORM busca_include using ls_padre
  30.                              CHANGING p_padre.
  31.     else.
  32.       p_padre = p_include.
  33.     endif.
  34. endform.
[$[Get Code]]
Última modificación de la página el 04 November 2015 a las 15h04
Powered by PmWiki