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.