XMLTOCURSOR("E:\test.xml","test", 512 )
BROWSE

CREATE TABLE SampOrd ( ; 
	individual c( 10 ), ;
	DATAID c( 10 ), ;
	VERSIONNUM c( 10 ), ;
	FIRST_NAME c( 20 ), ;
	SECOND_NAM c( 20 ), ;
	UN_LIST_TY c( 20 ), ;
	REFERENCE_ c( 10 ), ;
	LISTED_ON c( 20 ))

oXML=CREATEOBJECT('msxml.domdocument')  && This creates the parser object
oXML.LOAD(GETFILE('xml'))  && This gets and loads the XML document. 

WITH oXML.DocumentElement.ChildNodes
    FOR iCount =  0  TO .LENGTH -  1 
        APPEND BLANK
        FOR iChild =  0  TO .ITEM( 0 ).ChildNodes.LENGTH -  1 
            lcVar = .ITEM(iCount).ChildNodes(iChild)
            REPLACE (lcVar.NodeName) WITH (lcVar.TEXT)
        ENDFOR
    ENDFOR
ENDWITH

BROWSE