#Ensemble

Rubrica de FAQ da InterSystems

Se você quiser gerar um erro personalizado arbitrário dentro de um bloco TRY, pode passar uma exceção com um throw, da seguinte forma. No exemplo abaixo, um erro personalizado é gerado se Stcount for menor que 1.

Class User.Test
{

ClassMethod ExceptionTest()
 {
    try
    {
      // : some codes
      if (Stcount<1) {
          throw ##class(%Exception.General).%New("User-defined error", "5001", "location", "Data at location error")
          // User-created errors are 5001 and above
      }
    }
    catch ex
    {
      write "Errors #", ex.

Isso serve mais como um lembrete pessoal, mas achei que valia compartilhar porque o assunto aparece frequentemente nos comentários, porém não está na documentação da InterSystems.

Existe um utilitário excelente chamado ^REDEBUG que aumenta o nível de registro (logging) no arquivo mgr\cconsole.log.

Para ativá-lo:

a) Inicie o terminal e faça login 

b) zn "%SYS" 

c) do ^REDEBUG 

d) Altere o nível de logging para FFFFFFFF

Se você estiver em um sistema de produção (com muito tráfego), sugiro que você reproduza o erro rapidamente, renomeie o arquivo cconsole.

Rubrica de FAQ da InterSystems 

Ao se conectar ao banco de dados usando uma arquitetura cliente-servidor, por exemplo, usando language binding, o nome da máquina do cliente pode ser obtido usando o seguinte código:

set client=##CLASS(%SYS.ProcessQuery).Open("P"_$j).ClientNodeName