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.
- SAP Managed Tags:
