Cenário:
Um microserviço moderno recebe pedidos de compra durante o dia e envia cada um para uma fila (PEDIDOS.DIA
). À noite, o job COBOL é disparado e processa todos os registros em lote.
🔧 Arquitetura:
-
Microserviço → envia pedidos para MQ (
PEDIDOS.DIA
) -
Job Batch (COBOL) → roda via JCL, lê da fila e grava em arquivo/DB
🧾 Mensagem na fila:
{
"pedido": "78910",
"cliente": "12345678900",
"valor": 450.00,
"data": "2025-06-02"
}
📄 Lógica COBOL (pseudo):
PERFORM UNTIL NO-MORE-MESSAGES
CALL MQGET 'PEDIDOS.DIA' INTO WS-PEDIDO
PERFORM PROCESSA-PEDIDO
END-PERFORM
PROCESSA-PEDIDO.
WRITE PEDIDOS-FILE FROM WS-PEDIDO.
📁 Resultado:
Grava os dados em arquivo ou VSAM para serem contabilizados no sistema financeiro.