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:
-
Frontend → API REST (Java, Node, etc)
-
API REST → chama programa COBOL via z/OS Connect
-
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
}