Buenos dias a todos compañeros.
Se que sobre este tema se ha hablado por el foro y lo he mirado pero no consigo hacer lo que pretendo.
Yo trabajo en el modulo PS y necesitaria incorporar unos textos largos a los objetos que creo (pep's, cabeceras de Grafo, operaciones de Grafo, etc). Para ello si no me equivoco se usa la funcion CALL FUNCTION 'SAVE_TEXT'.
El caso es que he debbugeado el codigo y parece que el standart lo hace asi pero yo pongo los mismos campos o similares y aunque no da errores no modifica el texto que yo quiero. ¿Alguien sabe porque, alguna sugerencia o manual?.
mi codigo es:
DATA: header TYPE TABLE OF thead WITH HEADER LINE.
DATA: lines TYPE TABLE OF tline WITH HEADER LINE.
header-TDOBJECT = 'PMS'.
header-TDNAME = 'E00003732'.
header-TDID = 'LTXT'.
header-TDSPRAS = 'S'.
*TDTITLE
*header-TDFORM = 'SYSTEM'.
*TDSTYLE
header-TDVERSION = 00001.
header-TDFUSER = 'IBM14'.
header-TDFRELES = 700.
header-TDFDATE = 20080708.
*TDFTIME
*TDLUSER
*TDLRELES
*TDLDATE
header-TDLTIME = 095235.
header-TDLINESIZE = 072.
header-TDTXTLINES = 00004.
*TDHYPHENAT
*TDOSPRAS
header-MANDT = SY-MANDT.
append header.
lines-TDFORMAT = '*'.
lines-TDLINE = 'AAAAAAAAAAAAAAABBBBBBBBBBBBCCCCCC'.
append lines.
lines-TDFORMAT = '*'.
lines-TDLINE = 'AAAAAAAAAAAAAAABBBBBBBBBBBBCCC'.
append lines.
lines-TDFORMAT = '*'.
lines-TDLINE = 'AAAAAAAAAAAAAAABBBBBBBBBBBBCCCCC'.
append lines.
lines-TDFORMAT = '*'.
lines-TDLINE = 'AAAAAAAAAAAAAAABBBBBBBBBBBBCCCCCCCCCCCCCCCCCD'.
append lines.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = HEADER
INSERT = ' I '
SAVEMODE_DIRECT = ' X '
OWNER_SPECIFIED = ' SAPUSER '
LOCAL_CAT = ' '
IMPORTING
*FUNCTION =
NEWHEADER = HEADER
TABLES
LINES = LINES
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
COMMIT WORK.
Un saludo y gracias de antemano.
