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