Web service - how to use it ?

Question

Hello expert,
i have to send a file using web wervice (consuming) ( from sap system toward external system ).
Could you provide me a basic exemple to do it ?
tks a lot,
bye.

Answer 1

DATA : imessage       TYPE STANDARD TABLE OF solisti1 WITH HEADER LINE,
           iattach        TYPE STANDARD TABLE OF solisti1 WITH HEADER LINE,
           ipacking_list  LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
           ireceivers     LIKE somlreci1  OCCURS 0 WITH HEADER LINE,
           iattachment    LIKE solisti1   OCCURS 0 WITH HEADER LINE.
    DATA : p_email2       TYPE somlreci1-receiver
                                    VALUE '<email address>'.
    PERFORM build_xls_data .
    PERFORM populate_msg_body.
    PERFORM send_email_with_xls TABLES imessage
                                       iattach
                                 USING p_email2
                                       'subject text
                                       'XLS'
                                       'TestFileName'
                                       'Body Text'
FORM send_email_with_xls TABLES pit_message
                                pit_attach
                          USING p_email2
                                p_mtitle
                                p_format
                                p_filename
                                p_attdescription.
  DATA: xdocdata LIKE sodocchgi1.
      xcnt     TYPE i.
Populate the subject/generic message attributes
  xdocdata-doc_size   = 1.
  xdocdata-obj_langu  = sy-langu.
  xdocdata-obj_name   = 'SAPRPT'.
  xdocdata-obj_descr  = p_mtitle.
  xdocdata-priority   = '1'.
  xdocdata-sensitivty = 'F'.
  iattachment[] = pit_attach[].
  ipacking_list-transf_bin = space.
  ipacking_list-head_start = 1.
  ipacking_list-head_num   = 0.
  ipacking_list-body_start = 1.
  DESCRIBE TABLE imessage LINES ipacking_list-body_num.
  ipacking_list-doc_type   = 'RAW'.
  APPEND ipacking_list.
Create attachment notification
  ipacking_list-transf_bin = 'X'.
  ipacking_list-head_start = 1.
  ipacking_list-head_num   = 1.
  ipacking_list-body_start = 1.
  DESCRIBE TABLE iattachment LINES ipacking_list-body_num.
  ipacking_list-doc_type   =  p_format.
  ipacking_list-obj_descr  =  p_attdescription.
  ipacking_list-obj_name   =  p_filename.
  ipacking_list-doc_size   =  ipacking_list-body_num * 255.
  APPEND ipacking_list.
  ireceivers-receiver   = p_email2.
  ireceivers-rec_type   = 'U'.
  ireceivers-com_type   = 'INT'.
  ireceivers-notif_del  = 'X'.
  ireceivers-notif_ndel = 'X'.
  APPEND ireceivers.
***Send Mail >>>
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = xdocdata
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = ipacking_list
      contents_bin               = iattachment
      contents_txt               = imessage
      receivers                  = ireceivers
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      document_type_not_exist    = 3
      operation_no_authorization = 4
      parameter_error            = 5
      x_error                    = 6
      enqueue_error              = 7
      OTHERS                     = 8.
  IF sy-subrc = 0.
    WAIT UP TO 10 SECONDS.
    SUBMIT rsconn01 WITH mode   = 'INT'
                    WITH output = ' '
                    AND RETURN.
  ENDIF.
ENDFORM.                    " send_email_with_xls