topic Re: Sending XML data to Application server in Application Development and Automation Discussions

Sending XML data to Application server

Former Member — Fri, 04 Jan 2008 07:52:09 GMT

Hi,

I have some HR data to be send in XML format to the application server.

Please find below part the code:

The final DATA retrieved from HR tables is in lt_alvoutfile.

END-OF-SELECTION.

DATA:

gd_dsn TYPE string,

gd_xml TYPE string,

gdo_data TYPE REF TO data,

gd_rc TYPE sysubrc,

go_doc TYPE REF TO cl_xml_document.

gd_dsn = 'output.xml'.

CALL TRANSFORMATION id

SOURCE itab = lt_alvoutfile

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.

When I do this and check the application server through AL11 I see as Error log

Directory: ./

Name: X:\usr\sap\trans\temp\output.xml

###<#?#x#m#l# #v#e#r#s#i#o#n#=#"#1#.#0#"# #e#n#c#o#d#i#n#g#=#"#u#t#f#-#1#6#"#?#>#

#<#a#s#x#:#a#b#a#p# #x#m#l#n#s#:#a#s#x#=#"#h#t#t#p#:#/#/#w#w#w#.#s#a#p#.#c#o#m#/#a#b#a#p#x#m#l#"# #v#e#r#s#i#o#n#=#"#1#.#0#"#>#<#a#s#x#:#v#a#l#u#e#s#>#<#I#T#A#B#/#>#<#/#a#s#x#:#v

Please suggest how we can rectify this and make it display as an normal XML file with tags.

Re: Sending XML data to Application server

Former Member — Fri, 04 Jan 2008 16:37:20 GMT

instead of OPEN DATASET gd_dsn FOR OUTPUT IN BINARY MODE.

use OPEN DATASET gd_dsn FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

problem is with the mode of data transfer.

use text mode .

Re: Sending XML data to Application server

Former Member — Fri, 04 Jan 2008 16:40:57 GMT

Hi,

it gives dump if i use text mode.

Re: Sending XML data to Application server

Former Member — Fri, 04 Jan 2008 17:55:46 GMT

same thing i ahve imp. in my system. its giving correct xml file wiht tags in the appl. server.

REPORT yxml.

TYPES: BEGIN OF ty_temp,

text(100) TYPE c,

END OF ty_temp.

DATA: lt_alvoutfile TYPE TABLE OF ty_temp.

DATA:

gd_dsn TYPE string VALUE '/datafiles/text.xml',

gd_xml TYPE string,

gdo_data TYPE REF TO data,

gd_rc TYPE sysubrc,

go_doc TYPE REF TO cl_xml_document,

wa_temp TYPE ty_temp.

wa_temp-text = 'dkjdsfjgkjfdgfd'.

APPEND wa_temp TO lt_alvoutfile.

CLEAR wa_temp.

wa_temp-text = '111111111111'.

APPEND wa_temp TO lt_alvoutfile.

CLEAR wa_temp.

wa_temp-text = 'd435ytry56gfhgd'.

APPEND wa_temp TO lt_alvoutfile.

CLEAR wa_temp.

*gd_dsn = 'output.xml'.

CALL TRANSFORMATION id

SOURCE itab = lt_alvoutfile

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 TEXT MODE ENCODING DEFAULT.

TRANSFER gd_xml TO gd_dsn.

CLOSE DATASET gd_dsn.

execute the same in in ur system and let me know the status

Re: Sending XML data to Application server

Former Member — Fri, 04 Jan 2008 18:01:30 GMT

I was able to get rid of cryptic characters but the whole xml file appears as a single line like

?xml version="1.0" encoding="utf-16"?>

sx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0"><asx:values><ITAB><item><PERNR>00005987</PERNR><NACHN>Diersing</NACHN><VORNA>Christina</VORNA><MIDNM>M</MIDNM></GESCH><GBDAT>1955-08-GBDAT><STRAS>2068 Faycrest Drive</STRAS><LOCAT/><ORT01>Cincinnati</ORT01><PSTLZ>45238</PSTLZ><TELNR>5134514054</TELNR></item></ITAB></asx:values></a

