data:
ltd_tlines like tline occurs 0 with header line,
lwa_header type thead.
*{ +@RMA6369
data: ls_id type thead-tdid,
ls_name type thead-tdname,
ls_objeto type thead-tdobject,
ls_lines type standard table of tline,
ls_header type thead,
ls_tabla type standard table of thead.
*} +@RMA6369
lwa_header-tdobject = 'EKKO'.
lwa_header-tdname = ip_ebeln.
lwa_header-tdid = 'F02'.
lwa_header-tdspras = 'S'.
ltd_tlines-tdformat = '*'.
ltd_tlines-tdline = ip_mblnr5.
append ltd_tlines.
call function 'SAVE_TEXT'
exporting
client = sy-mandt
header = lwa_header
savemode_direct = 'X'
tables
lines = ltd_tlines
exceptions
id = 1
language = 2
name = 3
object = 4
others = 5.
if sy-subrc <> 0.
* ----------ERROR.
else.
* ----------EXITO.
endif.
*{ +@RMA6369
ls_objeto = 'EKPO'.
concatenate ip_ebeln '00010' into ls_name.
ls_id = 'F01'.
call function 'SELECT_TEXT'
exporting
id = ls_id
language = sy-langu
name = ls_name
object = ls_objeto
importing
entries = sy-tfill
tables
selections = ls_tabla.
if sy-tfill = 0.
call function 'INIT_TEXT'
exporting
id = ls_id
language = sy-langu
name = ls_name
object = ls_objeto
importing
header = ls_header
tables
lines = ls_lines
exceptions
id = 1
language = 2
name = 3
object = 4.
else.
call function 'READ_TEXT'
exporting
id = ls_id
language = sy-langu
name = ls_name
object = ls_objeto
importing
header = ls_header
tables
lines = ls_lines
exceptions
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6.
endif.
call function 'EDIT_TEXT'
exporting
header = ls_header
save = 'X'
tables
lines = ls_lines.
call function 'SAVE_TEXT'
exporting
header = ls_header
savemode_direct = 'X'
tables
lines = ls_lines.
*} +@RMA6369
