Re: XML Toolkit and CDATA elements

[Aaron Bartell <aaronbartell@xxxxxxxxx>]

The brackets look exactly the same visually, but I believe they are 
completely different values from EBCDIC to ASCII or UTF-8.  I haven't 
used the XML Toolkit in awhile but being that it is based on Apache 
Xerces I would guess they are probably either defaulting the parser 
encoding to UTF-8 or ISO-8859-1 (i.e. CCSID 819) and that would 
obviously then cause an issue during hex conversion with the different 
translation tables on the AS400.  What you could do is concat the hex 
values for the bracket character to the string and go about it that 
way.  This URL should give you enough translations of the bracket 
character to kill a cat: http://www.tachyonsoft.com/uc0000.htm#U005B

HTH,
Aaron Bartell
http://mowyourlawn.com

Paul Nicolay wrote:
> Hi,
>
> Parsing from an IFS file with QxmlXercesDOMParser_parse_SystemId works
> fine BTW...
>
> I don't have any issues that way with neither the encoding, nor the
> CDATA element ?
>
> Kind regards,
> Paul
>
> PS. Looking at the square brackets in the file, they look exactly the
> same as in the source code.
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Nicolay
> Sent: donderdag 4 december 2008 20:27
> To: RPG programming on the IBM i / System i
> Subject: RE: XML Toolkit and CDATA elements
>
> Hi,
>
> When removing the XML declaration I always get the
> UTFDataFormatException.
>
> Yes, it is concatenated in the program... below is the code snippet;
>
> /COPY QXMLDEV550/QRPGLESRC,QXML4PR550                            
>                                                                   
> DpBuffer          S               *                               
> DBufferID         S             16                                
> DpBufferID        S               *   Inz(%Addr(BufferID))        
> DpMessage         S               *   Inz(%Addr(Message))         
> DMessage          S          65535    Varying                     
> DpParser          S               *                               
> DpDomExcDta       S               *   Inz(%Addr(Qxml_DOMEXCDATA)) 
> DpEnvData         S               *   Inz(%Addr(Qxml_SaxExcData)) 
> DLog              S            512    Varying                     
>
> /free                                                                
>   Message =                                                           
>   //  '<?xml version="1.0" encoding="ibm037" ?>'                      
>   //  '<?xml version="1.0" encoding="ISO-8859-1" ?>'                  
>   //  '<?xml version="1.0" encoding="UTF-8" ?>'                       
>       '<root><node>'                                                  
>     + '<Object>'                                                      
>   //+ '<![CDATA[This is <a> test.]]>'                                 
>     + 'This is a test.'                                               
>     + '</Object>'                                                     
>     + '</node></root>';                                               
>                                                                       
>   QxmlInit(pDomExcDta);                                               
>   pParser = QxmlXercesDOMParser_new(pEnvData);                        
>                                                                       
>   %Str(pBufferID: 16) = 'TestID';                                 
>   pBuffer = QxmlMemBufInputSource_new(pMessage + 2: %Len(Message):    
>                                      pBufferID: Qxml_JOBCCSID: 0: 0);
>
>   QxmlXercesDOMParser_setValidationScheme(pParser: Qxml_VALAU);    
>                                                                    
>   QxmlXercesDOMParser_setValidationSchemaFullChecking(pParser:     
>                                                       Qxml_VALNO); 
>                                                                    
>   QxmlXercesDOMParser_setIncludeIgnorableWhitespace(pParser:       
>                                                     Qxml_WHTSP);   
>                                                                    
>   QxmlXercesDOMParser_parse_InputSource(pParser: pBuffer);         
>   If Qxml_ErrorType <> Qxml_NOERROR;                               
>     Log = %Trim(Qxml_ErrMsg) + ' at line ' + %Char(Qxml_RtnLine)   
>                              + ' column ' + %Char(Qxml_RtnCol);    
>   EndIf;                                                           
>
>
>
> Kind regards,
> Paul
>
>