Bellacosa Mainframe indica um lab para troubleshooting no Z/os SMP/E

🧪 LAB SMP/E — “Do APPLY sem CHECK ao RESTORE salvador”

🎯 Objetivo

Você vai:

• Executar RECEIVE → APPLY → ACCEPT → RESTORE
• Simular um erro real
• Diagnosticar via relatórios
• Recuperar o sistema corretamente

👉 Traduzindo:

você vai errar com segurança para aprender de verdade

---

🧱 Cenário do LAB

🖥️ Ambiente

• z/OS (real ou Hercules TK5)
• SMP/E configurado
• CSI existente
• Zonas:
  • GLOBAL
  • TARGET
  • DLIB

---

📦 Dados do exercício

• FMID: HXYZ123
• PTFs:
  • UQ00001 (base)
  • UQ00002 (dependente)
  • UQ00003 (com problema 💀)

---

🔄 FASE 1 — RECEIVE

🎯 Objetivo

Carregar SYSMODs no SMP/E

---

🧾 JCL

//RECEIVE JOB ...
//SMPE     EXEC PGM=GIMSMP
//SMPCSI   DD DISP=SHR,DSN=SEU.CSI
//SMPPTFIN DD DISP=SHR,DSN=SEU.PTF.INPUT
//SMPCNTL  DD *
 SET BDY(GLOBAL).
 RECEIVE SYSMODS.
