I'm having a problem with creating an extraction file in Unidata 6.0.9 on HPUX
11.11i. It's not writting to the correct attribute as defined by the dictionary
item named in "field".
Simple XML Doc(test.xml):
<root>
<node1>Node1</node1>
<node2>Node2</node2>
<node3>Node3</node3>
</root>
-------------
Extraction Record (text.ext)
<?xml version="1.0"?>
<U2XML_extraction>
<file_extraction start="/root" dictionary="TEST.FILE" null="EMPTY"/>
<!-- UD.NODE3 is attribute 1 -->
<field_extraction field = "UDNODE1" path = "node1/text()" />
<!-- UDNODE3 is attribute 3 -->
<field_extraction field = "UDNODE3" path = "node3/text()" />
</U2XML_extraction>
-------------
Test Program
*$BASICTYPE "U"
SUBROUTINE B.TEST.XML
OPEN '','TEST.FILE' TO F.TF ELSE RETURN
*
XML.FNAME = "_XML_/test.xml"
EXT.FNAME = "_XML_/TEST.EXT"
*
STATUS = PREPAREXML(XML.FNAME,F_XML)
IF NOT(STATUS) THEN
STATUS = OPENXMLDATA(F_XML,EXT.FNAME,D_XML)
IF NOT(STATUS) THEN
MOREDATA = 1
LOOP WHILE (MOREDATA=1) DO
STATUS = READXMLDATA(D_XML,THIS.REC)
IF NOT(STATUS) THEN
WRITE THIS.REC ON F.TF,'DON.XML'
MOREDATA = 0
END ELSE
MOREDATA = 0
STOP 'XML ERROR'
END
END
REPEAT
*
STATUS = CLOSEXMLDATA(D_XML)
STATUS = RELEASEXML(F_XML)
END ELSE
PRINT 'OPENXML ERROR'
END
END ELSE
PRINT 'PREPARE ERROR'
END
-------------
Results of Test record (DON.XML) written to TEST.FILE:
<1> node1
<2> node3
-------------
Unidata appears to just be writing the data out sequentially rather than using
the attribute number in the dictionary item.
Any ideas?
Thanks,
--
Donald Verhagen
Application Development Manager
[EMAIL PROTECTED]
Tandem Staffing Solutions, Inc.
1690 S Congress Avenue, Suite 210
Delray Beach, FL 33445 USA
Voice Phone: 561.454.3592 Fax Phone: 561.454.3640
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
