Bellacosa Mainframe o que é processamento mainframe

O que é Processamento Online em Mainframe?

O processamento Online é o modelo de execução em que o usuário interage diretamente com a aplicação e recebe uma resposta quase imediata.

Enquanto o Batch processa grandes volumes de dados em lote, o Online processa uma transação por vez, em tempo real.

---

Definição Simples

Processamento Online é:

a execução interativa de transações em tempo real.

Sempre que um usuário:

• consulta saldo;

• realiza um PIX;

• faz uma compra no cartão;

• acessa Internet Banking;

• emite um boleto;

há um processamento online acontecendo.

---

Analogia Simples

Batch

100.000 registros
        ↓
Processa tudo junto
        ↓
Resultado

---

Online

Usuário solicita
        ↓
Sistema responde
        ↓
Fim da transação

---

Exemplos do Dia a Dia

Caixa Eletrônico

Cliente consulta saldo
        ↓
CICS
        ↓
DB2
        ↓
Resposta em segundos

---

PIX

Cliente envia PIX
        ↓
Validação
        ↓
Atualização DB2
        ↓
Confirmação

---

Cartão de Crédito

Compra realizada
        ↓
Autorização
        ↓
Resposta

---

Arquitetura Online no Mainframe

Usuário
    ↓
Terminal / Web / Mobile
    ↓
CICS ou IMS TM
    ↓
Programa COBOL
    ↓
DB2 / VSAM
    ↓
Resposta

---

Principais Componentes

CICS

Customer Information Control System

Principal monitor transacional do mundo Mainframe.

Gerencia:

• transações;

• usuários;

• telas;

• comunicação.

---

IMS TM

IMS Transaction Manager.

Alternativa ao CICS.

Muito usado em:

• bancos;

• telecom;

• governo.

---

COBOL

Contém as regras de negócio.

---

DB2

Banco de dados relacional.

---

VSAM

Arquivos indexados.

---

Fluxo de uma Transação CICS

Terminal
    ↓
Transação
    ↓
Programa COBOL
    ↓
DB2
    ↓
Resposta

---

Exemplo de Transação

Código digitado:

CONS

ou

SALD

O CICS:

Recebe
 ↓
Localiza programa
 ↓
Executa
 ↓
Retorna tela

---

Exemplo COBOL Online

EXEC CICS RECEIVE
     MAP('TELA1')
END-EXEC.

Recebe dados da tela.

---

Consulta DB2

EXEC SQL

   SELECT SALDO
   INTO :WS-SALDO

   FROM CLIENTES

   WHERE CONTA = :WS-CONTA

END-EXEC.

---

Retorno ao Usuário

EXEC CICS SEND
     MAP('TELA2')
END-EXEC.

---

Características do Online

✅ Tempo real

✅ Resposta imediata

✅ Interação usuário

✅ Pequeno volume por transação

✅ Alta disponibilidade

---

Online x Batch

Online	Batch
Tempo real	Em lote
Interativo	Não interativo
Usuário presente	Usuário ausente
Resposta imediata	Processamento agendado
CICS/IMS	JCL/COBOL

---

O que é uma Transação?

Unidade lógica de trabalho.

Exemplo:

Consultar saldo

---

ou

Transferir dinheiro

---

Conceito ACID

Transações online devem garantir:

Atomicidade

Tudo ou nada.

---

Consistência

Dados válidos.

---

Isolamento

Usuários não interferem.

---

Durabilidade

Dados persistem.

---

COMMIT

Confirma a transação.

COMMIT;

---

ROLLBACK

Desfaz alterações.

ROLLBACK;

---

Exemplo

PIX enviado
     ↓
Erro
     ↓
ROLLBACK

Nenhum valor é debitado.

---

Desempenho

Transações online normalmente precisam responder em:

Menos de 1 segundo

ou

2 segundos

Dependendo da aplicação.

---

Segurança

Ambientes online usam:

• RACF

• ACF2

• Top Secret

para controlar acessos.

---

Disponibilidade

Muitos sistemas online operam:

24x7

Sem interrupção.

---

Exemplos Reais

Bancos

• PIX

• TED

• Consulta saldo

• Investimentos

---

Seguradoras

• Apólices

• Sinistros

---

Governo

• Receita Federal

• Previdência

---

Varejo

• Cartões

• E-commerce

---

Erros Comuns

Deadlock DB2

SQLCODE -911

---

Programa não encontrado

AEI0

---

Erro de COMMAREA

AEIV

---

Timeout

AICA

---

Curiosidades

1. O CICS processa bilhões de transações por dia no mundo

2. Muitas operações de cartão passam por Mainframes IBM Z

3. Um único CICS pode suportar milhares de usuários simultâneos

4. Grande parte dos PIX bancários passa por aplicações COBOL online

---

Resumo Rápido

Conceito	Função
Online	Processamento em tempo real
CICS	Monitor transacional
IMS TM	Gerenciador de transações
COBOL	Regras de negócio
DB2	Banco de dados
VSAM	Arquivo indexado
COMMIT	Confirma
ROLLBACK	Desfaz
ACID	Integridade transacional
RACF	Segurança

---

Conclusão

O processamento Online é o responsável pelas transações em tempo real no ambiente IBM Z. Utilizando tecnologias como CICS, IMS TM, COBOL, DB2 e VSAM, ele permite que milhões de usuários realizem consultas, pagamentos, transferências e operações críticas com rapidez, segurança e alta disponibilidade, tornando-se um dos pilares da computação corporativa moderna.

 

Bellacosa Mainframe o que é processamento batch em Mainframe

O que é Processamento Batch em Mainframe?

O processamento Batch é uma das tecnologias mais importantes da história da computação corporativa e continua sendo responsável por processar bilhões de transações diariamente em bancos, seguradoras, governos e grandes empresas.

Batch significa:

Processamento em Lote

Ou seja, um conjunto de dados é processado automaticamente, sem interação direta do usuário durante a execução.

---

Definição Simples

Imagine que uma empresa precisa:

• calcular salários;

• gerar extratos;

• processar PIX;

• atualizar saldos;

• emitir boletos.

Em vez de fazer isso um registro por vez, o sistema reúne milhares ou milhões de registros e processa tudo em lote.

Isso é Batch.

---

Analogia Simples

Imagine uma lavanderia industrial.

Processamento Online

Roupa entra
↓
Lavagem imediata
↓
Entrega

---

Processamento Batch

1000 roupas chegam
↓
Acumula tudo
↓
Processa em lote
↓
Entrega

---

Batch x Online

Batch	Online
Sem usuário	Com usuário
Processamento em lote	Tempo real
Grande volume	Pequeno volume
Horários programados	Sob demanda
Alta performance	Baixa latência

---

Exemplo Online

Cliente consulta saldo:

ATM
↓
CICS
↓
DB2
↓
Resposta

Tudo acontece em segundos.

---

Exemplo Batch

Fim do dia:

Milhões de contas
↓
Atualizar juros
↓
Gerar extratos
↓
Criar relatórios

---

Arquitetura Batch no Mainframe

JCL
 ↓
Scheduler
 ↓
JOB
 ↓
Programa COBOL
 ↓
QSAM / VSAM / DB2
 ↓
Relatórios

---

Componentes Principais

JCL

Job Control Language

Controla a execução.

---

COBOL

Executa as regras de negócio.

---

Dataset

Contém os dados.

---

Scheduler

Agenda a execução.

---

JES2/JES3

Gerencia filas e spool.

---

Como um Batch Funciona?

Fluxo típico:

Entrada
 ↓
Leitura
 ↓
Validação
 ↓
Processamento
 ↓
Gravação
 ↓
Relatórios

---

Exemplo Real

Banco processando pagamentos:

Arquivo PIX
 ↓
COBOL
 ↓
Validação
 ↓
Atualização DB2
 ↓
Relatório

---

Exemplo de JCL

//PAGTO JOB ...

//STEP1 EXEC PGM=PAGPIX

//ENTRADA DD DSN=BANCO.PIX.INPUT

//SAIDA   DD DSN=BANCO.PIX.OUTPUT

---

O que acontece?

O z/OS:

1. Aloca datasets

2. Carrega programa

3. Executa COBOL

4. Gera SYSOUT

5. Finaliza Job

---

Ciclo de Vida de um Job Batch

SUBMIT
  ↓
INPUT QUEUE
  ↓
EXECUTION QUEUE
  ↓
RUNNING
  ↓
OUTPUT QUEUE
  ↓
PURGE

---

Onde vemos isso?

No SDSF:

ST
DA
I
H
O

---

Horário de Batch

Tradicionalmente:

22:00
 ↓
06:00

Conhecido como:

Janela Batch

---

Por que à noite?

Menos usuários online.

Mais recursos disponíveis.

---

Tipos de Batch

---

Batch Sequencial

Processa arquivo inteiro.

Registro 1
Registro 2
Registro 3

---

Batch DB2

Processa tabelas.

SELECT
UPDATE
INSERT
DELETE

---

Batch VSAM

Processa registros indexados.

---

Batch ETL

Extrai, transforma e carrega dados.

Muito usado em Data Warehouse.

---

Schedulers Mais Conhecidos

---

IBM Workload Scheduler (IWS)

Antigo OPC/TWS.

---

Control-M

Muito usado em bancos.

---

CA-7

Broadcom.

---

ESP

Scheduler corporativo.

---

Automic

Ambientes distribuídos e Mainframe.

---

Dependências Batch

Um Job pode depender de outro.

---

Exemplo

JOB-A
 ↓
JOB-B
 ↓
JOB-C

---

JOB-B só executa se:

JOB-A RC=0000

---

Return Code (RC)

Código de retorno do Job.

---

Exemplos

RC	Significado
0000	Sucesso
0004	Aviso
0008	Erro
0012	Erro grave
0016	Falha crítica

---

ABEND em Batch

Se ocorrer:

S0C7
S806
SB37

O Job pode parar.

---

Logs do Batch

Disponíveis no:

SYSOUT
JESMSGLG
JESJCL
JESYSMSG

---

Exemplo de Fluxo Bancário

PIX RECEBIDOS
        ↓
JOB BATCH
        ↓
ATUALIZA DB2
        ↓
GERA EXTRATO
        ↓
ENVIA RELATÓRIO

---

Vantagens do Batch

✅ Processa milhões de registros

✅ Excelente performance

✅ Automatização

✅ Baixo custo operacional

✅ Alta confiabilidade

---

Desvantagens

❌ Não é tempo real

❌ Dependência de janelas

❌ Recuperação pode ser complexa

---

Curiosidades

1. Alguns bancos processam mais de 10 bilhões de registros por noite

2. Muitos batchs executam há mais de 30 anos sem interrupção

3. O conceito de processamento em lote existe desde a era dos cartões perfurados

4. Grande parte do fechamento bancário mundial ainda depende de batchs COBOL

---

Erros Comuns de Iniciantes

Confundir Batch com Online

---

Ignorar Return Codes

---

Não analisar SYSOUT

---

Não tratar ABENDs

---

Não entender dependências do Scheduler

---

Resumo Rápido

Conceito	Função
Batch	Processamento em lote
JCL	Controle execução
COBOL	Regras negócio
Dataset	Dados
Scheduler	Agendamento
RC	Código retorno
SYSOUT	Logs
JES2	Gerência filas
IWS	Scheduler IBM
Control-M	Scheduler corporativo

---

Conclusão

O processamento Batch é o coração operacional de muitas empresas que utilizam Mainframe IBM Z. Ele permite processar enormes volumes de dados de forma automatizada, segura e eficiente, sendo responsável por atividades críticas como fechamento bancário, folha de pagamento, faturamento, conciliações financeiras e geração de relatórios corporativos.

 

Bellacosa Mainframe o que é Compilação e Linkedição de um programa COBOL

O que é Compilação e Linkedição de um Programa COBOL?

Quando escrevemos um programa COBOL, o computador não executa diretamente o código-fonte.

Antes disso, ele precisa passar por duas etapas fundamentais:

Compilação

e

Linkedição (Link-Edit ou Binder)

Essas etapas transformam o código COBOL em um programa executável pelo z/OS.

---

Visão Geral

Código COBOL
     ↓
Compilação
     ↓
Objeto (OBJ)
     ↓
Linkedição (Binder)
     ↓
Load Module / Program Object
     ↓
Execução

---

O que é Compilação?

Compilação é o processo de converter:

Código COBOL

em

Código Objeto

---

Analogia Simples

Imagine que você escreveu um livro em português.

O compilador é um tradutor que converte o texto para um idioma que o processador entende.

---

Entrada da Compilação

Programa fonte:

IDENTIFICATION DIVISION.

PROGRAM-ID. HELLO.

PROCEDURE DIVISION.

DISPLAY 'OLA MUNDO'.

STOP RUN.

---

Saída da Compilação

Arquivo objeto:

OBJETO

Ainda não é executável.

---

O que o Compilador faz?

Durante a compilação ele:

✅ Analisa sintaxe

✅ Valida comandos COBOL

✅ Expande COPYBOOKs

✅ Verifica variáveis

✅ Gera instruções de máquina

✅ Produz mensagens de erro

---

Exemplo de erro

DISPLY 'OLA'

Resultado:

