sexta-feira, 26 de julho de 2013

☕🔥 ABEND S013 — O “GUARDIÃO DOS DATASETS” NO z/OS

Bellacosa Mainframe abend s013

☕🔥 ABEND S013 — O “GUARDIÃO DOS DATASETS” NO z/OS

Quando o Mainframe Diz:

“VOCÊ ESTÁ TENTANDO USAR O ARQUIVO DO JEITO ERRADO.”

Se existe um ABEND que faz o programador COBOL Junior questionar:

“O problema é no JCL?”
“No arquivo?”
“No DCB?”
“No RECFM?”
“No LRECL?”
“NO UNIVERSO?!”

…esse ABEND é o lendário:

🚨 S013

E normalmente ele aparece assim:

IEC141I 013-20

ou:

ABEND=S013

ou:

IEC141I 013-34

☕ Respira, Padawan.

Porque o S013 é um dos ABENDs MAIS IMPORTANTES para aprender:

dataset organization

DCB

RECFM

LRECL

BLKSIZE

OPEN/CLOSE/EOV

integridade física do arquivo

🔥 O QUE É O S013?

O S013 é um:

🚨 DCB / DATASET OPEN ERROR

Traduzindo:

O z/OS NÃO CONSEGUIU ABRIR O DATASET CORRETAMENTE.

☕ A FILOSOFIA DO S013

O dataset existe.

O JCL existe.

O programa existe.

Mas:

ALGUMA CARACTERÍSTICA DO ARQUIVO NÃO BATE.

🔥 O MAINFRAME É OBCECADO POR ESTRUTURA

No mundo distribuído:

abre arquivo

No z/OS:

qual RECFM?
qual LRECL?
qual BLKSIZE?
FB?
VB?
VBS?
U?
QSAM?
VSAM?

Porque:

arquivo no mainframe é estrutura física rigorosa.

☕ ANALOGIA BELLACOSA MAINFRAME

Imagine um trem tentando entrar num túnel.

Mas:

largura errada
altura errada
trilho incompatível

Resultado:

💥 S013

🔥 O MOMENTO EXATO DO S013

Fluxo:

COBOL OPEN
 ↓
OPEN/CLOSE/EOV
 ↓
Validação DCB
 ↓
Mismatch
 ↓
S013

☕ O QUE É DCB?

DATA CONTROL BLOCK

O DNA do dataset.

Define:

RECFM
LRECL
BLKSIZE
DSORG

🔥 O S013 MAIS FAMOSO

🚨 S013-20

O rei absoluto dos juniors.

☕ O QUE SIGNIFICA S013-20?

DCB incompatível

Geralmente:

RECFM errado
LRECL errado
programa espera algo diferente

🔥 EXEMPLO CLÁSSICO

Arquivo real:

RECFM=FB
LRECL=80

Mas COBOL define:

FD CLIENTE
   RECORD CONTAINS 120 CHARACTERS.

Resultado:

☠️ S013-20

☕ O MAINFRAME OLHA E DIZ

“O TAMANHO NÃO BATE.”

🔥 OUTRO CLÁSSICO

Arquivo:

VB

Programa espera:

FB

Resultado:

💥 S013

☕ FB vs VB — A GUERRA ETERNA

☕ FB

Fixed Block.

Todos registros possuem mesmo tamanho.

☕ VB

Variable Block.

Registros variáveis.

Possui RDW.

🔥 O RDW — O BYTE FANTASMA

VB possui:

Record Descriptor Word

4 bytes extras no início.

Junior esquece isso.

Resultado:

☠️ caos absoluto.

☕ O S013 E O COBOL

Outro clássico:

01 REGISTRO PIC X(100).

Mas dataset:

LRECL=80

Resultado:

💥 S013

🔥 O S013 E O SORT

SORT cria dataset:

VB

Programa batch espera:

FB

Explosão inevitável.

☕ O S013 E O DISP

