SQL available

This function returns true if SQL can be used from a client:
<code 4D>
//Sql_available -> bool
C_BOOLÉEN($0)
C_ENTIER LONG(error_l)
C_TEXTE($nmc_t;$oldError_t)
$nmc_t:=Nom méthode courante
Si (Méthode appelée sur erreur=$nmc_t)
error_l:=error
Sinon
error_l:=0
$oldError_t:=Méthode appelée sur erreur
APPELER SUR ERREUR($nmc_t)
Début SQL
SELECT COUNT(*)
FROM USER_TABLES ;
Fin SQL
APPELER SUR ERREUR($oldError_t)
$0:=(error_l=0)
Fin de si
//

</code 4D>