✨ Bem-vindo ao meu espaço! ✨ Este blog é o diário de um otaku apaixonado por animes, tecnologia de mainframe e viagens. Cada entrada é uma mistura única: relatos de viagem com fotos, filmes, links, artigos e desenhos, sempre buscando enriquecer a experiência de quem lê. Sou quase um turista profissional: adoro dormir em uma cama diferente, acordar em um lugar novo e registrar tudo com minha câmera sempre à mão. Entre uma viagem e outra, compartilho também reflexões sobre cultura otaku/animes
.png) |
| CICS Command Level for Padawans |
Um guia passo a passo para entender o que é CICS, aprender e planejar um roteiro de estudos com o orquestrador do online em Mainframe.
#ibm #mainframe #cobol #cics #t3270 #vsam #bms #ksds #esds #ceda #ceci #cemt
1
 |
| Bellacosa Mainframe e a terceira parte do mini curso CICS BMS |
"Até agora aprendemos o que é BMS, como criar mapas, compilá-los, instalá-los no CICS e navegar entre SEND MAP, RECEIVE MAP e HANDLE AID. Agora chegou a hora de montar uma aplicação semelhante às encontradas em bancos, seguradoras e empresas de telecomunicações."
Pegue mais um café, abra uma sessão do IPCS, outra do SDSF e vamos colocar a mão na massa.
Nosso sistema será composto por uma transação chamada:
CLI1
Associada ao programa:
CLICAD
Utilizando o MAPSET:
CLIMAP
Visualmente teremos:
----------------------------------------------------------
CADASTRO DE CLIENTES
Codigo.......: _______
Nome.........: ___________________________
CPF..........: ___________
Cidade.......: ___________________________
Telefone.....: ___________
Email........: ___________________________
Mensagem.....:
PF3=Sair PF5=Limpar PF7=Consultar
----------------------------------------------------------
CLIMAP DFHMSD TYPE=&SYSPARM,
MODE=INOUT,
LANG=COBOL,
STORAGE=AUTO,
TIOAPFX=YES,
CTRL=(FREEKB)
TELA01 DFHMDI SIZE=(24,80)
Labels.
Nunca serão alterados.
Exemplo:
DFHMDF POS=(5,2),
LENGTH=10,
INITIAL='Codigo:',
ATTRB=(ASKIP,NORM)
DFHMDF POS=(6,2),
INITIAL='Nome:',
LENGTH=10,
ATTRB=(ASKIP)
CODIGO DFHMDF POS=(5,15),
LENGTH=6,
ATTRB=(UNPROT,IC),
PICIN='9(6)'
Observe.
IC
Cursor inicial.
NOME DFHMDF POS=(6,15),
LENGTH=30,
ATTRB=UNPROT
CPF DFHMDF POS=(7,15),
LENGTH=11,
ATTRB=(UNPROT,NUM)
CIDADE DFHMDF POS=(8,15),
LENGTH=25,
ATTRB=UNPROT
Protegida.
Sempre enviada.
MSG DFHMDF POS=(22,2),
LENGTH=70,
ATTRB=(PROT,FSET,BRT)
Muitos iniciantes demoram a entender.
MDT significa:
Modified Data Tag
Indica se um campo foi alterado.
Se não estiver ligado.
Campo não chega ao COBOL.
Força transmissão.
ATTRB=(FSET)
Excelente para mensagens.
Datas.
Campos protegidos.
Imagine uma consulta.
Usuário não pode alterar.
Mudamos.
De:
UNPROT
Para:
PROT
Muito comum.
Modo Inclusão.
Nome -> UNPROT
Modo Consulta.
Nome -> PROT
Existe um truque elegante.
MOVE -1 TO NOMEL
Depois:
EXEC CICS SEND MAP
CURSOR
END-EXEC
BMS procura.
Campo cujo L=-1.
Cursor aparece ali.
COPY DFHAID.
EVALUATE EIBAID
WHEN DFHENTER
PERFORM GRAVA
WHEN DFHPF3
PERFORM SAIR
WHEN DFHPF5
PERFORM LIMPA
WHEN DFHPF7
PERFORM CONSULTA
WHEN OTHER
PERFORM ERRO
END-EVALUATE
EXEC CICS RETURN
END-EXEC
Limpa campos.
MOVE SPACES TO TELA01O
SEND novamente.
Consulta.
DB2.
VSAM.
IMS.
Pode ser qualquer backend.
Poucos percebem.
Já fazíamos isso nos anos 80.
BMS
MAPSET
COBOL
CLICAD
DB2
VSAM
IMS
Visualmente:
Terminal
│
MAPSET
│
COBOL
│
DB2
Talvez o conceito mais importante.
Não existe programa residente.
CICS trabalha com tarefas curtas.
Usuário
↓
EXECUTA CLI1
↓
Programa
↓
SEND MAP
↓
RETURN
===================
Usuário ENTER
===================
Nova Task
↓
RECEIVE MAP
↓
Valida
↓
DB2
↓
SEND MAP
IF EIBCALEN = ZERO
PERFORM PRIMEIRA-VEZ
END-IF
IF EIBCALEN > ZERO
PERFORM RETORNO
END-IF
Persistência.
Entre tasks.
01 WS-COMM.
05 WS-CODIGO PIC 9(6).
05 WS-MODO PIC X.
EXEC CICS RETURN
TRANSID('CLI1')
COMMAREA(WS-COMM)
LENGTH(100)
END-EXEC
Muito comum.
Usuário apertou PF3.
Sem digitação.
RESP=36
Comando inválido.
Exemplo:
SEND DATAONLY
Antes de MAPONLY.
Tamanho incorreto.
Favorito dos desenvolvedores.
Normalmente:
S0C7
S0C4
S0CB
Melhor amigo.
Debug online.
CEDF ON
Executa.
Comando por comando.
Excelente ferramenta.
Testar comandos.
Exemplo.
CECI INQUIRE PROGRAM(CLICAD)
Editor gráfico.
Muito usado.
Década de 80.
Desenhava telas.
Gerava BMS.
Suportava:
Azul
Branco
Verde
Turquesa
Vermelho
Amarelo
Alguns programadores escondiam mensagens.
Campos DRK.
Exemplo.
DFHMDF POS=(24,1),
ATTRB=(DRK,PROT),
INITIAL='MAY THE COBOL BE WITH YOU'
Usuário nunca via.
Mas um dump IPCS entregava.
1970
Primeiros CICS.
1980
BMS consolidado.
1990
SDF II.
2000
CICS TS.
2010
Web Services.
2020
REST.
JSON.
zOS Connect.
2025+
CICS TS 6.x.
IA.
OpenTelemetry.
APIs modernas.
Aprender BMS é muito mais do que aprender a desenhar telas 3270.
É compreender a forma como milhares de aplicações críticas foram construídas.
É entender pseudo-conversação.
É conhecer a origem das arquiteturas em camadas.
É perceber que muitos conceitos considerados modernos já estavam presentes em aplicações escritas décadas atrás.
E talvez esta seja a principal lição do universo IBM Z:
A tecnologia muda.
Interfaces mudam.
Frameworks desaparecem.
Mas sistemas bem projetados atravessam gerações.
No próximo café do Bellacosa Mainframe, continuaremos explorando os bastidores do CICS, porque, no IBM Z, sempre existe mais um comando, mais um control block e mais uma curiosidade esperando para ser descoberta.
 |
