parsing varying length field from XML file using RPGLE program

In response to question on Midrange-L as requested by David

This code will extract the value you want if that is the only field required. I coded it as varchar based on the OP's original subject line but in the text he said that he wanted to extract a fixed length entry so I'm confused. char or march - either will work.

dcl-s encodedExchangeToken varchar(50);
// end-ds;
//
xml-into encodedExchangeToken
%xml('/home/paris/xmlstuff/samplexml.xml': 'doc=file case=any -
path=TokenExchangeResponse/encodedExchangeToken');
dsply encodedExchangeToken;

*InLr = *On;


Jon Paris