CREATE CURSOR x1 (pole1 C(10), pole2 I)
INSERT INTO x1 (pole1, pole2) VALUES ('111111',1)
INSERT INTO x1 (pole1, pole2) VALUES ('222222',2)
INSERT INTO x1 (pole1, pole2) VALUES ('333333',3)
INSERT INTO x1 (pole1, pole2) VALUES ('444444',4)
INSERT INTO x1 (pole1, pole2) VALUES ('555555',5)
CURSORTOXML('x1', '_xml',1)

text to _script textmerge noshow pretext 7
   DECLARE @xml xml
   SET @xml=?_xml
   SELECT @xml = CAST(CAST(@xml AS VARBINARY(MAX)) AS XML) 
   SELECT 
          x.Rec.query('./pole1').value('.', 'char(10)') AS 'Pole1',
          x.Rec.query('./pole2').value('.', 'int') AS 'Pole2'
   FROM @xml.nodes('/VFPData/x1') as x(Rec)
endtext

=sqlexec(_sqlconnect, _script, 'x1')

CREATE CURSOR x1 (pole1 C(10), pole2 I)
INSERT INTO x1 (pole1, pole2) VALUES ('111111',1)
INSERT INTO x1 (pole1, pole2) VALUES ('222222',2)
INSERT INTO x1 (pole1, pole2) VALUES ('333333',3)
INSERT INTO x1 (pole1, pole2) VALUES ('444444',4)
INSERT INTO x1 (pole1, pole2) VALUES ('555555',5)
CURSORTOXML('x1', '_xml',1)
PRIVATE _xml2, _xml3
_xml2=_xml
TEXT TO _xml3 TEXTMERGE NOSHOW PRETEXT 7
	SET ARITHABORT ON
	DECLARE @xml xml, @str varchar(2000)
	SELECT @xml = CAST(CAST(?_xml2 AS VARBINARY(MAX)) AS XML) 

	SELECT 
	    x.Rec.query('./pole1').value('.', 'char(10)') AS 'Pole1',
	    x.Rec.query('./pole2').value('.', 'int') AS 'Pole2'
	FROM @xml.nodes('/VFPData/x1') as x(Rec)
	SET ARITHABORT Off
ENDTEXT