table for texts in a program

[Former Member]

Hi everybody,

I would like to know in which table is stored the information and text elements from any Z program that programmers can define through Go to, text elements, text symbols.

Thanks,

Cristina.

[former_member181962]

A simpler alternative would be:

READ TEXTPOOL <Program Name> INTO itab LANGUAGE sy-langu.

Regards,

ravi

[Former Member]

I've already found it but I was trying to make a query in order to have a set of programs in which to request the whole set of texts, not only the ones from one program.

Maybe I'll try to do it with a program that selects names from Z programs and later, executes one read pool texts for each Z program.

Thanks,

Cristina.

[former_member181962]

In general all the texts are stored in STXH and STXL tables , but the data it not human readable. It is in raw format, which can only be read using FMs like READ_TEXT.

Regards,

Ravi

[Former Member]

Read_text function module

First select corresponding fields of table itab_stxh against pono.

Stxh-tdname (text name) = PO No

Stxh-tdobject (text object) = EKKO

Stxh-tdid (text-id) = f01,f03,f05 (line items of itab)

Loop at itab and pass above arguments u ll get back the text detail of each row of itab ie against each id and put it in a wa having field like tline-tdline..

REPORT ZREADTEXT.

parameters: po like ekko-ebeln.

data : begin of itab_stxh occurs 0.

include structure stxh.

data : end of itab_stxh.

DATA: wa_TEXT like TLINE occurs 0 with header line.

data : begin of it_text occurs 0,

tdid like itab_stxh-tdid,

tdline like tline-tdline,

end of it_text.

*DATA: it_TEXT like TLINE occurs 0 with header line.

select * into corresponding fields of table itab_stxh from stxh where

tdname = po.

loop at itab_stxh.

CALL FUNCTION 'READ_TEXT'

EXPORTING

• CLIENT = SY-MANDT

id = itab_stxh-tdid

language = sy-langu

name = itab_stxh-tdname

object = itab_stxh-tdobject

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

• IMPORTING

• HEADER =

tables

lines = wa_text

• 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.

loop at wa_text.

MOVE wa_TEXT-TDLINE TO IT_text-TDLINE .

move itab_stxh-tdid to it_text-tdid.

APPEND IT_text .

endloop.

break-point.

write : / itab_stxh-tdid, itab_stxh-tdobject.

endloop.

loop at it_text.

write : / it_text-tdid, it_text-tdline.

endloop.

[Former Member]

use FM <b>RS_TEXTPOOL_READ</b>

give objectname as Programname