|
chars = %Subst( charsUCS2: 1:stringLen );
I'm having this weird issue parsing XML. The XML is generated in-house on Windows and parses properly the vast majority of the time. I have the rare XML file where I lose all the data past some point. Here are some (hopefully) relevant code snippets.
.......................................................................................................................................................
XML-SAX %handler(cjfSaxHandler :handlerInfo)
%xml(FilePath :'doc=file ccsid=ucs2');
.......................................................................................................................................................
P*--------------------------------------------------
P* Procedure name: cjfSaxHandler
P* Purpose: Parse XML data for CJF
P* Returns: Return code
P*--------------------------------------------------
P cjfSaxHandler b
D pi 10i 0
D info LikeDs(gHandlerInfo)
D event 10i 0 Value
D stringPtr * Value
D stringLen 20i 0 Value
D exceptionId 10i 0 Value
Dcl-s charsUCS2 ucs2(65535) Based(stringPtr);
D chars s 65535a
chars = charsUCS2;
.......................................................................................................................................................
Debugging the code, the "chars = charsUCS2" statement works fine, until a point. From then on, chars is always blank even though charsUCS2 has a value. It appears that the XML events are working properly. I eye-balled the XML and I can't see anything wrong with it. I don't even know where to go with this.
Any ideas?
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.