Paul,
I just finished an XML project, with similar paramaters to yours, (customer
running less that V5R4, so the fancy XML routine are not available).
I wound up with the following:
fill XMLWork with the inbound XML data
c eval XMLWork=InputBuf
fill XMLField with the XML tag you are processing, and call GetXML
c eval XMLField='<HostMessage>'
c exsr GetXML
c movel XMLResult HostMessage
XMLResult has the inbound value.
Here is the GetXML subroutine:
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
* This extracts XML data from an input field
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C GetXML BEGSR
c move *blanks XMLResult
c '>':1 scan xmlfield fl
c* add 1 fl
c xmlfield:fl scan xmlwork xmlpos 5 0 8180
c move XMLField XMLField2
c movel '/' XMLField2
c xmlfield2:fl scan xmlwork xmlpos2 5 0 9190
c xmlpos add fl xmlpos
c xmlpos2 sub 1 xmlpos2
c xmlpos2 sub xmlpos diff
c *in80 ifeq *on
c diff subst xmlwork:xmlposxmlresult
c endif
c *in81 ifeq *on
c movel 'error' xmlresult
c endif
c move XMLWork XMLWork 4096
c move XMLResult XMLResult 25
c move XMLField XMLField 25
c move XMLField2 XMLField2 25
c z-add diff diff 5 0
c z-add fl fl 5 0
C ENDSR
HTH
Armand
"Paul Nelson" <nelsonp@xxxxxxxxxxxxx> wrote in message
news:mailman.6959.1236082074.26163.midrange-l@xxxxxxxxxxxxxxx
1. Can it be done?
2. Does it require an extra LPP?
3. Anybody got any code samples they are willing to post?
Thanks
Paul Nelson
Office 512-392-2577
Cell 708-670-6978
nelsonp@xxxxxxxxxxxxx
midrange.com
