 |
| Bellacosa Mainframe laboratorio pratico REXX e CICS |
🔥💣 REXX + CICS: O “CENTRO DE COMANDO SECRETO” DO z/OS — 30 LABORATÓRIOS PRÁTICOS QUE TRANSFORMAM UM ANALISTA DE PRODUÇÃO EM UM MESTRE DA AUTOMAÇÃO MAINFRAME 💣🔥
☕ Introdução
Existe um momento na carreira de todo Analista de Produção Senior em Mainframe em que ele percebe uma verdade brutal:
“Quem domina automação no CICS deixa de apagar incêndio… e começa a controlar o incêndio antes dele nascer.”
E é exatamente aqui que entra o velho — porém absurdamente poderoso — REXX.
Enquanto muita gente ainda usa REXX apenas para pequenos scripts no TSO, os veteranos sabem:
🔥 REXX consegue:
- conversar com CICS
- operar consoles
- controlar filas
- monitorar transações
- automatizar recovery
- analisar dumps
- integrar SDSF
- conversar com DB2
- chamar APIs
- acionar comandos MVS
- gerar alertas inteligentes
Tudo isso com poucas linhas.
Este laboratório foi pensado para:
- Analistas de Produção Senior
- Operadores avançados
- Especialistas z/OS
- Equipes de automação
- Times de observabilidade mainframe
🚀 Estrutura do Laboratório
Cada caso possui:
✅ Objetivo
✅ Cenário real
✅ Passo a passo
✅ Código exemplo
✅ Dicas de produção
✅ Curiosidades Bellacosa Mainframe
✅ Solução operacional
🔥 LAB 01 — Consultando Status de Região CICS
🎯 Objetivo
Automatizar consulta de status da região CICS.
☕ Cenário Real
O operador precisa verificar:
- se a região está ativa
- número de tasks
- uso de CPU
- mensagens de erro
🚀 Passo a Passo
1. Criar EXEC REXX
ADDRESS SDSF
"ISFEXEC ST"
DO IX = 1 TO JNAME.0
IF POS("CICS", JNAME.IX) > 0 THEN
SAY JNAME.IX STATUS.IX
END
🔥 Resultado Esperado
CICSA ACTIVE
CICSB ACTIVE
💡 Dica Senior
Nunca dependa apenas de:
- ping
- VTAM
- TCP/IP
Uma região pode responder rede e estar:
- hung
- loopando
- sem dispatcher
☕ Curiosidade
Grandes bancos possuem robôs REXX monitorando CICS desde os anos 90.
Muita automação “moderna” apenas reinventou isso.
🔥 LAB 02 — Derrubando Transações Presas
🎯 Objetivo
Cancelar transações em loop.
🚀 Comando CICS
CEMT SET TASK(12345) PURGE
🚀 Automação REXX
ADDRESS TSO
TASK = 12345
CMD = "F CICSPROD,CEMT SET TASK("TASK") PURGE"
"CONSOLE "CMD
💡 Dica Senior
Sempre validar:
- tempo de execução
- CPU
- enqueue
- wait type
antes de purgar.
🔥 LAB 03 — Monitorando Número de Tasks
ADDRESS SDSF
"ISFEXEC ST"
TOTAL = 0
DO I = 1 TO JNAME.0
IF POS("CICS",JNAME.I) > 0 THEN
TOTAL = TOTAL + 1
END
SAY "REGIOES CICS:",TOTAL
🔥 LAB 04 — Detectando Região Travada
🎯 Estratégia
Comparar:
- CPU baixa
- tasks altas
- ausência de logs
🚀 Exemplo
IF CPU < 1 & TASKS > 500 THEN
SAY "POSSIVEL HANG"
🔥 LAB 05 — Automatizando CEMT INQ TASK
ADDRESS TSO
"CONSOLE F CICSPROD,CEMT INQ TASK"
🔥 LAB 06 — Restart Automático de Região CICS
🚨 Cenário
Região caiu inesperadamente.
🚀 Fluxo
- Detecta DOWN
- Verifica horário permitido
- Sobe região
- Valida startup
- Gera alerta
🚀 Exemplo
"START CICSPRD"
🔥 LAB 07 — Verificando SOS (Short On Storage)
IF POS("SOS",MSG) > 0 THEN
SAY "ALERTA CRITICO"
🔥 LAB 08 — Ler JESMSGLG Automaticamente
ADDRESS SDSF
"ISFEXEC ST"
SAY "LENDO JESMSGLG..."
🔥 LAB 09 — Detectar Abend AEI9
IF POS("AEI9",LINHA) > 0 THEN
SAY "TRANSACAO INVALIDA"
🔥 LAB 10 — Automação de CEDF
🎯 Objetivo
Automatizar tracing de transações.
"CONSOLE F CICSPROD,CEDF TRANS(PGMA)"
🔥 LAB 11 — Monitor de Deadlocks
IF POS("DEADLOCK",MSG) > 0 THEN
SAY "DB2 DEADLOCK DETECTADO"
🔥 LAB 12 — Captura Automática de Dumps
"CONSOLE DUMP COMM=(CICSABEND)"
🔥 LAB 13 — Monitorando VSAM Locks
IF POS("ENQUEUE",MSG) > 0 THEN
SAY "LOCK VSAM"
🔥 LAB 14 — Robô de Health Check CICS
Checklist
✅ Tasks
✅ Storage
✅ CPU
✅ MQ
✅ DB2
✅ VTAM
🔥 LAB 15 — Integração REXX + SDSF + CICS
ADDRESS SDSF
"ISFEXEC DA"
🔥 LAB 16 — Restart Inteligente Pós-Abend
Estratégia
Nunca restartar:
- em loop
- acima de X falhas
- fora da janela
🔥 LAB 17 — Monitorando Transações Long Running
IF TEMPO > 300 THEN
SAY "TRANSACAO SUSPEITA"
🔥 LAB 18 — Gerando Alertas Operacionais
SAY "ENVIANDO ALERTA PARA NOC"
🔥 LAB 19 — Detectando Storage Violation
IF POS("ASRA",MSG) > 0 THEN
SAY "POSSIVEL STORAGE VIOLATION"
🔥 LAB 20 — Operando CICS Pelo Console MVS
"CONSOLE F CICSPROD,CEMT INQ SYS"
🔥 LAB 21 — Monitorando MQ no CICS
IF POS("MQ",MSG) > 0 THEN
SAY "MQ ISSUE"
🔥 LAB 22 — Auditoria de Comandos Operacionais
QUEUE USERID DATE TIME CMD
🔥 LAB 23 — Detectando Loops de CPU
IF CPU > 90 THEN
SAY "LOOP CPU"
🔥 LAB 24 — Shutdown Controlado
"CONSOLE F CICSPROD,CEMT P SHUT"
🔥 LAB 25 — Coleta Automática de Estatísticas
SAY "GERANDO RELATORIO"
🔥 LAB 26 — Integração com DB2
ADDRESS DSNREXX
🔥 LAB 27 — Automação de Recovery
Fluxo
- Detecta erro
- Coleta dump
- Reinicia recurso
- Valida aplicação
🔥 LAB 28 — Detectando Flood de Tasks
IF TASKS > 5000 THEN
SAY "FLOOD DETECTADO"
🔥 LAB 29 — Operação Multi-CICS
DO FOREVER
Monitorando dezenas de regiões simultaneamente.
🔥 LAB 30 — Central de Automação Mainframe
🎯 Objetivo Final
Construir:
- console inteligente
- monitor operacional
- auto recovery
- observabilidade
- automação enterprise
Tudo em REXX.
🚀 Arquitetura Recomendada
REXX
├── SDSF
├── CONSOLE
├── CICS
├── DB2
├── MQ
├── JES2
├── VTAM
└── SYSLOG
☕ Dicas de Ouro de Produção Senior
🔥 Nunca automatize sem rollback
Toda automação precisa:
- validação
- fallback
- retry
- logging
- auditoria
🔥 REXX pode derrubar um banco inteiro
Um EXEC mal feito:
- purga task errada
- derruba região
- gera storm de comandos
Produção não perdoa.
🔥 Monitore antes de agir
Senior não automatiza “ação”.
Senior automatiza:
- decisão
- contexto
- diagnóstico
💣 Curiosidades Bellacosa Mainframe
☕ O REXX virou “DevOps” antes do DevOps existir
Muito antes de:
- Ansible
- Terraform
- Kubernetes
- Jenkins
o mainframe já fazia:
- automação
- self-healing
- orchestration
- monitoramento inteligente
com:
- REXX
- NetView
- OPS/MVS
- System Automation
🚀 Missão Final do Curso
Ao terminar estes 30 laboratórios você será capaz de:
✅ Automatizar CICS
✅ Criar robôs operacionais
✅ Detectar incidentes automaticamente
✅ Fazer self-healing
✅ Integrar múltiplos subsistemas
✅ Construir observabilidade real no z/OS
✅ Reduzir MTTR
✅ Operar ambientes enterprise críticos
🔥 Frase Final Bellacosa Mainframe
“No mundo distribuído o operador reage ao problema.
No Mainframe automatizado o problema já foi resolvido antes do telefone tocar.” 🚀☕
