Pagetitle |
---|
| Find4GLFunction |
---|
| Find4GLFunction |
---|
|
Retorna Verifica se uma determinada função está compilada disponível 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. repositório ou no binário do Application Server. Sintaxe Bloco de código |
---|
| Find4GLFunction(ParamParam1,Param2)
|
ParâmetrosNome | Tipo | Descrição | Obrigatório | Referência |
---|
ParamParam1 | 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. | | |
RetornoNome | 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 Falsodisponível no repositório ou no binário; caso contrario, falso(false), caso não seja encontrada. |
Observações- Função disponível a partir da build 7.00.101202A.O
- 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 do 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 Bloco de código |
---|
theme | Eclipse |
---|
language | cpp |
---|
title | Exemplo 1 |
---|
linenumbers | true |
---|
collapse | false |
---|
| 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
|
Bloco de código |
---|
theme | Eclipse |
---|
language | cpp |
---|
title | Exemplo 2 |
---|
linenumbers | true |
---|
| MAIN
define total integer
IF Find4GLFunction("SetOracleStmtCache",total) THEN
CALL CONOUT("Total de parametros: "||total)
END IF
END MAIN
|
|