ShowInfMem

A função ShowInfMem tem como objetivo auxiliar a verificação de aumento, acumulo, ou simplesmente para um gerenciamento de memória para o programador checar em determinada "instância" do seu programa como esta os contadores de memória através do Smartheap.

Essa função irá exibir todas as informações de alocação em todas as threads, logo tem como objetivo apenas a caráter de estudo, e não deve ser usado em um ambiente de produção, pois as informações serão distorcidas, pois as informações são compartilhadas em todas as threads, então para que as informações sejam coerentes, deve-se realizar o uso apenas de uma thread entre as comparações dos valores retornados pela função.

As informações exibidas em console.log e que também são carregadas no array dinâmico são dos principais pools de memória que o Appserver aloca durante a execução de um programa. A primeira coluna se trata dos kbytes armazenados pelo server, e mostram quanto foi o buffer armazenado no pool daquela alocação. Por se tratar de um pool, a memória é gerenciada internamente para, dependendo do volume de alocações, uma pequena porcentagem daquela memória fica armazenada no pool. Considerando que se trata de um pool de memória, isso é perfeitamente normal e não deve ser levado em consideração para checagem de aumento de memória. A consideração a ser levada é que a mesma aplicação, rodando diversas vezes, o pool tende a estabilizar e não deve crescer se são as mesmas variáveis e se o caminho percorrido pela execução for a mesma. Qualquer situação diferente dessa deve ser analisada.

A segunda coluna trata-se do contador de objetos na memória naquele pool, é a mais precisa para checar o quanto de memória ficou alocado na aplicação. O contador tende a se estabilizar quando a mesma rotina na mesma thread é chamada diversas vezes, ou então deve mostrar o mesmo valor inicial e final quando a thread é executada diversas vezes. Importante: No momento de finalização do server, com a chave DebuThreadUsedMemory ligada, na lista exibida em "SMARTHEAP POOL STATUS AFTER FINISHED PROCESSES", essa informação deve ser sempre zero nos pools de memória, e exceto a informação de pool default, deve-se reportar ao setor de Tecnologia TOTVS para analise da aplicação que gera essa ocorrência, pois se trata de um leak de memória interna do servidor.

Uma das formas de diagnostico de utilização da memória é realizar a chamada varias vezes de uma determinada rotina, onde esta deve estabilizar o contador de memória após algumas chamadas (o contador de memória mostra a memória que esta em pool), e caso isso não ocorra, deve ser considerado que existe um provável problema de leak de execução no programa.

Outra forma de diagnostico é realizar a chamada entre a criação de uma thread e contabilizar o estado da memória antes e depois da execução da thread. Ao finalizar uma thread, se o valor continuar a aumentar e não voltar ao se valor inicial (antes da criação da thread), pode ser observado assim um provável problema de leak.

Sintaxe

call ShowInfMem(<param1>,<param2>)

Parâmetros

Retorno

Observações

Essa função só esta disponível em builds superiores ao build 7.00.131227A do dia 11/11/2015. Só funciona em builds release.

Exemplos

Exemplo 

database logix

main
DEFINE infos  ARRAY[50] OF RECORD
                                 info1 INTEGER,
                                 info2 INTEGER
                              END RECORD
define texto varchar(100)
define i smallint

call ShowInfoSmartHeap("inicio",infos)
call conout("Informacao relevante: " || infos[1].info1 || " kb , Count " || infos[1].info2 )
call conout("Informacao relevante: " || infos[2].info1 || " kb , Count " || infos[2].info2 )
call conout("Informacao relevante: " || infos[3].info1 || " kb , Count " || infos[3].info2 )
call conout("FIZ UM CONOUT SIMPLES.. QUAL SERIA O CONSUMO DO SMARTHEAP?")
call ShowInfoSmartHeap("Antes leitura do Cursor: Programa 1", infos)
call conout("Informacao relevante: " || infos[3].info1 || " kb , Count " || infos[3].info2 )
call teste_4gl_showinfosmartheap01()
call ShowInfoSmartHeap("Apos leitura do Cursor",infos)

for i = 1 to 10 
let texto = "Teste de repeticoes: " || i
call teste_4gl_showinfosmartheap02()
call ShowInfoSmartHeap(texto,infos)
end for

end main

FUNCTION teste_4gl_showinfosmartheap01()

      define a char(50)
      define j smallint
declare cursor1 cursor for SELECT COD_CLIENTE  FROM CLIENTES
foreach cursor1 into a
call conout (a)
let j = j+1
if j >100 then
exit foreach
end if 
end foreach

END FUNCTION

function teste_4gl_showinfosmartheap02()
run 'fglrun teste_4gl_showinfosmartheap01.4gl'
end function

Veja também

ShowInfoSmartHeap - ADVPL