Re: XML Parser Changes - v5r4 to v7r1

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Hi Dave

So far as I can tell, you are using the native RPG opcodes for XML - not 
the toolkit.

So I think you're as is.

HTH
Vern

On 7/15/2016 8:34 AM, Dave Begley wrote:
> I have limited experience in XML, but I am successfully accessing a web service with RPG programs.
>
> We are upgrading to v7r1 from v5r4 and there was a message sent to me about possible code changes needed if using the XML Toolkit 5733-XT1 and going to XML Toolkit 5733-XT2.
>
> I don't think I am using an XML toolkit. I don't see anything in the licensed program list. But we do access service programs because we use binding directory "QC2LE".
>
> Can someone tell if I may need code changes going to v7r1?  Here is a couple snippets of code.  I can provide more if needed.
>
> 0328.00   XmlCommArea = FileName;
> 0329.00   XML-SAX %Handler(XmlHandler: XmlCommArea)
> 0330.00   %XML('/ClaimShop/' + FileName : 'doc=file ccsid=ucs2');
>
> 0387.00      If StringLen > 0;
> 0388.00        Select;
> 0389.00        When Event = *XML_EXCEPTION;
> 0390.00          Data = '*** Exception Error ***'  + %Char(StringLen);
> 0391.00          ReturnCode = -1;
> 0392.00        When (event = *XML_START_ELEMENT);
> 0393.00              UCS2StringLen = (StringLen / 2);
> 0394.00              Data = %Subst(%Char(UCS2String):1:UCS2StringLen);
> 0395.00        When (event = *XML_CHARS) or
> 0396.00             (event = *XML_PREDEF_REF) or
> 0397.00             (event = *XML_ATTR_CHARS) or
> 0398.00             (event = *XML_ATTR_PREDEF_REF);
> 0399.00              UCS2StringLen = (StringLen / 2);
> 0400.00              Data = %Subst(%Char(UCS2String):1:UCS2StringLen);
> 0401.00        when (event = *XML_UCS2_REF) or
> 0402.00             (event = *XML_ATTR_UCS2_REF);
> 0403.00              Data = %char(%subst(UCS2String:1:
> 0404.00                                 %div(stringLen:2)));
> 0405.00         Other;
> 0406.00              UCS2StringLen = (StringLen / 2);
> 0407.00              Data = %Subst(%Char(UCS2String):1:UCS2StringLen);
> 0408.00         Endsl;
> 0409.00      Else;
> 0410.00         Data = '*** No Data ***';
> 0411.00      Endif;
> 0412.00   Else;
> 0413.00      EventName = '*** Unknown Event ***';
> 0414.00      Data = ' ';
> 0415.00   Endif;
>
> Thank-you,
>
> Dave Begley
> HealthSmart Benefit Solutions
> dave.begley@xxxxxxxxxxxxxxx<mailto:dave.begley@xxxxxxxxxxxxxxx>
>
>
>
>
> Disclaimer: This communication and any files transmitted with it may contain information that is privileged, confidential and/or exempt from disclosure under applicable law. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution, or use of the information contained herein (including any reliance thereon) is strictly prohibited. If you received this communication in error, please immediately contact the sender and destroy the material in its entirety, whether in electronic or hard copy format. Thank you.