Regarding Long Text

[former_member532868]

Hi Experts

I am getting longtext through read text function module.Entire Long Text is there in internal table.

Long Text total Length is 1500 characters.

How can i pass into single variyable entire longtext.

Please send the detaild code based on above example.

Regards

Hari

[Former Member]

Hi,

Try with variable type string.

regards,

Ramya

[Former Member]

Hi,

create the variable of type string.then it will hold the value even if it is more than 1500 chars.

rgds,

bharat.

[Former Member]

Hi,

Refer this sample code below :

Data l_count type i.

LOOP AT GT_QPMT ASSIGNING <GF_QPMT>.

clear gs_ltext.

GS_LTEXT-MANDT = <GF_QPMT>-MANDT.

GS_LTEXT-ZAEHLER = <GF_QPMT>-ZAEHLER.

GS_LTEXT-MKMNR = <GF_QPMT>-MKMNR.

GS_LTEXT-VERSION = <GF_QPMT>-VERSION.

GS_LTEXT-SPRACHE = <GF_QPMT>-SPRACHE.

THEAD-TDNAME = GS_LTEXT.

THEAD-TDID = 'QPMT'.

THEAD-TDOBJECT = 'QPMERKMAL'.

thead-tdspras = <GF_QPMT>-SPRACHE.

*..Get the Long text

CALL FUNCTION 'READ_TEXT'

EXPORTING

id = thead-tdid

language = thead-tdspras

name = thead-tdname

object = thead-tdobject

TABLES

lines = gt_tline

EXCEPTIONS

OTHERS = 8.

Loop at gt_tline.

gs_ltext-tdline = gt_tline-tdline.

gs_ltext-tdformat = gt_tline-tdformat.

gs_ltext-sno = l_count.

append gs_ltext to gt_ltext.

l_count = l_count + 1.

Endloop.

clear gt_tline[].

L_COUNT = 1.

ENDLOOP.

LOOP AT GT_LTEXT into gs_ltext.

MOVE-CORRESPONDING GS_LTEXT TO GS_LTEXT1.

APPEND GS_LTEXT1 TO GT_LTEXT1.

clear gs_ltext1.

ENDLOOP.

LOOP AT GT_LTEXT1 INTO GS_LTEXT1.

read table gt_qpmt INTO GS_qpmt with key ZAEHLER = gs_ltext1-ZAEHLER

MKMNR = gs_ltext1-MKMNR

version = gs_ltext1-version

sprache = gs_ltext1-sprache.

IF SY-SUBRC EQ 0.

gs_ltext1-GUELTIGAB = gs_qpmt-GUELTIGAB.

modify gt_ltext1 from gs_ltext1 transporting GUELTIGAB.

endif.

ENDLOOP.

Please reward points if helpful.

Regards

Rose

[Former Member]

Pls this example, it will you

DATA: l_flag TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.

LOOP AT t_vbrk INTO w_vbrk .

w_name = w_vbrk-vbeln.

CALL FUNCTION 'READ_TEXT'

EXPORTING

• CLIENT = SY-MANDT

id = c_zi02

language = sy-langu

name = w_name

object = c_vbbk

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

• IMPORTING

• HEADER =

TABLES

lines = t_tline

EXCEPTIONS

id = 1

language = 2

name = 3

not_found = 4

object = 5 .

LOOP AT t_tline INTO w_tline.

SPLIT w_tline-tdline AT l_flag INTO TABLE t_tlines .

IF NOT t_tlines[] IS INITIAL .

LOOP AT t_tlines INTO w_tlines .

w_item1-t_des = w_tlines .

APPEND w_item1 TO t_item1 .

write: / w_item1-description.

endloop.