Bellacosa Mainframe explica como funciona um programa COBOL com DB2

🔥☕ PACKAGE, PLAN, DBRM E O SUBMUNDO DA COMPILAÇÃO Db2 — O GUIA PADAWAN DO COBOL MAINFRAME ☕🔥

Todo programador COBOL iniciante passa por isso.

Você escreve:

EXEC SQL
   SELECT *
   FROM EMPLOYEE
END-EXEC.

compila…

e de repente aparecem criaturas malignas como:

• DBRM
• PACKAGE
• PLAN
• BIND
• DSNHPC
• SQLCODE -805
• SQLCODE -818

E o padawan pensa:

“Mas eu só queria fazer um SELECT…”

☕🔥

Então vamos entrar no verdadeiro submundo do Db2 z/OS.

---

☕ O MAIOR SEGREDO DO Db2

O Db2 NÃO executa SQL diretamente do fonte COBOL.

Ele precisa:

• analisar SQL
• validar objetos
• escolher access path
• gerar runtime structures

Por isso existe toda a cadeia:

SOURCE
 ↓
PRECOMPILE
 ↓
DBRM
 ↓
COMPILE
 ↓
LINK
 ↓
BIND PACKAGE
 ↓
BIND PLAN
 ↓
RUN

---

🔥 VISÃO GERAL DA ARQUITETURA

---

☕ SOURCE COBOL

Seu programa original.

Exemplo:

EXEC SQL
   SELECT EMPNO
   INTO :WS-EMPNO
   FROM EMPLOYEE
END-EXEC.

Dataset típico:

USERID.COBOL.SOURCE(MEUCOB)

---

🔥 STEP 1 — PRECOMPILE

Programa usado:

//DB2PC EXEC PGM=DSNHPC

---

☕ O QUE É O DSNHPC?

É o:

Db2 PRECOMPILER

---

🔥 O QUE ELE FAZ?

Ele:

✅ encontra EXEC SQL
✅ valida sintaxe SQL
✅ remove SQL do COBOL
✅ gera COBOL expandido
✅ gera DBRM

---

☕ RESULTADO DO PRECOMPILE

Saídas:

Saída	Função
COBOL expandido	será compilado
DBRM	usado no BIND

---

🔥 O QUE É O DBRM?

DBRM =

DATABASE REQUEST MODULE

---

☕ PENSE NO DBRM COMO:

“o extrato SQL do seu programa”

Ele contém:

• SQL do programa
• informações internas Db2
• metadados SQL

---

🔥 O DBRM NÃO É EXECUTÁVEL

Isso é importante.

Ele NÃO roda.

Ele apenas alimenta o BIND.

---

☕ ONDE O DBRM É SALVO?

Normalmente em:

//DBRMLIB DD DSN=USERID.DBRM.LIB(MEUPRG)

Dataset típico:

USERID.DBRM.LIB

Tipo:

PDS ou PDSE

---

🔥 EXEMPLO REAL DE PRECOMPILE

//DB2PC EXEC PGM=DSNHPC,
// PARM=('HOST(IBMCOB),APOST')

---

☕ EXPLICANDO OS PARÂMETROS

---

HOST(IBMCOB)

Define linguagem COBOL IBM.

---

APOST

Aspas simples delimitam strings SQL.

---

SOURCE

Mantém fonte expandido legível.

---

XREF

Gera cross reference.

---

DATE(ISO)

Formato ISO de datas.

---

🔥 STEP 2 — COMPILE COBOL

Programa:

//COB EXEC PGM=IGYCRCTL

---

☕ O QUE ACONTECE?

Agora o compilador COBOL compila:

o COBOL expandido gerado pelo precompiler

---

🔥 ELE NÃO COMPILA MAIS EXEC SQL

Porque o precompiler já removeu.

---

☕ SAÍDA DO COMPILE

Gera:

OBJECT MODULE

temporário.

---

🔥 STEP 3 — LINK-EDIT

Programa:

//LKED EXEC PGM=IEWL

---

☕ O QUE O LINK FAZ?

Une:

• objeto COBOL
• bibliotecas runtime
• chamadas Db2

---

🔥 RESULTADO

LOAD MODULE EXECUTÁVEL

---

☕ ONDE FICA O LOAD MODULE?

Exemplo:

//SYSLMOD DD DSN=USERID.LOADLIB(MEUPRG)

Dataset típico:

