XML Parsing - problem with a value of an element if starting with space

Question

Hi Experts,
I need your valuable guidence to get out of a problem in parsing an XML file.
An XML file is read into xstring variable and it is processed to be split into the corresponding itab.
Please find the code below
types: begin of ty-itab,
            field(4096),
          end of ty-itab.
Data:
g_ixml                       TYPE REF TO if_ixml,
g_ixmldocument               TYPE REF TO if_ixml_document,
g_ixmlstreamfactory          TYPE REF TO if_ixml_stream_factory,
g_ixmlstream                 TYPE REF TO if_ixml_istream,
g_ixmlparser              TYPE REF TO if_ixml_parser,
g_ixmlnodemainlist        TYPE REF TO if_ixml_node_list,
g_ixmlnodelistmainelement TYPE REF TO if_ixml_node_list,
g_sxmldata                TYPE string,
g_ixmlnode                TYPE REF TO if_ixml_node.
  DATA: wa_xmltab TYPE xstring,
            itab type table of ty-itab.
OPEN DATASET l_file IN BINARY MODE FOR INPUT MESSAGE v_msg.
READ DATASET l_file INTO wa_xmltab.
PERFORM f_create_xmltable USING wa_xmltab
                              CHANGING v_msg.
IF NOT v_msg IS INITIAL.
      msg = v_msg.
      EXIT.
    ELSE.
      itab[] = it_xmldata[].
    ENDIF.
CLOSE DATASET l_file.
Subroutine to convert xstring to char type ITAB.
FORM f_create_xmltable USING  value(pi_inputxmlstring) TYPE xstring
                       CHANGING v_msg.
*-- create the main factory
  g_ixml = cl_ixml=>create( ).
*-- create the initial document
  g_ixmldocument = g_ixml->create_document( ).
*-- create the stream factory
  g_ixmlstreamfactory = g_ixml->create_stream_factory( ).
*create input stream
  g_ixmlstream = g_ixmlstreamfactory->create_istream_xstring( string =
pi_inputxmlstring ).
*-- create the parser
  g_ixmlparser = g_ixml->create_parser( stream_factory =
g_ixmlstreamfactory
                                  istream        = g_ixmlstream
                                  document       = g_ixmldocument ).
*-- parse the stream
  IF g_ixmlparser->parse( ) NE 0.
*if parser cannot be created then give error exit
    IF g_ixmlparser->num_errors( ) NE 0.
      EXIT.
    ENDIF.
  ENDIF.
*-- we don't need the stream any more, so let's close it...
  CALL METHOD g_ixmlstream->close( ).
  CLEAR g_ixmlstream.
*get the number of main nodes of the XML document
  g_ixmlnodemainlist = g_ixmldocument->get_children( ).
*set number of elemtns
  g_inummainelements = 0.
  g_imainelementsctr = 0.
  g_inummainelements = g_ixmlnodemainlist->get_length( ).
  g_ifirstlevelctr = 0.
*loop through the document till all have nodes have been covered.
  WHILE g_ifirstlevelctr LT g_inummainelements.
*get the first node
    g_ixmlnode = g_ixmlnodemainlist->get_item( g_ifirstlevelctr ).
*check the type of node
    g_isnodeelement = g_ixmlnode->get_type( ).
*if node is not of type Element then continue
*because we have got to read only text from element nodes.
    IF g_isnodeelement NE c_nodeelement.
      g_ifirstlevelctr = g_ifirstlevelctr + 1.
      CONTINUE.
    ENDIF.
*get nodes of the element just found.
    g_ixmlnodelistmainelement = g_ixmlnode->get_children( ).
*get number of children of main element
    g_inumchildelements = g_ixmlnodelistmainelement->get_length( ).
*loop trhough the number of children
    WHILE g_imainelementsctr LT g_inumchildelements.
      g_ixmlnodemainelement = g_ixmlnodelistmainelement->get_item(
    g_imainelementsctr ).
*get type of node
      g_isnodeelement = g_ixmlnodemainelement->get_type( ).
      IF g_isnodeelement NE c_nodeelement.
        g_imainelementsctr = g_imainelementsctr + 1.
        CONTINUE.
      ENDIF.
*get name of the node.
      g_selementvalue = g_ixmlnodemainelement->get_name( ).
*get children of node
      g_childnodelist = g_ixmlnodemainelement->get_children( ).
      g_inumchildren =  g_childnodelist->get_length( ).
      g_ichildelementcounter = 0.
*while there are number of children of node.loop through
      WHILE g_ichildelementcounter LT g_inumchildren.
*get the child node
        g_childnode = g_childnodelist->get_item(
g_ichildelementcounter ).
*check the type of node
        g_isnodeelement = g_childnode->get_type( ).
*if node is not of element type continue
        IF g_isnodeelement NE c_nodeelement.
          g_ichildelementcounter = g_ichildelementcounter + 1.
          CONTINUE.
        ENDIF.
*otherwise get element name
        g_selementname = g_childnode->get_name( ).
*get value stored in this node.
        g_selementvalue = g_childnode->get_value( ).
        g_numelem = g_inumchildren - 1.
        IF g_ichildelementcounter EQ g_numelem.
          CONCATENATE: g_slinedata g_selementvalue
                  INTO g_slinedata.
        ELSE.
*      store the value of noide in delimiter ~ line
*      Check for Invalid characters in file
            IF g_selementvalue CA '&'.
              REPLACE ALL OCCURRENCES OF '&' IN g_selementvalue WITH
            endif.
*if value contains delimiter then error
            IF g_selementvalue CA '~'.             
              V_MSG = text-003.
              EXIT.
            ELSE.
              CONCATENATE: g_slinedata g_selementvalue '~'  .
              INTO g_slinedata.
            ENDIF.
        ENDIF.
