Edgar
Well, if you are stuck with 19.0, at least do this:
Code:
Read_Block channel iChn ucaData -1 // No limit on the size of this (except computer memory)
//...
Get_Argument_Size to iOldSize // Save for later
If (iOldSize < SizeOfArray(ucaData) ; // If it isn't already big enough...
Set_Argument_Size (SizeOfArray(ucaData)) // sets the size to what you need
Move (UCharArrayToString(ucaData)) to sArchivo // Now the string will be big enough
// ... Do stuff with the string as required ...
Set_Argument_Size iOldSize // Stop wasting memory on strings
Mike