IGYPS2121-S

Erro de sintaxe.

---

Compilador COBOL

Nos ambientes IBM Z normalmente encontramos:

Enterprise COBOL for z/OS

---

O que é o Código Objeto?

Após a compilação é criado:

OBJETO

Também chamado de:

Object Deck
Object Module
OBJ

---

Características

• Não executa sozinho

• Pode conter referências externas

• Precisa passar pelo Binder

---

O que é Linkedição?

Também chamada:

Link-Edit

ou

Binding

---

Função

Transformar o código objeto em um programa executável.

---

Fluxo

OBJETO
   ↓
BINDER
   ↓
LOAD MODULE

---

O que o Binder faz?

Ele:

✅ Resolve chamadas externas

✅ Liga subprogramas

✅ Liga bibliotecas

✅ Resolve referências CICS

✅ Resolve referências DB2

✅ Cria módulo executável

---

Analogia Simples

Imagine várias peças de LEGO.

A compilação cria as peças.

A linkedição monta tudo em um único brinquedo funcional.

---

Resultado Final

LOAD MODULE

ou

PROGRAM OBJECT

---

Onde fica o executável?

Normalmente em uma biblioteca:

USER.LOADLIB

ou

PROD.LOADLIB

---

Fluxo Completo

COBOL Source
      ↓
Compiler
      ↓
Object Module
      ↓
Binder
      ↓
Load Module
      ↓
JCL EXEC PGM=

---

Exemplo de Execução

JCL:

//STEP1 EXEC PGM=HELLO

O z/OS procura:

HELLO

na:

STEPLIB
JOBLIB
LINKLIST

---

O que é STEPLIB?

Biblioteca onde o executável está armazenado.

---

Exemplo

//STEPLIB DD DSN=USER.LOADLIB,
//            DISP=SHR

---

Chamadas entre Programas

Programa principal:

CALL 'CALCSAL'

---

Durante a Linkedição

O Binder procura:

CALCSAL

e conecta os módulos.

---

Linkedição com CICS

Programas CICS utilizam bibliotecas especiais.

Exemplo:

DFHEIBLK
DFHCOMMAREA

O Binder resolve essas referências.

---

Linkedição com DB2

Programas DB2 possuem etapas extras.

COBOL
 ↓
Pré-compilador DB2
 ↓
Compilação
 ↓
BIND DB2
 ↓
Linkedição

---

O que é BIND no DB2?

Não confundir com Binder.

---

Binder

Cria executável.

---

BIND DB2

Cria:

PACKAGE
PLAN

---

Principais Saídas da Compilação

---

SYSPRINT

Mensagens do compilador.

---

LISTING

Listagem fonte expandida.

---

OBJETO

Código objeto.

---

Principais Saídas da Linkedição

---

SYSPRINT

Mensagens Binder.

---

LOAD MODULE

Executável.

---

Erros Comuns de Compilação

Variável não declarada

IGYPS...

---

COPYBOOK inexistente

IGYDS...

---

Erro de sintaxe

IGYPS...

---

Erros Comuns de Linkedição

Módulo não encontrado

IEW2456E

---

Referência externa não resolvida

IEW2646S

---

Biblioteca ausente

IEW...

---

Ferramentas Envolvidas

Etapa	Ferramenta
Compilação	Enterprise COBOL
Linkedição	Binder (IEWL)
Execução	z/OS Loader

---

Exemplo Real de JCL

//COBOL EXEC PGM=IGYCRCTL
//SYSIN DD DSN=USER.COBOL(PROG1)

//LKED EXEC PGM=IEWL
//SYSLMOD DD DSN=USER.LOADLIB(PROG1)

---

Curiosidades

1. Antigamente a saída da compilação era gravada em cartões perfurados

2. O Binder substituiu o antigo Linkage Editor

3. Um único programa pode ser ligado a dezenas de módulos externos

4. Grandes bancos compilam milhares de programas COBOL diariamente

---

Resumo Rápido

Etapa	Função
Compilação	Gera código objeto
Código Objeto	Saída intermediária
Binder	Liga módulos
Linkedição	Cria executável
Load Module	Programa executável
STEPLIB	Biblioteca de execução
CALL	Chama subprograma
BIND DB2	Cria Package e Plan

---

Conclusão

A compilação converte o código COBOL em um módulo objeto, enquanto a linkedição (Binder) conecta todas as dependências e gera o módulo executável que será carregado pelo z/OS. Entender essas etapas é fundamental para diagnosticar erros de compilação, problemas de execução e compreender como os programas COBOL realmente funcionam no ambiente IBM Z.

 

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.

 

