Check Function Group MR1M, SUBROUTINE 'READ_TEXT'.
*&---------------------------------------------------------------------*
*& Form READ_TEXT
*&---------------------------------------------------------------------*
* Notiz einlesen
*----------------------------------------------------------------------*
FORM read_text USING i_rbkpv TYPE mrm_rbkpv
editor type xflag.
DATA: f_lines TYPE i,
f_tdname TYPE tdobname,
f_thead TYPE thead,
c_tdobject TYPE tdobject VALUE 'RBKP ',
tab_sap_script_text TYPE tline OCCURS 10 WITH HEADER LINE.
MOVE: i_rbkpv-belnr TO f_tdname(10),
i_rbkpv-gjahr TO f_tdname+10(4).
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = '0001'
language = sy-langu
name = f_tdname
object = c_tdobject
IMPORTING
header = f_thead
TABLES
lines = tab_sap_script_text
EXCEPTIONS
OTHERS = 1.
DESCRIBE TABLE tab_sap_script_text LINES f_lines.
IF f_lines = 0.
MESSAGE e115.
ENDIF.
...
ENDFORM. " READ_TEXT
Last Wiki Answer Submitted: February 13, 2009 2:35 pm by Yopt15 pts.
If you live outside the United States, by submitting your email address you consent to having your personal data transferred to and processed in the United States.