🟦 Guia Ideal de Parâmetros de Compilação COBOL no Mainframe

(COBOL 4.x e COBOL 5.x)

“Parâmetro errado não dá warning.
Dá abend… ou pior: dá erro silencioso.”
— Bellacosa

---

🧭 Visão geral – por que isso importa?

Os parâmetros de compilação definem:

• como o COBOL interpreta seu código

• como o objeto é gerado

• se erros aparecem no compile ou em produção

• performance, compatibilidade e estabilidade

👉 O mesmo código, com PARMs diferentes, vira outro programa.

---

🧬 Categorias de parâmetros (mapa mental)

1️⃣ Compatibilidade & Comportamento
2️⃣ Debug & Diagnóstico
3️⃣ Performance & Arquitetura
4️⃣ Controle de erros
5️⃣ Migração & Modernização

---

1️⃣ Parâmetros essenciais (BASE OBRIGATÓRIA)

Esses todo programa sério deveria ter.

PARM	Função	Por que usar
LANGUAGE(EN)	Mensagens em inglês	Facilita IBM Support
LIST	Lista compilação	Auditoria e debug
MAP	Mapa de dados	Debug estrutural
XREF	Referências cruzadas	Entender legado
RENT	Código reentrante	Batch + online
DYNAM	CALL dinâmico	Compatível com CICS/Batch

🥚 Easter-egg:

Se não tem MAP e LIST, você não compilou, você apenas rezou.

---

2️⃣ Parâmetros de DIAGNÓSTICO (modo padawan → jedi)

Use em desenvolvimento, teste e migração.

PARM	O que faz	Dica Bellacosa
SSRANGE	Protege acessos inválidos	Evita S0C4
NUMCHECK	Valida campos numéricos	Pegador de lixo
FLAG(W)	Avisos de risco	Ative sempre
TEST	Debug interativo	Para Xpediter/Debug Tool
LISTHEX	Dump hexadecimal	Só para guerra

💣 Verdade nua:

NOSSRANGE em produção = economia burra de CPU.

---

3️⃣ Parâmetros de PERFORMANCE (onde mora o MIPS)

COBOL 4 (equilíbrio)

OPTIMIZE
RENT
ARITH(EXTEND)

COBOL 5 (modo turbo)

OPTIMIZE(2)
ARCH(13)
RENT

PARM	Explicação
OPTIMIZE(2)	Otimização agressiva
ARCH(n)	Explora hardware (z13+)
ARITH(EXTEND)	Precisão decimal

🥚 Easter-egg técnico:

ARCH errado = código que compila… e performa como COBOL 85.

---

4️⃣ Parâmetros de COMPATIBILIDADE (legado raiz)

Para sistemas antigos, principalmente na transição.

PARM	Para quê
TRUNC(STD)	Evita truncamento silencioso
RULES(IBM)	Mantém comportamento clássico
DATA(31)	Compatibilidade 31 bits

⚠️ COBOL 5: muitos desses não existem mais.

---

5️⃣ Parâmetros de CONTROLE DE ERROS (produção séria)

PARM	Função
ABEND	Força abend real
NOTEST	Remove debug
NOSSRANGE	Só se testado exaustivamente

Bellacosa rule:

Produção só roda o que passou por SSRANGE ligado.

---

🧪 Combinações recomendadas (receita pronta)

🔹 Desenvolvimento / Estudo (Padawan)

LIST MAP XREF SSRANGE NUMCHECK
FLAG(W) TEST

🔹 Teste / Homologação

LIST MAP XREF SSRANGE NUMCHECK
FLAG(I) RENT

🔹 Produção – COBOL 4

RENT DYNAM OPTIMIZE
ARITH(EXTEND) NOSSRANGE

🔹 Produção – COBOL 5

RENT OPTIMIZE(2)
ARCH(13)

---

⚔️ Parâmetros que causam guerra (use com consciência)

PARM	Risco
NOSSRANGE	S0C4 silencioso
NONUMCHECK	Dados sujos
NOFLAG	Erros passam
NOMAP	Debug impossível

🥚 Easter-egg real:

Muitos “bugs misteriosos” são apenas PARMs mal escolhidos.

---

🧘 Estratégia Bellacosa Oficial™