| Bellacosa Mainframe em primeiros passos no mundo CICS Mainframe |
O IBM CICS Transaction Server é o coração transacional do mainframe.
👉 Pense assim:
📌 Ele gerencia:
💥 Tradução prática:
Se o usuário apertou ENTER e quer resposta na hora → tem CICS por trás.
Você não precisa decorar tudo — mas precisa entender o jogo:
CEMT, CECI)Esses aqui são o kit de sobrevivência do operador:
CEMT I TASK
CEMT I TRANS
CEMT I FILE
👉 Serve para:
CECI
👉 Executa comandos CICS manualmente
👉 Perfeito para testes sem programa
CESN (sign on)
CESF (sign off)
🎯 Objetivo: entender o que está rodando no CICS
CEMT I TASK
👉 Observe:
💡 Insight Bellacosa:
Cada linha ali é alguém usando o sistema agora — isso é produção viva!
CEMT I TRANS
👉 Veja:
🔥 Teste:
CEMT SET TRANS(xxxx) DISABLED
⚠️ Cuidado:
Você pode derrubar sistema se fizer isso em produção!
CECI
Execute:
EXEC CICS ASSIGN
👉 Veja:
💥 Isso é introspecção do ambiente
CEMT I FILE
👉 Veja:
Teste (ambiente controlado!):
CEMT SET FILE(xxxx) CLOSED
Aqui está o pulo do gato 🧠
Você precisa pensar em:
👉 Ferramentas-chave:
❌ Rodar comando sem saber impacto
❌ Derrubar FILE em produção
❌ Desabilitar TRANS crítica
❌ Ignorar mensagens do CICS
💥 Regra de ouro:
“Se você não sabe o efeito → NÃO execute”
Se quiser evoluir, recomendo:
O IBM CICS Transaction Server é o coração transacional do mainframe.
👉 Pense assim:
📌 Ele gerencia:
💥 Tradução prática:
Se o usuário apertou ENTER e quer resposta na hora → tem CICS por trás.
Você não precisa decorar tudo — mas precisa entender o jogo:
CEMT, CECI)Esses aqui são o kit de sobrevivência do operador:
CEMT I TASK
CEMT I TRANS
CEMT I FILE
👉 Serve para:
CECI
👉 Executa comandos CICS manualmente
👉 Perfeito para testes sem programa
CESN (sign on)
CESF (sign off)
🎯 Objetivo: entender o que está rodando no CICS
CEMT I TASK
👉 Observe:
💡 Insight Bellacosa:
Cada linha ali é alguém usando o sistema agora — isso é produção viva!
CEMT I TRANS
👉 Veja:
🔥 Teste:
CEMT SET TRANS(xxxx) DISABLED
⚠️ Cuidado:
Você pode derrubar sistema se fizer isso em produção!
CECI
Execute:
EXEC CICS ASSIGN
👉 Veja:
💥 Isso é introspecção do ambiente
CEMT I FILE
👉 Veja:
Teste (ambiente controlado!):
CEMT SET FILE(xxxx) CLOSED
Aqui está o pulo do gato 🧠
Você precisa pensar em:
👉 Ferramentas-chave:
❌ Rodar comando sem saber impacto
❌ Derrubar FILE em produção
❌ Desabilitar TRANS crítica
❌ Ignorar mensagens do CICS
💥 Regra de ouro:
“Se você não sabe o efeito → NÃO execute”
Se quiser evoluir, recomendo:
 |
