topic Re: Conver internal table into XM format write into application server in XML in Application Development and Automation Discussions

Conver internal table into XM format write into application server in XML

Former Member — Mon, 15 Oct 2007 17:37:14 GMT

Hi,

I need to write my internal table data into Application server in XML format , please help me in this.

Thanks,

Saleem..

Message was edited by:

Alvaro Tejada Galindo

Re: Conver internal table into XM format write into application server in XML

Former Member — Mon, 15 Oct 2007 17:39:48 GMT

*----

Report ZPRUEBA_MML_13 *
Export an internal table to XML document *
NO BORRAR ESTE CODIGO *

*----

REPORT Z_table_xml.

*----

PARAMETERS: GK_RUTA TYPE RLGRAP-FILENAME.

TYPES: BEGIN OF TURNOS,

LU LIKE T552A-TPR01,

MA LIKE T552A-TPR01,

MI LIKE T552A-TPR01,

JU LIKE T552A-TPR01,

VI LIKE T552A-TPR01,

SA LIKE T552A-TPR01,

DO LIKE T552A-TPR01,

END OF TURNOS.

TYPE SOCIO *

TYPES: BEGIN OF SOCIO,

NUMERO LIKE PERNR-PERNR,

REPOSICION LIKE PA0050-ZAUVE,

NOMBRE LIKE PA0002-VORNA,

TURNOS TYPE TURNOS,

END OF SOCIO.

TYPE SOCIO *

*----

ESTRUCTURA ACCESOS *

DATA: BEGIN OF ACCESOS OCCURS 0,

SOCIO TYPE SOCIO,

END OF ACCESOS.

ESTRUCTURA ACCESOS *

*----

START OF SELECTION *

START-OF-SELECTION.

PERFORM LLENA_ACCESOS.

PERFORM DESCARGA_XML.

END-OF-SELECTION.

END OF SELECTION *

*----

FORM LLENA_ACCESOS *

FORM LLENA_ACCESOS.

REFRESH ACCESOS.

CLEAR ACCESOS.

MOVE: '45050' TO ACCESOS-SOCIO-NUMERO,

'MOISES MORENO' TO ACCESOS-SOCIO-NOMBRE,

'0' TO ACCESOS-SOCIO-REPOSICION,

'T1' TO ACCESOS-SOCIO-TURNOS-LU,

'T2' TO ACCESOS-SOCIO-TURNOS-MA,

'T3' TO ACCESOS-SOCIO-TURNOS-MI,

'T4' TO ACCESOS-SOCIO-TURNOS-JU,

'T5' TO ACCESOS-SOCIO-TURNOS-VI,

'T6' TO ACCESOS-SOCIO-TURNOS-SA,

'T7' TO ACCESOS-SOCIO-TURNOS-DO.

APPEND ACCESOS.

CLEAR ACCESOS.

MOVE: '45051' TO ACCESOS-SOCIO-NUMERO,

'RUTH PEÑA' TO ACCESOS-SOCIO-NOMBRE,

'0' TO ACCESOS-SOCIO-REPOSICION,

'T1' TO ACCESOS-SOCIO-TURNOS-LU,

'T2' TO ACCESOS-SOCIO-TURNOS-MA,

'T3' TO ACCESOS-SOCIO-TURNOS-MI,

'T4' TO ACCESOS-SOCIO-TURNOS-JU,

'T5' TO ACCESOS-SOCIO-TURNOS-VI,

'T6' TO ACCESOS-SOCIO-TURNOS-SA,

'T7' TO ACCESOS-SOCIO-TURNOS-DO.

APPEND ACCESOS.

ENDFORM.

FORM LLENA_ACCESOS *

*----

FORM DESCARGA_XML *

FORM DESCARGA_XML.

DATA: L_DOM TYPE REF TO IF_IXML_ELEMENT,

M_DOCUMENT TYPE REF TO IF_IXML_DOCUMENT,

G_IXML TYPE REF TO IF_IXML,

W_STRING TYPE XSTRING,

W_SIZE TYPE I,

W_RESULT TYPE I,

W_LINE TYPE STRING,

IT_XML TYPE DCXMLLINES,

S_XML LIKE LINE OF IT_XML,

W_RC LIKE SY-SUBRC.

DATA: XML TYPE DCXMLLINES.

DATA: RC TYPE SY-SUBRC,

BEGIN OF XML_TAB OCCURS 0,

D LIKE LINE OF XML,

END OF XML_TAB.

CLASS CL_IXML DEFINITION LOAD.

