Check out this one
CALL FUNCTION 'READ_TEXT' EXPORTING CLIENT = SY-MANDT ID = ITAB_THEAD-TDID LANGUAGE = CNS_SPRAS NAME = ITAB_THEAD-TDNAME OBJECT = ITAB_THEAD-TDOBJECT ARCHIVE_HANDLE = 0 * LOCAL_CAT = ' ' * IMPORTING * HEADER = TABLES LINES = ITAB_TLINE EXCEPTIONS ID = 1 LANGUAGE = 2 NAME = 3 NOT_FOUND = 4 OBJECT = 5 REFERENCE_CHECK = 6 WRONG_ACCESS_TO_ARCHIVE = 7 OTHERS = 8. IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
chk this thread
Example of READ_TEXT functions reading tables PBIM - Independent requirements for material.
REPORT ZTEXT .
TABLES: PBIM.
stxh, stxl, stxb - trans tables for text
ttxit - text on text-ids
ttxot - Short texts on text objects
Transaction MD63
SELECT-OPTIONS: S_MATNR FOR PBIM-MATNR,
S_WERKS FOR PBIM-WERKS.
DATA: BEGIN OF HTEXT.
INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.
DATA: BEGIN OF LTEXT OCCURS 50.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.
DATA: BEGIN OF DTEXT OCCURS 50.
DATA: MATNR LIKE PBIM-MATNR.
INCLUDE STRUCTURE TLINE.
DATA: END OF DTEXT.
DATA: TNAME LIKE THEAD-TDNAME.
SELECT * FROM PBIM WHERE WERKS IN S_WERKS.
MOVE PBIM-BDZEI TO TNAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'PB'
LANGUAGE = 'E'
NAME = TNAME
OBJECT = 'PBPT'
ARCHIVE_HANDLE = 0
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.
IF LTEXT-TDLINE NE ''.
MOVE LTEXT-TDLINE TO DTEXT-TDLINE.
MOVE PBIM-MATNR TO DTEXT-MATNR.
APPEND DTEXT.
ENDIF.
ENDLOOP.
ENDSELECT.
LOOP AT DTEXT.
WRITE:/ DTEXT-MATNR, DTEXT-TDLINE.
ENDLOOP.
I hope it helps.
Best Regards,
Vibha
*Please mark all the helpful answers
Hi,
try this example:
REPORT ZGRO_TEST.
*
DATA: BEGIN OF TEXT OCCURS 10.
INCLUDE STRUCTURE TLINE.
DATA: END OF TEXT.
*
START-OF-SELECTION.
*
Look at table STXH to the Parameters!!
Standard-Text (SO10) have the OBJECT 'TEXT'
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = 'PALT'
LANGUAGE = SY-LANGU
NAME = 'INVITATION'
OBJECT = 'TEXT'
TABLES
LINES = TEXT
EXCEPTIONS
NOT_FOUND = 1.
*
IF SY-SUBRC = 0.
LOOP AT TEXT. WRITE: / TEXT-TDLINE. ENDLOOP.
ELSE.
WRITE: / SY-SUBRC.
ENDIF.
*
END-OF-SELECTION.
Regards, Dieter
What text are u reading and from which transaction.
The following are the main parameters,
ID:
this is text id(U can find it in ur transaction,generally it will start with z)
LANGUAGE:
This depends on the language in which the text is maintained.For example En(english)
NAME:
No for which the text id is maintained,it may be deliver no or transport no.Depends on ur case.
OBJECT:
This represents mostly wether it is header data or item data respectively.so u can check this in ur transaction.
A short example as follows,
FORM read_text1 TABLES g_t_lines STRUCTURE tline
USING p_var TYPE c
p_obj TYPE c.
READ TABLE xvttp INDEX 1.
g_f_tdname1 = xvttp-vbeln.
g_f_obj1 = p_obj.
g_f_langu1 = 'DE'.
REFRESH g_t_lines.
CLEAR g_t_lines.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = p_var
language = g_f_langu1
name = g_f_tdname1
object = g_f_obj1
TABLES
lines = g_t_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.
Check this and let me know if u face any problenm.
Regards
Add a comment