[jmrivero]

Hola,

adjunto código para extraer el texto ampliado de una OT (Los parámetros de llamada a READ_TEXT que aparecen comentados son los de acceso al texto ampliado de un aviso, por si queréis ver cómo acceder a estos).

El código lo que hace es obtener el texto ampliado de la OT que tiene la notificación nº 30487 y mostrarlo por pantalla.


REPORT ZPRUEBA.

DATA: BEGIN OF HTEXT.
INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.

DATA: BEGIN OF LTEXT OCCURS 50.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.



CALL FUNCTION 'READ_TEXT'
EXPORTING
* ID = 'LTXT'
* LANGUAGE = 'S'
* OBJECT = 'QMEL'
* CLIENT = '100'
* NAME = '000010016024'

ID = 'RMEL'
LANGUAGE = 'S'
OBJECT = 'AUFK'
NAME = '100000003048700000001'
CLIENT = '100'

IMPORTING
header = HTEXT
TABLES
lines = LTEXT
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.


LOOP AT LTEXT.
WRITE / LTEXT-TDLINE.
ENDLOOP.

Un saludo a tod@s.