Find4GLFunction

Retorna se determinada função está compilada no RPO em execução ou se faz parte das funções 4GL do binário. Para funções declaradas como PRIVATE, sempre será retornado FALSE, caso estejam declaradas em outros arquivos ou TRUE se estivem declaradas no mesmo.

Sintaxe

Find4GLFunction(Param)

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
Param	Caracter	Nome da função a ser procurada.	X

Retorno

Nome	Tipo	Descrição
var	Lógico	Retorna verdadeiro (true), se a função está compilada no RPO ou contida na lista de funções 4GL e Falso(false), caso não seja encontrada.

Observações

Função disponível a partir da build 7.00.101202A.
O recurso de Private Functions está disponível a partir do build 7.00.131227A.

Exemplos

Exemplo 1

 MAIN
  DEFINE bOK SMALLINT

 
 LET bOK = Find4GLFunction("SetOracleStmtCache")
 
 IF bOK = TRUE THEN
  CALL CONOUT("Funcao encontrada")
 ELSE
  CALL CONOUT("Funcao nao encontrada")
 END IF
 END MAIN

Árvore de páginas