does an xml file appear as single line or as a typical xml file in different lines.

i am not sure how the XML file in single line is right.

Re: Sending XML data to Application server

Former Member — Fri, 04 Jan 2008 18:06:06 GMT

please find attached the entire code.

&----

*& Report ZPA_IOFFICE_INTERFACE *

*& *

&----

*& *

&----

REPORT zhpa_ioffice_interface .

INFOTYPES: 0001, "HR Master Record: Infotype 0001 (Org. Assignment)

0000, "HR Master Record: Infotype 0000 (Actions)

0002, "HR Master REcord(Personal data)

0006.

NODES: person,peras.

TABLES: pernr ,tbdls.

----

DATA DECLARATIONS *

----

DATA:lt_0001 TYPE STANDARD TABLE OF p0001,

lt_0002 TYPE STANDARD TABLE OF p0002.

DATA: BEGIN OF lt_outfile,

pernr TYPE p0000-pernr,

nachn TYPE p0002-nachn,

vorna TYPE p0002-vorna,

midnm TYPE p0002-midnm,

gesch TYPE p0002-gesch,

gbdat TYPE p0002-gbdat,

stras TYPE p0006-stras,

locat TYPE p0006-locat,

ort01 TYPE p0006-ort01,

pstlz TYPE p0006-pstlz,

telnr TYPE p0006-telnr.

DATA: END OF lt_outfile.

DATA: w_count TYPE i.

FIELD-SYMBOLS: <fldvalue> TYPE ANY,

<infty_ln> TYPE ANY.

*Final Output list Internal table----

DATA: lt_alvoutfile LIKE STANDARD TABLE OF lt_outfile.

DATA: wa_return TYPE bapireturn1.

DATA: g_return TYPE bapireturn1.

DATA: stru_disvar TYPE disvariant.

DATA: waconst TYPE zbc_const.

DATA:rec_cnt TYPE i.

DATA:v_p_abap_flg,

v_s_dataset_flg.

DATA: alpha LIKE sy-datum VALUE '18000101'."begin date to be used for data retreival

DATA: v_identifier TYPE logsys,

v_directory TYPE dir_name,

v_file TYPE fileextern,

v_physical_file LIKE rlgrap-filename,

wa_rep_date(10) TYPE c,

wa_rep_time(15) TYPE c.

DATA:l_filename TYPE rlgrap-filename.

TYPES: truxs.

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.

*data:filename TYPE RLGRAP-FILENAME.

*DATA: XMLTAB TYPE TYPE_XMLTAB, BIN_SIZE TYPE I.

CONSTANTS: c_i(1) TYPE c VALUE '1' ,

c_eq(2) TYPE c VALUE 'EQ' ,

c_3(1) TYPE c VALUE '3' .

----

*Selection-Screen

SELECTION-SCREEN BEGIN OF BLOCK block_one WITH FRAME TITLE text-001.

PARAMETERS: filenam1 TYPE rlgrap-filename,

filenam2 TYPE rlgrap-filename,

filenam3 TYPE rlgrap-filename.

SELECT-OPTIONS: s_logsys FOR tbdls-logsys NO INTERVALS NO-EXTENSION.

OBLIGATORY.

SELECTION-SCREEN END OF BLOCK block_one.

----

*Select-options:

----

*parameter:p_date type sy-datum.

----

INITIALIZATION.

perform init_selction_screen.

pnptimed = 'D'. "Today

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filenam1.

SET EXTENDED CHECK OFF.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

static = 'X'

CHANGING

file_name = filenam1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filenam2.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

static = 'X'

CHANGING

file_name = filenam2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filenam3.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

static = 'X'

CHANGING

file_name = filenam3.

----

*SELECTION-SCREEN.