USERID.LOADLIB

---

🔥 AGORA ENTRA O VERDADEIRO MUNDO Db2

Até aqui temos apenas:

programa COBOL executável

Mas o Db2 ainda NÃO sabe nada sobre ele.

---

☕ STEP 4 — BIND PACKAGE

Programa:

//BIND EXEC PGM=IKJEFT01

---

🔥 O QUE É O PACKAGE?

PACKAGE é:

o SQL compilado e otimizado do programa

---

☕ O PACKAGE CONTÉM

✅ access paths
✅ SQL otimizado
✅ metadados
✅ permissões
✅ informações de runtime

---

🔥 QUEM CRIA O PACKAGE?

O comando:

BIND PACKAGE

---

☕ O BIND USA:

• DBRM
• catálogo Db2
• índices
• estatísticas
• permissões

---

🔥 O ACCESS PATH NASCE AQUI

Db2 decide:

• index scan?
• tablespace scan?
• join order?
• sort?
• parallelism?

---

☕ ONDE PACKAGE É ARMAZENADO?

No próprio catálogo Db2.

Tabelas internas como:

SYSIBM.SYSPACKAGE

---

🔥 NÃO FICA EM PDS

Isso pega MUITOS iniciantes.

PACKAGE NÃO fica em dataset.

Fica dentro do Db2.

---

☕ EXEMPLO DE BIND PACKAGE

DSN SYSTEM(DBCG)

BIND PACKAGE(MYCOLL)
      MEMBER(MEUPRG)
      ACTION(REPLACE)
      ISOLATION(CS)
      VALIDATE(BIND)
      EXPLAIN(YES)

---

🔥 EXPLICANDO OS PARÂMETROS

---

PACKAGE(MYCOLL)

Collection/package name.

---

MEMBER(MEUPRG)

Nome do DBRM.

---

ACTION(REPLACE)

Substitui package antigo.

---

ISOLATION(CS)

Cursor Stability.

---

VALIDATE(BIND)

Valida objetos no bind.

---

EXPLAIN(YES)

Salva access path.

---

☕ STEP 5 — BIND PLAN

Agora vem o PLAN.

---

🔥 O QUE É O PLAN?

PLAN é:

um agrupador de packages

---

☕ ANTIGAMENTE

Db2 antigo usava:

PLAN + DBRM

---

🔥 Db2 MODERNO USA:

PLAN + PACKAGE

---

☕ O PLAN FUNCIONA COMO

“container lógico de execução”

---

🔥 EXEMPLO

BIND PLAN(MYPLAN)
     PKLIST(MYCOLL.*)

---

☕ PKLIST

Lista packages autorizados.

---

🔥 ONDE O PLAN FICA?

Também no catálogo Db2.

Tabela:

SYSIBM.SYSPLAN

---

☕ EXECUÇÃO — RUN

Agora sim:

RUN PROGRAM(MEUPRG)
    PLAN(MYPLAN)

---

🔥 O FLUXO EM EXECUÇÃO

Programa chama:

PLAN
 ↓
PACKAGE
 ↓
SQL
 ↓
Db2 Engine

---

☕ ANALOGIA PADAWAN

Imagine:

---

☕ SOURCE

Receita escrita.

---

🔥 DBRM

Lista dos ingredientes.

---

☕ PACKAGE

Receita otimizada pelo chef.

---

🔥 PLAN

Cardápio do restaurante.

---

☕ LOAD MODULE

Cozinheiro executando.

☕🔥

---

🔥 ERROS MAIS FAMOSOS

---

☕ SQLCODE -805

O terror dos iniciantes.

PACKAGE NÃO ENCONTRADO

---

CAUSAS

✅ bind não executado
✅ collection errada
✅ package apagado
✅ plan errado

---

🔥 SQLCODE -818

TIMESTAMP MISMATCH

---

SIGNIFICA

LOAD MODULE ≠ PACKAGE atual.

---

ACONTECE QUANDO

recompila COBOL mas não rebinda package.

---

☕ SQLCODE -204

objeto não encontrado

---

NORMALMENTE

schema/qualifier errado.

---

🔥 SQLCODE -551

sem autorização

---

☕ COMO INVESTIGAR PROBLEMAS

---

🔥 VER PACKAGE

SELECT *
FROM SYSIBM.SYSPACKAGE
WHERE NAME = 'MEUPRG'

---

☕ VER PLAN