Outro caso famoso.

//ARQ DD DISP=OLD

Mas dataset não permite acesso correto.

Ou:

está vazio
está corrompido
organização errada

🔥 O S013-14

Muito ligado a:

OPEN ERROR

Problemas físicos/lógicos na abertura.

🔥 O S013-18

Associado a:

DCB inconsistente

🔥 O S013-34

Muito famoso em:

RECFM incompatível

☕ COMO INVESTIGAR O S013 PASSO A PASSO

✅ PASSO 1 — IDENTIFIQUE O SUBCÓDIGO

Exemplo:

013-20

O número após hífen é crucial.

✅ PASSO 2 — IDENTIFIQUE O DDNAME

Mensagem:

IEC141I 013-20,JOB1,STEP01,CLIENTE

DDNAME:

CLIENTE

✅ PASSO 3 — VERIFIQUE O DATASET

Use:

3.4 ISPF

ou:

LISTDSI

Verifique:

RECFM
LRECL
BLKSIZE
DSORG

✅ PASSO 4 — VERIFIQUE O FD COBOL

Exemplo:

FD CLIENTE
01 REG-CLIENTE PIC X(120).

Compare com dataset REAL.

✅ PASSO 5 — VERIFIQUE O JCL

Talvez:

DCB=(RECFM=FB,LRECL=80)

mas programa espera:

🔥 O SEGREDO DOS DUMPS

S013 normalmente NÃO exige dump profundo estilo S0C4.

O ouro está nas:

mensagens IEC

☕ AS MENSAGENS IEC SÃO A BÍBLIA

Exemplo:

IEC141I
IEC143I
IEC130I

Elas contam:

dataset
problema
DCB
incompatibilidade

🔥 COMO O VETERANO PENSA

Veterano vê:

013-20

E imediatamente pergunta:

“FB ou VB?”

☕ O MAIOR ERRO DOS JUNIORS

Pensar:

“O problema está no COBOL.”

Frequentemente está em:

JCL
DCB
dataset
utilitário
SORT anterior

🔥 O S013 E O IDCAMS

Outro clássico.

DEFINE CLUSTER cria:

LRECL diferente

Programa usa layout antigo.

Resultado:

💥 S013

☕ O S013 E O GDG

Geração nova criada com DCB errado.

Toda cadeia explode depois.

🔥 O S013 FANTASMA

O mais traiçoeiro.

Problema nasceu:

ontem

Mas explode:

hoje

Porque dataset foi criado incorretamente antes.

☕ O S013 E O “RECFM U”

Modo arquimago ativado.

Datasets:

RECFM=U

são “Undefined”.

Muito usados em:

loadlibs
executáveis
dumps

Ler isso como FB?

☠️ desastre garantido.

🔥 COMO EVITAR S013

✅ Sempre validar RECFM

✅ Sempre validar LRECL

✅ Revisar DCB no JCL

✅ Padronizar copybooks

✅ Conferir SORTs

✅ Verificar geração GDG

✅ Nunca assumir FB/VB

☕ O SEGREDO DO IEBGENER

Ferramenta clássica para testar datasets.

Veteranos usam para:

validar DCB
testar leitura
confirmar estrutura

🔥 CURIOSIDADE HISTÓRICA

O S013 vem dos tempos do:

IBM OS/360

Década de:

🏛️ 1960

Naquela época:

fitas
discos
blocagem física

eram fundamentais.

O sistema precisava garantir:

integridade absoluta da mídia.

☕ EASTER EGG MAINFRAME

Veteranos brincam:

“S013 é o dataset dizendo:

VOCÊ NÃO ME ENTENDE.”

🔥 O MAIOR APRENDIZADO

S013 ensina algo profundo:

NO MAINFRAME, ARQUIVO NÃO É “SÓ UM ARQUIVO”.

É:

geometria
física
organização
blocagem
arquitetura

Translate

sexta-feira, 26 de julho de 2013