Fluxograma primeiro exercício de COBOL no Mainframe

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]
				
			

Código COBOL – Soma:

				
					       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.

Ainda tem dúvidas?

Entre em contato conosco para mais informações via whatsapp abaixo.

Formulário para WhatsApp

Fluxograma primeiro exercício de COBOL no Mainframe, via whatsapp aqui

Participe!

 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.

Descubra uma ampla variedade de cursos online para expandir seus conhecimentos e impulsionar sua carreira.

Inscrição | Formulário Transparente

Inscrever

Receba nossas novidades e atualizações por e-mail.

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