SELECT *
FROM SYSIBM.SYSPLAN
WHERE NAME = 'MYPLAN'

---

🔥 DISPLAY PACKAGE

-DISPLAY PACKAGE(*)

---

☕ O QUE O JUNIOR PRECISA ENTENDER

---

🔥 O COBOL NÃO EXECUTA SQL DIRETAMENTE

---

☕ O PACKAGE É O SQL “COMPILADO”

---

🔥 O PLAN ORGANIZA EXECUÇÃO

---

☕ O DBRM É A PONTE ENTRE FONTE E PACKAGE

---

🔥 O BIND DEFINE PERFORMANCE

---

☕ O ACCESS PATH NASCE NO BIND

---

🔥 O MAIOR SEGREDO DO Db2

Muitos problemas de produção NÃO estão no COBOL.

Estão em:

• package inválido
• bind errado
• access path ruim
• rebind problemático
• estatísticas ruins
• qualifier incorreto

---

☕ A VERDADEIRA MAGIA

Enquanto frameworks modernos escondem tudo…

o programador mainframe aprende:

• como SQL realmente executa
• como runtime funciona
• como otimização nasce
• como banco conversa com aplicação

E isso transforma um simples padawan COBOL…

num verdadeiro Jedi do Db2 z/OS. ☕🔥

 

Bellacosa Mainframe e os comandos EXEC e END-EXEC no cobol

O que são os Comandos EXEC e END-EXEC no COBOL?

Os comandos EXEC e END-EXEC são utilizados para delimitar instruções que não pertencem ao COBOL puro, mas sim a outros subsistemas integrados ao programa.

Eles funcionam como uma espécie de:

"porta de comunicação" entre o COBOL e outros ambientes.

Os mais comuns são:

• CICS

• DB2

• SQL

• IMS

• MQ Series (IBM MQ)

---

Sintaxe básica

EXEC comando
END-EXEC

Ou:

EXEC subsistema
     instruções
END-EXEC

---

Por que existem?

O compilador COBOL não entende diretamente comandos SQL, CICS ou MQ.

Por isso, um pré-compilador analisa tudo que estiver entre:

EXEC

e

END-EXEC

e converte para chamadas que o COBOL consegue executar.

---

Fluxo simplificado

Programa COBOL
       ↓
Pré-compilador
       ↓
CICS / DB2 / MQ
       ↓
Programa objeto

---

EXEC CICS

Uma das utilizações mais famosas.

Permite acessar o ambiente CICS.

---

Exemplo

EXEC CICS
     SEND
     TEXT('OLA CLIENTE')
END-EXEC

---

O que acontece?

O CICS envia uma mensagem para a tela do usuário.

---

Outro exemplo CICS

EXEC CICS
     RETURN
END-EXEC

Retorna o controle ao CICS.

---

EXEC SQL

Utilizado para acessar bancos de dados DB2.

---

Exemplo

EXEC SQL

    SELECT NOME
      INTO :WS-NOME
      FROM CLIENTES
     WHERE CPF = :WS-CPF

END-EXEC

---

O que acontece?

O DB2 executa o SELECT e retorna os dados para a variável COBOL.

---

Exemplo INSERT

EXEC SQL

    INSERT INTO CLIENTES
           (CPF,NOME)
    VALUES
           (:WS-CPF,
            :WS-NOME)

END-EXEC

---

Exemplo UPDATE

EXEC SQL

   UPDATE CLIENTES
      SET SALDO = :WS-SALDO
    WHERE CPF   = :WS-CPF

END-EXEC

---

Exemplo DELETE

EXEC SQL

   DELETE
     FROM CLIENTES
    WHERE CPF = :WS-CPF

END-EXEC

---

Host Variables

Observe os dois pontos:

:WS-NOME

Essas são:

Host Variables

Variáveis COBOL usadas pelo DB2.

---

EXEC SQL INCLUDE

Muito comum.

EXEC SQL
    INCLUDE SQLCA
END-EXEC

---

O que é SQLCA?

Área de comunicação entre:

COBOL
   ↔
DB2

---

Exemplo SQLCODE

IF SQLCODE = 0

Consulta realizada com sucesso.

---

EXEC IMS

Usado em aplicações IMS.

---

Exemplo:

EXEC DLI
     GU
END-EXEC

---

EXEC MQ

Utilizado para IBM MQ.

---

Exemplo