Bellacosa Mainframe  o que é DB2 Mainframe

O que é DB2 Mainframe?

O DB2 for z/OS é o principal sistema gerenciador de banco de dados relacional (RDBMS) da IBM para o ambiente Mainframe IBM Z.

Quando você faz:

• um PIX;

• uma transferência bancária;

• uma consulta de saldo;

• uma compra com cartão;

há uma grande chance de existir um banco DB2 armazenando ou consultando essas informações.

---

Definição simples

DB2 é:

um banco de dados relacional corporativo de alta performance.

Ele armazena:

• clientes;

• contas;

• contratos;

• apólices;

• transações;

• produtos;

• históricos.

---

Analogia simples

Imagine um enorme arquivo de fichas organizado.

O DB2 permite:

• guardar informações;

• localizar rapidamente;

• atualizar dados;

• remover registros;

• relacionar tabelas.

---

História

O DB2 surgiu na IBM no início da década de 1980.

Foi um dos primeiros bancos comerciais baseados nos conceitos relacionais propostos por:

Edgar F. Codd

---

O que significa DB2?

Originalmente:

Database 2

Hoje a IBM usa oficialmente:

IBM Db2 for z/OS

---

Onde o DB2 roda?

Principalmente em:

• IBM Z

• z/OS

Mas também existem versões para:

• Linux

• Unix

• Windows

---

Arquitetura simplificada

Aplicação COBOL
        ↓
SQL
        ↓
DB2
        ↓
Tablespaces
        ↓
Disco

---

O que é uma tabela?

Local onde os dados são armazenados.

---

Exemplo

Tabela CLIENTES

ID	NOME	SALDO
1	JOÃO	1000
2	MARIA	5000

---

Criando uma tabela

CREATE TABLE CLIENTES
(
   ID      INTEGER,
   NOME    VARCHAR(50),
   SALDO   DECIMAL(9,2)
);

---

O que é SQL?

Structured Query Language.

Linguagem usada para conversar com o DB2.

---

Comandos mais comuns

SELECT

Consulta dados.

SELECT *
FROM CLIENTES;

---

INSERT

Inclui registros.

INSERT INTO CLIENTES
VALUES (1,'JOAO',1000);

---

UPDATE

Atualiza registros.

UPDATE CLIENTES
SET SALDO = 2000
WHERE ID = 1;

---

DELETE

Remove registros.

DELETE
FROM CLIENTES
WHERE ID = 1;

---

DB2 e COBOL

Uma das combinações mais famosas da história da computação.

---

Exemplo

EXEC SQL

   SELECT NOME
   INTO :WS-NOME

   FROM CLIENTES

   WHERE ID = :WS-ID

END-EXEC.

---

O que é SQL embutido?

SQL escrito dentro do COBOL.

Chamado de:

Embedded SQL

---

Processo de compilação

COBOL + SQL
      ↓
Precompiler DB2
      ↓
Compilador COBOL
      ↓
Bind
      ↓
Execução

---

O que é BIND?

Processo que cria:

Package

e

Plan

necessários para execução SQL.

---

Objetos principais do DB2

---

Database

Container lógico.

---

Tablespace

Local físico onde as tabelas ficam.

---

Table

Armazena dados.

---

Index

Acelera pesquisas.

---

View

Consulta virtual.

---

Synonym / Alias

Nome alternativo.

---

Exemplo simplificado

DATABASE
   ↓
TABLESPACE
   ↓
TABLE

---

O que é Tablespace?

Área física onde o DB2 grava os dados.

---

O que é Index?

Estrutura que acelera consultas.

---

Sem índice

1
2
3
4
5
...

Procura sequencial.

---

Com índice

Índice
 ↓
Registro encontrado

Muito mais rápido.

---

O que é Cursor?

Usado quando um SELECT retorna várias linhas.

---

Exemplo

DECLARE C1 CURSOR FOR
SELECT NOME
FROM CLIENTES;

---

Operações com Cursor

DECLARE
   ↓
OPEN
   ↓
FETCH
   ↓
CLOSE

---

FETCH

Lê uma linha por vez.

---

SQLCODE

Código de retorno do DB2.

Muito importante.

---

Exemplos

SQLCODE	Significado
0	Sucesso
+100	Registro não encontrado
-305	Valor nulo
-803	Chave duplicada
-904	Recurso indisponível
-911	Deadlock/Rollback

