#1
|
|||
|
|||
Problemas con CALL FUNCTION 'SAVE_TEXT'
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|