EXEC MQPUT
END-EXEC

---

ou

EXEC MQGET
END-EXEC

---

END-EXEC

Marca o fim do comando especial.

---

Exemplo

EXEC SQL
    COMMIT
END-EXEC

---

Sem END-EXEC o compilador não sabe onde termina a instrução.

---

Antigamente

Versões antigas utilizavam:

EXEC SQL
   SELECT ...

com ponto final.

Hoje o padrão é:

END-EXEC

---

Exemplo completo DB2

WORKING-STORAGE SECTION.

01 WS-NOME PIC X(30).

EXEC SQL
   INCLUDE SQLCA
END-EXEC.

PROCEDURE DIVISION.

EXEC SQL

   SELECT NOME
      INTO :WS-NOME
      FROM CLIENTES
     WHERE CPF = '12345678901'

END-EXEC

DISPLAY WS-NOME

---

Exemplo completo CICS

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

Recebe dados digitados pelo usuário.

---

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

Envia dados para tela.

---

O que o compilador faz?

Durante a compilação:

EXEC SQL

não é executado diretamente.

Primeiro ocorre:

Pré-compilação DB2

Depois:

Compilação COBOL

---

Fluxo DB2

Fonte COBOL
     ↓
Pré-compilador SQL
     ↓
Fonte COBOL expandido
     ↓
Compilador COBOL
     ↓
Link Edit

---

Onde mais aparece?

CICS

EXEC CICS

---

DB2

EXEC SQL

---

IMS

EXEC DLI

---

MQ

EXEC MQ

---

Curiosidades

1. EXEC SQL é provavelmente a forma mais usada de EXEC no mundo Mainframe

---

2. Todo programa COBOL/DB2 passa por pré-compilação

---

3. EXEC CICS é a base das aplicações online bancárias

---

4. Milhões de transações por segundo utilizam EXEC CICS e EXEC SQL

---

Erros comuns de iniciantes

Esquecer END-EXEC

---

Não incluir SQLCA

---

Não declarar host variables

---

Confundir SQLCODE com RETURN-CODE

---

Resumo rápido

Comando	Função
EXEC SQL	Acesso DB2
EXEC CICS	Acesso CICS
EXEC DLI	Acesso IMS
EXEC MQ	Acesso IBM MQ
END-EXEC	Finaliza instrução
SQLCA	Comunicação DB2
SQLCODE	Retorno SQL

---

Conclusão

Os comandos EXEC e END-EXEC são delimitadores utilizados para integrar programas COBOL com subsistemas do Mainframe, como CICS, DB2, IMS e IBM MQ. Eles permitem que o COBOL execute comandos externos especializados, tornando possível criar aplicações online, acessar bancos de dados e integrar sistemas corporativos executados no ambiente IBM Z.

 

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 apresenta o copybook em Cobol

O que é Copybook no COBOL?

Um dos recursos mais importantes do COBOL é o:

Copybook

Ele permite reutilizar estruturas de dados e trechos de código em vários programas, evitando duplicação e facilitando a manutenção dos sistemas.

Em grandes ambientes bancários e corporativos, é comum existirem:

• milhares de programas COBOL;

• centenas de copybooks compartilhados;

• layouts padronizados usados por toda a empresa.

---

Definição simples

Copybook é:

um arquivo reutilizável contendo definições COBOL.

Normalmente ele armazena:

• layouts de registros;

• estruturas de arquivos;

• áreas de comunicação;

• parâmetros de programas;

• campos de telas CICS.

---

Analogia simples

Imagine um formulário padrão de cliente.

Em vez de recriar o formulário em cada programa, você cria apenas uma vez e reutiliza em todos.

O Copybook funciona exatamente assim.

---

Onde ele é usado?

Principalmente na:

DATA DIVISION

---

Exemplo sem Copybook

01 CLIENTE.
   05 CLI-NOME      PIC X(30).
   05 CLI-ENDERECO  PIC X(50).
   05 CLI-SALDO     PIC S9(7)V99 COMP-3.

Agora imagine repetir isso em 500 programas.

---

Solução

Criar um Copybook.

---

Exemplo do Copybook

Membro:

COPYLIB(CLIENTE)

Conteúdo:

01 CLIENTE.
   05 CLI-NOME      PIC X(30).
   05 CLI-ENDERECO  PIC X(50).
   05 CLI-SALDO     PIC S9(7)V99 COMP-3.

