Bellacosa Mainframe apresenta Higurashi no naku koro ni kai

☕🔄🩸💣 HIGURASHI NO NAKU KORO NI KAI — O DIA EM QUE O SYSPROG ENCONTROU O DUMP COMPLETO E DESCOBRIU QUEM ESTAVA DERRUBANDO A REALIDADE

"Na primeira temporada vimos os ABENDS. Em Kai finalmente recebemos acesso ao SYSMDUMP da existência."

---

Dados Técnicos

Título Original: ひぐらしのなく頃に解 (Higurashi no Naku Koro ni Kai)

Tradução Aproximada: When the Cicadas Cry – Solution Arc

Autor Original: Ryukishi07

Obra Original: Visual Novel da 07th Expansion

Estúdio: Studio Deen

Direção: Chiaki Kon

Música: Kenji Kawai

Exibição Original: Julho de 2007 a Dezembro de 2007

Quantidade de Episódios: 24

Continuação Direta de: Higurashi no Naku Koro ni (2006)

---

Gênero

• Terror Psicológico

• Mistério

• Suspense

• Thriller

• Drama

• Horror

• Sobrenatural

• Ficção Científica Psicológica

---

Classificação Indicativa

16 a 18 anos

Contém:

• Violência gráfica

• Assassinatos

• Tortura psicológica

• Temas de abuso

• Trauma infantil

• Colapso mental

• Conteúdo perturbador

---

Sinopse

Se a primeira temporada era um gigantesco relatório de erros...

Kai é a análise forense.

Após inúmeras tragédias ocorridas em Hinamizawa, finalmente começamos a descobrir o que realmente está acontecendo.

Os mistérios começam a ser explicados.

As peças do quebra-cabeça se encaixam.

Os loops passam a fazer sentido.

As conspirações são reveladas.

E pela primeira vez surge uma pergunta nova:

"Será que o destino pode ser derrotado?"

---

Resumo da Obra

Imagine que a temporada original era composta por dezenas de dumps gerados após sucessivos ABENDS.

Kai é o momento em que alguém finalmente abre os arquivos:

SYSUDUMP
SYSABEND
SYSMDUMP
LOGS DE EXECUÇÃO

e começa a descobrir a verdadeira causa raiz.

O foco deixa de ser:

"Quem matou?"

e passa a ser:

"Como impedir que isso aconteça novamente?"

---

A Grande Diferença Entre Higurashi e Kai

Essa é a maior mudança da franquia.

Primeira Temporada

Perguntas.

Mistérios.

Paranoia.

Medo.

Confusão.

Kai

Respostas.

Investigação.

Reconstrução.

Esperança.

Resolução.

É quase como passar de:

ABEND DETECTADO

para

ROOT CAUSE IDENTIFICADA

---

A História: O Momento em Que Rika Decide Lutar

Durante a primeira série, Rika Furude parecia apenas uma garota misteriosa.

Em Kai descobrimos algo muito maior.

Ela é a verdadeira protagonista.

Durante anos.

Talvez séculos.

Talvez milhares de reinicializações.

Ela testemunhou a mesma tragédia repetidamente.

Sempre fracassando.

Sempre perdendo.

Sempre reiniciando.

Kai mostra o momento em que ela decide parar de aceitar o erro como inevitável.

---

Personagens Principais

Rika Furude

A administradora do sistema.

A operadora presa em um ciclo infinito.

Sua jornada transforma-se em uma das histórias mais emocionantes dos animes.

---

Keiichi Maebara

Agora mais maduro.

Mais observador.

Torna-se peça fundamental na quebra do ciclo.

---

Rena Ryugu

Continua sendo uma das personagens mais complexas da série.

Representa o conflito entre medo e confiança.

---

Mion Sonozaki

A líder natural do grupo.

Sua lealdade passa a ter importância crítica.

---

Satoko Houjou

Kai aprofunda dramaticamente sua tragédia pessoal.

---

Hanyu

A maior revelação da temporada.

Sem spoilers pesados:

Ela responde perguntas que atormentavam os espectadores desde 2006.

---

O Que Kai Faz Melhor Que a Série Original?

Praticamente tudo.

E isso é raro.

A maioria das continuações perde força.

Kai cresce.

Aumenta a escala.

Aumenta a profundidade.

Aumenta a emoção.

Aumenta o significado.

O terror continua presente.

Mas agora existe propósito.

---

As Aventuras de Kai

Diferentemente da primeira temporada, onde os personagens reagiam aos acontecimentos...

Em Kai eles começam a agir.

Cada arco é uma missão.

Uma operação.

Um plano para derrotar o destino.

É como se uma equipe de operadores finalmente entendesse por que o sistema cai e começasse a trabalhar junta para corrigir o problema.

---

Temáticas Profundas

Destino versus Livre Arbítrio

A pergunta central:

O futuro já está definido?

Ou podemos alterá-lo?

---

Esperança

