No mainframe, o primeiro contato com COBOL geralmente começa antes da codificação: pelo fluxograma. Ele é a representação gráfica do algoritmo, permitindo visualizar a lógica antes de escrever o programa. Para quem está iniciando, o exercício clássico é o “Hello World”, mas também é comum um programa que lê dois números e exibe a soma.
Símbolos básicos do fluxograma:
Oval: início e fim.
Paralelogramo: entrada e saída de dados.
Retângulo: processamento (cálculos, atribuições).
Losango: decisão (condições).
Setas: fluxo de execução.
Fluxograma do primeiro exercício – Hello World:
[Início] → [Exibir "HELLO WORLD"] → [Fim]
Código COBOL – Hello World:
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY 'HELLO WORLD'.
STOP RUN.
Explicação:
IDENTIFICATION DIVISION: identifica o programa.
PROGRAM-ID: nome do programa.
PROCEDURE DIVISION: contém a lógica.
DISPLAY: mostra a mensagem no terminal.
STOP RUN: encerra a execução.
JCL para compilar e executar:
//COBOL JOB (ACCT),'PRIMEIRO COBOL',CLASS=A,MSGCLASS=X
//COMPILE EXEC IGYWCL
//COBOL.SYSIN DD *
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY 'HELLO WORLD'.
STOP RUN.
/*
//RUN EXEC PGM=HELLO
//SYSOUT DD SYSOUT=*
Segundo exemplo – Soma de dois números:
Fluxograma:
[Início] → [Ler A] → [Ler B] → [Somar A+B = C] → [Exibir C] → [Fim]
IDENTIFICATION DIVISION.
PROGRAM-ID. SOMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM1 PIC S9(4).
01 WS-NUM2 PIC S9(4).
01 WS-SOMA PIC S9(5).
PROCEDURE DIVISION.
DISPLAY 'DIGITE O PRIMEIRO NUMERO:'.
ACCEPT WS-NUM1.
DISPLAY 'DIGITE O SEGUNDO NUMERO:'.
ACCEPT WS-NUM2.
COMPUTE WS-SOMA = WS-NUM1 + WS-NUM2.
DISPLAY 'A SOMA E: ' WS-SOMA.
STOP RUN.
Explicação:
WORKING-STORAGE SECTION: declara variáveis.
PIC S9(4): campo numérico com sinal, até 4 dígitos.
ACCEPT: recebe dados do terminal (em TSO/ISPF).
COMPUTE: realiza o cálculo.
DISPLAY: exibe o resultado.
Em ambiente batch, a entrada pode ser feita via SYSIN com READ, mas para os primeiros exercícios o ACCEPT no TSO é o mais didático.
Conclusão:
O fluxograma organiza o raciocínio e evita erros. O primeiro programa COBOL no mainframe ensina a estrutura das divisões, o uso de DISPLAY, ACCEPT e COMPUTE. Dominar esses conceitos é a base para evoluir para arquivos, tabelas e transações CICS.
Entre em contato conosco para mais informações via whatsapp abaixo.
Doar para a “Future School EAD” é essencial para manter e expandir o acesso à educação gratuita em informática. Esta escola oferece cursos de alta qualidade sem custo, capacitando jovens e adultos com habilidades essenciais para o mercado de trabalho atual.
Sua contribuição permite que mais pessoas transformem suas vidas por meio do aprendizado digital, reduzindo desigualdades sociais e promovendo a inclusão digital. Apoiar a Future School EAD é investir em um futuro mais justo e tecnológico para todos.
Participe do grupo do WhatsAapp (11-98342.2503) no plantão de dúvidas (Sábados).
Você quer ajudar a manter este site?
PIX é celular (11-98342.2503) Favorecido: Jorge Gilberto.
Curso de Java
Curso de Lógica
Curso de TSO
Curso de JCL
Curso de Control_M
Curso de COBOL
Curso de CICS
Curso de QMF
Curso de ROSCOE
Curso de DB2
Curso de Assembly
Conteúdo Extra
© 2017/2024 Future School EAD. Todos os direitos reservados | Desenvolvido por Alberto Lima Soluções Digitais.
© 2017/2024 Future School EAD. Todos os direitos reservados | Desenvolvido por Alberto Lima Soluções Digitais.