En
ocasiones cuando se requiere del máximo dinamismo en un programa ABAP es
necesario recurrir a ese tipo de programas, tiene algunas limitantes en la ejecución
pero si encapsulas su ejecución es un problema resuelto. esto para evitar el error por superar las 36 ejecuciones
Ejemplo, ejecutar el siguiente SQL:
“select * @into corresponding fields of table l_icon
@Where NAME = ‘ICON_PRESENCE’.”
Function z_execute_sql.
*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" VALUE(SQL) TYPE STRING
*" TABLES
*" IT_RETURN STRUCTURE ICON OPTIONAL
*"----------------------------------------------------------------------
field-symbols: <l_ref> type any .
data: dym type table of rssource-line,
code type table of rssource-line,
line type edpline,
prog(8) type c,
msg(120) type c,
lin(3) type c,
wrd(10) type c,
off(3) type c.
clear it_return. refresh it_return.
append 'PROGRAM ZEXECUTE_SQL.' to code.
append 'data: l_icon type icon occurs 0 with header line.' to code.
append 'FORM EXECUTE tables it_return.' to code.
* Dinamico
split sql at '@' into table dym.
if not ( dym is initial ).
loop at dym assigning <l_ref> .
if ( <l_ref> <> '' ).
append <l_ref> to code.
endif.
endloop.
endif.
* Estatico
append ' APPEND l_icon. ' to code.
append ' ENDSELECT. ' to code.
append ' it_return[] = l_icon[].' to code.
append 'ENDFORM.' to code.
* Se genera el programa
generate subroutine pool code name prog
message msg
line lin
word wrd
offset off.
if sy-subrc ne 0.
* raise error_formula.
else.
try.
*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" VALUE(SQL) TYPE STRING
*" TABLES
*" IT_RETURN STRUCTURE ICON OPTIONAL
*"----------------------------------------------------------------------
field-symbols: <l_ref> type any .
data: dym type table of rssource-line,
code type table of rssource-line,
line type edpline,
prog(8) type c,
msg(120) type c,
lin(3) type c,
wrd(10) type c,
off(3) type c.
clear it_return. refresh it_return.
append 'PROGRAM ZEXECUTE_SQL.' to code.
append 'data: l_icon type icon occurs 0 with header line.' to code.
append 'FORM EXECUTE tables it_return.' to code.
* Dinamico
split sql at '@' into table dym.
if not ( dym is initial ).
loop at dym assigning <l_ref> .
if ( <l_ref> <> '' ).
append <l_ref> to code.
endif.
endloop.
endif.
* Estatico
append ' APPEND l_icon. ' to code.
append ' ENDSELECT. ' to code.
append ' it_return[] = l_icon[].' to code.
append 'ENDFORM.' to code.
* Se genera el programa
generate subroutine pool code name prog
message msg
line lin
word wrd
offset off.
if sy-subrc ne 0.
* raise error_formula.
else.
try.
* Ejecuto el Form (execute) del programa generado
perform execute in program (prog)
tables it_return.
endtry.
endif.
endfunction.
perform execute in program (prog)
tables it_return.
endtry.
endif.
endfunction.
Encapsulamiento:
Paso 1.
*&---------------------------------------------------------------------*
*& Form execute_query_v2
*&---------------------------------------------------------------------*
form execute_query_v2 tables it_out using sql.
submit zhr_pa_acu_gensql
using selection-sets of program 'ZGENSQL'
with sql eq sql
exporting list to memory
and return.
import it_out from memory id 'RSQL'.
free memory id 'RSQL'.
endform.
*& Form execute_query_v2
*&---------------------------------------------------------------------*
form execute_query_v2 tables it_out using sql.
submit zhr_pa_acu_gensql
using selection-sets of program 'ZGENSQL'
with sql eq sql
exporting list to memory
and return.
import it_out from memory id 'RSQL'.
free memory id 'RSQL'.
endform.
Paso 2.
*&---------------------------------------------------------------------*
*& Report ZGENSQL
*&
*&---------------------------------------------------------------------*
report zgensql.
parameters: sql type string.
data: it_out type icon occurs 0 with header line.
start-of-selection.
call function 'Z_EXECUTE_SQL'
exporting
sql = sql
tables
it_return = it_out.
export it_out to memory id 'RSQL'.
.