Kai é surpreendentemente otimista.

Mesmo sendo uma obra de horror.

---

Trabalho em Equipe

Talvez a maior mensagem da série.

Ninguém consegue vencer sozinho.

---

Confiança

A solução para quase todas as tragédias surge quando os personagens param de esconder seus problemas.

---

Persistência

Rika fracassa inúmeras vezes.

Mesmo assim continua tentando.

---

As Mensagens Ocultas

Compartilhar Dor É Importante

A série mostra que o isolamento amplifica o sofrimento.

---

O Verdadeiro Inimigo Não É Sobrenatural

Muitas tragédias surgem de:

• medo

• preconceito

• silêncio

• manipulação

Não de monstros.

---

O Conhecimento Coletivo Salva

Quando cada personagem compartilha informações, o sistema começa a funcionar.

É uma metáfora brilhante para comunidades humanas.

---

Hanyu e a Filosofia do Observador

Um dos conceitos mais interessantes da temporada.

Hanyu representa algo semelhante ao operador que observa um sistema falhando.

Ela vê tudo.

Entende tudo.

Mas possui dificuldade para interferir.

A discussão filosófica criada em torno dela é muito mais profunda do que parece.

---

Impacto Cultural

Kai consolidou Higurashi como uma das maiores franquias de horror psicológico da história dos animes.

Sua influência pode ser vista posteriormente em:

• Steins;Gate

• Re:Zero

• Summertime Rendering

• Madoka Magica

• Erased

• Tokyo Revengers

A ideia de múltiplas tentativas para alterar um destino tornou-se extremamente popular na década seguinte.

---

Houve Censura?

Sim.

Embora menos controversa que a primeira temporada, Kai ainda enfrentou:

• escurecimento de cenas

• cortes regionais

• alterações em transmissões internacionais

Porém o foco da temporada está muito mais na narrativa do que no choque visual.

Por isso as censuras tiveram impacto menor.

---

A Obra-Prima de Ryukishi07

O maior feito de Kai não é explicar os mistérios.

É fazer algo muito mais difícil.

Transformar uma história sobre desespero em uma história sobre esperança.

Poucos autores conseguem isso.

Mais raro ainda é fazer sem destruir o clima sombrio da obra.

Ryukishi07 conseguiu.

---

Veredito Bellacosa Mainframe

Se a primeira temporada foi um gigantesco:

ABEND U9999
CAUSA DESCONHECIDA

Kai é o momento em que finalmente recebemos:

ANÁLISE CONCLUÍDA

CAUSA RAIZ IDENTIFICADA

AÇÃO CORRETIVA DISPONÍVEL

Mas o verdadeiro gênio de Higurashi Kai não está na solução do mistério.

Está em mostrar que o erro nunca esteve apenas no sistema.

O erro estava nas pessoas que deixavam o medo substituir a confiança.

☕🔄🩸💣 Nota Bellacosa Mainframe: 10/10 SYSMDUMPs analisados com sucesso.

Status Final do Job:

LOOP DETECTADO
LOOP ANALISADO
LOOP QUEBRADO

RETURN CODE = 0000

Ou pelo menos foi isso que os operadores de Hinamizawa acreditaram... antes do próximo IPL da realidade. 🌾🩸🔄💣

O que é um Dataset no Mainframe?

 

Bellacosa Mainframe o que é um dataset

O que é Dataset no Mainframe?

No ambiente mainframe IBM Z, um dos conceitos mais importantes é:

Dataset.

Praticamente tudo no z/OS gira em torno deles:

• programas;

• JCL;

• arquivos COBOL;

• relatórios;

• bibliotecas;

• cargas batch;

• bancos VSAM.

---

Definição simples

Dataset é:

um conjunto organizado de dados armazenado no disco do mainframe.

É equivalente a:

• arquivos no Windows;

• arquivos Linux;

• documentos digitais.

Mas no mainframe os datasets possuem:

muito mais controle e estrutura.

---

Analogia simples

---

Windows

C:\TEMP\CLIENTES.TXT

---

Mainframe

EMPRESA.PROD.CLIENTES

---

Dataset = arquivo do mainframe

---

Onde datasets ficam?

Normalmente em:

DASD.

---

O que é DASD?

Direct Access Storage Device

Disco do mainframe.

---

Tipos mais comuns de dataset

---

Sequential Dataset (PS)

Arquivo sequencial.

---

PDS

Partitioned Dataset.

Biblioteca com membros.

---

PDSE

Versão moderna do PDS.

---

VSAM

Dataset avançado indexado.

---

GDG

Geração de datasets.

---

Dataset sequencial (PS)

Muito usado em:

• COBOL batch;

• relatórios;

• arquivos entrada;

• saída batch.

---

Exemplo

BANCO.CLIENTES.ARQ

---

Como funciona?

Os registros são lidos:

em sequência.

---

Fluxo

REG1
 ↓
REG2
 ↓
