Bellacosa Mainframe fala sobre Portugol e Logica de Programaçao Mainframe

Uma breve visão sobre Portugol para IBM Mainframe

Bellacosa Mainframe

4,385 followers

July 13, 2025

Fiz algumas adaptações livres nos comandos portugol para auxiliar meus alunos de logica de programação estruturada para IBM Mainframe, compartilho o resultado aqui em nossa comunidade.

Agradeço desde já por todas as críticas construtivas e melhorias que surjam.

Portugol

Neste documento irei apresentar de forma sucinta e pratica os comandos em português estruturado para a resolução dos exercícios de Lógica de Programação.

Serão apresentadas as sintaxes mais comuns e básicas para o aluno iniciante conseguir ler e interpretar os comandos antes de codifica-lo em COBOL.

Comandos

Estrutura básica

 "meu programa"
  var ...
  inicio ...
  processamento ...
  procedimentos finais...
fimalgoritmo

Literais/Variáveis

var wss-numero: numérico
var wss-texto : alfabético
var wss-alfanumerico : alfanumérico
var wss-num-comp : numérico computacional 4
var wss-num-comp1 : numérico computacional 1
var wss-num-comp2 : numérico computacional 2
var wss-num-comp3 : numérico computacional 3
var wss-num-comp4 : numérico computacional 4
var wss-num-comp5 : numérico computacional 5

Arrays e Matrizes (Tabelas Internas)

var wss-array: vetor[linha1..linhaN] de tipo

var wss-matriz: vetor[linha1..linhaN, coluna1..colunaN] de tipo

Recebendo Parâmetros (Sysin ou Parm)

 Receba wss-variavel

Exibir informação na Sysout

Exiba wss-variavel

Estrutura Condicional

Condicional simples

se condição entao
   ...
Fimse 

Condicional simples e senão

se condição entao
...
senao
...
fimse

Condicional composto

se condição1 entao
  ...
senao se condição2 entao
       ...
       Senão
       ...
    fimse
fimse

Multiplos condicionais

escolha variável
caso valor1
...
caso valor2
...
caso valor3
...
outrocaso
...
fimescolha

Estrutura de Repetição

Faça enquanto menor que N

enquanto condição faca
 ...
Fimenquanto

Faça iniciando em um valor até N

para variável de valor1 ate valorN passo P faca
 ...
Fimpara

Faça N vezes

Faça n vezes
 ...
Fimfaça

Repita enquanto verdadeiro

repita ...
ate condição

Faça enquanto condição

faca { ... }
enquanto (condição)

Criando procedimento, seção e paragrafo

procedimento nome(parâmetro: tipo; ...)
...
inicio
...
fimprocedimento

Chamada de Programas Externos

Chamando sub-programa

Chamando programa

Processando Arquivos

Arquivos Sequenciais QSAM

Declarando Arquivo

Declarando arquivo1 Entrada
Declarando arquivo2 Saida

Abrindo Arquivo

Abrindo arquivo1 Entrada
Abrindo arquivo2 Saida

Lendo Arquivo

Leia arquivo1 em WSS-REG

Gravando Arquivo

Gravando arquivo2 de WSS-REG

Fechando Arquivo

Fechando arquivo1

Arquivos Sequenciais VSAM

Declarando Arquivo

Declarando arquivo1 Entrada
Declarando arquivo2 Entrada & Saida
Declarando arquivo3 Saida

Abrindo Arquivo

Abrindo arquivo1 Entrada
Abrindo arquivo2 I/O
Abrindo arquivo3 Saida

Lendo Arquivo sequencialmente

Leia arquivo1 em WSS-REG

Lendo Arquivo por chave indexada

Leia arquivo2 em WSS-REG através da chave

Regravando Arquivo

Regrave arquivo2 de WSS-REG

Gravando Arquivo

Gravando arquivo3 de WSS-REG

Fechando Arquivo

Fechando arquivo1

Conclusão:

Portugol é uma linguagem de programação fictícia, escrita em português estruturado, usada principalmente para ensinar lógica de programação de forma acessível e didática.

Características principais:

• Sintaxe simples e em português, facilitando o aprendizado.
• Não é executada diretamente por computadores reais, mas existem interpretadores (como o Visualg) que simulam sua execução.
• Ideal para iniciantes, antes de aprender linguagens como Python, Java ou C.

Exemplo em Portugol:

algoritmo "exemplo"
var
   numero: inteiro

inicio
   escreva("Digite um número: ")
   leia(numero)
   se numero > 0 entao
      escreva("Número positivo")
   senao
      escreva("Número negativo ou zero")
fimalgoritmo

👉 Resumo: Portugol é uma ferramenta educacional que ajuda a entender os fundamentos da programação sem a complexidade de sintaxes em inglês.

https://www.linkedin.com/embed/feed/update/urn:li:ugcPost:7437160256226373634

Ver post original no LinkedIn