Cenário:

Uma API REST recebe a requisição com CPF e chama um programa COBOL no CICS. O programa busca o saldo em um arquivo VSAM e devolve a resposta em JSON.

🔧 Arquitetura:

  1. Frontend → API REST (Java, Node, etc)

  2. API REST → chama programa COBOL via z/OS Connect

  3. COBOL → acessa VSAM e retorna SALDO

🧾 Exemplo de entrada (requisição)

GET /saldo?cpf=12345678900

📄 Programa COBOL (trecho simplificado):

EXEC CICS RECEIVE INTO(CPF-AREA) END-EXEC
READ CLIENTES-FILE KEY CPF-AREA INTO DADOS-CLIENTE
IF FOUND
    MOVE SALDO-CORRENTE TO WS-SALDO
    EXEC CICS WEB SEND TEXT FROM(WS-SALDO) END-EXEC
ELSE
    EXEC CICS WEB SEND TEXT FROM(‘{“erro”:”CPF não encontrado”}’) END-EXEC
END-IF

🔁 Retorno JSON:

{
  "cpf": "12345678900",
  "saldo": 1275.34
}