Permite habilitar e desabilitar a coleta de logs de trace de execuções do DBaccess via TOTVS | Application Server das conexões ativas do processo atual.

Sintaxe

TCSQLReplay( < nOption >, < @cMessage > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nOption

numérico

Opção desejada detalhada nas observações.

X


cMessage

caractere

Parametro de entrada e/ou Mensagem de retorno

X

X

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. se a stored procedure existir, caso contrário, retorna .F.

Observações

Opções

Exemplos

User Function exemplo()
  
  Local cMessage := ""
  
  TcLink()
  
  if TCSqlReplay(1, @cMessage) == .F.
    conout("Não existe a implementação")
    Return
  endif
  
  // inicia o TCSqlReplay
  cMessage := "/sqlreplay.log"
  TCSqlReplay(2, @cMessage)
  
  // liga o log de rotinas internas
  cMessage := "1"
  TCSqlReplay(6, @cMessage)
  
  // altera o valor de call stack para 5
  cMessage := "5"
  TCSqlReplay(7, @cMessage)
  
  cMessage := ""
  if TCSqlReplay(4, @cMessage) == .T.
    conout("TCSqlReplay foi iniciado")
  endif
  
  // TODO: your code here
  
  // Finaliza o TCSqlReplay
  TCSqlReplay(3, @cMessage)
  
  TcUnlink()
  
Return

Abrangência

Esta função está disponível no Application Server - build 7.00.131227A, com data de geração superior a 09/08/2016 e depende de um DBAccess com build superior a 20161016.

Veja também