TOTVSTEC

Árvore de páginas

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.

Sintaxe

IPCCount( < cSemaforo > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cSemaforo

caractere

Indica o local ou semáforo em que as threads foram iniciadas.

X

 

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna um número inteiro indicando o total de threads livres.

Exemplos

Exemplo 1
#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

Abrangência

Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja também

  • Sem rótulos