1️⃣ Compile com tudo ligado
2️⃣ Limpe warnings
3️⃣ Teste exaustivamente
4️⃣ Só então desligue controles
5️⃣ Nunca desligue tudo

---

🟦 Conclusão

O compilador é seu primeiro ambiente de produção.
Se você não ensina o COBOL a desconfiar do código,
ele vai confiar… e você vai pagar.

 

Sardinhas na brasa a portuguesa.

O prato mais saboroso do verão português

Vou partilhar com vocês o prato da culinária portuguesa que mais me encanta no final da primavera/inicio do verão.

Estou falando das Sardinhas na Brasa, comidas em todo território português e também no mundo todo onde tiver um imigrante português.

Um prato super simples de fazer, mas com um sabor único que me faz ficar com agua na boca so de lembrar.

Quer tentar fazer em casa? Compre sardinhas inteiras bem gordas, tire as escamas com uma faca, use muito sal grosso e deixe descansar por uma hora.

Acenda o carvão na churrasqueira na altura que estiver bem quente, ponha as sardinhas na brasa e va virando para não deixar ficar muito seca, o aroma se espalha pelo ar, deixando qualquer um com agua na boca.

Acompanha lindamente com batata cozida e pimentões assados na brasa; puré de batata; sanduíche de pão português e sanduíche de broa.

 

Bellacosa Mainframe nos datasets vsam entenda ci e ca

💾 CI e CA no VSAM — A base física que você precisa dominar

📦 Control Interval (CI)

O CI (Control Interval) é a menor unidade de armazenamento e leitura do VSAM.

👉 Pense nele como uma “página” de dados.

🔎 O que existe dentro de um CI?

• Registros de dados
• Espaço livre (free space)
• Informações de controle (overhead)

⚙️ Características:

• Tamanho típico: 4K, 8K, 16K...
• É a unidade de I/O (leitura/gravação)
• Pode conter vários registros

💡 Analogia:

CI é como uma página de um livro — você não lê letra por letra, lê a página inteira.

---

🧱 Control Area (CA)

O CA (Control Area) é um conjunto de vários CIs.

👉 É uma unidade maior de organização e alocação.

⚙️ Características:

• Contém vários CIs
• Usado para gerenciamento de espaço
• Unidade de split mais “pesada”

💡 Analogia:

CA é como um capítulo do livro, formado por várias páginas (CIs).

---

⚡ O que são SPLITS no VSAM?

Quando você insere dados (principalmente em KSDS), o VSAM precisa manter a ordem das chaves.

👉 E aí entra o problema:
E se o CI estiver cheio?

💥 Surge o SPLIT

---

🔹 CI Split (Split de Control Interval)

📌 O que acontece:

• O CI está cheio
• VSAM cria um novo CI
• Divide os registros entre os dois

⚠️ Impacto:

• Mais I/O
• Queda de performance
• Fragmentação

---

🔸 CA Split (Split de Control Area)

📌 O que acontece:

• Todos os CIs do CA estão cheios
• VSAM precisa alocar um novo CA
• Redistribui os dados

⚠️ Impacto:

• Muito mais custoso que CI split
• Pode degradar bastante o desempenho

💡 Regra prática:

CI Split = ruim
CA Split = MUITO ruim 😅

---

🧠 Por que os splits acontecem?

Principal motivo:
👉 Inserções fora de ordem de chave (KSDS)

Exemplo:

• Arquivo está ordenado por CPF
• Você insere um CPF “no meio”

💥 Resultado:

• VSAM precisa reorganizar → split

---

🛠️ Como evitar SPLITS?

Aqui entra conhecimento de “gente grande”:

🔧 Definindo espaço livre

No IDCAMS você pode usar:

FREESPACE(CI CA)

Exemplo:

FREESPACE(20 10)

• 20% livre em cada CI
• 10% livre em cada CA

👉 Isso reduz drasticamente splits

---

🎯 Boas práticas

• Inserir dados em ordem de chave
• Definir FREESPACE corretamente
• Reorganizar dataset (REPRO)
• Monitorar performance

---

⚖️ Resumo rápido

Conceito	O que é	Impacto
CI	Unidade mínima de I/O	Base do VSAM
CA	Grupo de CIs	Organização maior
CI Split	Divide um CI	Médio impacto
CA Split	Divide um CA	Alto impacto

---

🔥 Visão estilo Bellacosa