REG3

---

Muito usado com COBOL READ

---

O que é PDS?

Partitioned Dataset

Dataset dividido em:

membros.

---

Analogia

Como uma pasta contendo:

• vários arquivos.

---

Muito usado para:

• JCL;

• PROC;

• COBOL source;

• CLIST;

• REXX.

---

Exemplo

USER.JCLLIB

Membros:

TESTE
COBOL
BACKUP

---

O que é PDSE?

Versão moderna do:

PDS.

---

Vantagens do PDSE

• menos fragmentação;

• gerenciamento automático;

• mais eficiente;

• mais moderno.

---

O que é VSAM?

Dataset mais sofisticado.

Pode possuir:

• índice;

• acesso direto;

• chave.

---

Muito usado em:

• bancos;

• sistemas online;

• CICS.

---

O que é GDG?

Generation Data Group

Controle de versões de datasets.

---

Exemplo

RELATORIO(+1)

---

Como datasets são identificados?

Por:

DSN.

---

DSN = Dataset Name

---

Exemplo

EMPRESA.FINANCEIRO.CLIENTES

---

Regras comuns

• separados por ponto;

• até 44 caracteres;

• níveis hierárquicos.

---

Estrutura visual

EMPRESA
   ↓
FINANCEIRO
   ↓
CLIENTES

---

Como datasets aparecem no JCL?

Via:

DD statement.

---

Exemplo

//CLIENTE DD DSN=EMPRESA.CLIENTES,
//            DISP=SHR

---

Explicando

Elemento	Função
DD	Define dataset
DSN	Nome dataset
DISP	Tipo acesso

---

DISP mais comuns

DISP	Significado
SHR	Compartilhado
OLD	Exclusivo
NEW	Novo dataset
MOD	Acrescentar dados

---

Como COBOL usa dataset?

Através de:

• SELECT;

• ASSIGN;

• READ;

• WRITE.

---

Exemplo COBOL

SELECT ARQCLI
ASSIGN TO CLIENTE.

---

Ligação COBOL ↔ JCL

COBOL ASSIGN
      ↓
DDNAME JCL
      ↓
Dataset real

---

O que é layout do dataset?

Estrutura do registro.

---

Exemplo

12345JOAO SILVA          0001500

---

Layout COBOL

05 ID      PIC 9(5).
05 NOME    PIC X(20).
05 SALDO   PIC 9(7).

---

Dataset pode conter:

• texto;

• números;

• binários;

• packed decimal;

• JCL;

• programas.

---

Dataset no SDSF/ISPF

Muito acessado usando:

• 3.4 ISPF;

• SDSF;

• utilities.

---

Comandos famosos

LISTCAT

---

ALLOC

---

IEBGENER

---

O que é catalog?

Catálogo do z/OS.

Guarda:

• localização;

• volume;

• informações dataset.

---

O que é volume?

Disco físico/lógico onde dataset está.

---

Dataset temporário

Criado temporariamente no JOB.

---

Exemplo

//TEMP DD DSN=&&TEMP

---

Dataset permanente

Fica armazenado após execução.

---

Dataset e batch

Praticamente todo batch:

• lê datasets;

• processa;

• grava novos datasets.

---

Fluxo batch clássico

INPUT DATASET
      ↓
COBOL PROCESSA
      ↓
OUTPUT DATASET

---

Curiosidades incríveis

1. Mainframes armazenam bilhões de datasets

---

2. PDS foi uma revolução para bibliotecas JCL/COBOL

---

3. VSAM ainda é extremamente usado em bancos

---

4. Muitos datasets existem há décadas em produção

---

Erros comuns de iniciantes

---

1. Confundir PDS com dataset sequencial

---

2. DDNAME diferente do ASSIGN

---

3. DISP incorreto

---

4. Layout incompatível

---

5. Não entender organização do dataset

---

Dicas importantes

Entenda PS vs PDS vs VSAM

---

Sempre valide DDNAME

---

Aprenda DISP corretamente

---

Conheça layouts COBOL

---

Resumo rápido

Tipo	Função
PS	Sequencial
PDS	Biblioteca
PDSE	Biblioteca moderna
VSAM	Indexado
GDG	Versionamento
DSN	Nome dataset
DD	Associação JCL

---

Conclusão

Dataset é a estrutura fundamental de armazenamento no ambiente mainframe IBM Z.

Eles armazenam programas, arquivos batch, bibliotecas, dados corporativos e informações críticas, sendo essenciais para COBOL, JCL, CICS e processamento no z/OS.

 

Bellacosa Mainframe e a clausula END no COBOL

O que é a Cláusula END nos Comandos COBOL?

A cláusula END foi introduzida nas versões modernas do COBOL para indicar explicitamente o fim de um comando ou estrutura lógica.

Ela torna os programas:

✅ Mais legíveis

✅ Mais seguros

✅ Mais fáceis de manter

✅ Menos sujeitos a erros de aninhamento

