🟦 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.

 

🔎 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.

Viagem de Maria Fumaça ate Jaguariuna

Partindo de Anhumas em Campinas

A linha da Mogiana é o destino de todos aqueles que desejam sentir o prazer em andar em uma locomotiva a vapor, sentir o cheirinho da lenha, ver a fumaça subindo e ouvir o apito do trem.

O revisor grita todos a bordos!!!! A criançada vibra, bilhetes na mão e todos adentram no vagão de passageiros, ansiosos por ouvir o apito de partida.

Em breve o revisor se aproxima, verifica o bilhete e valida-o com o perfurador de bolso. A locomotiva vai ganhando força, ouve-se o ta-ta-tatatata aumentando em velocidade. Vez por outra ouve-se o apito.

Olhando pela janela ve-se o finzinho da cidade, campos, pastos e antigas fazendas de café estamos chegando em Tanquinho outra estação no caminho de Jaguariuna.

Os passeios de trem partem tanto da estação Anhumas (Campinas) como de Jaguariuna aos finais de semana, verifiquem no site, para saberem os horários e preços.

 

📊 Tabela de Erros Comuns no COBOL 5.x

(Quando o compilador resolve dizer a verdade)

“COBOL 5 não quebrou seu programa.
Ele apenas revelou o que sempre esteve errado.”
— Bellacosa

---

🟥 ERROS DE DADOS (o choque de realidade)

Erro comum	O que mudou no COBOL 5	Sintoma típico	Impacto
MOVE inválido alfa → numérico	NUMCHECK rigoroso	Erro de compilação ou runtime	Job aborta cedo
Campo não inicializado	INITCHECK ativo	Warning/erro	Resultado imprevisível exposto
Uso de lixo em COMP	Validação agressiva	Falha imediata	S0C7 antecipado
PIC incompatível	Validação estrita	Compile error	Código não sobe
Truncamento inesperado	TRUNC mais explícito	Valor incorreto	Erro contábil

🥚 Easter-egg:

O erro “novo” já existia no COBOL 4 — só não gritava.

---

🟧 ERROS DE CONTROLE DE FLUXO

Erro comum	COBOL 5 faz diferente	Sintoma	Consequência
PERFORM THRU mal definido	Análise de fluxo	Warning severo	Lógica rejeitada
GO TO cruzando blocos	Restrição maior	Erro de compilação	Código não compila
IF/END-IF inconsistentes	Estrutura rígida	Compile error	Refatoração obrigatória
EXIT mal posicionado	Regras mais claras	Erro lógico	Fluxo interrompido

Bellacosa note:

Se o COBOL 5 reclama, o código está errado — ponto.

---

🟨 ERROS DE STORAGE E MEMÓRIA

Erro comum	COBOL 5 expõe	Sintoma	Resultado
REDEFINES mal alinhado	SSRANGE ativo	Runtime error	S0C4
OCCURS fora de limite	Checagem ativa	Abort imediato	Proteção de memória
DEPENDING ON inválido	Validação em runtime	Abend	Corrupção evitada
Índice mal usado	Tipagem rígida	Compile error	Correção forçada

🥚 Easter-egg técnico:

SSRANGE não cria erro — ele evita desastre.

---

🟦 ERROS DE ARQUIVOS (mais disciplina)

Erro comum	Diferença no COBOL 5	Sintoma	Impacto
FILE STATUS ignorado	Warning severo	Job rejeitado	Erro detectado cedo
READ sem AT END	Análise estática	Compile warning	Loop evitado
WRITE sem validação	Checagem formal	Runtime error	Integridade garantida
OPEN fora de ordem	Validação rígida	Abend	Erro explícito

---

🟪 ERROS DE PERFORMANCE (o paradoxo)

Erro comum	Por que aparece no COBOL 5	Sintoma	Efeito
Código “lento” após migração	Otimização diferente	CPU aumenta	Ajustar OPTIMIZE
Dependência de MOVE	Nova análise	Código inchado	Refatoração
DISPLAY em loop	Runtime moderno	Batch mais lento	Remover debug
Falta de INLINE	Compilação conservadora	Performance ruim	Ajustar opções

Bellacosa truth:

COBOL 5 é mais rápido — se o código merecer.

---

🟫 ERROS DE COMPILAÇÃO (novos padrões)

Erro comum	COBOL 5 exige	Sintoma	Ação
Código legado ambíguo	Sintaxe clara	Compile error	Refatorar
Ignorar warnings	Warnings viram erros	Build falha	Corrigir
TRUNC inconsistente	Padronização	Valor errado	Revisar
Dependência de defaults	Defaults mudaram	Resultado inesperado	Definir parms

---

☠️ ABENDS mais associados ao COBOL 5

ABEND	Motivo
S0C7	Detectado mais cedo
S0C4	Proteção de memória
U4038	INITCHECK / NUMCHECK
U4087	Violação de range
U4093	Lógica inválida

---

🎓 Resumo para Padawans

✔ COBOL 5 não tolera código sujo
✔ Erros aparecem mais cedo
✔ Migração revela dívidas técnicas
✔ Mais seguro, mais rápido, mais previsível

---

🧠 Frase Final Bellacosa™

“COBOL 4 confiava no programador.
COBOL 5 confia nos dados.”