Bellacosa Mainframe analisando o DL/I em IMS

O que é DL/I em IMS?

O DL/I (Data Language/I) é a linguagem de acesso a dados e transações utilizada pelo IMS (Information Management System) da IBM.

Ele funciona como uma interface entre os programas (COBOL, PL/I, Assembler) e os bancos de dados hierárquicos do IMS.

De forma simples:

Programa COBOL
       ↓
      DL/I
       ↓
Banco IMS

---

O que Significa DL/I?

DL/I
Data Language / Interface

É a API original criada pela IBM para acessar bancos IMS.

---

Por que o DL/I Foi Criado?

Na década de 1960, não existia SQL.

O IMS armazenava dados em estruturas hierárquicas.

Para acessar esses dados era necessário um mecanismo específico.

A IBM criou então:

DL/I

---

DL/I é o SQL do IMS?

De certa forma, sim.

Compare:

DB2

SELECT *
FROM CLIENTE
WHERE CPF = '12345678900'

---

IMS DL/I

GU CLIENTE

seguido da navegação hierárquica.

---

Estrutura Hierárquica do IMS

Exemplo:

CLIENTE
   │
   ├── CONTA
   │      │
   │      └── MOVIMENTO
   │
   └── CARTAO

---

Como o DL/I Navega?

O DL/I percorre a hierarquia.

CLIENTE
   ↓
CONTA
   ↓
MOVIMENTO

---

Tipos de Chamadas DL/I

O DL/I trabalha através de comandos conhecidos como:

CALL DL/I

---

Exemplo COBOL:

CALL 'CBLTDLI'
     USING GU
           PCB-MASK
           AREA-CLIENTE
           SSA-CLIENTE.

---

Principais Comandos DL/I

GU

Get Unique

Busca um registro específico.

---

Exemplo:

GU CLIENTE

---

Resultado:

CLIENTE 12345

---

GN

Get Next

Busca o próximo segmento.

---

Exemplo:

CLIENTE 1
CLIENTE 2
CLIENTE 3

---

Fluxo:

GN
↓
Próximo registro

---

GNP

Get Next Within Parent

Busca o próximo filho.

---

Exemplo:

CLIENTE
   │
   ├── CONTA1
   ├── CONTA2
   └── CONTA3

---

Com:

GNP

navega entre as contas.

---

GHU

Get Hold Unique

Lê e bloqueia registro.

---

Utilizado antes de atualização.

---

GHN

Get Hold Next

Lê próximo registro com bloqueio.

---

ISRT

Insert

Insere novo segmento.

---

Exemplo:

Novo Cliente

---

COBOL:

CALL 'CBLTDLI'
     USING ISRT
           PCB-MASK
           AREA-CLIENTE.

---

REPL

Replace

Atualiza registro existente.

---

Fluxo:

GHU
 ↓
REPL

---

DLET

Delete

Remove segmento.

---

Fluxo:

GHU
 ↓
DLET

---

Exemplo Completo

Banco IMS:

CLIENTE
    ↓
CONTA

---

Passo 1

Buscar cliente.

GU

---

Passo 2

Alterar dados.

GHU

---

Passo 3

Atualizar.

REPL

---

SSA (Segment Search Argument)

Equivalente ao WHERE do SQL.

---

SQL:

WHERE CPF='123'

---

DL/I:

CLIENTE(CPF=123)

---

Exemplo

01 SSA-CLIENTE.
   05 FILLER PIC X(8)
      VALUE 'CLIENTE('.

---

PCB

Program Communication Block

Define o acesso ao banco.

---

Exemplo:

PCB CLIENTE

---

Contém:

• Status

• Banco

• Permissões

---

Status Codes

Após cada chamada DL/I.

---

Espaços

'  '

Sucesso.

---

GE

GE

Registro não encontrado.

---

GB

GB

Fim de banco.

---

II

II

Inserção inválida.

---

Exemplo de Leitura Sequencial

GU
 ↓
GN
 ↓
GN
 ↓
GN

---

Resultado:

CLIENTE1
CLIENTE2
CLIENTE3
CLIENTE4

---

Exemplo COBOL

CALL 'CBLTDLI'
     USING GU
           PCB-CLIENTE
           REG-CLIENTE
           SSA-CLIENTE.

---

Verificando retorno:

IF PCB-STATUS = '  '
   DISPLAY 'ENCONTRADO'
END-IF.

---

DL/I em Ambiente Online

Muito comum em:

CICS
IMS TM

---

Fluxo:

Terminal
    ↓
IMS TM
    ↓
COBOL
    ↓
DL/I
    ↓
IMS DB

---

DL/I em Batch

Também muito utilizado.

JOB
 ↓
COBOL
 ↓
DL/I
 ↓
IMS DB

---

Comparação SQL x DL/I

SQL (DB2)	DL/I (IMS)
SELECT	GU/GN
INSERT	ISRT
UPDATE	REPL
DELETE	DLET
WHERE	SSA
Cursor	GN
Lock	GHU

---

Vantagens do DL/I

✅ Extremamente rápido

✅ Baixo consumo de CPU

✅ Excelente para grandes volumes

✅ Muito usado em bancos

✅ Altamente confiável

---

Curiosidades

1. O DL/I surgiu antes do SQL

2. Foi criado para o Projeto Apollo da NASA

3. Ainda processa bilhões de transações diariamente

4. Continua amplamente utilizado em bancos e seguradoras

5. É uma das APIs de banco de dados mais antigas ainda em produção

---

Resumo Rápido

Comando	Função
GU	Get Unique
GN	Get Next
GNP	Get Next Within Parent
GHU	Get Hold Unique
GHN	Get Hold Next
ISRT	Insert
REPL	Replace
DLET	Delete
SSA	Critério de busca
PCB	Controle de acesso

---

Conclusão

O DL/I (Data Language/I) é a interface de acesso ao banco de dados IMS. Ele permite que programas COBOL, PL/I e Assembler leiam, insiram, atualizem e removam segmentos em bancos hierárquicos IMS por meio de comandos como GU, GN, ISRT, REPL e DLET. Embora seja anterior ao SQL, continua sendo uma das tecnologias mais importantes do universo Mainframe, sustentando aplicações críticas em bancos, governos, seguradoras e grandes corporações ao redor do mundo.