FUNCTION Z_ANLAGE_HINZUFUEGEN4.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_OBJECTTYPE) LIKE BORIDENT-OBJTYPE OPTIONAL
*" VALUE(I_OBJECTKEY) LIKE BORIDENT-OBJKEY OPTIONAL
*" VALUE(I_URL) LIKE SOLI-LINE OPTIONAL
*" VALUE(I_URLDES) LIKE SOOD1-OBJDES OPTIONAL
*" VALUE(I_NOCOMMIT) TYPE XFELD OPTIONAL
*" TABLES
*" OT_RETURN STRUCTURE BAPIRET2
*"----------------------------------------------------------------------
data: l_owner like soud-usrnam,
l_folderid like soodk,
l_obj_id like soodk,
l_objdata like sood1,
lt_objcont type table of soli with header line,
lt_objhead type table of soli with header line,
l_object like borident,
l_reldoc like borident,
l_syst like syst.
*-----------------------------------------------------------------------
*1. Get folder id.
l_owner = sy-uname.
call function 'SO_FOLDER_ROOT_ID_GET'
exporting
owner = l_owner
region = 'B'
importing
folder_id = l_folderid
exceptions
communication_failure = 1
owner_not_exist = 2
system_failure = 3
x_error = 4
others = 5.
if sy-subrc <> 0.
l_syst = syst.
perform collect_message using ot_return l_syst '1.FolderRoot'.
append ot_return.
exit.
endif.
*2. Insert object
l_objdata-objla = 'EN'.
l_objdata-objdes = i_urldes.
l_objdata-objsns = 'O'.
concatenate '&KEY&' i_url into lt_objcont.
append lt_objcont.
call function 'SO_OBJECT_INSERT'
exporting
folder_id = l_folderid
object_type = 'URL'
object_hd_change = l_objdata
owner = l_owner
importing
object_id = l_obj_id
tables
objcont = lt_objcont
objhead = lt_objhead
exceptions
active_user_not_exist = 1
communication_failure = 2
component_not_available = 3
dl_name_exist = 4
folder_not_exist = 5
folder_no_authorization = 6
object_type_not_exist = 7
operation_no_authorization = 8
owner_not_exist = 9
parameter_error = 10
substitute_not_active = 11
substitute_not_defined = 12
system_failure = 13
x_error = 14
others = 15.
if sy-subrc <> 0.
l_syst = syst.
perform collect_message using ot_return l_syst '2.ObjectInsert'.
append ot_return.
exit.
endif.
*3. Create binary relation
l_object-objkey = i_objectkey.
l_object-objtype = i_objecttype.
concatenate l_folderid l_obj_id into l_reldoc-objkey.
l_reldoc-objtype = 'MESSAGE'.
call function 'BINARY_RELATION_CREATE'
exporting
obj_rolea = l_object
obj_roleb = l_reldoc
relationtype = 'URL'
exceptions
no_model = 1
internal_error = 2
unknown = 3
others = 4.
if sy-subrc <> 0.
l_syst = syst.
perform collect_message using ot_return l_syst
'3.BinaryRelationCreate'.
append ot_return.
exit.
endif.
*4. Commit LUW
* All successful, sent success message.
clear: l_syst-msgid, l_syst-msgno.
l_syst-msgty = 'S'.
l_syst-msgv1 = 'Link created successfully'.
perform collect_message using ot_return l_syst '4. URLLinkCreated'.
append ot_return.
if i_nocommit is initial.
call function 'BAPI_TRANSACTION_COMMIT'.
endif.
ENDFUNCTION.
*----------------------------------------------------------------------*
***INCLUDE /1BCDWB/LIQG000000000039F01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form collect_message
*&---------------------------------------------------------------------*
FORM collect_message using o_return like bapiret2
i_syst like syst
i_callpoint like bapiret2-parameter.
clear o_return.
o_return-type = i_syst-msgty.
if i_syst-msgty is initial.
o_return-type = 'E'.
i_syst-msgty = 'E'.
endif.
o_return-id = i_syst-msgid.
o_return-number = i_syst-msgno.
o_return-message_v1 = i_syst-msgv1.
o_return-message_v2 = i_syst-msgv2.
o_return-message_v3 = i_syst-msgv3.
o_return-message_v4 = i_syst-msgv4.
o_return-parameter = i_callpoint.
message id i_syst-msgid type i_syst-msgty number i_syst-msgno into
o_return-message.
endform. " collect_message
Die FORM "COLLECT_MESSAGE" existiert nicht.