---

SQLCA

Área de comunicação SQL.

---

Exemplo

EXEC SQL
   INCLUDE SQLCA
END-EXEC.

---

O que é COMMIT?

Confirma alterações.

---

Exemplo

COMMIT;

---

O que é ROLLBACK?

Desfaz alterações.

---

Exemplo

ROLLBACK;

---

Fluxo transacional

UPDATE
   ↓
COMMIT

ou

UPDATE
   ↓
ERRO
   ↓
ROLLBACK

---

DB2 Online e Batch

Online

Normalmente:

• CICS

• IMS TM

---

Batch

Normalmente:

• COBOL

• JCL

• Scheduler

---

Ferramentas comuns

• SPUFI

• DSNTEP2

• QMF

• Data Studio

• Db2 Admin Tool

---

Como o DB2 aparece no dia a dia?

Praticamente em:

• PIX

• cartões

• internet banking

• seguros

• e-commerce

• governo

---

Curiosidades

1. Alguns bancos possuem bancos DB2 com dezenas de terabytes

2. O DB2 processa bilhões de transações diariamente

3. Muitas aplicações COBOL acessam DB2 há mais de 30 anos

4. O DB2 é considerado um dos bancos mais confiáveis do mundo

---

Erros comuns de iniciantes

Ignorar SQLCODE

---

Esquecer COMMIT

---

Não fechar CURSOR

---

Fazer SELECT sem índice

---

Não entender SQLCA

---

Resumo rápido

Conceito	Função
DB2	Banco de dados relacional
SQL	Linguagem do DB2
Table	Armazena dados
Index	Acelera consultas
Cursor	Percorre linhas
SQLCA	Retorno SQL
SQLCODE	Código de retorno
COMMIT	Confirma
ROLLBACK	Desfaz
BIND	Gera Package/Plan

---

Conclusão

O DB2 for z/OS é um dos pilares do ecossistema Mainframe IBM Z. Ele fornece armazenamento relacional de alta disponibilidade, segurança e desempenho para aplicações COBOL, CICS, IMS e batch que processam milhões de transações críticas diariamente.

Bellacosa Mainframe e comandos de mainupalação de datasets em Mainframe

Comandos COBOL para Manipulação de Arquivos: ACCESS MODE, FILE-CONTROL, FILE STATUS, OPEN, READ, START, WRITE, REWRITE, DELETE e CLOSE

Quando um programa COBOL trabalha com arquivos QSAM ou VSAM, existe um conjunto de comandos fundamentais que controlam toda a entrada, saída e atualização dos dados.

Esses comandos aparecem diariamente em sistemas:

• bancários;

• seguradoras;

• cartões;

• governo;

• ERP;

• processamento batch.

---

Visão Geral

FILE-CONTROL
     ↓
OPEN
     ↓
READ / START
     ↓
WRITE / REWRITE / DELETE
     ↓
CLOSE

---

FILE-CONTROL

Fica na:

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.

Responsável por:

• associar arquivos;

• definir organização;

• definir acesso;

• definir FILE STATUS.

---

Exemplo

SELECT ARQCLIENTE
       ASSIGN TO CLIENTE
       ORGANIZATION IS INDEXED
       ACCESS MODE IS DYNAMIC
       RECORD KEY IS CLI-ID
       FILE STATUS IS WS-FS.

---

ACCESS MODE

Define como o programa acessará o arquivo.

---

SEQUENTIAL

Leitura em sequência.

ACCESS MODE IS SEQUENTIAL

Fluxo:

REG1
 ↓
REG2
 ↓
REG3

Muito usado em:

• QSAM

• Batch

---

RANDOM

Acesso direto pela chave.

ACCESS MODE IS RANDOM

Exemplo:

PROCURA CLIENTE 1000

Vai diretamente ao registro.

---

DYNAMIC

Mistura Sequential e Random.

ACCESS MODE IS DYNAMIC

Muito comum em VSAM.

---

FILE STATUS

Retorno das operações do arquivo.

---

Declaração

01 WS-FS PIC XX.

---

Associação

FILE STATUS IS WS-FS

---

Status comuns

Código	Significado
00	Sucesso
10	EOF
22	Chave duplicada
23	Registro não encontrado
35	Arquivo inexistente
39	Definição incompatível
92	Erro lógico
93	Arquivo não aberto

---

OPEN

Abre o arquivo.

---

INPUT

Somente leitura.

OPEN INPUT ARQCLI

---

OUTPUT

Cria novo arquivo.

