CLEAR  

*-- Conecta-se ao BD
LOCAL lcStrCon as String
lcStrCon = "Driver={SQL Server}; Server=(local); Database=tempdb; UID=sa; Pwd=;"

LOCAL lnHandle as Integer
lnHandle = SQLSTRINGCONNECT(lcStrCon)

?"Handle: ", lnHandle

*-- Cria a SP no banco
TEXT TO lcSQL TEXTMERGE noshow
  create procedure USP_TesteXML
    @doc as varchar(1000)
  as 
  begin 
    declare @DocHandle int
    exec sp_xml_preparedocument @DocHandle OUTPUT, @doc

    select *
      from OPENXML (@DocHandle, '/Clientes/Cliente', 0)
    
    exec sp_xml_removedocument @DocHandle
  end
ENDTEXT 

?SQLEXEC(lnHandle, lcSQL)

*-- Chama a SP passando o documento XML
TEXT TO lcXML TEXTMERGE NOSHOW PRETEXT 1+2+4
  <Clientes>
     <Cliente>
        <Id>1</Id>
        <Nome>Zezinho</Nome>
     </Cliente>
     <Cliente>
        <Id>2</Id>
        <Nome>Luizinho</Nome>
     </Cliente>
  </Clientes>
ENDTEXT

lcSQL = "EXEC USP_TesteXML ?lcXML"
?SQLEXEC(lnHandle, lcSQL)

SQLDISCONNECT(lnHandle)