>>>Communication link failure
>>>
>>>lnRetVal = sqlexec(.nSQLHandle, lcStack + lcBeginSetRowCount + tcSQLString + lcEndSetRowCount, tcCursor) if lnRetVal < 0 declare laSqlError[1] lnNumErrors = aerror(laSqlError) && retrieve the error(s) for lni = 1 to lnNumErrors && process each error lcMsg = "Communication Link Failure - cannot communicate with the SQL Server from " + this.cServerName + ". " + ; "lnRetVal: " + transform(lnRetVal) + ' ' + laSqlError[lnI, 2] .write_log(trim(lcMsg) + ' SQL Statement: ' + lcSQLLogString, tcCallingProg, 'E') if alltrim(laSqlError[lnI, 4]) = '08S01' and ! tcCallingProg == 'RETRY' * Connection Link Failure!!! - close and re-open connection... .write_log("Setting .lSqlConnError to .T.", program(), '5') .lSQLConnError = .t. .cSQLConnMSG = lcMsg endif endfor