OPEN OUTPUT ARQSAIDA

---

I-O

Leitura e atualização.

OPEN I-O ARQVSAM

---

EXTEND

Acrescenta registros.

OPEN EXTEND ARQREL

---

READ

Lê um registro.

---

QSAM

READ ARQCLI

---

Com EOF

READ ARQCLI
   AT END
      MOVE 'S' TO EOF
END-READ

---

READ para VSAM

READ ARQVSAM

Lê o registro corrente.

---

READ NEXT

Muito usado em VSAM KSDS.

---

Exemplo

READ ARQVSAM NEXT RECORD

---

Fluxo

Registro 100
 ↓
READ NEXT
 ↓
Registro 101

---

START

Posiciona o ponteiro em uma chave.

Funciona apenas em arquivos indexados.

---

Exemplo

START ARQVSAM
   KEY IS >= WS-CHAVE
END-START

---

Fluxo

Chave procurada = 1000
       ↓
Posiciona no primeiro >= 1000

---

Muito usado para pesquisas.

---

WRITE

Grava novo registro.

---

Exemplo

WRITE REG-CLIENTE

---

Em arquivo sequencial

Registro gravado no final

---

Em VSAM

Registro incluído pela chave

---

Possível erro

FS = 22

Chave duplicada.

---

REWRITE

Atualiza registro existente.

---

Exemplo

REWRITE REG-CLIENTE

---

Fluxo

READ
 ↓
ALTERA DADOS
 ↓
REWRITE

---

Exemplo completo

READ ARQVSAM

MOVE 5000 TO CLI-SALDO

REWRITE REG-CLIENTE

---

DELETE

Remove registro.

Disponível em arquivos indexados.

---

Exemplo

DELETE ARQVSAM

---

Fluxo

READ
 ↓
DELETE
 ↓
Registro removido

---

Muito usado em:

• VSAM KSDS

• RRDS

---

Não funciona em QSAM

Arquivos sequenciais não suportam DELETE.

---

CLOSE

Fecha arquivo.

---

Exemplo

CLOSE ARQCLI

---

Sempre execute CLOSE

Evita:

• perda de dados;

• buffers pendentes;

• inconsistências.

---

Exemplo Completo VSAM

OPEN I-O ARQCLI

MOVE 1000 TO WS-ID

START ARQCLI
   KEY >= WS-ID

READ ARQCLI NEXT RECORD

IF WS-FS = '00'

   MOVE 'NOVO NOME'
      TO CLI-NOME

   REWRITE REG-CLIENTE

END-IF

CLOSE ARQCLI

---

Ciclo de Vida de um Arquivo COBOL

FILE-CONTROL
      ↓
OPEN
      ↓
START
      ↓
READ
      ↓
WRITE
      ↓
REWRITE
      ↓
DELETE
      ↓
CLOSE

---

Resumo Rápido

Comando	Função
FILE-CONTROL	Define arquivo
ACCESS MODE	Tipo de acesso
FILE STATUS	Retorno da operação
OPEN	Abre arquivo
READ	Lê registro
READ NEXT	Próximo registro
START	Posiciona por chave
WRITE	Inclui registro
REWRITE	Atualiza registro
DELETE	Remove registro
CLOSE	Fecha arquivo

---

Dica de Programador Mainframe

Para arquivos QSAM, normalmente você verá:

OPEN INPUT
READ
WRITE
CLOSE

Para arquivos VSAM KSDS, os comandos mais comuns são:

OPEN I-O
START
READ NEXT
WRITE
REWRITE
DELETE
CLOSE

Esses são os comandos fundamentais que formam a base de praticamente todos os programas COBOL que manipulam arquivos no ambiente IBM Z.

 

Bellacosa Mainframe o q é dataset QSAM

O que é Dataset QSAM?

QSAM significa:

Queued Sequential Access Method

É um dos métodos de acesso a arquivos mais antigos, importantes e utilizados da história do mainframe.

Praticamente todo programador COBOL batch trabalha com QSAM em algum momento.

---

Definição simples

QSAM é:

o método de acesso usado para ler e gravar arquivos sequenciais no z/OS.

Quando falamos de um dataset sequencial (PS), normalmente estamos falando de um arquivo acessado através do QSAM.

---

Analogia simples

Imagine uma fita cassete.

Você precisa ouvir:

Música 1
 ↓
Música 2
 ↓
Música 3
 ↓
Música 4

Não pode pular diretamente para a música 4.

O QSAM funciona da mesma forma.

---

