Obtém todas as threads que estão no ar, em um determinado ambiente, e retorna um número inteiro indicando o total de threads livres.
IPCCount( < cSemaforo > )
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cSemaforo | caractere | Indica o local ou semáforo em que as threads foram iniciadas. | X |
|
Nome | Tipo | Descrição |
|---|---|---|
nRet | numérico | Retorna um número inteiro indicando o total de threads livres. |
#DEFINE SEMAFORO 'IDUNICOTESTE'
User Function ipccount()
StartJob("U_ipcjobs",GetEnvServer(),.F.)
StartJob("U_ipcjobs",GetEnvServer(),.F.)
Sleep( 7000 )
nRet := IPCCount(SEMAFORO)
conout("Existem " + cvaltochar(nRet) + " threads em espera no semaforo " + SEMAFORO)
Return
User Function ipcjobs()
Local cPar
while !killapp()
IpcWaitEx( SEMAFORO, 5000, @cPar )
enddo
Return
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server