---

Antes do END

Nas versões antigas do COBOL era comum encontrar:

IF SALDO > 0

   DISPLAY 'SALDO POSITIVO'

ELSE

   DISPLAY 'SALDO NEGATIVO'.

Em estruturas complexas, ficava difícil saber onde terminava cada comando.

---

Com END

IF SALDO > 0

   DISPLAY 'SALDO POSITIVO'

ELSE

   DISPLAY 'SALDO NEGATIVO'

END-IF.

Agora o término fica explícito.

---

Por que a IBM criou os ENDs?

Imagine:

IF A = 1

   IF B = 2

      IF C = 3

         DISPLAY 'OK'

      ELSE

         DISPLAY 'ERRO'

Pergunta:

O ELSE pertence a qual IF?

Nem sempre é fácil responder.

---

Com ENDs:

IF A = 1

   IF B = 2

      IF C = 3

         DISPLAY 'OK'

      ELSE

         DISPLAY 'ERRO'

      END-IF

   END-IF

END-IF.

Não existe dúvida.

---

Principais Comandos com END

---

END-IF

Finaliza IF.

IF WS-SALDO > 0

   DISPLAY 'OK'

END-IF.

---

END-PERFORM

Finaliza PERFORM inline.

PERFORM

   DISPLAY 'PROCESSANDO'

END-PERFORM.

---

END-READ

Finaliza READ.

READ ARQCLI

   AT END

      MOVE 'S' TO FIM-ARQ

END-READ.

---

END-WRITE

Finaliza WRITE.

WRITE REG-SAIDA

END-WRITE.

---

END-REWRITE

Finaliza REWRITE.

REWRITE REG-CLIENTE

END-REWRITE.

---

END-DELETE

Finaliza DELETE.

DELETE ARQCLI

END-DELETE.

---

END-SEARCH

Finaliza SEARCH.

SEARCH TAB-CLIENTES

   WHEN CODIGO = 100

      DISPLAY 'ACHOU'

END-SEARCH.

---

END-EVALUATE

Finaliza EVALUATE.

EVALUATE TRUE

   WHEN SALDO > 0

      DISPLAY 'POSITIVO'

   WHEN OTHER

      DISPLAY 'ZERO'

END-EVALUATE.

---

END-STRING

Finaliza STRING.

STRING

   NOME
   SOBRENOME

   INTO WS-NOME

END-STRING.

---

END-UNSTRING

Finaliza UNSTRING.

UNSTRING WS-DADOS

   DELIMITED BY ';'

   INTO CAMPO1
        CAMPO2

END-UNSTRING.

---

END-COMPUTE

Finaliza COMPUTE.

COMPUTE WS-TOTAL = A + B

END-COMPUTE.

---

END-CALL

Finaliza CALL.

CALL 'CALCULA'

   USING WS-VALOR

END-CALL.

---

END-START

Finaliza START.

START ARQVSAM

   KEY >= WS-CHAVE

END-START.

---

END-ACCEPT

Finaliza ACCEPT.

ACCEPT WS-DATA

END-ACCEPT.

---

END-DISPLAY

Finaliza DISPLAY.

DISPLAY 'TESTE'

END-DISPLAY.

---

END-ADD

Finaliza ADD.

ADD 10 TO WS-TOTAL

END-ADD.

---

END-SUBTRACT

Finaliza SUBTRACT.

SUBTRACT 5 FROM WS-TOTAL

END-SUBTRACT.

---

END-MULTIPLY

Finaliza MULTIPLY.

MULTIPLY A BY B

END-MULTIPLY.

---

END-DIVIDE

Finaliza DIVIDE.

DIVIDE A INTO B

END-DIVIDE.

---

END-JSON

Usado em COBOL moderno.

JSON GENERATE WS-JSON

   FROM CLIENTE

END-JSON.

---

END-XML

Também muito comum.

XML GENERATE WS-XML

   FROM CLIENTE

END-XML.

---

END-EXEC

Muito utilizado em DB2 e CICS.

---

DB2

EXEC SQL

   SELECT NOME

   INTO :WS-NOME

   FROM CLIENTES

END-EXEC.

---

CICS

EXEC CICS

   SEND MAP('TELA1')

END-EXEC.

---

END-EXEC é Especial

Porque:

EXEC SQL

e

EXEC CICS

não são comandos COBOL puros.

São pré-processados antes da compilação.

---

Exemplo Completo

IF WS-SALDO > 0

   PERFORM

      DISPLAY 'SALDO POSITIVO'

   END-PERFORM

ELSE

   DISPLAY 'SEM SALDO'

END-IF.

---

Benefícios

✅ Legibilidade

✅ Menos erros

✅ Melhor manutenção

✅ Facilita debug

✅ Facilita revisões de código

---

Padrão Corporativo

Hoje a maioria das empresas exige:

END-IF
END-PERFORM
END-EVALUATE
END-READ
END-EXEC

