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:

  1. Microserviço → envia pedidos para MQ (PEDIDOS.DIA)

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