DATA l_case_guid TYPE scmg_case_guid.
l_case_guid = ....

DATA: element_identification TYPE TABLE OF bapipropme,
        l_identification LIKE LINE OF element_identification,
        element_insertion  TYPE TABLE OF bapidocins,
        l_insertion LIKE LINE OF element_insertion,
        element_attributes TYPE TABLE OF bapipropme,
        l_element_attributes TYPE  bapipropme,
        return TYPE TABLE OF  bapiret2.
DATA:  wa_srmurl              TYPE srmurl,
       wa_srmurlangu          TYPE srmurlangu,
       wa_srmurladm           TYPE srmurladm,
       i_timestamp            TYPE timestamp.
DATA l_guid TYPE sysuuid-c.

l_insertion-elem_no = 1.
l_insertion-description = 'URL TEST'.
l_insertion-anchor  = 'ZURL'.
APPEND l_insertion TO element_insertion.

l_identification-elem_no = 1.
l_identification-name = '%SPS_ID%'.
l_identification-value = 'ZSCMG_SPS_GENERAL_URL'.
APPEND l_identification TO element_identification.

CALL FUNCTION 'SYSTEM_UUID_C_CREATE'
  IMPORTING
    uuid = l_guid.

l_identification-name = 'GUID'.
l_identification-value = l_guid.
APPEND l_identification TO element_identification.

CALL FUNCTION 'BAPI_CASE_ADDELEMENTS'
  EXPORTING
    guid                   = l_case_guid 
  TABLES
    element_identification = element_identification
    element_insertion      = element_insertion
    return                 = return.


IF return[] IS INITIAL.
  MOVE: l_guid TO wa_srmurl-guid,
        'http://mail.ru'  TO wa_srmurl-url,
        1      TO wa_srmurl-counter.
  INSERT INTO srmurl VALUES wa_srmurl.

  MOVE: l_guid TO wa_srmurlangu-guid,
        'URL TEST' TO wa_srmurlangu-text,
        sy-langu TO wa_srmurlangu-langu.

  INSERT INTO srmurlangu VALUES wa_srmurlangu.

  GET TIME STAMP FIELD i_timestamp.

  MOVE: l_guid TO wa_srmurladm-guid,
        sy-uname TO wa_srmurladm-crea_user,
        i_timestamp TO wa_srmurladm-crea_time.

  INSERT INTO srmurladm VALUES wa_srmurladm.

  COMMIT WORK.
ENDIF.