Verifica se uma determinada função está disponível no repositório ou no binário do Application Server.
Sintaxe
Find4GLFunction(Param1,Param2) |
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
Param1 | Caracter | Nome da função a ser procurada. | X |
|
| Param2 | Numérico | Variável para retorno por referência com a quantidade de parâmetros da função. |
Retorno
Nome | Tipo | Descrição |
|---|---|---|
var | Lógico | Retorna verdadeiro (true), se a função está disponível no repositório ou no binário; caso contrario, falso(false). |
Observações
- Função disponível a partir da build 7.00.101202A.
- Para funções declaradas como Private, somente será retornado TRUE caso a função esteja declarada no mesmo arquivo. Caso contrário, sempre será retornado Falso. O recurso de Private Functions está disponível a partir da build 7.00.131227A.
- Se o segundo parâmetro for informado e a função não for encontrada, o valor retornado por referência será igual a zero.
Exemplos
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
|
MAIN
define total integer
IF Find4GLFunction("SetOracleStmtCache",total) THEN
CALL CONOUT("Total de parametros: "||total)
END IF
END MAIN
|