sábado, 6 de abril de 2013

📉 Como Caçar MIPS Desperdiçado IBM Mainframe COBOL

📉 Como Caçar MIPS Desperdiçado

IBM Mainframe COBOL – Manual do Caçador de Custos para Padawans

“MIPS não somem sozinhos.
Alguém os está queimando.”

🧠 Antes de Tudo: O que é MIPS (na vida real)

MIPS = dinheiro
Não é performance “bonita”
É CPU faturada
Batch ruim = fatura triste 😭

☑️ Um programa pode estar correto
☑️ E ser financeiramente criminoso

🐘 Onde os MIPS se Escondem (Mapa do Crime)

Área	Crime comum
COBOL	MOVE inútil, PERFORM em loop
SORT	Sort desnecessário
DB2	Fetch linha a linha
I/O	Leitura registro a registro
JCL	Classes erradas
Compilação	Parâmetro errado

🧪 1. O Maior Vilão: LOOP INÚTIL

🔥 Sintoma

CPU alto
Pouca E/S
Tempo absurdo

💀 Crime clássico


PERFORM 1000000 TIMES
   MOVE WS-A TO WS-B
END-PERFORM

🛠️ Cura Bellacosa™

Elimine MOVE redundante
Tire código de dentro do loop

☑️ Código dentro de loop custa MIPS

🧪 2. MOVE em Cadeia (o Vampiro Silencioso)

🔥 Sintoma

CPU sobe
Programa “simples”

💀 Crime clássico


MOVE A TO B
MOVE B TO C
MOVE C TO D

🛠️ Cura Bellacosa™


MOVE A TO D

☑️ COBOL não cobra por linha… cobra por execução.

🧪 3. PERFORM CALLADO (Sem necessidade)

🔥 Sintoma

Modularização “bonita”
CPU feia

💀 Crime clássico


PERFORM CALCULA-VALOR

chamado milhões de vezes.

🛠️ Cura Bellacosa™

Inline lógica crítica
Evite PERFORM em massa

☑️ Modularidade demais custa caro.

🧪 4. SORT Burro (Quando não precisava)

🔥 Sintoma

CPU alto
Disco suando

💀 Crime clássico

SORT de arquivo já ordenado
SORT para eliminar duplicidade

🛠️ Cura Bellacosa™

Valide se já vem ordenado
Use controle lógico

☑️ SORT é um monstro de MIPS.

🧪 5. DB2: FETCH Um a Um (Pecado Mortal)

🔥 Sintoma

CPU altíssimo
SQL “simples”

💀 Crime clássico


FETCH CURSOR

milhões de vezes.

🛠️ Cura Bellacosa™

Use FETCH BLOCK
Aumente ARRAY FETCH

☑️ Banco pensa em bloco, não em linha.

🧪 6. COMMIT Mal Posicionado

🔥 Sintoma

Lock
Reprocesso
CPU extra

💀 Crime clássico

COMMIT a cada registro
COMMIT gigante demais

🛠️ Cura Bellacosa™

Commit por lote
Ajustar checkpoint

🧪 7. I/O Excessivo (Leitura Burra)

🔥 Sintoma

Muito tempo de execução
Pouca CPU útil

💀 Crime clássico

READ dentro de loop
Releitura desnecessária

🛠️ Cura Bellacosa™

Buffer
Carregar em memória quando possível

☑️ I/O custa caro e demora.

🧪 8. Compilação Errada = MIPS Perdido

🔥 Crime silencioso

Compilar COBOL 5 com PARMs antigos

🛠️ Cura Bellacosa™


OPTIMIZE
ARCH(13+)

☑️ Compilador moderno gera código melhor.

🧪 9. JCL Mal Enquadrado

🔥 Sintoma

Job pequeno em classe errada

💀 Crime clássico

Classe de alto consumo
Prioridade indevida

🛠️ Cura Bellacosa™

Classe certa
WLM ajustado

🧪 10. Falta de Métrica = Cegueira

🔥 Erro fatal

“Acho que melhorou”

🛠️ Ferramentas

SMF
RMF
Accounting DB2
EXPLAIN PLAN

☑️ Sem métrica, não há tuning.

🧠 Checklist Rápido do Caçador de MIPS

☑️ Tirou código de loop
☑️ Reduziu SORT
☑️ Ajustou FETCH
☑️ Ajustou COMMIT
☑️ Compilou certo
☑️ Mediu antes e depois

sábado, 6 de abril de 2013