 |
| Bellacosa Mainframe o que é Bug Trap em Cobol |
O que é COBOL Bug Trap e Captura de ABEND?
Em ambientes Mainframe, especialmente em aplicações críticas, um dos maiores desafios é descobrir rapidamente:
Por que o programa falhou?
Onde ocorreu o erro?
Qual variável causou o problema?
Para isso existem mecanismos conhecidos como:
Bug Trap
e
Captura de ABEND
O que é um ABEND?
ABEND significa:
Abnormal End
Ou seja:
Finalização Anormal
O programa termina devido a um erro.
Exemplos de ABENDs comuns
| ABEND | Causa |
|---|---|
| S0C7 | Erro de dados numéricos |
| S0C4 | Violação de memória |
| S806 | Programa não encontrado |
| SB37 | Falta de espaço |
| U4038 | Erro definido pela aplicação |
| ASRA | Exceção em CICS |
Exemplo de S0C7
MOVE 'ABC' TO WS-VALOR-NUM
ADD 1 TO WS-VALOR-NUM
Resultado:
S0C7
O Problema
Sem diagnóstico adequado você recebe apenas:
JOB ABENDED
e precisa descobrir:
Qual campo?
Qual linha?
Qual programa?
O que é Bug Trap?
Bug Trap é uma técnica ou ferramenta que captura informações detalhadas antes do programa terminar.
Objetivo:
Transformar um ABEND misterioso
em um erro fácil de analisar
O que o Bug Trap captura?
Nome do programa
Data e hora
Parágrafo COBOL
Variáveis
SQLCODE
CICS EIBRESP
Chave VSAM
Dados recebidos
Stack de chamadas
Fluxo Simplificado
Erro
↓
Bug Trap
↓
Captura informações
↓
Gera relatório
↓
ABEND
Exemplo
Sem Bug Trap:
S0C7
Com Bug Trap:
PROGRAMA = FIN001
PARAGRAFO = CALCULA-JUROS
CAMPO = WS-SALDO
VALOR = ABCDEF
ABEND = S0C7
Captura de ABEND no COBOL
Uma prática comum é criar rotinas padronizadas.
Exemplo
IF SQLCODE NOT = 0
PERFORM TRATA-ERRO
END-IF
Rotina de Tratamento
TRATA-ERRO.
DISPLAY 'ERRO SQL'
DISPLAY SQLCODE
MOVE 16 TO RETURN-CODE
STOP RUN.
Capturando FILE STATUS
Muito comum em arquivos.
READ ARQCLIENTE
IF WS-FS NOT = '00'
DISPLAY 'ERRO LEITURA'
DISPLAY WS-FS
END-IF
Captura de SQLCODE
Programas DB2.
EXEC SQL
SELECT ...
END-EXEC
IF SQLCODE NOT = 0
DISPLAY SQLCODE
END-IF
Captura de CICS
Programas online.
EXEC CICS
READ FILE(...)
RESP(WS-RESP)
END-EXEC
IF WS-RESP NOT = DFHRESP(NORMAL)
DISPLAY WS-RESP
END-IF
Uso de Declaratives
COBOL possui tratamento nativo.
DECLARATIVES.
ARQ-ERROR SECTION.
USE AFTER STANDARD ERROR PROCEDURE
ON ARQCLIENTE.
DISPLAY 'ERRO ARQUIVO'.
END DECLARATIVES.
LE Condition Handler
No ambiente IBM Language Environment (LE).
Pode interceptar:
S0C7
S0C4
Overflow
Underflow
Ferramentas modernas utilizam LE para coletar:
Call Stack
Variáveis
Offset
PSW
Ferramentas Comerciais
IBM Fault Analyzer
Uma das mais utilizadas.
Captura automaticamente:
ABEND
Variáveis
Fonte COBOL
Call Stack
IBM Application Performance Analyzer
Auxilia análise de execução.
Abend-AID
Muito popular em bancos.
Produz relatórios detalhados.
Xpediter
Debug e análise de falhas.
Exemplo Fault Analyzer
Após um S0C7:
ABEND S0C7
PROGRAMA:
FIN001
PARAGRAFO:
CALCULA-PARCELA
CAMPO:
WS-VALOR
CONTEUDO:
ABC123
Exemplo Abend-AID
Mostra:
Linha COBOL
Variáveis
Offsets
Call Stack
Storage
Captura Manual (Estilo Bellacosa)
Uma prática comum é criar um copybook corporativo.
COPY LOGERRO.
Sempre que ocorrer erro:
PERFORM REGISTRA-ERRO
Grava:
Programa
Parágrafo
Usuário
Data
Hora
SQLCODE
File Status
Mensagem
Exemplo de Log
PROGRAMA=FIN001
PARAGRAFO=ATUALIZA-SALDO
SQLCODE=-911
USUARIO=BELLA01
DATA=20260801
HORA=14:35:21
Captura de Call Stack
Especialmente importante em:
CALL
CALL
CALL
CALL
Exemplo:
MAIN
↓
CALCULO
↓
JUROS
↓
VALIDA
Erro ocorreu em:
VALIDA
Captura de Dumps
Ferramentas analisam:
SYSUDUMP
SYSABEND
CEEDUMP
CEEDUMP
Muito usado com Language Environment.
Contém:
variáveis;
registradores;
call stack;
offsets.
Boas Práticas
✅ Sempre verificar FILE STATUS
✅ Sempre verificar SQLCODE
✅ Tratar RESP em CICS
✅ Gerar logs padronizados
✅ Produzir CEEDUMP
✅ Utilizar Fault Analyzer ou Abend-AID
✅ Registrar contexto do erro
Curiosidade
Em muitos bancos, mais de 90% dos incidentes COBOL são resolvidos sem abrir um dump completo porque as rotinas de Bug Trap já registram:
Programa
Parágrafo
Campo
Valor inválido
Usuário
Transação
permitindo localizar a causa raiz em poucos minutos.
Resumo Rápido
| Conceito | Função |
|---|---|
| ABEND | Finalização anormal |
| S0C7 | Erro numérico |
| S0C4 | Violação memória |
| Bug Trap | Captura contexto do erro |
| CEEDUMP | Dump do LE |
| SYSUDUMP | Dump sistema |
| SQLCODE | Erro DB2 |
| FILE STATUS | Erro arquivo |
| RESP | Erro CICS |
| Fault Analyzer | Diagnóstico IBM |
| Abend-AID | Diagnóstico avançado |
| Xpediter | Debug |
Conclusão
Bug Trap é o conjunto de técnicas e ferramentas utilizadas para capturar informações detalhadas antes ou durante um ABEND. Em ambientes COBOL corporativos, ele é essencial para acelerar a análise de incidentes, identificar a causa raiz e reduzir drasticamente o tempo de diagnóstico de erros em aplicações Batch, CICS, IMS e DB2.
