lcXMLFile = 'C:\FOX\data-20190116T0000-structure-20151217T0000.xml'
lcResponseText = FileToStr(lcXMLFile)

DECLARE INTEGER CreateFile IN kernel32;
        STRING lpFileName, INTEGER dwDesiredAccess,;
        INTEGER dwShareMode, INTEGER lpSecurityAttributes,;
        INTEGER dwCreationDisposition,;
        INTEGER dwFlagsAndAttributes, INTEGER hTemplateFile

DECLARE INTEGER ReadFile IN kernel32;
        INTEGER   hFile,;
        STRING  @ lpBuffer,;
        INTEGER   nNumberOfBytesToRead,;
        INTEGER @ lpNumberOfBytesRead,;
        INTEGER   lpOverlapped

DECLARE INTEGER SetFilePointer IN kernel32;
        INTEGER hFile,;
        INTEGER lDistanceToMove,;
        INTEGER lpDistanceToMoveHigh,;
        INTEGER dwMoveMethod

DECLARE INTEGER GetLastError IN kernel32

DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject

lcBuffer = ""
&& 3141829712 / 15000000 = 209.46
For lnI = 1 To 210
    lcBuffer = lcBuffer + REPLICATE(Chr(0), 15000000)  && 15,000,000 из max 16,777,184
EndFor

lnSize = 3141829712

lhMem = GlobalAlloc(GMEM_FIXED, lnSize)

If lhMem <> 0
    = StrToMem(lhMem, @lcString, lnSize)
EndIf

* ...

If lhMem <> 0
    = GlobalFree (lhMem)
EndIf

lcXMLFile = "C:\MyFolder\Request1_12345678964.xml"
lcNewFile = "C:\MyFolder\Request.xml"
oWriter = CreateObject("MSXML2.MXXMLWriter.6.0")  
oWriter.indent = .T.  
oReader = CreateObject("MSXML2.SAXXMLReader.6.0")  
oReader.contentHandler = m.oWriter  
oReader.putProperty("http://xml.org/sax/properties/lexical-handler", oWriter)  
lcXMLText = FileToStr(lcXMLFile)
oReader.parse(lcXMLText)
StrToFile(oWriter.output,lcNewFile,.T.)

    xmlDoc=CREATEOBJECT("MSXML2.DOMDocument")
    xmlDoc.async = .F.
    
    IF xmlDoc.Load(lcXmlFile)

        node_List = xmlDoc.selectNodes("*//ITEM")
*       ?node_List.Length
         *-- цикл по результирующему набору  
          FOR intIndex = 1 TO node_List.Length                    
            xmlNode = node_List.Item(intIndex-1).CloneNode(.T.)  
              
              m.kcode=xmlNode.getElementsByTagName("XXXXXX").Item(0).text
              m.name=xmlNode.getElementsByTagName("YYYYYY").Item(0).text
                        
                        ...

        ENDFOR 
    ELSE
*       lcok=0
*       echo1('load - false')
    ENDIF 
    RELEASE xmlDoc