/*

---

✅ Esperado

• SYSMODs no SMPPTS
• GLOBAL ZONE atualizada

---

🔍 Validar

• SMPRPT
• LIST SYSMODS

---

💣 FASE 2 — ERRO PROPOSITAL (APPLY SEM CHECK)

🎯 Objetivo

Simular erro real de produção

---

🧾 JCL (errado propositalmente)

//APPLY JOB ...
//SMPE     EXEC PGM=GIMSMP
//SMPCSI   DD DISP=SHR,DSN=SEU.CSI
//SMPCNTL  DD *
 SET BDY(TARGET).
 APPLY SELECT(UQ00003).
/*

---

💥 Resultado esperado

• Aplicação incompleta OU
• Sistema inconsistente

---

🧠 O que você fez

💀 ignorou dependências + não usou CHECK

---

🔍 FASE 3 — DIAGNÓSTICO

🎯 Objetivo

Descobrir o problema

---

📄 Analisar:

• SMPOUT
• SMPRPT
• Causer Report

---

💡 Encontrar:

• Dependência faltando (UQ00002)
• Possível HOLD

---

🧠 Insight

SMP/E não falha — ele te avisa

---

🔁 FASE 4 — APPLY CORRETO

🎯 Objetivo

Corrigir com CHECK

---

🧾 JCL

//APPLY JOB ...
//SMPE     EXEC PGM=GIMSMP
//SMPCSI   DD DISP=SHR,DSN=SEU.CSI
//SMPCNTL  DD *
 SET BDY(TARGET).
 APPLY CHECK SELECT(UQ00003) GROUPEXTEND.
/*

---

✅ Resultado

• Lista completa de dependências
• Nenhuma alteração real

---

🔥 Agora aplicar certo:

 APPLY SELECT(UQ00003) GROUPEXTEND.

---

📦 FASE 5 — ACCEPT

🎯 Objetivo

Consolidar mudança

---

🧾 JCL

//ACCEPT JOB ...
//SMPE     EXEC PGM=GIMSMP
//SMPCSI   DD DISP=SHR,DSN=SEU.CSI
//SMPCNTL  DD *
 SET BDY(DLIB).
 ACCEPT CHECK.
/*

---

⚠️ Depois:

 ACCEPT.

---

💀 Agora você não volta fácil…

---

🚨 FASE 6 — INCIDENTE

🎯 Simular problema pós-APPLY

👉 Imagine:

• Programa começa a falhar
• Load module inconsistente

---

🔄 FASE 7 — RESTORE

🎯 Objetivo

Reverter mudança

---

🧾 JCL

//RESTORE JOB ...
//SMPE     EXEC PGM=GIMSMP
//SMPCSI   DD DISP=SHR,DSN=SEU.CSI
//SMPCNTL  DD *
 SET BDY(TARGET).
 RESTORE SELECT(UQ00003) GROUP CHECK.
/*

---

🔍 Ajustar dependências

Depois:

 RESTORE SELECT(UQ00003) GROUP.

---

✅ Resultado

• TARGET revertido
• Sistema estável

---

💣 VARIAÇÃO AVANÇADA (nível sênior)

😈 Faça isso:

1. APPLY
2. ACCEPT
3. Tente RESTORE

---

💥 Resultado:

RESTORE não resolve

---

🧠 Aprendizado:

ACCEPT muda o jogo completamente

---

📊 CHECKLIST DO LAB

Etapa	Status
RECEIVE executado	☐
APPLY sem CHECK (erro)	☐
Diagnóstico feito	☐
APPLY correto	☐
ACCEPT realizado	☐
RESTORE executado	☐

---

🧠 LIÇÕES DO LAB

🔥 1. RECEIVE define o futuro

🔥 2. APPLY muda o presente

🔥 3. ACCEPT congela o sistema

🔥 4. RESTORE depende do passado

---

☕ FRASE FINAL

💀 “O erro não está no SMP/E… está em quem pula etapas.”

SMP/E for z/OS Workshop : ACCEPT Processing

 

Bellacosa Mainframe SMP/E accept processing

SMP/E for z/OS Workshop

ACCEPT Processing

O momento em que o código vira história oficial

Se o APPLY é onde o código começa a rodar,
o ACCEPT é onde ele ganha certidão de nascimento.

Depois do ACCEPT, não tem mais desculpa:

“isso aqui já faz parte do produto”

---

O papel real do ACCEPT no SMP/E

O ACCEPT command é responsável por:

• Instalar os elementos dos SYSMODs nas Distribution Libraries (DLIBs)

• Atualizar a Distribution Zone (DZONE)

• Definir o nível oficial e permanente do software

📌 Em termos simples:

Zona	Papel
Target	Código que roda
Distribution	Código que define o produto

👉 Nunca se executa código direto das DLIBs
(Se você já viu alguém tentar… você sabe o nível do problema 😬)

---

Target vs Distribution – a verdade nua e crua

🔹 Target Libraries

• Load modules executáveis

• Macros e source (para assembly)

• Ambiente vivo

• Pode mudar

🔹 Distribution Libraries

• Elementos “puros”

• Backup oficial

• Base para RESTORE

• Não deveriam mudar toda hora

💡 Easter egg #1

Quem aceita PTF direto em DLIB de produção sem clone
não gosta de dormir tranquilo.

---

ACCEPT é parecido com APPLY?

Sim. E isso é proposital.

A IBM fez o ACCEPT ser quase um APPLY com outro destino:

• Mesmos critérios de seleção

• Mesmas opções:

  • CHECK

  • BYPASS

  • REDO

  • COMPRESS

• Mesma lógica de dependência

• Mesma validação de HOLDDATA

A diferença é onde o SMP/E escreve.

---

Pré-requisitos para um ACCEPT saudável

Antes de aceitar qualquer coisa, o SMP/E verifica:

✅ SYSMOD foi aplicado?

Por padrão:

• SIM → pode aceitar

• NÃO → rejeitado

Se quiser aceitar sem aplicar (caso raro):

BYPASS(APPLYCHECK)

💡 Easter egg #2

BYPASS(APPLYCHECK) é como sudo root
só use se você realmente souber o que está fazendo.

---

✅ Não existem HOLDs pendentes?

O ACCEPT verifica no Global Zone:

• SYSTEM HOLD

• USER HOLD

• ERROR HOLD

Se existir HOLD:

• ACCEPT para

• Você resolve primeiro

---

Como os HOLDs são resolvidos no ACCEPT

🟡 SYSTEM / USER HOLD

• Execute a ação descrita no REASON

• Depois use:

BYPASS(HOLDSYSTEM)

🔴 ERROR HOLD

• Resolvido automaticamente

• Quando o APAR/PTF corretivo é instalado

• Ou um superseding PTF é aceito

📌 Boa prática:

Nunca aceitar PTF com ERROR HOLD ativo.

💡 Easter egg #3

Quem ignora ERROR HOLD
aprende RESTORE na prática.

---

Seleção de elementos no ACCEPT

(a parte que poucos entendem)

O ACCEPT não copia elemento “no grito”.
Ele garante que nenhum nível seja regredido.

Ele compara:

• FMID

• RMID

• UMID

• PRE / SUB no ++VER

Regras básicas:

• Elementos substitutos devem PRE ou SUB

• UPD (SRC, MAC, ZAP) devem respeitar UMID

• Se não respeitar:

  • ACCEPT pode até continuar

  • Mas emite warning

  • E você acabou de assumir o risco

💡 Easter egg #4

Warning ignorado hoje
vira incidente amanhã.

---

O que o ACCEPT faz de verdade (por dentro)

Quando tudo está validado, o SMP/E:

1️⃣ Busca os elementos em:

• SMPPTS

• SMPTLIBs

• LKLIB / TXLIB

2️⃣ Invoca utilitários:

• IEBCOPY

• IEBUPDTE

• LINKEDIT (quando aplicável)

3️⃣ Instala nas DLIBs corretas
(via DISTLIB=)

4️⃣ Atualiza a Distribution Zone:

• Cria entradas de SYSMOD

• Atualiza FMID / RMID

• Remove UMIDs antigos

• Registra ZAPs e UPDs

---

Limpeza pós-ACCEPT (o “lixo controlado”)

Por padrão, o ACCEPT:

• Remove SYSMOD entry do Global Zone

• Apaga MCS do SMPPTS

• Deleta SMPTLIBs associados

• Remove backups (SMPCDS)

Tudo isso acontece porque:

O SYSMOD agora virou baseline

⚠️ Se quiser manter tudo:

NOPURGE

💡 Easter egg #5

Quem usa NOPURGE sem motivo
costuma ficar sem espaço em disco.

---

Relatórios do ACCEPT

Depois do ACCEPT, sempre revise:

• Accept Summary Report

• Element Change Report

• Utility Output

• Deleted SYSMOD Report (quando aplicável)

📌 Se você não leu o report:

O ACCEPT não aconteceu de verdade.

---

ACCEPT em uma frase (Bellacosa style)

RECEIVE traz o pacote
APPLY faz o sistema rodar
ACCEPT transforma mudança em padrão
RESTORE ensina respeito

---

Checklist Bellacosa – ACCEPT seguro

✔ ACCEPT sempre em DLIB clone
✔ BACKUP antes de produção
✔ Nenhum HOLD pendente
✔ APPLY feito (ou BYPASS consciente)
✔ Relatórios lidos
✔ Espaço em disco conferido

---

Conclusão

O ACCEPT é o último passo da cadeia SMP/E.
Depois dele:

• O código vira referência

• O produto muda de nível

• O RESTORE passa a depender disso

Quem domina ACCEPT:

• Entende gestão de software

• Não só instalação

💡 Easter egg final

System programmer bom instala.
System programmer experiente aceita.
System programmer sábio sabe quando não aceitar.

 

 

Bellacosa Mainframe e o comando display em cobol

O que é o Comando DISPLAY em COBOL?

O comando DISPLAY é uma das instruções mais simples e mais utilizadas do COBOL.

Sua função é:

exibir informações na tela, terminal, log ou SYSOUT.

Ele é equivalente a comandos como:

• PRINT (BASIC)

• printf() (C)

• System.out.println() (Java)

• print() (Python)

---

Para que serve o DISPLAY?

O DISPLAY é utilizado para:

• mostrar mensagens;

• exibir variáveis;

• acompanhar processamento;

• depurar programas;

• registrar informações no SYSOUT.

---

Sintaxe básica

DISPLAY item

---

Exemplo simples

DISPLAY 'OLA MUNDO'

Saída:

OLA MUNDO

---

Exibindo uma variável

01 WS-NOME PIC X(20).

MOVE 'VAGNER' TO WS-NOME

DISPLAY WS-NOME

Resultado:

VAGNER

---

Exibindo texto e variável

DISPLAY 'CLIENTE: ' WS-NOME

Saída:

CLIENTE: VAGNER

---

Analogia simples

Imagine um operador olhando o console.

O DISPLAY envia informações para ele:

PROGRAMA
    ↓
DISPLAY
    ↓
TELA / SYSOUT

---

DISPLAY em Batch

No ambiente z/OS batch, normalmente o DISPLAY não aparece diretamente na tela.

Ele é gravado no:

• SYSOUT

• JES2

• Spool

• SDSF

---

Exemplo

DISPLAY 'PROCESSAMENTO INICIADO'

No SDSF aparecerá algo semelhante:

PROCESSAMENTO INICIADO

---

DISPLAY para Debug

Uma das utilizações mais comuns.

DISPLAY 'SALDO = ' WS-SALDO

Ajuda a verificar:

• valores;

• fluxo;

• erros;

• cálculos.

---

Exemplo de depuração

MOVE 1000 TO WS-SALDO

DISPLAY 'ANTES CALCULO: '
        WS-SALDO

Resultado:

ANTES CALCULO: 1000

---

DISPLAY de números

01 WS-VALOR PIC 9(5).

MOVE 12345 TO WS-VALOR

DISPLAY WS-VALOR

Saída:

12345

---

DISPLAY de COMP-3

Nem sempre gera saída legível.

Exemplo:

01 WS-SALDO PIC S9(7)V99 COMP-3.

Antes de exibir, normalmente usa-se:

MOVE WS-SALDO TO WS-EDITADO
DISPLAY WS-EDITADO

---

DISPLAY de datas

DISPLAY FUNCTION CURRENT-DATE

Exemplo:

2026060215304599

---

DISPLAY com Funções Intrínsecas

DISPLAY FUNCTION UPPER-CASE(WS-NOME)

Resultado:

VAGNER

---

DISPLAY em Programas Interativos

Muito comum em:

• TSO;

• Micro Focus;

• GnuCOBOL;

• ambientes educacionais.

---

Exemplo

DISPLAY 'DIGITE O NOME:'
ACCEPT WS-NOME

---

DISPLAY e ACCEPT

São comandos complementares.

---

DISPLAY:

DISPLAY 'INFORME O CPF'

Mostra informação.

---

ACCEPT:

ACCEPT WS-CPF

Recebe informação.

---

Fluxo típico

DISPLAY
     ↓
USUÁRIO VISUALIZA
     ↓
ACCEPT
     ↓
USUÁRIO DIGITA

---

DISPLAY UPON

Permite direcionar saída para dispositivos específicos.

---

Exemplo:

DISPLAY WS-MENSAGEM
        UPON CONSOLE

---

DISPLAY UPON CONSOLE

Muito usado por operadores e Sysprogs.

DISPLAY 'JOB FINALIZADO'
        UPON CONSOLE

Mensagem enviada ao console do sistema.

---

DISPLAY em CICS

Em aplicações CICS normalmente utiliza-se:

EXEC CICS SEND

mas DISPLAY ainda pode ser usado para debug.

---

DISPLAY no SYSOUT

Exemplo de saída:

INICIO PROCESSAMENTO

CLIENTE = 12345

SALDO = 5000.00

FIM PROCESSAMENTO

---

Exemplo completo

IDENTIFICATION DIVISION.
PROGRAM-ID. TESTE.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-NOME PIC X(20).

PROCEDURE DIVISION.

    MOVE 'BELLACOSA'
         TO WS-NOME

    DISPLAY 'NOME: '
            WS-NOME

    STOP RUN.

Resultado:

NOME: BELLACOSA

---

Onde o DISPLAY é mais usado?

Batch

Mensagens no SYSOUT.

---

Debug

Análise de variáveis.

---

Testes

Validação de resultados.

---

Ensino COBOL

Primeiros programas.

---

Operação

Mensagens para operadores.

---

Curiosidades

1. DISPLAY é normalmente o primeiro comando aprendido em COBOL

---

2. Grande parte dos testes iniciais utiliza DISPLAY

---

3. Em batch, o DISPLAY geralmente vai para o spool JES2

---

4. Muitos programadores usam DISPLAY para investigar ABENDs

---

DISPLAY vs ACCEPT

Comando	Função
DISPLAY	Exibe dados
ACCEPT	Recebe dados

---

DISPLAY vs WRITE

Comando	Destino
DISPLAY	Tela/SYSOUT
WRITE	Arquivo

---

Resumo rápido

Comando	Finalidade
DISPLAY	Exibir dados
DISPLAY variável	Mostrar conteúdo
DISPLAY texto	Mostrar mensagem
DISPLAY FUNCTION	Mostrar função
DISPLAY UPON CONSOLE	Console operador
DISPLAY + ACCEPT	Entrada e saída

---

Conclusão

O comando DISPLAY é a principal instrução de saída do COBOL. Ele permite exibir mensagens, variáveis, resultados de cálculos e informações de processamento, sendo amplamente utilizado para debug, monitoramento e geração de mensagens no SYSOUT de aplicações executadas em mainframes IBM Z.

 

Bellacosa Mainframe e o comando accept no cobol

O que é o Comando ACCEPT em COBOL?

O comando ACCEPT é utilizado para:

receber dados de uma fonte externa e armazená-los em uma variável COBOL.

Na prática, ele funciona como uma operação de:

ENTRADA DE DADOS

É o oposto do comando:

DISPLAY

Enquanto o DISPLAY mostra informações, o ACCEPT recebe informações.

---

Analogia simples

Imagine um terminal 3270.

O usuário digita:

VAGNER

O COBOL precisa capturar esse valor.

Quem faz isso é o:

ACCEPT

---

Sintaxe básica

ACCEPT nome-do-campo

---

Exemplo simples

WORKING-STORAGE SECTION.

01 WS-NOME PIC X(30).

PROCEDURE DIVISION.

    DISPLAY 'DIGITE O NOME:'

    ACCEPT WS-NOME

    DISPLAY WS-NOME

    STOP RUN.

---

Resultado

DIGITE O NOME:
VAGNER

VAGNER

---

ACCEPT em programas interativos

Muito comum em:

• TSO

• Micro Focus COBOL

• GnuCOBOL

• ambientes de treinamento

---

Fluxo

DISPLAY
   ↓
USUÁRIO DIGITA
   ↓
ACCEPT
   ↓
PROCESSAMENTO

---

ACCEPT Numérico

01 WS-IDADE PIC 9(3).

ACCEPT WS-IDADE

Entrada:

25

Resultado:

WS-IDADE = 25

---

ACCEPT e Datas do Sistema

O ACCEPT também pode obter informações do sistema operacional.

---

Data atual

01 WS-DATA PIC 9(8).

ACCEPT WS-DATA FROM DATE

Resultado:

20260802

Formato:

AAAAMMDD

(depende do compilador)

---

Data Juliana

ACCEPT WS-DATA
       FROM DAY

Exemplo:

2026153

Ano + dia juliano.

---

Hora atual

01 WS-HORA PIC 9(8).

ACCEPT WS-HORA
       FROM TIME

Resultado:

14302599

---

Data e Hora

Alguns compiladores suportam:

ACCEPT WS-DATETIME
       FROM DATE YYYYMMDD

---

ACCEPT FROM DATE

Muito comum em batch.

ACCEPT WS-DATA-SISTEMA
       FROM DATE

---

ACCEPT FROM DAY

Retorna:

AAAA + DIA JULIANO

---

Exemplo

2 de junho de 2026:

2026153

---

ACCEPT FROM TIME

Retorna:

HHMMSSCC

Horas, minutos, segundos e centésimos.

---

Exemplo

15451035

---

ACCEPT em Mainframe Batch

No z/OS tradicional, ACCEPT de teclado é pouco utilizado.

Normalmente os dados vêm de:

• arquivos;

• parâmetros JCL;

• SYSIN;

• DB2;

• VSAM.

---

Exemplo SYSIN

JCL:

//SYSIN DD *
VAGNER
/*

COBOL:

ACCEPT WS-NOME

---

ACCEPT e PARM do JCL

Muitas instalações utilizam:

//STEP1 EXEC PGM=PROG1,
 // PARM='PRODUCAO'

COBOL:

ACCEPT WS-PARM

ou

LINKAGE SECTION

dependendo do padrão adotado.

---

ACCEPT vs DISPLAY

DISPLAY:

DISPLAY 'OLA'

Mostra informação.

---

ACCEPT:

ACCEPT WS-NOME

Recebe informação.

---

Exemplo combinado

DISPLAY 'DIGITE O SALDO:'

ACCEPT WS-SALDO

DISPLAY WS-SALDO

---

Exemplo completo

IDENTIFICATION DIVISION.
PROGRAM-ID. TESTE.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-NOME PIC X(30).

PROCEDURE DIVISION.

    DISPLAY 'NOME: '

    ACCEPT WS-NOME

    DISPLAY 'VOCE DIGITOU: '
    DISPLAY WS-NOME

    STOP RUN.

---

Onde o ACCEPT é mais usado?

Ambientes educacionais

---

Micro Focus COBOL

---

GnuCOBOL

---

Aplicações de terminal

---

Captura de data/hora do sistema

---

Curiosidades

1. ACCEPT existe desde as primeiras versões do COBOL

---

2. Em z/OS batch seu uso é mais restrito

---

3. ACCEPT FROM DATE era muito usado antes das funções intrínsecas

---

4. Hoje muitos programadores preferem:

FUNCTION CURRENT-DATE

em vez de:

ACCEPT FROM DATE

---

ACCEPT vs FUNCTION CURRENT-DATE

Forma antiga:

ACCEPT WS-DATA
       FROM DATE

---

Forma moderna:

MOVE FUNCTION CURRENT-DATE
     TO WS-DATA

---

Resumo rápido

Comando	Função
ACCEPT	Recebe dados
ACCEPT FROM DATE	Data atual
ACCEPT FROM DAY	Data Juliana
ACCEPT FROM TIME	Hora atual
DISPLAY	Exibe dados
CURRENT-DATE	Alternativa moderna

---

Conclusão

O comando ACCEPT é a principal instrução de entrada de dados do COBOL. Ele permite receber informações digitadas pelo usuário ou obter dados do sistema, como data e hora, sendo um recurso clássico presente desde os primórdios da linguagem e ainda encontrado em aplicações COBOL executadas em ambientes IBM Z, Micro Focus e GnuCOBOL.