G_IXML = CL_IXML=>CREATE( ).

CHECK NOT G_IXML IS INITIAL.

M_DOCUMENT = G_IXML->CREATE_DOCUMENT( ).

CHECK NOT M_DOCUMENT IS INITIAL.

WRITE: / 'Converting DATA TO DOM 1:'.

CALL FUNCTION 'SDIXML_DATA_TO_DOM'

EXPORTING

NAME = 'ACCESOS'

DATAOBJECT = ACCESOS[]

IMPORTING

DATA_AS_DOM = L_DOM

CHANGING

DOCUMENT = M_DOCUMENT

EXCEPTIONS

ILLEGAL_NAME = 1

OTHERS = 2.

IF SY-SUBRC = 0.

WRITE 'Ok'.

ELSE.

WRITE: 'Err =',

SY-SUBRC.

ENDIF.

CHECK NOT L_DOM IS INITIAL.

W_RC = M_DOCUMENT->APPEND_CHILD( NEW_CHILD = L_DOM ).

IF W_RC IS INITIAL.

WRITE 'Ok'.

ELSE.

WRITE: 'Err =',

W_RC.

ENDIF.

CALL FUNCTION 'SDIXML_DOM_TO_XML'

EXPORTING

DOCUMENT = M_DOCUMENT

IMPORTING

XML_AS_STRING = W_STRING

SIZE = W_SIZE

TABLES

XML_AS_TABLE = IT_XML

EXCEPTIONS

NO_DOCUMENT = 1

OTHERS = 2.

IF SY-SUBRC = 0.

WRITE 'Ok'.

ELSE.

WRITE: 'Err =',

SY-SUBRC.

ENDIF.

LOOP AT IT_XML INTO XML_TAB-D.

APPEND XML_TAB.

ENDLOOP.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

BIN_FILESIZE = W_SIZE

FILENAME = GK_RUTA

FILETYPE = 'BIN'

TABLES

DATA_TAB = XML_TAB

EXCEPTIONS

OTHERS = 10.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM.

FORM DESCARGA_XML *

*----

Thanks & Regards

ilesh 24x7

Re: Conver internal table into XM format write into application server in XML

Former Member — Mon, 15 Oct 2007 17:45:08 GMT

i want to write into application sever, is this code use full for that.

I am awationg for your answer.

Thanks,

Saleem.

Re: Conver internal table into XM format write into application server in XML

Former Member — Mon, 15 Oct 2007 17:49:46 GMT

a code which converts the internal table to XML in the presentation server.

REPORT z_down_xml LINE-SIZE 132 NO STANDARD PAGE HEADING.

**********************************************************************

REPORT Z_DOWN_XML - Using an internal table (gt_marc) *
and downloading the report data as an xml file *
The xml indentation is hard coded into the file *

**********************************************************************

Databases

TABLES:

makt, "Mat description

marc, "Material / plant

t001w, "plant name

bhdgd. "Batch heading

Internal tables

DATA:

BEGIN OF gt_marc OCCURS 0,

werks LIKE marc-werks,

matnr LIKE marc-matnr,

END OF gt_marc,

Table to be downloaded as xml. Each line stores start and end tags
and the value

BEGIN OF gt_xml OCCURS 0,

line(120),

END OF gt_xml,

g_maktx(120).

User-input

SELECT-OPTIONS:

s_werks FOR marc-werks,

s_matnr FOR marc-matnr.

**********************************************************************

START-OF-SELECTION.

Extract all required data

PERFORM main_processing.

**********************************************************************

END-OF-SELECTION.

SORT gt_marc BY werks matnr.

LOOP AT gt_marc.

AT FIRST. "First tag must be root

CLEAR gt_xml.

gt_xml-line = ''.

APPEND gt_xml.

CLEAR gt_xml.

display data

FORMAT COLOR 2 ON.

WRITE 😕 gt_marc-matnr, makt-maktx.

FORMAT COLOR 2 OFF.

ENDLOOP.

The last tag must be the root closing tag --*

gt_xml-line = '</LOCATIONS>'.

APPEND gt_xml.

CLEAR gt_xml.

CALL FUNCTION 'DOWNLOAD'

EXPORTING

filename = 'D:SAPPLANT1.XML'

filetype = 'ASC'

TABLES

data_tab = gt_xml.

**********************************************************************

TOP-OF-PAGE.

MOVE sy-title TO bhdgd-line1.

MOVE sy-repid TO bhdgd-repid.

MOVE sy-uname TO bhdgd-uname.