mesmo quando opcionais.

---

Erros Comuns

Esquecer END-IF

IF A = 1

   DISPLAY 'OK'

Pode gerar erro de compilação.

---

Misturar ENDs

IF A = 1

   PERFORM

      DISPLAY 'OK'

END-IF

Compilador detecta inconsistência.

---

Curiosidade

Nas décadas de 1970 e 1980 muitos programas COBOL eram escritos sem ENDs, utilizando apenas pontos finais (.) para encerrar blocos. Em aplicações modernas, os ENDs são considerados uma das melhores práticas de programação COBOL.

---

Resumo Rápido

Comando	Terminador
IF	END-IF
PERFORM	END-PERFORM
READ	END-READ
EVALUATE	END-EVALUATE
SEARCH	END-SEARCH
STRING	END-STRING
UNSTRING	END-UNSTRING
CALL	END-CALL
JSON	END-JSON
XML	END-XML
EXEC SQL	END-EXEC
EXEC CICS	END-EXEC

---

Conclusão

A cláusula END em COBOL serve para indicar explicitamente o término de comandos e blocos lógicos. Ela melhora a legibilidade, reduz ambiguidades, facilita a manutenção e é considerada uma prática obrigatória em praticamente todos os projetos COBOL modernos, especialmente em ambientes IBM Z, CICS, IMS, DB2, XML e JSON.

 

Bellacosa Mainframe e o comando CALL e subprogramas em COBOL

Chamando Subprogramas em COBOL – Tipos de comandos CALL

Um dos recursos mais importantes do COBOL é a capacidade de dividir uma aplicação em vários módulos menores chamados:

Subprogramas

Isso permite reutilização de código, manutenção mais simples e melhor organização das aplicações Mainframe.

---

O que é um Subprograma?

É um programa COBOL que é chamado por outro programa.

---

Estrutura

Programa Principal
        ↓
     CALL
        ↓
   Subprograma
        ↓
     GOBACK
        ↓
Programa Principal

---

Exemplo Simples

Programa Principal:

CALL 'CALCULA'.

---

Subprograma:

IDENTIFICATION DIVISION.
PROGRAM-ID. CALCULA.

PROCEDURE DIVISION.

DISPLAY 'ENTREI NO SUBPROGRAMA'.

GOBACK.

---

Resultado:

ENTREI NO SUBPROGRAMA

---

Tipos de CALL

Existem vários tipos de chamada.

---

1. CALL Estático

O nome do programa é conhecido durante a compilação.

CALL 'CALCULA'

---

Características:

✅ Mais rápido

✅ Verificação na Linkedição

✅ Muito usado em Batch

---

Fluxo:

MAIN
 ↓
CALL 'CALCULA'
 ↓
CALCULA

---

2. CALL Dinâmico

O nome do programa está em uma variável.

01 WS-PGM PIC X(8).

MOVE 'CALCULA' TO WS-PGM.

CALL WS-PGM.

---

Características:

✅ Flexibilidade

✅ Escolha em tempo de execução

✅ Muito usado em frameworks

---

Fluxo:

WS-PGM
   ↓
CALCULA
VALIDA
CONSULTA

---

Exemplo

IF TIPO = 'A'

   MOVE 'CALCA' TO WS-PGM

ELSE

   MOVE 'CALCB' TO WS-PGM

END-IF

CALL WS-PGM

---

3. Nested Program Call

Programa interno chamando outro.

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.

PROCEDURE DIVISION.

CALL 'SUB1'.

---

PROGRAM-ID. SUB1.

CALL 'SUB2'.

---

Fluxo:

MAIN
 ↓
SUB1
 ↓
SUB2

---

4. CALL Recursivo

Um programa chama ele próprio.

Necessário:

RECURSIVE PROGRAM

---

Exemplo:

IDENTIFICATION DIVISION.
PROGRAM-ID. FATORIAL
RECURSIVE.

---

Fluxo:

FATORIAL
    ↓
FATORIAL
    ↓
FATORIAL

---

5. CALL para Módulos LE

Chamada de rotinas do Language Environment.

Exemplo:

CALL 'CEE3ABD'

---

Usado para:

• ABEND controlado

• Datas

• Hora

• Serviços LE

---

6. CALL para Rotinas Assembler

Muito comum em Mainframe.

CALL 'ROTASM01'

---

Fluxo:

COBOL
 ↓
ASSEMBLER
 ↓
COBOL

---

7. CALL para CICS

Em CICS normalmente usamos:

EXEC CICS LINK
     PROGRAM('PROG2')
END-EXEC.

---

Ou

EXEC CICS XCTL
     PROGRAM('PROG2')
END-EXEC.

---

LINK x XCTL

LINK

Retorna ao chamador.

PROG1
 ↓
LINK
 ↓
PROG2
 ↓
Retorna

---

XCTL

Não retorna.

PROG1
 ↓
XCTL
 ↓
