Histórico da Página

Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Pagetitle

	TCSqlReplayTCSQLReplayTCSqlReplay
	TCSQLReplay

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

Bloco de código

collapse	false

TCSqlReplayTCSQLReplay( <nOpc>< nOption >, < @cMessage <@cParmRet>> )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência

nOpc

nOption

numérico

Número da opção de controle.

Verificar existência do recurso
Habilitar Trace
desabilitar trace
Verificar se a coleta está ligada
Coletar informações do processo atual

X

cParmRetcaractereString com parâmetro adicional, depende da opção identificada no primeiro parâmetro.

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

lOk

lRet

lógico

Retorna

verdadeiro (

.T.

),

se a

operação solicitada foi realizada com sucesso. Caso

stored procedure existir, caso contrário, retorna .F.

, e a string em cParmRet é preenchida com algum detalhe ou informação adicional sobre o motivo ou falha encontrados.

Observações

Caso estejam em uso as configurações SQLReplay no Environment do APPServer.ini, as chamadas da TCSqlReplay vão atuar sobre a coleta de dados do processo atual, podendo interferir com a coleta já em andamento. O objetivo desta função é permitir ao FrameWork AdvPL criar uma forma instrumentada de, dicamicamente de dentro de uma aplicação AdvPl, permitir instrumentar um trecho de código para gerar informações pertinentes a um processamento, para fins de deputação ou mesmo profiler, sem que uma coleta global esteja habilitada no ambiente.
Existe praticamente um aumento de duas vezes a quantidade de I/O quando utilizamos a coleta de dados de trace do DBAccess no TOTVS | Application Server. Este overhead será mais percebido em ambientes onde o TOTVS Application Server e o DBAccess estão em equipamentos separados por uma rede física. Por estas questões, recomendamos o uso deste recurso apenas em processos onde uma rastreabilidade em maior profundidade seja realmente necessária.

Opções

1 - Retorna .T. se a versão utilizada do DBAccess contempla a implementação do TCSqlReplay
2 - Inicia o TCSqlReplay e se necessário é possível definir o nome do arquivo a partir do RootPath
3 - Finaliza o TCSqlReplay
4 - Verifica se o TCSqlReplay está ativo
5 - Retorna o Buffer com o log do usuário atual.
6 - Altera / Retorna o valor do Log de rotinas internas
7 - Altera / Retorna o tamanho do stack AdvPL.

Exemplos

Bloco de código

title

language	cpp
theme	Eclipse
Exemplo 1	linenumbers	true
collapse	false

User Function exemplo()
  //
 VErifica seLocal ocMessage recurso esta disponivel:= ""
  
  cParmRet := ''TcLink()
  
  lOk :=if TCSqlReplay(1,@cParmRet @cMessage) == .F.
    conout("Não existe a implementação")
  If !lOk   Return
  endif
  
  // inicia o TCSqlReplay
  cMessage :=  MsgStop(cParmRet)
     Return
  Endif"/sqlreplay.log"
  TCSqlReplay(2, @cMessage)
  
  // liga o log de rotinas internas
  cMessage := "1"
  TCSqlReplay(6, @cMessage)
  
  // Habilitaaltera ao coletavalor de dados em arquivo call stack para 5
  cMessage := "5"
  TCSqlReplay(7, @cMessage)
  
  cParmRetcMessage := '\sqlreplay\meulog.txt'
 ""
  if TCSqlReplay(24,@cParmRet)
 @cMessage) == .T.
    DoSomeStuff(conout("TCSqlReplay foi iniciado")
  endif
  
  // desabilita a coletaTODO: your code here
  
  // cParmRetFinaliza :=o ''TCSqlReplay
  TCSqlReplay(3,@cParmRet) @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.

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão Atual

Chave