Former Member

Sep 07, 2007 at 11:13 AM

FM READ_TEXT

32 Views

I am using fm Read_Text to get read text (agenda, log, note) of business trans CRMD_ORDER category -Meeting

here when I am creating a report toDISPLAY (Agenda Log Note)for meeting it is leading to short dump

i called the function module READ_TEXT & the code is pasted below..i referred Table STXH same fields i.

MY PROBLEM : how to pass parameters to get all the three (agenda log note) for a particular meeting wwhich table to read

so kindly check the below code is possible & let me know what corrections to do

TABLES: STXH.

DATA: begin of tlinetab occurs 10.

include structure tline.

data: end of tlinetab.

data : text(255) type c.

data : text2(255) type c.

data : text3(255) type c.

*DATA: BEGIN OF XTHEAD.

*INCLUDE STRUCTURE THEAD.

*DATA: END OF XTHEAD.

*DATA: BEGIN OF ZZTLINE OCCURS 10.

*INCLUDE STRUCTURE TLINE.

*DATA: END OF ZZTLINE.

*

*XTHEAD-TDID = 'ZPPM'. "TEXT-ID

*XTHEAD-TDSPRAS = SY-LANGU. "Language

*XTHEAD-TDNAME = 'ZTKF'. "identification

*CONCATENATE SY-TCODE(5) ITAB0300POS-AUFNR

*INTO XTHEAD-TDNAME.

*XTHEAD-TDOBJECT = 'TEXT'. "Object type top/position

DATA : BEGIN OF ST_STXH OCCURS 0,

TDID LIKE STXH-TDID,

TDSPRAS LIKE STXH-TDSPRAS,

TDNAME LIKE STXH-TDNAME,

TDOBJECT LIKE STXH-TDOBJECT,

OBJECT_ID LIKE CRMD_ORDERADM_H-OBJECT_ID,
OBJECT_TYPE LIKE CRMD_ORDERADM_H-OBJECT_TYPE,

END OF ST_STXH.

DATA : WA_STXH LIKE ST_STXH,

IT_STXH LIKE TABLE OF WA_STXH.

SELECT TDID TDSPRAS TDNAME TDOBJECT FROM STXH INTO CORRESPONDING

FIELDS OF TABLE ST_STXH WHERE TDOBJECT = 'CRM_ORDERH' AND TDSPRAS = 'EN' AND TDID LIKE 'A00%'.

LOOP AT ST_STXH.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = ST_STXH-TDID

LANGUAGE = SY-LANGU

NAME = ST_STXH-TDNAME

"'B7719EA7A9DFA5449D643943CC2CDF07'

OBJECT = 'CRM_ORDERH'

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =

TABLES

LINES = TLINETAB

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.

READ TABLE TLINETAB .

text = tlinetab-tdline.

write:/ text.

ENDLOOP.