---

Como usar?

No programa COBOL:

WORKING-STORAGE SECTION.

COPY CLIENTE.

Durante a compilação, o compilador substitui o COPY pelo conteúdo do Copybook.

---

O que acontece internamente?

COPY CLIENTE
      ↓
Compilador expande
      ↓
Layout inserido
      ↓
Compilação continua

---

Onde os Copybooks ficam?

Normalmente em:

USER.COPYLIB
EMPRESA.COBOL.COPYLIB
BANCO.COPYLIB

Geralmente em:

• PDS;

• PDSE.

---

Estrutura típica

EMPRESA.COPYLIB
    |
    +-- CLIENTE
    +-- PRODUTO
    +-- ENDERECO
    +-- CONTRATO

---

O comando COPY

Sintaxe básica:

COPY CLIENTE.

---

Exemplo completo

DATA DIVISION.

WORKING-STORAGE SECTION.

COPY CLIENTE.

PROCEDURE DIVISION.

DISPLAY CLI-NOME.

---

Copybook para arquivos

Muito comum.

---

Exemplo

FD ARQCLIENTE.

COPY CLIREG.

---

Copybook CLIREG

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

---

Vantagem

Se o layout mudar:

30 bytes
↓
40 bytes

Alteramos apenas o Copybook.

Todos os programas passam a usar a nova estrutura.

---

Copybook para parâmetros

Muito usado com:

CALL

---

Exemplo

Programa chamador:

CALL 'CALCSAL'
USING DADOS-CLIENTE

---

Copybook compartilhado

01 DADOS-CLIENTE.
   05 CODIGO PIC 9(5).
   05 SALDO  PIC S9(7)V99.

---

Copybook em CICS

Extremamente comum.

---

Exemplo

EXEC CICS RECEIVE MAP(...)

Mapas BMS geralmente geram Copybooks.

---

Copybook em DB2

Muito usado com host variables.

---

Exemplo

EXEC SQL
   INCLUDE SQLCA
END-EXEC

---

SQLCA é um Copybook

Contém:

• SQLCODE;

• SQLSTATE;

• informações da execução SQL.

---

Copybooks famosos

---

SQLCA

Retorno DB2.

---

DFHAID

Teclas PF do CICS.

---

DFHBMSCA

Mapas CICS.

---

DCLGEN

Layouts gerados pelo DB2.

---

O que é REPLACING?

Permite substituir textos durante o COPY.

---

Exemplo

Copybook:

05 CAMPO PIC X(10).

Uso:

COPY CLIENTE
REPLACING CAMPO BY NOME.

---

Muito usado em frameworks COBOL

---

Benefícios do Copybook

---

Reutilização

---

Padronização

---

Menos código duplicado

---

Facilidade manutenção

---

Menos erros

---

Integração entre sistemas

---

Problemas comuns

Alterar Copybook sem analisar impacto

Pode afetar centenas de programas.

---

Copiar layouts incompatíveis

Pode causar:

• S0C7;

• truncamento;

• dados incorretos.

---

Não versionar Copybooks

Dificulta manutenção.

---

Boas práticas

✅ Um Copybook para cada entidade de negócio

✅ Nome padronizado

✅ Documentar alterações

✅ Evitar campos sem descrição

✅ Manter compatibilidade sempre que possível

---

Como identificar um Copybook?

Normalmente aparecem comandos como:

COPY CLIENTE.

ou

EXEC SQL
   INCLUDE SQLCA
END-EXEC.

---

Curiosidades

1. Alguns bancos possuem mais de 50 mil Copybooks em produção

2. Uma alteração em um único Copybook pode impactar centenas de aplicações

3. Copybooks são uma das bases da reutilização no COBOL

4. Muitos layouts de arquivos, VSAM e DB2 são compartilhados via Copybook

---

Resumo rápido

Conceito	Função
Copybook	Arquivo reutilizável
COPY	Inclui Copybook
COPYLIB	Biblioteca de Copybooks
SQLCA	Copybook DB2
DFHAID	Copybook CICS
REPLACING	Substituição dinâmica
DCLGEN	Geração layouts DB2

---

Conclusão

O Copybook é um dos mecanismos mais importantes do COBOL. Ele permite compartilhar layouts, parâmetros e estruturas entre programas, garantindo padronização, reutilização e manutenção eficiente dos sistemas corporativos executados no ambiente IBM Z.