Reading Long Text -LT31 -- VA02

[Former Member]

Hi All,

Acc to my requirements.I want to display the text at the header level in the sap script form.

I used the following code, the script form is displaying the limited text only,it is because of ITCSY value holds only 255.But I want to display more text.what changed do I need to do.

Please help me out.I greatly appreciate your help in this.

FORM GET_PACK_TEXT TABLES TAB_IN STRUCTURE ITCSY

TAB_OUT STRUCTURE ITCSY.

DATA GV_NAME LIKE THEAD-TDNAME.

DATA GV_VBELN LIKE VBAK-VBELN.

DATA GV_VBELV LIKE VBFA-VBELV.

DATA GV_ID LIKE THEAD-TDID.

DATA GV_OBJECT LIKE THEAD-TDOBJECT.

DATA GV_LEN TYPE I.

GV_ID = 'ZH20'.

GV_OBJECT = 'VBBK'.

DATA I_LINE LIKE TLINE OCCURS 0 WITH HEADER LINE.

READ TABLE TAB_IN WITH KEY 'LTAK-VBELN'.

IF SY-SUBRC EQ 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = TAB_IN-VALUE

IMPORTING

OUTPUT = GV_VBELN.

SELECT SINGLE VBELV FROM VBFA INTO GV_VBELV WHERE VBELN = GV_VBELN.

GV_NAME = GV_VBELV.

CALL FUNCTION 'READ_TEXT'

EXPORTING

ID = GV_ID

LANGUAGE = SY-LANGU

NAME = GV_NAME

OBJECT = GV_OBJECT

• ARCHIVE_HANDLE = 0

• LOCAL_CAT = ' '

• IMPORTING

• HEADER =

TABLES

LINES = I_LINE

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.

IF SY-SUBRC EQ 0.

CLEAR TAB_OUT-VALUE.

LOOP AT I_LINE.

CONCATENATE TAB_OUT-VALUE I_LINE-TDLINE INTO TAB_OUT-VALUE

SEPARATED BY SPACE.

GV_LEN = STRLEN( TAB_OUT-VALUE ).

IF GV_LEN > 355.

CONDENSE TAB_OUT-VALUE.

EXIT.

ENDIF.

ENDLOOP.

MODIFY TAB_OUT TRANSPORTING VALUE WHERE NAME = 'PACK_TEXT'.

ENDIF.

ENDIF.

ENDFORM. "GET_Pack_Text

Thanks,

Praveen

[Former Member · Accepted solution]

hi praveen

i would suggest you to keep the code inside a loop so as to get more number of character rather than just 255.

inside the loop you can keep the write_form .

Regards

Zarina

[Former Member · Accepted solution]

Zarina,

Thanks for your reply.

I tried with that..but still getting the same output.

I looped through ILINE the value is going to tab_out but the script form is not showing up the full text.

Please send me the code to my ID praveenkkm@gmail.com.

Thanks,

Praveen