Hello All,
I have a problem in mail step. When I am trying to fetch the rejection reason text,
it's fetching only the First Line. But I need all text content instead of First line.
Please Help me in this.
I have written the code like below.
DATA: reason_txt TYPE swcont-value,
reason TYPE swc_object OCCURS0,
object_content LIKE solisti1 OCCURS0,
workitemid LIKE swr_struct-workitemid,
subcontainer_all_objects LIKETABLEOF swr_cont,
lv_wa_reason LIKELINEOF subcontainer_all_objects,
lv_no_att LIKE sy-index,
document_id LIKE sofolenti1-doc_id,
return_code LIKE sy-subrc,
ifs_xml_container TYPE xstring,
ifs_xml_container_schema TYPE xstring,
simple_container LIKETABLEOF swr_cont,
message_lines LIKETABLEOF swr_messag,
message_struct LIKETABLEOF swr_mstruc,
subcontainer_bor_objects LIKETABLEOF swr_cont.
swc_get_table container 'REASON' reason.
swc_get_element container 'WORKITEMID' workitemid.
* Read the work item container from the work item ID
CALLFUNCTION'SAP_WAPI_READ_CONTAINER'
EXPORTING
workitem_id = workitemid
language = sy-langu
user = sy-uname
IMPORTING
return_code = return_code
ifs_xml_container = ifs_xml_container
ifs_xml_container_schema = ifs_xml_container_schema
TABLES
simple_container = simple_container
message_lines = message_lines
message_struct = message_struct
subcontainer_bor_objects = subcontainer_bor_objects
subcontainer_all_objects = subcontainer_all_objects.
* Initialize
lv_no_att = 0.
* Read the _ATTACH_OBJECTS element
LOOPAT subcontainer_all_objects INTO lv_wa_reason
WHERE element = '_ATTACH_OBJECTS'.
lv_no_att = lv_no_att + 1.
document_id = lv_wa_reason-value.
ENDLOOP.
* Read the SOFM Document
CALLFUNCTION'SO_DOCUMENT_READ_API1'
EXPORTING
document_id = document_id
TABLES
object_content = object_content.
* Pass the text to the exporting parameter
IF sy-subrc = 0.
READTABLE object_content INTO reason_txt INDEX1.
SHIFT reason_txt BY5PLACESLEFT.
swc_set_element container 'REASON_TXT' reason_txt.
ENDIF.
end_method.