*continue
        g_ichildelementcounter = g_ichildelementcounter + 1.
      ENDWHILE.
      g_ichildelementcounter = 0.
*increment the main element counter by one to go to the next node
      g_imainelementsctr = g_imainelementsctr  + 1.
*move the current delimiter line creted to internal table to be given
*back to the calling program
      MOVE g_slinedata TO wa_xmldata-data.
      APPEND wa_xmldata TO it_xmldata.
      MOVE '' TO g_slinedata.
      MOVE '' TO wa_xmldata-data.
    ENDWHILE.
*increment counter to move to hte next node.
    g_ifirstlevelctr = g_ifirstlevelctr + 1.
    g_imainelementsctr = 0.
  ENDWHILE.
ENDFORM.                    "f_create_xmltable
XML structure
<?xml version="1.0" encoding="utf-8"?>
<ABCInbound xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="C:\XYZSchema\ABCInbound.xsd">
<HH>
<RecordType>HH</RecordType>
<Source>ABC</Source>
<Destination>XYZ</Destination>
<TimeStamp>20050909220546</TimeStamp>
</HH>
<BH>
<RecordType>BH</RecordType>
<DocType>AB</DocType>
<Reference>2205516125</Reference>
<DocumentDate>20080909</DocumentDate>
<PostingDate></PostingDate>
<CompanyCode>ABC</CompanyCode>
<Currency>INR</Currency>
<ExchangeRate>1.0000</ExchangeRate>
<Park></Park>
<ItemNumber>2</ItemNumber>
</BH>
<BL>
<RecordType>BL</RecordType>
<Reference>2205516125</Reference>
<RefLineItem>1</RefLineItem>
<AcctType>K</AcctType>
<DrCrIndicator>H</DrCrIndicator>
<Account>01000003</Account>
<Amount>364.00</Amount>
<VendorName-1>TOM &amp; JERRY IS MY</VendorName-1>
<VendorName-2> NAME TO BE PAID</VendorName-2>
<VendorName-3>1987566Z</VendorName-3>
<VendorName-4>22</VendorName-4>
<Street>UCX STREET</Street>
<City>ROAD 4</City>
<PostalCode>515004</PostalCode>
<Country>IND</Country>
<ContactPerson></ContactPerson>
<AlternatePayeeCode></AlternatePayeeCode>
<AlternatePayeeName-1></AlternatePayeeName-1>
<AlternatePayeeName-2></AlternatePayeeName-2>
<AlternatePayeeName-3></AlternatePayeeName-3>
<PaymentTerms></PaymentTerms>
<BaselineDate></BaselineDate>
<PaymentMethods></PaymentMethods>
<Allocation></Allocation>
<LineItemText>item text</LineItemText>
<TaxCode></TaxCode>
<TaxAmount>0.00</TaxAmount>
<WHTaxCode></WHTaxCode>
<WHTaxbase>0.00</WHTaxbase>
<Fund></Fund>
<FundCenter></FundCenter>
<CostCenter></CostCenter>
<InternalOrder></InternalOrder>
<TaxAutomatically></TaxAutomatically>
<SpecialGLIndicator></SpecialGLIndicator>
</BL>
<TT>
<RecordType>TT</RecordType>
<TotalRecords>1</TotalRecords>
<TotalValue>222</TotalValue>
</TT>
</ABCInbound>
when the above xml file is read and populated into ITAB, for element vendorname-2 which has a space in first position , that space is ignored.
This is being used for a FB01 posting and vendor is paid based on Name1+Name2 printed on cheque and due to the space ignoring problem, the vendor name is displayed wrongly thus causing problems.
I appreciate if someone could guide me thru and help me in solving this problem.
How to preserve the leading or trailing space.
g_selementvalue = g_childnode->get_value( ).
when i check g_selementvalue, space is ignored.
i will be greateful if someone could guide me through.
Regards,
Simha
Edited by: Simha on Dec 11, 2008 10:49 AM

Answer 1

0.02: A C C E P T: Request="NEXT"
0.06: Fetch session state from database
0.08: ...Check session ... owner
0.08: ...Metadata: Fetch Page, Computation, Process, and Branch
0.08: Session: Fetch session header information
0.08: ...Metadata: Fetch page attributes for application ..., page 330
0.08: ...Validate item page affinity.
0.08: ...Validate hidden_protected items.
0.08: ...Check authorization security schemes
0.08: Session State: Save form items and p_arg_values
0.08: ...Session State: Save "P330_PROJECT" - saving same value: ""
0.09: ...Session State: Saved Item "P330_SHUTTLE" New Value=""
0.09: Processing point: ON_SUBMIT_BEFORE_COMPUTATION
0.09: Branch point: BEFORE_COMPUTATION
0.09: Computation point: AFTER_SUBMIT
0.09: Tabs: Perform Branching for Tab Requests
0.09: Branch point: BEFORE_VALIDATION
0.09: ...Evaluating Branch: BEFORE_VALIDATION type: "REDIRECT_URL" button: 12904321314585385 branch: (Unconditional)
0.09: Perform validations:
0.09: ...Item Not Null Validation: P330_SHUTTLE
0.09: ...Validation did NOT pass
This is from debugging, what does the point "0.09: ...Session State: Saved Item "P330_SHUTTLE" New Value="" "
mean ? I think it means, that the Shuttle somehow sets itself to null ?! but i dont understand why...
There is no computation or anything that deletes the shuttle, the page is quite small, there is not much more than the shuttle and the validations and computations to give default value and transforming the shuttle items into a collection to continue working with the IDs.
I dont check whats the problem
Edited by: user12154443 on 21.07.2010 09:47