Send Data in format 0000000066field1|value1|field2|value2 through BPEL

Question

hi
We have a requirement where we need to send data in the following format:
<10byte length>field1|value1|field2|value2.
we need to use socket adapter in BPEL to send data to client system.
In the socket adapter we are using outbound synchronous request/reply and opaque schema for the request message.
The client server is unable to read the data.
when we do the same through pl/sql using utl_tcp we are able to communicate with the client server.
We need to do this through socket adapter.
What could be the issue in this when we are using socket adapter?
Thanks

Answer 1

Hi,
here is the piece of code to transfer data from internal table to applivcation server as a comma seperated file..
FORM comma_sep_file .
  DATA: l_cost_center_str            TYPE type_cost_center.
  IF it_cost_center[] IS NOT INITIAL.
  **Concatenate file path and file name
    CONCATENATE p_cpath p_cfile INTO v_cost_cen_output.
    OPEN DATASET v_cost_cen_output FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
If Network file could not be opened, give a message.
    IF sy-subrc <> 0.
      WRITE : / text-030 , v_cost_cen_output .
   MESSAGE s000(zp) WITH text-015 .
      CLEAR : v_cost_cen_output,
              p_cpath .
    ELSE.
      LOOP AT it_cost_center INTO l_cost_center_str.
        CONCATENATE l_cost_center_str-co_cen_code
                    l_cost_center_str-co_cen_name
                    l_cost_center_str-fld3
                    l_cost_center_str-fld4
                    l_cost_center_str-set_true INTO wa_csvdata
                                               SEPARATED BY c_const_sep.
        TRANSFER wa_csvdata TO v_cost_cen_output.
        CLEAR wa_csvdata.
      ENDLOOP.
    ENDIF."IF sy-subrc <> 0.
    CLOSE DATASET v_cost_cen_output.
  ENDIF.
ENDFORM.                    "
i hope this will help you...
Thanks & Regards
Ashu Singh