Função que permite a execução de Jobs com a execução 'N' threads.
Esta função tem o mesmo comportamento e a mesma funcionalidade que os Jobs definidos no "ini" na seção OnStart.
Sintaxe
ManualJob ( < cJobName >, < cEnv >, < cJobType >, < cOnStart >, < cOnConnect >, < cOnExit >, < cSSKey >, < nInactive >, < nMin >, < nMax >, < nMinFree >, < nIncr >, < nWaitTime > )
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência | Default |
---|---|---|---|---|---|
cJobName | caractere | Indica o nome do Job que será executado. | X | ||
cEnv | caractere | Indica o nome do ambiente em que os Job será executado. | X | ||
cJobType | caractere | Indica o tipo do Job. Valores: WEB, WEBEX, IPC, TCP, MDI e "" (vazio/nenhum definido) | X | ||
cOnStart | caractere | Função executada uma vez na inicialização da Thread. Obs. pode ser usada na preparação de ambiente da thread | X | ||
cOnConnect | caractere | Função executada toda vez que a Thread eé chamada. | X | ||
cOnExit | caractere | Função executada uma vez na finalização da Thread. | X | ||
cSSKey | caractere | Identificador da sessão (SessionKey) Obs. Usado para cJobType (IPC ou MDI) | X | ||
nInactive | número | Tempo de inatividade das threads do Job (segundos) | 3600 | ||
nMin | número | Número mínimo de threads do Job | 1 | ||
nMax | número | Número máximo de threads do Job | 1 | ||
nMinFree | número | Número mínimo de threads livres do Job | 1 | ||
nIncr | número | Número de threads incrementadas/acrescidas no Job quando o minimo livre (nMinFree) for atingido | 1 | ||
nWaitTime | número | Timeout de espera da thread Obs. Valor máximo é 10000, se for maior que ele será ajustado para o máximo. | 5000 |
Obs. Se o “cJobType” for vazio ou for inválido, será considerado como Job de Start e executará a função “cOnConnect”.
Se o “cJobType” for “MDI”, executará a função “cOnStart” e utilizará a informação de “cSSKey”
Retorno
Não há retorno
Exemplos
#include 'protheus.ch' User Function start_jobs() ManualJob("MYIPC", "TOP", "IPC", "u_RJobStart", "u_RJobConn", "u_RJobExit", "", 1000, 1, 15, 2, 3) Return .T. User Function RJobStart() conout(time() + " RJobStart -> " + "MYIPC") Return .T. User Function RJobConn() conout(time() + " RJobConn -> " + "MYIPC") Return .T. User Function RJobExit() conout(time() + " RJobExit -> " + "MYIPC") Return .T.
Referências
Abrangência
TOTVS Application Server a partir do release 7.00131227A