PROBLEM WITH FETCHING THE TEXT FROM HEADER DATA

[Former Member]

Hi,

plz give me the solution.

TYPES:BEGIN OF WA_TLINE,

TDFORMAT TYPE TLINE-TDFORMAT,

TDLINE(132) TYPE C, "TLINE-TDLINE,

END OF WA_TLINE,

BEGIN OF WA_STXH,

TDOBJECT TYPE RSTXT-TDOBJECT,

TDNAME TYPE STXH-TDNAME,

TDID TYPE STXH-TDID,

TDSPRAS TYPE STXH-TDSPRAS,

END OF WA_STXH.

DATA : OBJECT(10) TYPE C,

it_inline TYPE TABLE OF WA_TLINE with header line,

IT_LINE TYPE TABLE OF WA_TLINE WITH HEADER LINE,

IT_STXH TYPE STANDARD TABLE OF WA_STXH WITH HEADER LINE,

IT_HEAD TYPE THEAD.

*data:it_tdline like table of tline with header line.

PARAMETERS:PA_VBELN TYPE VBELN_VF.

START-OF-SELECTION.

SELECT TDOBJECT TDNAME TDID TDSPRAS FROM STXH INTO CORRESPONDING FIELDS OF TABLE IT_STXH

WHERE TDNAME = PA_VBELN.

**

• MOVE IT_STXH-TDOBJECT TO OBJECT.

IF SY-SUBRC EQ 0.

CALL FUNCTION 'READ_TEXT_INLINE'

EXPORTING

ID = IT_STXH-TDID

INLINE_COUNT = '1'

LANGUAGE = IT_STXH-TDSPRAS

NAME = IT_STXH-TDNAME

OBJECT = 'VBBK'

• LOCAL_CAT = ' '

• IMPORTING

• HEADER = it_head

TABLES

INLINES = it_inline

LINES = it_line

• EXCEPTIONS

• ID = 1

• LANGUAGE = 2

• NAME = 3

• NOT_FOUND = 4

• OBJECT = 5

• REFERENCE_CHECK = 6

• OTHERS = 7

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDIF.

write:/ it_inline.

iam using this program but it will shows the error object is not found but it will comes in itab when u pass the data from itab to function module it will shows the error.

I will give the nuts.

Regards,

Venkat

[Former Member]

finally i solved my problem

[Former Member]

Hi Venkat,

This is working fine for me.

CALL FUNCTION 'READ_TEXT_INLINE'

EXPORTING

id = '0001'

inline_count = '1'

language = 'D'

name = '0000005462'

object = 'VBBK'

local_cat = ' '

IMPORTING

header = it_head

TABLES

inlines = it_inline

lines = it_line

EXCEPTIONS

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

OTHERS = 7.

IF sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy- msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDIF.

WRITE:/ it_inline.

Regards

avi.....

[Former Member]

Hi Avi,

Thanks for ur reply, It is working when u pass the values directly, but u pass the data thorugh itab it is not working, it will shows the error object is not found.

Regards,

Venkat.