MOVE sy-datum TO bhdgd-datum.

MOVE '0' TO bhdgd-inifl.

MOVE '132' TO bhdgd-lines.

FORMAT INTENSIFIED ON COLOR COL_HEADING.

PERFORM batch-heading(rsbtchh0). "report header

*----

Form READ_PLANT

*----

FORM read_plant.

Get plant name

CLEAR t001w.

SELECT SINGLE name1

INTO t001w-name1

FROM t001w

WHERE werks EQ gt_marc-werks.

ENDFORM. " READ_PLANT

*----

Form MAIN_PROCESSING

*----

FORM main_processing.

Material and plant basic data

SELECT werks matnr

INTO TABLE gt_marc

FROM marc

WHERE werks IN s_werks

AND matnr IN s_matnr.

ENDFORM. " MAIN_PROCESSING

*----

Form READ_DESCRIPTION

*----

FORM read_description.

Material name

CLEAR g_maktx.

SELECT SINGLE maktx

INTO g_maktx

FROM makt

WHERE matnr EQ gt_marc-matnr

AND spras EQ 'E'.

Replace special character

DO.

REPLACE '&' WITH '*ù%;' INTO g_maktx.

IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.

ENDDO.

DO.

REPLACE '*ù%;' WITH '&' INTO g_maktx.

IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.

ENDDO.

DO.

REPLACE '/' WITH '/' INTO g_maktx.

IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.

ENDDO.

ENDFORM. " READ_DESCRIPTION

after this use the Transaction

CG3Z

to upload the XML file from presentation server to the applicaion server by specifying the path.

Thanks & Regards

ilesh 24x7

Re: Conver internal table into XM format write into application server in XML

Former Member — Mon, 15 Oct 2007 17:53:38 GMT

my program will run in back ground and ifinal internal table data should be write in XML format in application server.

Thanks,

Saleem.

Re: Conver internal table into XM format write into application server in XML

Former Member — Mon, 15 Oct 2007 18:06:26 GMT

To Download internal table to Application server file

DATA: e_file like rlgrap-filename value '/usr/sap/tmp/file.txt'.

open dataset e_file for output in text mode.

lOOP AT it_datatab......

transfer it_datatab to e_file.

ENDLOOP.

close dataset e_file.

Try this FM

BANK_API_PP_UT_DATA_TO_XML

Thanks & Regards

ilesh 24x7

Re: Conver internal table into XM format write into application server in XML

Former Member — Mon, 15 Oct 2007 18:23:03 GMT

hi,

i need to change into XMl then write into application server.

Thanks,

Saleem.

Re: Conver internal table into XM format write into application server in XML

Former Member — Mon, 15 Oct 2007 18:23:32 GMT

hi,

i need to change into XMl then write into application server.

Thanks,

Saleem.

Re: Conver internal table into XM format write into application server in XML

uwe_schieferstein — Mon, 15 Oct 2007 19:51:03 GMT

Hello Saleem

The following sample report<b> ZUS_SDN_XML_OUTPUT_1</b> shows how to save XML files on the application server.

*&---------------------------------------------------------------------*
*& Report  ZUS_SDN_XML_OUTPUT_1
*&
*&---------------------------------------------------------------------*
*& URL: "<a class="jive_macro jive_macro_message" href="" __jive_macro_name="message" modifiedtitle="true" __default_attr="4276065"></a>
*&
*&---------------------------------------------------------------------*

REPORT  zus_sdn_xml_output_1.



DATA:
  gd_dsn        TYPE string,
  gd_xml        TYPE string,
  gdo_data      TYPE REF TO data,
  gt_knb1       TYPE STANDARD TABLE OF knb1,
  gd_rc         TYPE sysubrc,
  go_doc        TYPE REF TO cl_xml_document.




START-OF-SELECTION.

  gd_dsn = 'X:usrsaptranstempoutput.xml'.

  SELECT  * FROM  knb1 INTO TABLE gt_knb1 up to 10 rows
         WHERE  bukrs  = 2000.


  CALL TRANSFORMATION id
    SOURCE itab = gt_knb1
    RESULT XML gd_xml.

  CREATE OBJECT go_doc.
  gd_rc = go_doc->parse_string( gd_xml ).
  go_doc->display( ).


  OPEN DATASET gd_dsn FOR OUTPUT IN BINARY MODE.
  TRANSFER gd_xml TO gd_dsn.
  CLOSE DATASET gd_dsn.


END-OF-SELECTION.

Regards

Uwe