DATA ATTACHMENT TYPE BORIDENT.
DATA DOCUMENTS TYPE STANDARD TABLE OF SOOD4.
DATA DOCUMENT TYPE SOOD4.
DATA FOLDER_ID TYPE SOFDK.
DATA IS_OBJECT TYPE BORIDENT.
IS_OBJECT-OBJKEY = '00000005'.
IS_OBJECT-OBJTYPE = 'BUS1065'.
CALL FUNCTION 'SO_FOLDER_ROOT_ID_GET'
EXPORTING
REGION = 'B'
IMPORTING
FOLDER_ID = FOLDER_ID
EXCEPTIONS
OTHERS = 0.
DOCUMENT-FOLTP = FOLDER_ID-FOLTP.
DOCUMENT-FOLYR = FOLDER_ID-FOLYR.
DOCUMENT-FOLNO = FOLDER_ID-FOLNO.
APPEND DOCUMENT TO DOCUMENTS.
CALL FUNCTION 'SO_DOCUMENTS_MANAGER'
EXPORTING
ACTIVITY = 'IMPO'
TABLES
DOCUMENTS = DOCUMENTS.
READ TABLE DOCUMENTS INDEX 1 INTO DOCUMENT.
IF NOT IS_OBJECT-OBJKEY IS INITIAL.
IF DOCUMENT-OKCODE = 'CREA' OR DOCUMENT-OKCODE = 'CHNG'.
ATTACHMENT-OBJTYPE = 'MESSAGE'.
ATTACHMENT-OBJKEY = DOCUMENT(34).
CALL FUNCTION 'BINARY_RELATION_CREATE'
EXPORTING
OBJ_ROLEA = IS_OBJECT
OBJ_ROLEB = ATTACHMENT
RELATIONTYPE = 'ATTA'
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC = 0.
* EP_ATTACHMENT = DOCUMENT(34).
COMMIT WORK.
ENDIF.
ENDIF.
ELSE.
IF DOCUMENT-OKCODE = 'CREA' OR DOCUMENT-OKCODE = 'CHNG'.
* EP_ATTACHMENT = DOCUMENT(34).
ENDIF.
ENDIF.