Found another bug with RPG XML sample program RPGDB2SAMP

This morning, I got a call about a problem with a program that was based on 
RPGDB2SAMP blowing up. It turns out that one of the XML documents it was 
parsing was not well formed (it had an un-escaped & in it but that's another 
bug in another program). Since this happened once before with malformed XML 
(and I was still pretty cheesed at getting paged early on a Monday morning), I 
decided that I was going to fix the dang thing or die trying.

To make a long story short, RPGDB2SAMP does not check to see if there were any 
errors parsing the document prior to calling routine FreeElem. If you only 
process a few XML documents with it before the one with an error or the bad one 
is the first one, the pointer to it's linked list of elements is null and it 
causes no problems (FreeElem does check for nulls). If you process a mess of 
documents (it was about 120 or so this morning before the one with the error), 
FreeElem ends up with the pointer to one of the linked list entries from the 
previous document. The memory it's pointing to has already be de-allocated by 
the prior call to FreeElem so when it tries to do it again, the program blows 
up.

Once I saw what was happening, the fix was very simple. Instead of this:

c                   callp     FreeElem

It should be this:

c                   If        Qxml_ErrorType = 0
c                   callp     FreeElem
c                   EndIf

Matt