Output XML to Application Server

Question

Hi,
I have successfully output the contents of an xml document object (if_ixml_document) using the following code (where p_xml_document is my xml document object):
  TYPES:
    BEGIN OF xml_line,
      data(256) TYPE x,
    END OF xml_line.
  DATA:
    streamfactory     TYPE REF TO if_ixml_stream_factory,
    ostream           TYPE REF TO if_ixml_ostream,
    renderer          TYPE REF TO if_ixml_renderer,
    ls_xml            TYPE xml_line,
    lt_xml_table      TYPE TABLE OF xml_line,
    v_xml_size        TYPE i.
Transfer contents of xml document object into an internal table.
  streamfactory = g_ixml->create_stream_factory( ).
  ostream = streamfactory->create_ostream_itable( table = lt_xml_table ).
  renderer = g_ixml->create_renderer( ostream = ostream document = p_xml_document ).
  renderer->render( ).
  v_xml_size = ostream->get_num_written_raw( ).
  CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
      bin_filesize = v_xml_size
      filename     = 'c:\hr_sl\aaa_sunlife.xml'
      filetype     = 'BIN'
    CHANGING
      data_tab     = lt_xml_table.
My problem is I really need to output the XML to the application server, so I need to replace the call to cl_gui_frontend_services=>gui_download with something that will download the xml to the app server.
I've tried using OPEN DATASET/TRANSFER/CLOSE DATASET, and while I am getting a file created on the app server, it only contains one line of XML.
My code looks lile this:
  OPEN DATASET l_ofile FOR OUTPUT IN BINARY MODE.
Transfer xml to dataset
  LOOP AT lt_xml_table INTO ls_xml.
    TRANSFER ls_xml TO l_ofile.
  ENDLOOP.
Close the dataset.
  CLOSE DATASET l_ofile.
I've searched and searched on SDN and have not found an answer.  Any help would be greatly appreciated.
Thanks!
Edited by: Russell Hergott on Jan 16, 2008 10:52 PM

Answer 1

hi boss,
some of the code may be useful for u .
try like this sending into the internal table  and then try ....
*& Report  ZTESTPROGRAMFORUPLOAD
REPORT  ZTESTPROGRAMFORUPLOAD message-id zmsg.
tables:pa0002.
types:begin of ty_pa0000,
      pernr like pa0000-pernr,
      endda like pa0000-begda,
      end of ty_pa0000.
types:begin of ty_pa0002,
      pernr like pa0002-pernr,
      begda like pa0002-begda,
      endda like pa0002-endda,
      vorna like pa0002-vorna,
      nachn like pa0002-nachn,
      end of ty_pa0002.
data:it_pa0000 type standard table of ty_pa0000 with header line,
      it_pa0002 type standard table of ty_pa0002 with header line.
data: v_pernr like pa0002-pernr,
      v_lines type i.
DATA: W_MSG(150)  TYPE C.
SELECTION-SCREEN BEGIN OF BLOCK FILE WITH FRAME TITLE TEXT-FIL.
*SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: P_PC  RADIOBUTTON GROUP RAD USER-COMMAND USR.         "PC
*SELECTION-SCREEN COMMENT 3(5) TEXT-SC1.
PARAMETERS: P_UNIX  RADIOBUTTON GROUP RAD DEFAULT 'X'.         "UNIX
*SELECTION-SCREEN COMMENT 11(5) TEXT-SC2.
parameters:p_file like rlgrap-filename.
*SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK FILE.
at selection-screen on value-request for p_file.
perform f4_help.
START-OF-SELECTION.
*---Get the  active employyes
  select     pernr
             endda
             from pa0000
             into table it_pa0000 up to 100 rows
             where endda >= sy-datum
             and   begda <= sy-datum
             and   stat2 = '3'.
  if sy-subrc = 0.
    sort it_pa0000 by pernr endda descending.
    delete adjacent duplicates from it_pa0000 comparing pernr.
  endif.
select pernr
       begda
       endda
       vorna
       nachn
       from pa0002
       into table it_pa0002
       for all entries in it_pa0000
       where pernr = it_pa0000-pernr.
sort it_pa0002 by pernr.
delete adjacent duplicates from it_pa0002 comparing pernr.
append it_pa0002.
endloop.
END-OF-SELECTION.
  describe table it_pa0002 lines  v_lines .
*---get data into Application Server.
PERFORM OUTPUT_CORPEDIA_VENDOR_FILE .
  SKIP 2.
  WRITE:/ 'FILE NAME :' , P_FILE .
  WRITE:/ 'NO OF RECORDS DOWNLOADED : ', V_LINES .
*&      Form  f4_help
      text
-->  p1        text
<--  p2        text
form f4_help .
  IF P_UNIX = 'X'.
F4 help for UNIX
    CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
      EXPORTING
        DYNPFIELD_FILENAME = 'P_FILE'
        DYNAME             = SY-CPROG
        DYNUMB             = SY-DYNNR
        FILETYPE           = 'P'
        LOCATION           = 'A'
        SERVER             = ''.
    IF SY-SUBRC <> 0.
      MESSAGE E000 WITH TEXT-E01 P_FILE.
    ENDIF.
  ELSEIF P_PC = 'X'.
F4 help for PC
  clear p_file.
    CALL FUNCTION 'WS_FILENAME_GET'
      EXPORTING
        DEF_PATH         = P_FILE
        MASK             = ',..'
        MODE             = '0 '
        TITLE            = 'Choose File'
      IMPORTING
        FILENAME         = P_FILE
      EXCEPTIONS
        INV_WINSYS       = 1
        NO_BATCH         = 2
        SELECTION_CANCEL = 3
        SELECTION_ERROR  = 4
        OTHERS           = 5.
  ENDIF.
endform.                    " f4_help
*&      Form  OUTPUT_CORPEDIA_VENDOR_FILE
      text
-->  p1        text
<--  p2        text
form OUTPUT_CORPEDIA_VENDOR_FILE .
  IF P_PC = 'X'.
  data: v_pcfile type string.
  v_pcfile = p_file.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME                      = v_pcfile
      FILETYPE                      = 'ASC'
      WRITE_FIELD_SEPARATOR           = 'X'
    TABLES
      DATA_TAB                      = it_pa0002.
sort it_pa0002 by pernr.
delete adjacent duplicates from  it_pa0002.
else.
  data: outrec(200) type c .
  OPEN DATASET P_FILE FOR OUTPUT IN TEXT MODE encoding DEFAULT.
  loop at it_pa0002.
    outrec+0(8) = it_pa0002-pernr.
    outrec+18(8) = it_pa0002-begda.
    outrec+36(8) = it_pa0002-endda.
    outrec+54(40) = it_pa0002-vorna.
    outrec+104(40) = it_pa0002-nachn.
    transfer outrec to p_file.
    clear outrec.
  endloop.
  CLOSE DATASET OUTREC.
    IF SY-SUBRC = 0.
      CLEAR W_MSG.
     CONCATENATE 'Corpedia Vendor Demographic File successfully written to:'
                 P_FILE
                 INTO W_MSG SEPARATED BY SPACE.
      ULINE.  SKIP.
      WRITE : W_MSG.
    ENDIF.
  ENDIF.
endform.                    " OUTPUT_CORPEDIA_VENDOR_FILE
regards,
venkat.