Fluxo QSAM

Registro 1
    ↓
Registro 2
    ↓
Registro 3
    ↓
Registro 4

Leitura sequencial.

---

Onde o QSAM é usado?

Principalmente em:

• COBOL Batch

• PL/I

• Assembler

• Easytrieve

• SORT

• Syncsort

• DFSORT

• JCL

---

Tipo de Dataset

Normalmente:

PS (Physical Sequential)

---

Exemplo de Dataset QSAM

BANCO.CLIENTES.ARQ

Conteúdo:

00001JOAO SILVA
00002MARIA SOUZA
00003CARLOS LIMA

---

Como o COBOL acessa?

Na ENVIRONMENT DIVISION:

SELECT ARQCLI
ASSIGN TO CLIENTE
ORGANIZATION IS SEQUENTIAL.

---

Na FILE SECTION

FD ARQCLI.

01 REG-CLIENTE.
   05 CLI-ID    PIC 9(5).
   05 CLI-NOME  PIC X(30).

---

Leitura QSAM

READ ARQCLI

A cada READ:

Registro 1
 ↓
Registro 2
 ↓
Registro 3

---

Escrita QSAM

WRITE REG-CLIENTE

O novo registro é gravado no final do arquivo.

---

Operações principais

OPEN

OPEN INPUT ARQCLI

---

READ

READ ARQCLI

---

WRITE

WRITE REG-CLIENTE

---

CLOSE

CLOSE ARQCLI

---

Como o JCL participa?

//CLIENTE DD DSN=BANCO.CLIENTES.ARQ,
//            DISP=SHR

Fluxo:

JCL
 ↓
DDNAME
 ↓
QSAM
 ↓
COBOL

---

O que é Buffering?

O QSAM utiliza buffers em memória.

Em vez de ler um registro por vez:

Disco
 ↓
Buffer
 ↓
Programa

Isso melhora muito a performance.

---

O que significa "Queued"?

O sistema mantém uma fila de registros em memória.

Por isso o nome:

Queued Sequential Access Method

---

QSAM x BSAM

QSAM

Mais simples.

O sistema controla os buffers.

Programa
 ↓
QSAM
 ↓
Disco

---

BSAM

Mais baixo nível.

O programador controla os buffers.

Programa
 ↓
Buffer Manual
 ↓
Disco

---

QSAM x VSAM

QSAM

Acesso sequencial.

1
↓
2
↓
3
↓
4

---

VSAM KSDS

Acesso por chave.

PROCURA CHAVE 00003
       ↓
Registro encontrado

---

Vantagens do QSAM

✅ Simples

✅ Excelente para batch

✅ Muito rápido

✅ Fácil programação COBOL

✅ Baixo consumo de recursos

---

Desvantagens

❌ Não possui índice

❌ Não acessa diretamente um registro específico

❌ Necessita percorrer registros anteriores

---

Casos de uso clássicos

Folha salarial

Funcionário 1
Funcionário 2
Funcionário 3
...

---

Relatórios

Cliente 1
Cliente 2
Cliente 3
...

---

Processamento bancário

Transação 1
Transação 2
Transação 3
...

---

Exemplo Batch Completo

OPEN INPUT ARQCLI

PERFORM UNTIL EOF = 'S'

   READ ARQCLI
      AT END
         MOVE 'S' TO EOF

      NOT AT END
         PERFORM PROCESSAR

   END-READ

END-PERFORM

CLOSE ARQCLI

---

Curiosidades

1. Grande parte dos batchs do mundo ainda utiliza QSAM

2. O QSAM existe desde os primeiros sistemas OS/360

3. Muitos bancos processam bilhões de registros QSAM diariamente

4. DFSORT e Syncsort trabalham intensamente com datasets QSAM

---

Erros comuns de iniciantes

Esquecer OPEN

---

Não tratar EOF

---

Layout incompatível

---

DDNAME diferente do ASSIGN

---

Não verificar FILE STATUS

---

Resumo rápido

Conceito	Significado
QSAM	Queued Sequential Access Method
Tipo de Arquivo	Sequencial (PS)
Acesso	Sequencial
Comando COBOL	READ / WRITE
Performance	Alta
Índice	Não
Uso Principal	Batch
Buffer	Automático

---

Conclusão

O QSAM é o método de acesso padrão para datasets sequenciais no z/OS. Ele utiliza buffers automáticos e acesso sequencial aos registros, sendo a base de grande parte dos programas COBOL batch executados diariamente nos ambientes IBM Z.