PROG2

---

Passagem de Parâmetros

O mais comum.

---

Programa Principal

CALL 'CALCULA'
USING WS-VALOR.

---

Subprograma

LINKAGE SECTION.

01 LK-VALOR PIC 9(5).

PROCEDURE DIVISION USING LK-VALOR.

---

Fluxo

MAIN
 ↓
USING
 ↓
LINKAGE

---

Múltiplos Parâmetros

Programa Principal:

CALL 'CALCULA'

USING

   WS-NOME
   WS-SALDO
   WS-DATA.

---

Subprograma:

PROCEDURE DIVISION USING

   LK-NOME
   LK-SALDO
   LK-DATA.

---

BY REFERENCE

Padrão do COBOL.

Passa endereço.

CALL 'PROG1'

USING BY REFERENCE WS-NOME.

---

Pode alterar o valor original.

---

BY CONTENT

Passa cópia.

CALL 'PROG1'

USING BY CONTENT WS-NOME.

---

Não altera a variável original.

---

BY VALUE

Passa valor diretamente.

Muito usado em integração com C.

CALL 'PROG1'

USING BY VALUE WS-CODIGO.

---

Exemplo

MOVE 100 TO WS-VALOR

CALL 'TESTE'

USING BY CONTENT WS-VALOR

---

Subprograma altera:

MOVE 500 TO LK-VALOR

---

Resultado:

WS-VALOR = 100

---

CANCEL

Remove programa da memória.

CANCEL 'CALCULA'

---

Muito usado após CALL dinâmico.

---

Fluxo

CALL
 ↓
Executa
 ↓
CANCEL
 ↓
Memória liberada

---

CALL e Load Modules

O programa chamado precisa estar:

STEPLIB
JOBLIB
LINKLIST
LPA

---

Erros Comuns

S806

Programa não encontrado.

S806

---

U4038

Erro interno.

---

S0C4

Parâmetro incorreto.

---

Boas Práticas

✅ Usar GOBACK nos subprogramas

✅ Validar parâmetros recebidos

✅ Documentar USING

✅ Evitar excesso de níveis CALL

✅ Utilizar COPYBOOK para parâmetros

---

Exemplo Corporativo

MAIN
 │
 ├── VALIDA
 │
 ├── CONSULTA-DB2
 │
 ├── CALCULA-JUROS
 │
 ├── GERA-ARQUIVO
 │
 └── LOG-ERRO

Cada módulo é um subprograma especializado.

---

Resumo Rápido

Tipo	Característica
CALL Estático	Nome fixo
CALL Dinâmico	Nome variável
Nested	Programa dentro de programa
Recursivo	Chama a si próprio
LINK CICS	Retorna
XCTL CICS	Não retorna
BY REFERENCE	Passa endereço
BY CONTENT	Passa cópia
BY VALUE	Passa valor
CANCEL	Remove da memória

---

Conclusão

O comando CALL é o mecanismo que permite a modularização das aplicações COBOL. Através dele, programas podem compartilhar regras de negócio, reutilizar código e organizar grandes sistemas corporativos em componentes menores. Dominar CALL estático, dinâmico, parâmetros USING, BY REFERENCE, BY CONTENT, BY VALUE, LINK, XCTL e CANCEL é essencial para qualquer programador COBOL que deseje atuar em ambientes Mainframe modernos.

 

Bellacosa Mainframe e o comando Goback em Cobol

O que é o comando GOBACK em COBOL?

O comando GOBACK é utilizado para encerrar a execução de um programa ou retornar o controle para o programa chamador.

Ele é considerado uma das instruções mais importantes do COBOL moderno e, em muitos ambientes, substitui o uso de STOP RUN.

---

Definição Simples

O GOBACK significa:

Volte para quem me chamou

ou, se não existir programa chamador:

Termine a execução

---

Sintaxe

GOBACK.

---

Exemplo Simples

IDENTIFICATION DIVISION.
PROGRAM-ID. TESTE.

PROCEDURE DIVISION.

DISPLAY 'OLA MUNDO'.

GOBACK.

Resultado:

OLA MUNDO

Programa finalizado.

---

Como Funciona?

O comportamento depende da forma como o programa foi executado.

---

Programa Principal

Executado por JCL:

//STEP1 EXEC PGM=PROG1

Fluxo:

JCL
 ↓
PROG1
 ↓
GOBACK
 ↓
Fim da execução

---

Subprograma

Programa principal:

CALL 'SUBROT1'.

Subprograma:

DISPLAY 'ENTREI'.

GOBACK.

Fluxo:

MAIN
 ↓
CALL SUBROT1
 ↓
GOBACK
 ↓
MAIN continua

---

Exemplo Completo

Programa Principal:

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.

PROCEDURE DIVISION.

DISPLAY 'ANTES'.

CALL 'SUB1'.

DISPLAY 'DEPOIS'.

GOBACK.

---

Subprograma:

