Wednesday, August 13, 2008

SAP ABAP Function Module to Wrap Long Text

The following function module can be used to wrap long text in ABAP.

SAP ABAP Function Module to Wrap Text

RKD_WORD_WRAP

Find the code below to test the above Function Module.

Import Parameters:

TEXTLINE
DELIMITER
OUTPUTLEN

OutPut Parameters:

OUT_LINE1
OUT_LINE2
OUT_LINE3

Code Sample:

REPORT ZEX_WORDWRAP.

Data: d_text(110),
d_text1(110),
d_text2(110),
d_text3(110),
d_text4(110),
d_oline1(110),
d_oline2(110),
d_oline3(110).

Data: Begin of int_text occurs 0,
o_lines(100),
End of int_text.

Move: 'THIS IS SAP MM DESCRIPTION WHICH NEEDS TO BE WRAPPED' to d_text1,
'IN TO SEVERAL LINES AS IT IS TOOL LONG FOR ONE LINE.' to d_text2.

Concatenate d_text1 d_text2 INTO d_text.

CALL FUNCTION 'RKD_WORD_WRAP'
EXPORTING
TEXTLINE = d_text
DELIMITER = ' '
OUTPUTLEN = 35
IMPORTING
OUT_LINE1 = d_oline1
OUT_LINE2 = d_oline2
OUT_LINE3 = d_oline3
TABLES
OUT_LINES = int_text
EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

loop at int_text.
write: int_text-o_lines.
endloop.

_______________________________________________________

No comments:

Post a Comment