Long Text 0000000015120044ZOH ID ZOH language EN not found

Question

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.

Answer 1

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