topic Re: standard text through READ_TEXT in Application Development and Automation Discussions

standard text through READ_TEXT

Former Member — Thu, 29 May 2008 08:29:35 GMT

Hi,

I have created the standard text contains the 6 paragrpahs data through SO10 tcode. How can read such big in internal table by using the READ_TEXT fucntion module.

regards

Ajay

Re: standard text through READ_TEXT

Former Member — Thu, 29 May 2008 08:31:49 GMT

see this sample code for READ TEXT

LOOP AT i_stxh INTO s_stxh.

READ TABLE i_vbeln_1 WITH KEY vbeln = s_stxh-tdname INTO s_vbeln_1.

IF sy-subrc EQ 0.

---- for long text --------------------------------------------------

CALL FUNCTION 'READ_TEXT'

EXPORTING

client = sy-mandt

id = p_tdid

language = s_stxh-tdspras

name = s_stxh-tdname

object = 'VBBK'

TABLES

lines = i_textcontent

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 <> 0.

READ TABLE i_textcontent INTO s_textcontent INDEX 1.

IF s_textcontent IS NOT INITIAL.

READ TABLE i_ttxit WITH KEY tdid = p_tdid INTO s_ttxit.

---- converting language single char1 to char2 ----------------------

CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'

EXPORTING

input = s_stxh-tdspras

IMPORTING

output = s_output-tdspras.

---- moving data to the output table --------------------------------

s_output-werks_i = s_vbeln_1-werks_i.

s_output-lgort_i = s_vbeln_1-lgort_i.

s_output-lddat = s_vbeln_1-lddat.

s_output-vbeln = s_stxh-tdname.

s_output-tdid = s_ttxit-tdid.

s_output-tdtext = s_ttxit-tdtext.

s_output-textcontent = s_textcontent+0(70).

APPEND s_output TO i_output.

REFRESH i_textcontent[].

CLEAR s_textcontent+0(70).

CLEAR s_output.

ENDIF. "IF s_textcontent IS NOT INITIAL.

ENDIF. "IF SY-SUBRC EQ 0.

ENDLOOP. "LOOP AT i_stxh INTO s_stxh.

1st loop at that internal table and

use that FM

Re: standard text through READ_TEXT

Former Member — Thu, 29 May 2008 08:46:41 GMT

Hi,

it is no clear for me.

regards,

AJay

Re: standard text through READ_TEXT

vinod_vemuru2 — Thu, 29 May 2008 08:52:10 GMT

Hi Ajay,

If u know the Object ID, Nameand object of ur text then just pass these details to this FM. u will get All ur data in internal table lines.

DATA: l_text TYPE string.

CALL FUNCTION 'READ_TEXT'

EXPORTING

client = sy-mandt

id = 'UR TEXTID'

language = 'E'

name = UR OBJECT NAME object = 'UR 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

LOOP AT i_lines INTO wa_lines.

CONCATENATE l_text wa_lines INTO l_text.

ENDLOOP.

Now ur l_text has all the text.

Thanks,

Vinod.

Re: standard text through READ_TEXT

Former Member — Thu, 29 May 2008 08:58:21 GMT

Hi Vinod,

I am using the fcntion module.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = 'ST'

LANGUAGE = SY-LANGU

NAME = 'ZPR_TO_PO'

OBJECT = 'TEXT'

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =

TABLES

LINES = it_header

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8

please check and give me reply.

regards,

Ajay

Re: standard text through READ_TEXT

vinod_vemuru2 — Thu, 29 May 2008 10:01:50 GMT

Hi Ajay,

Can u be more clear on ur requirement? How eactly u want to display/Get the data.

Each line in SO10 script editor corrosponds to one row in ur output internal table of FM(it_header). So Just loop through this rable and read line by line. This is the only way possible read the whole text u created. If u want to display in single line then concatenate all the lines to one string variable.


LOOP AT it_header INTO wa_header.
WRITE:/1 wa_header-tdline.
ENDLOOP.

This will write whole text line by line.

Thanks,

Vinod.

Re: standard text through READ_TEXT

Former Member — Thu, 29 May 2008 13:02:08 GMT

Hi All,

I am declaring the internal table below.

DATA: BEGIN OF IT_HEADER OCCURS 0,

HDR_TXT(1500),

END OF IT_HEADER.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = 'ST'

LANGUAGE = SY-LANGU

NAME = 'ZPR_TO_PO'

OBJECT = 'TEXT'

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =

TABLES

LINES = IT_HEADER

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8

After executing I am getting the error. Type conflict when calling a function module (field length).

My Standard text contains the 6 paragraphs data.

regards,

Ajay

Edited by: Ajay on May 29, 2008 3:11 PM

Re: standard text through READ_TEXT

Former Member — Thu, 29 May 2008 13:20:58 GMT

Hi Ajay,

change the declaration of your internal table....

DATA: BEGIN OF IT_HEADER OCCURS 0.

HDR_TXT(1500), <Dont use this kind of declaration>

INCLUDE TYPE TLINE.

DATA:END OF IT_HEADER.

DATA: BEGIN OF IT_TEXT OCCURS 0,

HDR_TXT(1500),

END OF IT_TEXT.

And after executing this function module then you need to capture it_header-tdline into your it_text as like below.

Loop at it_header.

concatenate it_text-hdr_txt it_header-tdline into it_text-hdr_txt separated by space.

v_length = strlen (it_text-hdr_txt).

IF v_length GT 1350.

append it_text-hdr_txt.

endif.

endloop.

Rgds,

Bujji

Re: standard text through READ_TEXT

Former Member — Thu, 29 May 2008 13:30:45 GMT

Hi Bujji,

Thanks ....Solved.

regards,

Ajay