IDENTIFICATION DIVISION.
PROGRAM-ID. SUB1.

PROCEDURE DIVISION.

DISPLAY 'SUBPROGRAMA'.

GOBACK.

---

Saída:

ANTES
SUBPROGRAMA
DEPOIS

---

GOBACK x STOP RUN

Essa é a comparação mais importante.

GOBACK	STOP RUN
Retorna ao chamador	Finaliza tudo
Seguro para subprogramas	Perigoso em subprogramas
Recomendado atualmente	Uso tradicional
Funciona em programas chamados	Encerra toda aplicação

---

Exemplo Visual

GOBACK

MAIN
 ↓
SUB1
 ↓
GOBACK
 ↓
MAIN continua

---

STOP RUN

MAIN
 ↓
SUB1
 ↓
STOP RUN
 ↓
Tudo termina

---

Uso em Batch

Muito comum.

OPEN INPUT ARQCLI

PERFORM PROCESSA

CLOSE ARQCLI

GOBACK.

---

Uso em Subprogramas

É a principal recomendação.

CALL 'CALCULO'

CALL 'VALIDA'

GOBACK.

---

Uso em Programas DB2

Também é amplamente utilizado.

IF SQLCODE NOT = 0

   DISPLAY SQLCODE

   GOBACK

END-IF.

---

GOBACK e Return Code

Pode ser combinado com:

MOVE 8 TO RETURN-CODE.

GOBACK.

Resultado:

CC=0008

---

GOBACK e Language Environment

No ambiente LE (Language Environment), o GOBACK é tratado de forma inteligente.

Se existir chamador:

Retorna ao chamador

Se não existir:

Finaliza execução

---

EXIT PROGRAM x GOBACK

Outro comando relacionado.

---

EXIT PROGRAM

EXIT PROGRAM.

Retorna apenas ao chamador.

---

GOBACK

GOBACK.

Retorna ao chamador ou termina a aplicação.

---

Comparação

Comando	Função
EXIT PROGRAM	Retorna ao chamador
GOBACK	Retorna ou termina
STOP RUN	Finaliza tudo

---

Exemplo com EXIT PROGRAM

IDENTIFICATION DIVISION.
PROGRAM-ID. SUB1.

PROCEDURE DIVISION.

DISPLAY 'SUB'.

EXIT PROGRAM.

---

Boas Práticas

✅ Utilize GOBACK em subprogramas

✅ Utilize GOBACK em programas novos

✅ Defina RETURN-CODE quando necessário

✅ Evite STOP RUN em módulos chamados

✅ Padronize o encerramento dos programas

---

Erros Comuns

STOP RUN em subprograma

CALL 'SUB1'

SUB1:

STOP RUN.

Resultado:

Aplicação inteira termina

---

Não retornar código

GOBACK.

Sem:

MOVE 8 TO RETURN-CODE

Pode dificultar automação.

---

Curiosidades

1. O GOBACK foi introduzido para simplificar o retorno de programas chamados

2. É amplamente recomendado pela IBM para novos desenvolvimentos

3. Funciona perfeitamente com Language Environment (LE)

4. É um dos comandos mais encontrados em aplicações COBOL modernas

5. Em muitos padrões corporativos, STOP RUN é proibido em subprogramas

---

Resumo Rápido

Conceito	Função
GOBACK	Retorna ao chamador ou termina
STOP RUN	Finaliza toda aplicação
EXIT PROGRAM	Retorna ao chamador
CALL	Chama subprograma
RETURN-CODE	Código retorno
LE	Language Environment
Batch	Uso comum
Subprograma	Comando recomendado

---

Conclusão

O GOBACK é o comando de encerramento mais flexível do COBOL moderno. Ele permite que um subprograma retorne ao programa chamador sem interromper toda a aplicação e, quando executado em um programa principal, encerra normalmente a execução. Por isso, é considerado a melhor prática para o desenvolvimento COBOL em ambientes z/OS, CICS, IMS e DB2.

  

Bellacosa Mainframe e o comando Stop Run em Cobol

O que é o comando STOP RUN em COBOL?

O comando STOP RUN é uma das instruções mais conhecidas da linguagem COBOL.

Sua função é:

Encerrar a execução do programa

Quando o COBOL encontra um STOP RUN, ele finaliza o programa e devolve o controle ao sistema operacional (z/OS), ao CICS, ao Job Batch ou ao ambiente que executou o programa.

---

Sintaxe

STOP RUN.

---

Exemplo Simples

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

PROCEDURE DIVISION.

DISPLAY 'OLA MUNDO'.

STOP RUN.

Resultado:

OLA MUNDO

O programa termina logo após o DISPLAY.

---

Fluxo de Execução

Início Programa
       ↓
Comandos COBOL
       ↓
STOP RUN
       ↓
Fim Programa
       ↓
Retorno ao z/OS

---

O que acontece internamente?

Quando executado:

