Funktionsbaustein CRM_TEXT_MAINTAIN_OW ausführen

Funktionsbaustein CRM_TEXT_MAINTAIN_OW ausführen

Hallo Experten,

ich versuche verzweifelt den Fkt-Baustein 'CRM_TEXT_MAINTAIN_OW' auszuführen da ich ein Testbericht abspeichern möchte hier mal mein Report zum testen des Fkt-Bausteins:

*&---------------------------------------------------------------------*
*& Report ZTEST_CRM_TEXT_MAINTAIN_OW
*&---------------------------------------------------------------------*

REPORT ZTEST_CRM_TEXT_MAINTAIN_OW.

DATA: lv_guid_ref TYPE crmt_object_guid,

l_table_it_text TYPE CRMT_TEXT_COMT,
l_wrk_it_text TYPE CRMT_TEXT_COM,

l_wrk_line TYPE TLINE,
l_wrk_text TYPE CRMT_TEXT_WRK,

lt_input_fields TYPE CRMT_INPUT_FIELD_NAMES_TAB,
lt_changed_objects_guid_tab TYPE crmt_object_guid_tab,
l_wrk_input_field TYPE CRMT_INPUT_FIELD_NAMES.


CLEAR l_wrk_line.

l_wrk_line-tdformat = '*'.
l_wrk_line-tdline = '~TEST OK~'.
APPEND l_wrk_line TO l_wrk_text-lines.

l_wrk_it_text-lines[] = l_wrk_text-lines[].


lv_guid_ref = '4A7B9459B27B2A4AE1000000AC116637'.


l_wrk_it_text-ref_guid = '4A7B9459B27B2A4AE1000000AC116637'.
l_wrk_it_text-ref_kind = 'A'.
"l_wrk_it_text-text_object = ''.
l_wrk_it_text-tdid = 'CD01'.
l_wrk_it_text-tdspras = 'D'.
l_wrk_it_text-tdform = 'SYSTEM'.
l_wrk_it_text-tdtexttype = ''.
l_wrk_it_text-tdstyle = 'SYSTEM'.

APPEND l_wrk_it_text to l_table_it_text.

l_wrk_input_field-fieldname = 'LINES'.
INSERT l_wrk_input_field INTO TABLE lt_input_fields.


CALL FUNCTION 'CRM_TEXT_MAINTAIN_OW'
EXPORTING
IT_TEXT = l_table_it_text
IV_OBJECT_GUID = lv_guid_ref
IV_OBJECT_KIND = 'A'
CHANGING
CT_INPUT_FIELD_NAMES = lt_input_fields
EXCEPTIONS
OBJECT_KIND_UNKNOWN = 1
READ_ERROR_OBJECT_BUFFER = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

INSERT lv_guid_ref INTO TABLE lt_changed_objects_guid_tab.

CALL FUNCTION 'CRM_ORDER_SAVE'
EXPORTING
IT_OBJECTS_TO_SAVE = lt_changed_objects_guid_tab
* IMPORTING
* ET_SAVED_OBJECTS =
* ET_EXCEPTION =
* ET_OBJECTS_NOT_SAVED =
* CHANGING
* CV_LOG_HANDLE =
EXCEPTIONS
DOCUMENT_NOT_SAVED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

nur kann ich machen was ich möchte und er speichert den gewünschten Text aber nicht ab.