 |
| Bellacosa Mainframe laços de repetição e desvio em REXX |
🔥🧠 REXX: A ARTE DE ENSINAR O MAINFRAME A PENSAR — IF, DO, SELECT E O CÉREBRO OPERACIONAL DO z/OS 🧠🔥
“Enquanto muita gente achava que REXX era apenas uma linguagem de script… o mainframe já estava automatizando datacenters inteiros.”
— Bellacosa Mainframe
☕ Introdução — O Momento em Que o REXX Ganha Vida
Existe um instante mágico no aprendizado de REXX.
Até então você apenas:
- executava comandos
- mostrava mensagens
- manipulava variáveis
- fazia pequenos scripts
Mas quando aparecem:
- IF
- THEN
- ELSE
- DO
- SELECT
- WHILE
- FOREVER
…o EXEC deixa de ser uma lista de comandos.
E passa a “pensar”.
É aqui que nasce a automação real.
É aqui que o REXX deixa de ser script.
E vira um OPERADOR DIGITAL DE MAINFRAME.
🧠 O REXX Foi Criado Para Humanos
Essa é talvez a característica mais genial da linguagem.
O REXX foi desenhado por Mike Cowlishaw com uma obsessão:
“Programas devem parecer inglês.”
E honestamente?
Ele conseguiu.
Compare isso:
if(x==1 && y!=2)
Com isso:
If x = 1 & y \= 2 Then
O segundo parece quase uma frase operacional.
Isso não foi acidente.
Foi engenharia de produtividade.
🏛️ O Contexto Histórico Que Pouca Gente Conhece
Nos anos 70 e 80:
- operadores precisavam automatizar tarefas rapidamente
- sysprogs precisavam integrar ferramentas
- ambientes eram extremamente caros
- erros humanos custavam milhões
Então nasceu uma linguagem:
✅ simples
✅ poderosa
✅ legível
✅ integrada ao host
✅ fácil para operadores
REXX não queria competir com FORTRAN.
Ele queria dominar o ambiente operacional.
E conseguiu.
⚡ O DIA EM QUE O OPERADOR DESCOBRE O IF
Existe uma transformação psicológica quando alguém aprende IF no REXX.
Antes:
Say "PROCESSANDO"
Depois:
If rc = 0 Then
Say "JOB EXECUTADO COM SUCESSO"
Else
Say "ABEND DETECTADO"
Agora o EXEC reage.
Analisa.
Decide.
🔥 O RC — A ENTIDADE MÍSTICA DO MAINFRAME
Se você trabalha em z/OS…
Você sabe.
RC não é apenas variável.
RC é estado emocional operacional.
If rc > 8 Then
Say "O CAOS COMEÇOU"
😂 Easter Egg #1 — O Operador Veterano
Todo operador experiente já fez isso:
If rc = 0 Then
Say "MILAGRE"
Else
Say "COMO SEMPRE"
🧮 Comparações — O Cérebro Binário do EXEC
No REXX:
- 1 = TRUE
- 0 = FALSE
Simples.
Elegante.
Brutalmente eficiente.
Exemplo
Say 10 > 5
Resultado:
1
O EXEC literalmente responde:
“Sim. Isso é verdade.”
🧵 Comparações String — Onde o Mainframe Mostra Sua Personalidade
No mundo distribuído moderno:
- espaços são ignorados
- padding é irrelevante
- strings são “flexíveis”
No mainframe?
HAHAHAHAHAHA.
Não.
O Trauma do Campo CHAR FIXO
campo = "IBM "
é DIFERENTE de:
"IBM"
E é aqui que nasce o operador STRICT.
⚔️ O Temido ==
Say "IBM " == "IBM"
Resultado:
0
Porque no mainframe:
ESPAÇOS IMPORTAM.
Muito.
🧠 Easter Egg #2 — O Programador COBOL Sentindo Dor
Quando o novato descobre isso:
Say "ABC" == "ABC "
o espírito de milhares de layouts PIC X(80)
sussurra no vento:
“Bem-vindo ao processamento posicional…”
🚦 IF THEN ELSE — A Tomada de Decisão do z/OS
O IF no REXX é quase poético.
If user = "IBMUSER" Then
Say "ACESSO LIBERADO"
Else
Say "CHAMA O RACF"
🔥 O Poder do DO/END
O DO/END é o contêiner da lógica.
Ele organiza o caos.
Exemplo
If rc \= 0 Then
Do
Say "ERRO DETECTADO"
Say "NOTIFICANDO OPERADOR"
Exit 8
End
☢️ Easter Egg #3 — O Exit 8 Filosófico
Existe um momento na carreira do mainframeiro em que:
Exit 8
vira linguagem universal.
🎛️ SELECT — O Menu Supremo do ISPF
O SELECT é uma obra-prima operacional.
Ele nasceu para menus.
E o ISPF praticamente respira SELECT.
Exemplo
Select
When opcao = "1" Then
Say "ALLOCATE"
When opcao = "2" Then
Say "DELETE"
When opcao = "3" Then
Say "LISTCAT"
Otherwise
Say "USUARIO INVENTANDO MODA"
End
😂 Easter Egg #4 — O Usuário Criativo
Todo sysprog conhece:
DIGITE UMA OPCAO:
_
Usuário digita:
BATATA
🔁 LOOPS — O Motor da Automação
Sem loops:
- não existe monitoramento
- não existe polling
- não existe automação contínua
- não existe scheduler inteligente
Loops são o coração operacional do REXX.
🔥 DO FOREVER — O LOOP IMORTAL
Do Forever
"LISTCAT LEVEL(PROD)"
If rc \= 0 Then
Leave
End
Esse tipo de código rodou datacenters inteiros por décadas.
☕ Easter Egg #5 — O Café do Operador
Do Forever
Say "VERIFICANDO JES2..."
If cafe = 0 Then
Signal DEAD
End
🧨 LEAVE — A FUGA ESTRATÉGICA
If rc > 8 Then
Leave
O EXEC diz:
“Chega. Não vale mais continuar.”
🔄 ITERATE — O “PRÓXIMO!”
If linha = "" Then
Iterate
Muito usado em:
- leitura de datasets
- parsing
- filas
- processamento batch
🏛️ O Mainframe Nunca Precisou de “Modernidade”
Enquanto o mundo distribuído reinventava:
- automação
- scripts
- pipelines
- workflows
O z/OS já fazia isso há décadas com:
- JCL
- REXX
- ISPF
- CLIST
- SDSF
- RACF automation
⚡ O REXX NÃO É “SCRIPTZINHO”
Essa é uma das maiores injustiças tecnológicas da história.
REXX controlou:
✅ bancos
✅ operadores
✅ JES2
✅ spool
✅ RACF
✅ storage
✅ ISPF
✅ automações críticas
✅ monitoramento corporativo
🧠 Exemplo Realista — Monitor Operacional
Address TSO
Do Forever
"LISTCAT LEVEL(PROD.CRITICO)"
If rc = 0 Then
Do
Say "CATALOGO OK"
End
Else
Do
Say "ALERTA!"
Say "PROBLEMA NO CATALOGO"
Exit 12
End
Call SysSleep 10
End
🔥 Easter Egg #6 — O Operador Ninja
O operador veterano olha isso:
Exit 12
e já sabe:
- quem vai ligar
- quem vai culpar o storage
- quem vai dizer “aqui não mudou nada”
🎯 O Verdadeiro Poder do REXX
O REXX não impressiona por:
- orientação a objetos
- frameworks
- hype
- buzzwords
Ele impressiona por algo mais raro:
PRODUTIVIDADE OPERACIONAL ABSURDA.
☕ Bellacosa Mainframe Thought™
Existe uma diferença enorme entre:
“linguagem moderna”
e
“linguagem que mantém bancos funcionando há 40 anos.”
O REXX pertence à segunda categoria.
E honestamente?
Isso vale muito mais.
🚀 Conclusão — Quando o EXEC Aprende a Pensar
Neste momento do aprendizado:
- IF dá decisão
- SELECT dá organização
- DO dá estrutura
- LOOP dá persistência
- LEAVE dá controle
- ITERATE dá eficiência
E o EXEC finalmente ganha algo fundamental:
🧠 comportamento.
É aqui que nasce a automação real do mainframe.
E é aqui que muita gente percebe:
O REXX talvez seja uma das linguagens mais subestimadas da história da computação.
☕ Até o Próximo Café no Bellacosa Mainframe…
E lembre-se:
If mainframe = "VIVO" Then
Say "O MUNDO CONTINUA FUNCIONANDO"
Else
Say "ABEND GLOBAL"
😄🔥