| Bellacosa Mainframe e o que é CICS |
CICS significa:
É o principal monitor transacional do ambiente Mainframe IBM Z e um dos softwares mais importantes da história da computação corporativa.
Criado pela IBM em 1968, o CICS é responsável por executar milhões de transações online em bancos, seguradoras, governos, companhias aéreas e grandes empresas.
O CICS é:
Ele permite que milhares de usuários acessem simultaneamente aplicações COBOL, PL/I, C e Java executadas no Mainframe.
Imagine um restaurante.
O cliente faz o pedido.
O garçom recebe.
A cozinha prepara.
O prato é entregue.
No Mainframe:
Usuário
↓
CICS
↓
Programa COBOL
↓
DB2 / VSAM
↓
Resposta
O CICS é o "garçom" que coordena tudo.
Sem o CICS, cada usuário precisaria executar diretamente um programa no sistema operacional.
Isso consumiria muitos recursos.
O CICS resolve esse problema:
✅ Compartilhando recursos
✅ Controlando usuários
✅ Gerenciando transações
✅ Controlando memória
✅ Gerenciando comunicação
Praticamente em:
Bancos
PIX
TED
Cartões de crédito
Internet Banking
Seguradoras
Governo
Telecomunicações
Companhias aéreas
Terminal
↓
CICS
↓
Programa COBOL
↓
DB2
↓
Resposta
Cliente consulta saldo:
ATM
↓
CICS
↓
COBOL
↓
DB2
↓
Saldo exibido
Tudo acontece em poucos milissegundos.
É uma operação identificada por um código de 4 caracteres.
CUST
SALD
PIX1
PAGT
Usuário digita:
SALD
O CICS:
Localiza programa
↓
Executa COBOL
↓
Retorna resultado
Normalmente escritos em:
COBOL
PL/I
C
Java
Recebendo dados:
EXEC CICS RECEIVE
MAP('TELA1')
END-EXEC.
EXEC CICS SEND
MAP('TELA2')
END-EXEC.
Tela utilizada pelo usuário.
+----------------------+
| CONSULTA CLIENTE |
| CONTA: ________ |
| SALDO: ________ |
+----------------------+
Basic Mapping Support.
Ferramenta usada para criar telas CICS.
Área usada para passar dados entre programas.
Programa A:
EXEC CICS LINK
PROGRAM('PROG2')
COMMAREA(WS-AREA)
END-EXEC.
Recebe os dados pela COMMAREA.
Chama outro programa.
EXEC CICS LINK
END-EXEC
Transfere controle sem retorno.
EXEC CICS XCTL
END-EXEC
Finaliza transação.
EXEC CICS RETURN
END-EXEC
Envia tela.
EXEC CICS SEND
END-EXEC
Recebe dados.
EXEC CICS RECEIVE
END-EXEC
Integração extremamente comum.
EXEC SQL
SELECT SALDO
INTO :WS-SALDO
FROM CLIENTES
END-EXEC.
Também muito utilizado.
READ ARQCLI
Normalmente integrado ao:
RACF
ACF2
Top Secret
O CICS executa dentro de uma região.
CICSA
CICSPRD
CICSTST
Ambiente onde as transações executam.
Comandos comuns:
CEMT
CEDA
CEDF
CECI
Monitor operacional.
CEMT I TASK
Mostra tarefas ativas.
Administração de recursos.
Debug interativo.
Executa comandos CICS manualmente.
Timeout.
Programa não encontrado.
Erro COMMAREA.
Exceção de programa.
Equivalente a:
S0C7
S0C4
Uma transação deve obedecer:
Tudo ou nada.
Dados válidos.
Transações independentes.
Dados persistem após COMMIT.
| Conceito | Função |
|---|---|
| CICS | Monitor transacional |
| Transação | Operação online |
| MAP | Tela usuário |
| BMS | Criação de telas |
| COMMAREA | Passagem de dados |
| LINK | Chama programa |
| XCTL | Transfere controle |
| SEND | Envia tela |
| RECEIVE | Recebe dados |
| CEMT | Administração |
| CEDA | Definição recursos |
| CEDF | Debug |
| CECI | Testes |
O CICS (Customer Information Control System) é o principal monitor de processamento online do Mainframe IBM Z. Ele gerencia transações, usuários, programas COBOL, acesso a DB2 e VSAM, permitindo que milhões de operações críticas sejam executadas com segurança, desempenho e alta disponibilidade em tempo real.
