 |
| 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.
