Re: XML-INTO - %XML option to treat null element as 0

Jon,

lets make this a little more interesting:

d elements ds qualified
d type 50a varying inz('A')
d len 10p 0
d dataalpha 1024a varying
d datanum 32p 9

xmlFromStmf('/myxml.xml');
xmlReaderInz(xmlAddr():xmlSize());
dow xmlReader = 0;
select;
when xmlGetNode = '%Data_Type';
reset elements;
when xmlGetNode = 'Data_Type' and xmlGetAttr = '';
elements.type = xmlGetData;
when xmlGetNode = 'Data_LEN' and xmlGetAttr = '';
elements.len = xmlGetDataNum;
when xmlGetNode = 'DATA' and xmlGetAttr = '';
if elements.type = 'A';
elements.dataalpha = xmlGetData;
endif;
if elements.type = 'N';
elements.datanum = xmlGetDataNum;
endif;
endsl;
enddo;




On Thu, Mar 7, 2013 at 6:34 PM, Henrik Rützou <hr@xxxxxxxxxxxx> wrote:

Ha ha, did I?

d type s 50a varying
d len s 10p 0
d data s 1024a varying

dow xmlReader = 0;
select;
when xmlGetNode = 'Data_Type' and xmlGetAttr = '';
type = xmlGetData;
when xmlGetNode = 'Data_LEN' and xmlGetAttr = '';
len = xmlGetDataNum;
when xmlGetNode = 'DATA' and xmlGetAttr = '';
data = xmlGetData;
endsl;
enddo;


On Thu, Mar 7, 2013 at 6:22 PM, Jon Paris <jon.paris@xxxxxxxxxxxxxx>wrote:

On Thu, 7 Mar 2013, at 17:24:42, Henrik R?tzou <hr@xxxxxxxxxxxx> wrote:

This is elementary gents,

I was waiting for you to jump in Henrik - knew you couldn't resist.

But you've cheated - you didn't capture any of the data except the one
numeric value. The logic as shown is nothing like what would be needed to
handle the whole thing. You have great software - but sometimes you can't
resist the temptation to "cheat" a little.

XML-INTO with a loop and Monitor around a test on a char version of the
field would look every bit as short _and_ capture the rest of the data.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com




--
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.

--
Regards,
Henrik Rützou

http://powerEXT.com <http://powerext.com/>