Skip to Content

Long Text 0000000015120044ZOH ID ZOH language EN not found

Hi Good day,

i am trying to Create, Save and Read the long Text.

for that i have done the following.

1. SE75 Created the Object and Object ID Ex :

Now when i implement the logic in the Program,

at the end when i execute ,


1. it does the CALL FUNCTION 'INIT_TEXT' successfully , SAVE_TEXT Successfully but when i try to READ_TEXT it says


Text 0000000015120044ZOH ID ZOH language EN not found

this is my logic

TABLES : ZEHS00_EXA_CARD.

PARAMETERS SRV_NUM TYPE CHAR16.

DATA: textname LIKE thead-tdname,

func,

co_co LIKE sy-index.

* Interne Tabellen

DATA t_tf02hz LIKE thead OCCURS 0 WITH HEADER LINE.

DATA t_tf02lz LIKE tline OCCURS 0 WITH HEADER LINE.

DATA: ltxtflg LIKE bapistdtyp-boolean.

DATA : l_text_tab LIKE tline OCCURS 100 WITH HEADER LINE.

DATA: ltxtflg1 LIKE bapistdtyp-boolean.

DATA : l_text_tab1 LIKE tline OCCURS 100 WITH HEADER LINE.

DATA : description(225).

DATA : description1(225).

DATA: line(132) TYPE c,

text_tab LIKE STANDARD TABLE OF line,

text_tab1 LIKE STANDARD TABLE OF line,

WA_TAB LIKE STANDARD TABLE OF LINE,

WA_TAB1 LIKE LINE OF text_tab1,

field LIKE line.

DATA: line1(132) TYPE c,

field1 LIKE line.

DATA: e_header TYPE thead,

i_header TYPE STANDARD TABLE OF thead,

w_tline TYPE tline,

i_tline TYPE STANDARD TABLE OF tline WITH HEADER LINE.

e_header-tdobject = 'ZSYS_ACT1'.

e_header-tdid = 'ZOH'.

e_header-tdspras = sy-langu.

e_header-tdlinesize = 072.

CONCATENATE SRV_NUM e_header-tdid INTO textname.

CALL FUNCTION 'C14G_TEXT_INPUT_EDIT'

EXPORTING

i_windowtitle = 'Systolic action Description'

i_tablename = 'CCIHT_IP'

i_fieldname = 'ACDESC'

i_language = sy-langu

i_actype = 'X'

TABLES

x_text_tab = l_text_tab

CHANGING

x_text = description

x_ltxtflg = ltxtflg.

CALL FUNCTION 'INIT_TEXT'

EXPORTING

id = 'ZOH'

language = sy-langu"'E'

name = textname

object = 'ZSYS_ACT1'

IMPORTING

header = t_tf02hz

TABLES

lines = t_tf02lz.

LOOP AT l_text_tab.

MOVE :l_text_tab-TDLINE TO LINE.

APPEND line TO t_tf02lz.

ENDLOOP.

CONCATENATE SRV_NUM e_header-tdid INTO e_header-tdname.

** APPEND 'DevComments for Obj 1' to i_tline.

**

CALL FUNCTION 'SAVE_TEXT'

EXPORTING

client = sy-mandt

header = e_header

savemode_direct = 'X'

TABLES

lines = i_tline

EXCEPTIONS

id = 1

language = 2

name = 3

object = 4

OTHERS = 5.

CLEAR : l_text_tab[].

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = 'ZOH'

LANGUAGE = 'E'

NAME = e_header-tdname"textname

OBJECT = 'ZSYS_ACT1'

TABLES

LINES = l_text_tab."t_tf02lz.

.

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.

IF l_text_tab[] IS NOT INITIAL.

ENDIF.


thank you,

J.

object.jpg (6.3 kB)
OBJECT ID.jpg (19.3 kB)
Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

1 Answer

  • Best Answer
    author's profile photo Former Member
    Former Member
    Posted on Mar 14, 2014 at 08:00 AM

    Hi,

    Go to tcode SE11 check table STXH whether the text stored in it. If yes, then see the layout of field TDNAME.

    Thanks.

    Regards,

    Keng Haw

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.