STOP RUN.

o COBOL:

✅ Fecha arquivos abertos

✅ Libera memória

✅ Finaliza o Language Environment (LE)

✅ Retorna ao sistema operacional

✅ Define o Return Code

---

Exemplo em Batch

DISPLAY 'PROCESSAMENTO OK'.

STOP RUN.

JCL:

//STEP1 EXEC PGM=FIN001

Resultado:

CC 0000

(Job encerrado com sucesso)

---

STOP RUN e Return Code

Podemos definir um código de retorno.

Exemplo:

MOVE 8 TO RETURN-CODE.

STOP RUN.

Resultado:

CC 0008

No SDSF:

RC=0008

---

Exemplo de Erro

IF SQLCODE NOT = 0

   MOVE 16 TO RETURN-CODE

   STOP RUN

END-IF.

Resultado:

CC=0016

---

STOP RUN x GOBACK

Uma das dúvidas mais comuns.

---

STOP RUN

Finaliza completamente a aplicação.

STOP RUN.

---

GOBACK

Retorna ao programa chamador.

GOBACK.

---

Exemplo

Programa principal:

CALL 'SUBROT1'.

---

Subprograma:

GOBACK.

Retorna ao programa principal.

---

Se usar:

STOP RUN.

todo o processo termina.

---

Exemplo Visual

Com GOBACK

MAIN
 ↓
SUB1
 ↓
GOBACK
 ↓
MAIN continua

---

Com STOP RUN

MAIN
 ↓
SUB1
 ↓
STOP RUN
 ↓
Tudo termina

---

Uso em Subprogramas

Normalmente:

❌ Evita-se STOP RUN

✅ Usa-se GOBACK

---

Exemplo Incorreto

PROGRAM-ID. SUBROT1.

DISPLAY 'SUB'.

STOP RUN.

Se chamado por:

CALL 'SUBROT1'

todo o JOB poderá terminar.

---

Exemplo Correto

PROGRAM-ID. SUBROT1.

DISPLAY 'SUB'.

GOBACK.

---

STOP RUN em CICS

Programas CICS não devem usar:

STOP RUN

Normalmente utilizam:

EXEC CICS RETURN
END-EXEC

---

STOP RUN em IMS

Em IMS TM também não é recomendado.

Utilizam-se comandos específicos do ambiente.

---

STOP RUN em Batch

É onde aparece com maior frequência.

---

Exemplo:

OPEN INPUT ARQENT.

PERFORM PROCESSA-ARQUIVO.

CLOSE ARQENT.

STOP RUN.

---

STOP RUN e Arquivos

Antes do STOP RUN é boa prática:

CLOSE ARQENT.
CLOSE ARQSAI.

STOP RUN.

---

Embora...

O runtime normalmente feche os arquivos automaticamente.

---

STOP RUN e Language Environment

O LE (Language Environment) interpreta:

STOP RUN

como:

Fim da aplicação

Executando rotinas de limpeza.

---

Evolução Histórica

Nas versões antigas:

STOP RUN

era praticamente obrigatório.

Hoje:

GOBACK

é mais utilizado em muitos ambientes.

---

Boas Práticas

✅ Use STOP RUN em programas principais Batch

✅ Use GOBACK em subprogramas

✅ Defina RETURN-CODE quando necessário

✅ Feche arquivos antes de terminar

---

Erros Comuns

Usar STOP RUN em subprograma

Pode encerrar toda a aplicação.

---

Usar STOP RUN em CICS

Pode gerar problemas de execução.

---

Não definir RETURN-CODE

Dificulta automação e controle do Scheduler.

---

Exemplo Completo

IDENTIFICATION DIVISION.
PROGRAM-ID. TESTE.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-TOTAL PIC 9(5).

PROCEDURE DIVISION.

MOVE 100 TO WS-TOTAL.

DISPLAY 'TOTAL = ' WS-TOTAL.

MOVE 0 TO RETURN-CODE.

STOP RUN.

---

Curiosidades

1. STOP RUN existe desde as primeiras versões do COBOL

2. É um dos comandos mais executados do mundo corporativo

3. Milhões de JOBs Batch terminam diariamente através dele

4. Em aplicações modernas, GOBACK costuma substituir STOP RUN em muitos cenários

---

Resumo Rápido

Comando	Função
STOP RUN	Finaliza o programa
GOBACK	Retorna ao chamador
RETURN-CODE	Define código de retorno
CLOSE	Fecha arquivos
EXEC CICS RETURN	Finaliza transação CICS
Batch	Uso comum de STOP RUN
Subprograma	Preferir GOBACK

---

Conclusão

O STOP RUN é o comando responsável por encerrar a execução de um programa COBOL e devolver o controle ao ambiente que o executou. Em programas Batch ele é amplamente utilizado, enquanto em subprogramas normalmente é substituído por GOBACK, que retorna o controle ao programa chamador sem finalizar toda a aplicação.

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.