----

START-OF-SELECTION *

----

START-OF-SELECTION.

perform authoritychk.

GET peras.

rp_provide_from_last p0000 space alpha pn-begda.

CHECK pnp-sw-found EQ c_i.

Check if employee is active

IF p0000-stat2 = '3'.

*Infotype 0001

rp_provide_from_last p0001 space alpha pn-begda.

CHECK p0001-pernr IN pnppernr.

*** Che k Personnel area ***

CHECK p0001-werks IN pnpwerks.

Check Personnel subarea ***

CHECK p0001-btrtl IN pnpbtrtl.

Check Organisational unit ***

CHECK p0001-orgeh IN pnporgeh.

heck Employee group ****

CHECK p0001-persg IN pnppersg.

Check Employee Number ****

CHECK p0001-gsber IN pnpgsber.

CHECK p0001-persk IN pnppersk.

CHECK p0001-orgeh IN pnporgeh.

CHECK p0001-plans IN pnpplans.

rp_provide_from_last p0002 space alpha pn-begda.

rp_provide_from_last p0006 space alpha pn-begda.

lt_outfile-pernr = p0000-pernr.

lt_outfile-nachn = p0002-nachn.

lt_outfile-vorna = p0002-vorna.

lt_outfile-midnm = p0002-midnm.

lt_outfile-gesch = p0002-gesch.

lt_outfile-gbdat = p0002-gbdat.

lt_outfile-stras = p0006-stras.

lt_outfile-locat = p0006-locat.

lt_outfile-ort01 = p0006-ort01.

lt_outfile-pstlz = p0006-pstlz.

lt_outfile-telnr = p0006-telnr.

APPEND lt_outfile TO lt_alvoutfile.

ENDIF.

END-OF-SELECTION.

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.

gd_dsn = 'output.xml'.

CALL TRANSFORMATION id

SOURCE itab = lt_alvoutfile

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.

*data:xml_line(255) TYPE x,

hhh like line of it_xml.

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 = 'BIOGRAPHICALDATA'
dataobject = lt_alvoutfile
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.

SELECT low
INTO v_identifier
FROM zbc_const
WHERE pname = sy-cprog AND name = 'C_IDENTIFIER'.
ENDSELECT.
IF sy-subrc <> 0.
waconst-pname = sy-cprog.
waconst-name = 'C_IDENTIFIER'.
waconst-type = 'V'.
waconst-numb = 1.
waconst-sign = 'I'.
waconst-opti = 'EQ'.
waconst-low = 'UCHIOFFICE'.
MODIFY zbc_const FROM waconst.
COMMIT WORK.
v_identifier = waconst-low.
ENDIF.

get file name from ZTFI_IDC

SELECT SINGLE dir_name fileextern
INTO (v_directory, v_file)
FROM ztfi_idc
WHERE logsys = v_identifier.
CONCATENATE: v_file '.TXT' INTO v_file,
v_directory '/' v_file
INTO v_physical_file.

*v_physical_file = 'test11.XML'.

l_filename = '/xml//test1.xml'.

OPEN DATASET v_physical_file FOR OUTPUT IN BINARY MODE.

ENCODING DEFAULT.
ENCODING DEFAULT.

IF SY-SUBRC <> 0.
WRITE: 'SY-SUBRC:', SY-SUBRC,
/ 'System Message:'.

*ENDIF.

Loop at it_xml into hhh.

into xml_tab-d.

TRANSFER hhh TO v_physical_file .
endloop.
CLOSE DATASET v_physical_file .

**CALL FUNCTION 'WS_DOWNLOAD'

**EXPORTING

**BIN_FILESIZE = W_SIZE

**FILENAME = filenam1

**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.

Re: Sending XML data to Application server

Former Member — Fri, 04 Jan 2008 18:34:17 GMT

in the beginning of the file we see some garbage characte like small box which we usually see when we upload from text file into our program editor.

can you suggest why do we see that.