Save Text for PO Notes

IF ls_theadtab-neu EQ 'X'.
CALL FUNCTION 'INIT_TEXT'
EXPORTING
id = l_thead-tdid
language = my_langu
name = l_thead-tdname
object = l_thead-tdobject
IMPORTING
header = l_thead
TABLES
lines = lt_tline
EXCEPTIONS
OTHERS = 1.
CHECK sy-subrc IS INITIAL.
MOVE-CORRESPONDING l_thead TO ls_theadtab.
ENDIF.

LOOP AT im_textlines INTO l_textline.
l_tline-tdformat = l_textline-tdformat.
l_tline-tdline = l_textline-tdline .
APPEND l_tline TO lt_tline.
ENDLOOP.


CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = l_thead
IMPORTING
function = l_txfunction
TABLES
lines = lt_tline
EXCEPTIONS
OTHERS = 1.
CHECK sy-subrc IS INITIAL.
ls_theadtab-neu = space.
IF NOT l_txfunction IS INITIAL.
CALL METHOD update_change_doc


EXPORTING
im_tdid = ls_theadtab-tdid
im_tdspras = ls_theadtab-tdspras
im_function = l_txfunction.
ls_theadtab-fixie = space.
ENDIF.
MODIFY my_theadtab FROM ls_theadtab INDEX l_tabix.


ELSE.

READ TABLE my_theadtab INTO ls_theadtab WITH KEY
tdobject = my_text_manager_type->tdobject
tdid = l_textid.
CHECK sy-subrc IS INITIAL.
CALL METHOD delete_text
EXPORTING
im_tdid = ls_theadtab-tdid
im_tdspras = ls_theadtab-tdspras
im_tdobject = ls_theadtab-tdobject
im_tdname = ls_theadtab-tdname.

ls_theadtab-neu = 'X'.
MODIFY TABLE my_theadtab FROM ls_theadtab.

ENDIF.

LMEREQF12

id = 'B01'.
language = E
name = 0010012535
object = EBANH

related link : http://iorboaz.blogspot.com/2007/05/sap-abap-putsave-text-in-sap.html