Losing URL in the remote system when using SOFM

Question

Dear WF Group,
We have a workflow that is created in our cProjects system that starts a remote workflow via RFC in our main R3 system with data that is passed over from cProjects.
One piece of data that is passed is the URL link to the specific project in cProjects. This works about 50% of the time.  In those times it does not work, there is sometimes a enqueue error saying that the work item is locked by user WF-BATCH.  Sometimes there is no error, it just fails to create the URL attachment.
The basic program flow is:
Create workflow using  function module SAP_WAPI_START_WORKFLOW
Attach the URL using function module: ZSWL_SOFM_CREATE_WITH_TABLE
This is similar to the posted question u201CAttachment of SOFM type before triggering a WFu201D, but I didnu2019t understand the answer in relation to our issue.
Any help appreciated,
Al

Answer 1

Hi Rick,
This was done for us by an outside consultant.  I'll answer by including that FM:
function zswl_sofm_create_with_table.
""Local Interface:
*"  IMPORTING
*"     VALUE(NOTE_TITLE) LIKE  SODOCCHGI1-OBJ_DESCR OPTIONAL
*"     VALUE(DOCUMENT_TYPE) LIKE  SOODK-OBJTP DEFAULT SPACE
*"     VALUE(WI_ID) LIKE  SWWWIHEAD-WI_ID OPTIONAL
*"  EXPORTING
*"     VALUE(SOFM_KEY) LIKE  SWOTOBJID-OBJKEY
*"  TABLES
*"      NOTE_TEXT STRUCTURE  SOLISTI1 OPTIONAL
  data: region like sofd-folrg.
  data: folder_id like soodk.
  data: l_folder_id like soobjinfi1-object_id.
  data: document_data like sodocchgi1.
  data: document_info like sofolenti1.
  data: object_content like solisti1 occurs 0 with header line.
  data: lines like sy-tabix.
  data: ls_zwf_sood type zwf_sood.
*- set default
  if document_type is initial.
    document_type = 'RAW'.
  endif.
*- create office object
*-- get dark folder
  region = 'B'.
  call function 'SO_FOLDER_ROOT_ID_GET'
    exporting
      region                = region
    importing
      folder_id             = folder_id
    exceptions
      communication_failure = 1
      owner_not_exist       = 2
      system_failure        = 3
      x_error               = 4
      others                = 5.
  if sy-subrc ne 0.
    message e696
            raising error_sofm_creation.
  endif.
*- get description
  if note_title is initial.
    read table note_text index 1.
    note_title = note_text.
  endif.
*-- create office document
  document_data-obj_name = 'ATTACHMENT'.
  document_data-obj_descr = note_title.
  document_data-obj_langu = sy-langu.
  object_content[] = note_text[].
  describe table object_content lines lines.
  document_data-doc_size = ( lines - 1 ) * 255 + strlen( object_content ).
  l_folder_id = folder_id.
  call function 'SO_DOCUMENT_INSERT_API1'
    exporting
      folder_id                  = l_folder_id
      document_data              = document_data
      document_type              = document_type
    importing
      document_info              = document_info
    tables
      object_content             = object_content
    exceptions
      folder_not_exist           = 1
      document_type_not_exist    = 2
      operation_no_authorization = 3
      parameter_error            = 4
      x_error                    = 5
      enqueue_error              = 6
      others                     = 7.
  if sy-subrc ne 0.
    message e696
            raising error_sofm_creation.
  else.
store the document info in table zwf_sood
   ls_zwf_sood-wi_id = wi_id.
   ls_zwf_sood-objtp = document_info-object_id+0(3).
   ls_zwf_sood-objyr = document_info-object_id+3(2).
   ls_zwf_sood-objno = document_info-object_id+5(12).
   insert into zwf_sood values ls_zwf_sood .
  endif.
*- set export parameter
  sofm_key = document_info-doc_id.
now create the handle and update the workitem with the attachment
  data:
  lv_object_id type swotobjid,
  lv_element type swcont-element,
  lv_wi_header type swwwihead.
  concatenate sy-sysid sy-mandt into lv_object_id-logsys.
*lv_object_id-logsys = 'DR1CL160'.
  lv_object_id-objtype = 'SOFM'.
  lv_object_id-objkey =  sofm_key.
  lv_object_id-describe = '<OBJECT>'.
  call function 'SWW_WI_OBJECTHANDLE_ADD'
  in update task
    exporting
      wi_id                     = wi_id
      object_id                 = lv_object_id
      element_name              = '_ATTACH_OBJECTS'
     do_commit                 = 'X'
  IBF_OBJECT_ID             =
   changing
     wi_header                 =  lv_wi_header
  WI_CONTAINER_HANDLE       =
    exceptions
      update_failed             = 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.
endfunction.