 |
| Bellacosa Mainframe o que é SQL Mainframe |
O que é SQL no Mainframe?
SQL significa:
Structured Query Language
É a linguagem usada para acessar e manipular dados armazenados em bancos relacionais, principalmente o:
DB2 for z/OS
IMS SQL
Db2 Distributed
No ambiente mainframe, SQL é a ponte entre os programas COBOL e os dados armazenados no banco.
Definição simples
SQL é:
a linguagem utilizada para consultar, incluir, alterar e remover dados em bancos de dados.
Sem SQL, um programa COBOL não conseguiria acessar diretamente uma tabela DB2.
Analogia simples
Imagine uma biblioteca gigante.
O DB2 é a biblioteca.
O SQL é o idioma usado para conversar com o bibliotecário.
Você pode dizer:
Me mostre todos os clientes.
ou
Atualize o saldo deste cliente.
Onde SQL é usado?
Principalmente em:
COBOL
CICS
Batch
Java
PL/I
REXX
Stored Procedures
SQL e DB2
Fluxo simplificado:
Programa COBOL
↓
SQL
↓
DB2
↓
Dados
Principais comandos SQL
SELECT
Consulta dados.
SELECT *
FROM CLIENTES;
SELECT com filtro
SELECT NOME,
SALDO
FROM CLIENTES
WHERE SALDO > 1000;
INSERT
Inclui registros.
INSERT INTO CLIENTES
VALUES
(1001,'JOAO SILVA',5000);
UPDATE
Atualiza registros.
UPDATE CLIENTES
SET SALDO = 8000
WHERE ID = 1001;
DELETE
Remove registros.
DELETE
FROM CLIENTES
WHERE ID = 1001;
SQL dentro do COBOL
No mainframe normalmente usamos:
Embedded SQL
Exemplo
EXEC SQL
SELECT NOME
INTO :WS-NOME
FROM CLIENTES
WHERE ID = :WS-ID
END-EXEC.
O que é EXEC SQL?
Indica ao pré-compilador DB2 que aquele trecho contém comandos SQL.
Host Variables
Variáveis COBOL utilizadas pelo SQL.
Exemplo
01 WS-ID PIC 9(5).
01 WS-NOME PIC X(30).
Uso:
WHERE ID = :WS-ID
O ":" identifica uma Host Variable.
SQLCODE
Após cada comando SQL o DB2 retorna um código.
Exemplo
IF SQLCODE = 0
SQLCODE mais comuns
| SQLCODE | Significado |
|---|---|
| 0 | Sucesso |
| +100 | Registro não encontrado |
| -803 | Chave duplicada |
| -305 | Valor nulo |
| -911 | Deadlock |
| -904 | Recurso indisponível |
SQLCA
Área de comunicação entre COBOL e DB2.
Inclusão
EXEC SQL
INCLUDE SQLCA
END-EXEC.
SQLCA contém
SQLCODE
SQLSTATE
mensagens
estatísticas
O que é Cursor?
Quando um SELECT retorna várias linhas.
Exemplo
SELECT *
FROM CLIENTES
Pode retornar:
JOAO
MARIA
CARLOS
ANA
Cursor resolve isso
Fluxo:
DECLARE
↓
OPEN
↓
FETCH
↓
FETCH
↓
FETCH
↓
CLOSE
Exemplo
DECLARE C1 CURSOR FOR
SELECT NOME
FROM CLIENTES
FETCH
FETCH C1
INTO :WS-NOME
Lê uma linha por vez.
COMMIT
Confirma alterações.
COMMIT;
ROLLBACK
Desfaz alterações.
ROLLBACK;
Exemplo prático
UPDATE SALDO
↓
COMMIT
Grava definitivamente.
Exemplo erro
UPDATE SALDO
↓
ABEND
↓
ROLLBACK
Volta ao estado anterior.
SQL Estático
Mais comum em COBOL.
Exemplo
EXEC SQL
SELECT ...
END-EXEC
Conhecido na compilação.
SQL Dinâmico
Montado em tempo de execução.
Exemplo
MOVE 'SELECT * FROM CLIENTES'
TO WS-COMANDO
Muito usado em ferramentas administrativas.
Processo de compilação
COBOL + SQL
↓
Pré-compilador DB2
↓
Compilador COBOL
↓
BIND
↓
Package
↓
Execução
O que é BIND?
Gera os objetos que permitem ao DB2 executar o SQL.
Ferramentas SQL famosas no Mainframe
SPUFI
DSNTEP2
QMF
Db2 Admin Tool
Data Studio
SQL x QSAM
SQL
Procure cliente 1000
DB2 encontra.
QSAM
Registro 1
Registro 2
Registro 3
...
Registro 1000
Leitura sequencial.
Vantagens do SQL
✅ Fácil leitura
✅ Menos código COBOL
✅ Acesso rápido aos dados
✅ Relacionamentos entre tabelas
✅ Alta produtividade
Curiosidades
1. SQL foi criado na IBM na década de 1970
2. O DB2 foi um dos primeiros bancos comerciais a usar SQL
3. Milhões de linhas COBOL executam SQL diariamente
4. Grande parte das transações bancárias depende de SQL no DB2
Resumo rápido
| Comando | Função |
|---|---|
| SELECT | Consulta |
| INSERT | Inclusão |
| UPDATE | Alteração |
| DELETE | Exclusão |
| COMMIT | Confirma |
| ROLLBACK | Desfaz |
| CURSOR | Percorre linhas |
| FETCH | Lê linha |
| SQLCA | Retorno SQL |
| SQLCODE | Código de retorno |
Conclusão
SQL é a linguagem que permite aos programas COBOL, CICS e aplicações do ambiente IBM Z acessar bancos de dados DB2. Ele é um dos pilares do processamento transacional moderno, tornando possível consultar, inserir, atualizar e excluir dados de forma segura, rápida e eficiente no mainframe.
