[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

XMl parsing using XML-Into opcode on V5R4



   I'm trying to use XML-into opcode on V5R4 machine and having a hard
   time in getting data in the data structure. Could anyone please shed
   some light on the issue? The xml-into works fine upto "
   freightbillcommodities. Freightbillcommodity"  array but can't get
   remaining errors information in the data structure.



   XML variable (xmldata) :


   <freightbill

    id = "0" Clientcode = "Sample" carriercode = "samplecar">


   <freightbillcommodities>


   <freightbillcommodity id="0" LineNumber="1" Description="IRON OR
   STEEL" Code="19160.10000000" Commodityid="0" FBClass="100"
   Weight="15000" Pieces="0">


      <UIErrorsColl>

       <CTLError>

         <ErrorCode>FBVal</ErrorCode>

         <Source>Commodity</Source>

         <ErrorMessage>Unable to load commodity by code</ErrorMessage>

         <ExtraMessage>19160.10000000</ExtraMessage>

         <Fatal>true</Fatal>

       </CTLError>


       <CTLError>

         <ErrorCode>FBVal</ErrorCode>

         <Source>Commodity</Source>

         <ErrorMessage>Unable to load commodity by code</ErrorMessage>

         <ExtraMessage>19160.10000000</ExtraMessage>

         <Fatal>true</Fatal>

       </CTLError>


      </UIErrorsColl>


   </freightbillcommodity>


   <freightbillcommodity id="1" LineNumber="2" Description="Hazmat
   Products" Code="20000.20000000" Commodityid="0" FBClass="100"
   Weight="15000" Pieces="0">


      <UIErrorsColl>

       <CTLError>

         <ErrorCode>FBVal</ErrorCode>

         <Source>Commodity</Source>

         <ErrorMessage>Unable to load commodity by code</ErrorMessage>

         <ExtraMessage>20000.20000000</ExtraMessage>

         <Fatal>true</Fatal>

       </CTLError>


       <CTLError>

         <ErrorCode>FBVal</ErrorCode>

         <Source>Commodity</Source>

         <ErrorMessage>Unable to load commodity by code</ErrorMessage>

         <ExtraMessage>20000.20000000</ExtraMessage>

         <Fatal>true</Fatal>

       </CTLError>


      </UIErrorsColl>


   </freightbillcommodity>


   </freightbillcommodities>

   </freightbill>



   RPG program


   D freightbillcommodities...

   D                                             Ds
   Qualified

   D freightbillcommodity...

   D                                     likeds(FrBlComm_t) dim(2)



   D FrBlComm_t      Ds                  Qualified

   D id                             5

   D LineNumber                     5

   D Description                   50

   D Code                           5

   D Commodityid                    5

   D FBClass                        5

   D Weight                         5

   D Pieces                         5

   D UIErrorsColl                        likeds(FrBlUIerr_t) dim(2)



   D FrBlUIerr_t     Ds                  Qualified

   D CtlError                            Likeds(FrBiErrd) dim(2)



   D FrBiErrd        Ds                  Qualified

   D ErrorCode                      5

   D Source                         5

   D ErrorMessage                  15

   D ExtraMessage                  15

   D Fatal                          5


   xml-into freightbill

           %XML(xmldata : 'case=any allowextra=yes +

                              allowmissing=yes');


   xml-into freightbillcommodities.freightbillcommodity

           %XML(xmldata : 'case=any allowextra=yes +

                           allowmissing=yes path=freightbill/+

      freightbillcommodities/freightbillcommodity');



   Debug version


   EVAL
   freightbillcommodities

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.ID(1) = '0
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.LINENUMBER(1) = '1
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.DESCRIPTION(1)
   =

            'IRON OR STEEL, SEE NOTE, ITEM 19162: WEIGHING
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.CODE(1) =
   '19160'

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.COMMODITYID(1) = '0
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.FBCLASS(1) = '100
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.WEIGHT(1) =
   '15000'

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.PIECES(1) = '0
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.ERRO
   RCODE(1,1,1) =

            '
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.SOUR
   CE(1,1,1) =

            '
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.ERRO
   RMESSAGE(1,1,1) =

            '
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.EXTR
   AMESSAGE(1,1,1) =

            '
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.FATA
   L(1,1,1) =

            '     '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.ERRO
   RCODE(1,1,2) =

            '
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.SOUR
   CE(1,1,2) =

            '
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.ERRO
   RMESSAGE(1,1,2) =

            '
   '

   FREIGHTBILLCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.EXTR
   AMESSAGE(1,1,2) =

            '               '

   LCOMMODITIES.FREIGHTBILLCOMMODITY.UIERRORSCOLL.CTLERROR.FATAL(1,1,2)
   =


   '
-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------