Text object VBBK

[Former Member]

Hi,

I want to see the contents of Object VBBK.

What data should I pass to fn. module 'READ_TEXT' to see its contents.

For ex:--

id -- 0002

language -- EN

name --- ???

object -- VBBK.

But, am pretty confused about 'name' parameter? What value should I pass to 'name'???

Thanks,

Shivaa........

[Former Member]

check this sample code .

TYPES: BEGIN OF ST_VBRK.

INCLUDE STRUCTURE VBRK.

TYPES: END OF ST_VBRK.

TYPES: BEGIN OF ST_STXH.

INCLUDE STRUCTURE STXH.

TYPES: END OF ST_STXH.

TYPES: BEGIN OF ST_LINE .

INCLUDE STRUCTURE TLINE.

TYPES: END OF ST_LINE.

DATA : BEGIN OF ST_HEAD .

INCLUDE STRUCTURE THEAD.

DATA : END OF ST_HEAD.

IST_STXH TYPE STANDARD TABLE OF ST_STXH, " internal table for header text table

WA_STXH TYPE ST_STXH,

IST_LINE TYPE STANDARD TABLE OF ST_LINE, " internal table for text line items

WA_LINE TYPE ST_LINE,

IST_VBRK TYPE STANDARD TABLE OF ST_VBRK, " internal table for vbrk table

WA_VBRK TYPE ST_VBRK,

parametres: p_vbeln type vbrk-vbeln.

SELECT * FROM VBRK

INTO TABLE IST_VBRK FOR ALL ENTRIES IN IST_BSEG

WHERE VBELN = p_VBELN.

LOOP AT IST_VBRK INTO WA_VBRK.

SELECT SINGLE * FROM STXH

INTO WA_STXH

WHERE TDOBJECT = 'VBBK'

AND TDNAME = WA_VBRK-VBELN

AND TDID = '0002'.

IF SY-SUBRC = 0 .

APPEND WA_STXH TO IST_STXH.

ENDIF.

ENDLOOP.

LOOP AT IST_STXH INTO WA_STXH.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = '0002'

LANGUAGE = SY-LANGU

NAME = WA_STXH-TDNAME

OBJECT = 'VBBK'

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

IMPORTING

HEADER = ST_HEAD

TABLES

LINES = IST_LINE

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8

.

DELETE IST_LINE WHERE TDLINE IS INITIAL.

LOOP AT IST_LINE INTO WA_LINE.

MOVE WA_STXH-TDNAME TO IST_LINE_COPY-VBELN.

MOVE WA_LINE-TDLINE TO IST_LINE_COPY-TEXT.

CONDENSE:IST_LINE_COPY-VBELN , IST_LINE_COPY-TEXT.

APPEND IST_LINE_COPY.

ENDLOOP.

check the flow by proper debugging.

Regds

Sachhi