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
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
|