viBytes = vhWebdavSocket:get-bytes-available(). if viBytes > 0 then do: set-size (vmResponse) = viBytes + 1. vhWebdavSocket:read( vmResponse,1,viBytes,1). vcWebdavResponse = get-string (vmResponse,1). set-size (vmResponse) = 0. end.