• CI é onde o jogo acontece
• CA é onde o sistema respira
• Split é o “sintoma de má modelagem ou carga fora de ordem”

👉 VSAM bem definido = performance absurda
👉 VSAM mal definido = gargalo invisível

 

🔎 Guia Prático de Comandos TSO para Padawans

Salve jovem padawan em nosso segundo artigo de 2026, vamos mergulhar um pouco em comandos de linha no TSO, onde poderemos explorar melhor o sistema Z, criar dataset, consultar, limpar, alocar e testar.

Ganhando velocidade em nosso desenvolvimento e dominando melhor o ambiente Z, seja bem-vindo e conto com seu comentarios e criticas para melhorarmos e irmos mais longe.

Para não apanhar do terminal logo no login

---

🧠 Antes de tudo: o que é TSO de verdade?

TSO (Time Sharing Option) não é: 

❌ só uma tela preta 

❌ um “modo antigo” 

❌ um castigo divino

TSO é:

A interface raiz do z/OS para trabalhar diretamente com o sistema.

Se o mainframe fosse um avião:

• TSO é o painel cru de instrumentos
• ISPF é o cockpit amigável

Todo mainframeiro de respeito precisa saber sobreviver no TSO puro.

---

⌨️ Sintaxe básica do TSO (lei universal)

COMANDO OPERANDO PARÂMETROS

Regras não escritas:

• Espaço separa argumentos
• Parênteses organizam opções
• Aspas protegem nomes longos
• Abreviações são comuns (e perigosas 😈)

---

📂 Comandos essenciais para datasets

📌 LISTDS – listar datasets

LISTDS 'USERID.*'

🔎 Dica El Jefe:

• Use LEVEL para evitar varrer o catálogo inteiro

LISTDS LEVEL(USERID)

⚠️ Perigo:

• LISTDS * pode virar pecado mortal em produção

---

📌 DELETE – apagar datasets

DELETE 'USERID.TESTE.ARQUIVO'

☠️ Atenção:

• Não existe lixeira
• Apagou, rezou

---

📌 RENAME – renomear

RENAME 'USERID.OLD' 'USERID.NEW'

---

📖 Visualização de conteúdo

📌 LISTCAT – catálogo é lei

LISTCAT ENTRIES('USERID.ARQ') ALL

Use quando:

• Dataset “existe mas não existe”
• Erro estranho de allocation
• Discussão com storage admin 😎

---

📌 PRINT – ver conteúdo

PRINT DS('USERID.ARQ')

⚠️ Não abuse com arquivos grandes. Seu spool agradece.

---

⚙️ Execução e controle de ambiente

📌 ALLOC – alocar datasets

ALLOC FI(ARQ1) DA('USERID.TESTE') SHR

🧠 Tradução humana:

• FI = nome lógico
• DA = dataset físico
• SHR = leitura compartilhada

---

📌 FREE – liberar alocação

FREE FI(ARQ1)

Nunca confie que o sistema vai limpar sozinho.

---

📤 Trabalhando com JOBs

📌 SUBMIT – enviar JCL

SUBMIT 'USERID.JCL.TESTE'

🔥 Dica El Jefe:

• Use SUBMIT * dentro do editor para ganhar tempo

---

📌 STATUS – ver jobs ativos

STATUS

Simples. Antigo. Funcional.

---

👤 Usuário e sessão

📌 PROFILE – perfil do usuário

PROFILE

Mostra:

• Prefixo
• Tamanho de região
• Opções ativas

---

📌 LOGOFF – sair com dignidade

LOGOFF

Nunca feche o navegador achando que “tá tudo bem”.

---

🧨 Erros clássicos de padawan

❌ Digitar dataset sem aspas

❌ Apagar sem conferir

❌ LISTDS muito genérico

❌ Esquecer FREE

❌ Confundir TSO com ISPF

---

🥚 Easter-eggs de veterano

• Muitos comandos aceitam abreviação
• HELP funciona (sim, sério)

HELP LISTDS

• TSO responde melhor quando você é educado (quase)

---

🎓 Palavra final do El Jefe

Quem domina TSO, domina o chão de fábrica do mainframe.

ISPF é conforto. TSO é poder.

Aprender TSO não te torna antigo. Te torna consciente do que o sistema realmente faz.