https://github.com/amgauna/cobol-2017
Cobol - Exemplos de Código
https://github.com/amgauna/cobol-2017
cobol cobol-example cobol-programming
Last synced: 4 months ago
JSON representation
Cobol - Exemplos de Código
- Host: GitHub
- URL: https://github.com/amgauna/cobol-2017
- Owner: amgauna
- License: other
- Created: 2017-04-15T03:05:46.000Z (about 9 years ago)
- Default Branch: master
- Last Pushed: 2022-01-16T22:49:01.000Z (over 4 years ago)
- Last Synced: 2025-06-03T11:29:41.162Z (12 months ago)
- Topics: cobol, cobol-example, cobol-programming
- Language: COBOL
- Homepage:
- Size: 26.4 KB
- Stars: 1
- Watchers: 1
- Forks: 1
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE.MD
Awesome Lists containing this project
README
# * Cobol
# * Exemplo de Código
# *
# * Uma das caracteristicas importantes do Cobol
# * é a sua auto-documentação; um programador
# * pode entender um programa COBOL pela
# * simples leitura de sua codificação.
#
# Identification Division.
# Program-ID. Quarter.
# Author. Larry Newcomer
# Installation. Penn State University -- York Campus.
# Date-Written. May 1983.
# Date-Compiled. May 9, 1983.
# Security. Não ha considerações de segurança para Quarter.
#
# * Um resumo do programa Quarter --
# *
# * Quarter lê um arquivo contendo as vendas mensais
# * dos vendedores para os 3 meses de um trimestre
# * juntamente com o nome do vendedor e a cota de
# * venda do trimestre. Imprime um relatório
# * mostrando o vendedor:
# *
# * Nome Venda do Trimestre Cota
# * Jones $ 42.000,98 $ 40.000,00
# * Smith $ 59.000,67 $ 60.000,00
# * Yost $ 47.893,00 $ 45.000,00
#
# Environment Division.
# Configuration Section.
# Source-Computer. IBM-370.
# Object-Computer. IBM-370.
# Special-Names. Decimal-Point is Comma.
# Input-Output Section.
# File-Control.
# Selec Arquivo-Vendas assign to Vendas.
# Selec Relat-Trimestral assign to Relatrim.
#
# Data Division.
# File Section.
# FD Arquivo-Vendas
# Label Records are Standard
# Record Contains 80 Characters
#
# 01 Registro-Vendas
# 05 Nome-Registro-Vendas PIC X(15).
# 05 Vendas-Mes-1-Registro-Vendas PIC S9(4)V99.
# 05 Vendas-Mes-2-Registro-Vendas PIC S9(4)V99.
# 05 Vendas-Mes3-Registro-Vendas PIC S9(4)V99.
# 05 Cota-Registro-Vendas PIC S9(5)V99.
# 05 Filler PIC X(40).
#
# FD Relat-Trimestral
# Label Records are Omitted
# Record Contains 132 Characters
#
# 01 Linha-Relat-Trimestral PIC X(132).
#
# Working-Storage-Section.
#
# 01 Chaves-Totais.
# 05 Fim-Arquivo-Vendas PIC X.
# 05 Total-Trimestre PIC S9(5)V99 COMP-3.
# 01 Linha-Relatorio-Trabalho.
# 05 Nome-Trabalho PIC X(15).
# 05 Filler PIC X(5) VALUE Spaces.
# 05 Total-Trabalho PIC $$$.$$$,99.
# 05 Filler PIC X(5) VALUE Spaces.
# 05 Cota-Trabalho PIC $$$.$$$,99.
# 05 Filler PIC X(87) Value Spaces.
#
# Procedure Division.
#
# 010 - Parag-Executivo.
# Perform 020-Inicializar-E-Preparar
# Perform 040-Imprimir-Linhas-Relatorio
# Ultil Fim-Arquivo-Vendas = "T"
# Perform 050-Termino-E-encerramento
# Stop RUN
#
# 020 - Inicializar-E-Preparar.
# Open Input Arquivo-Vendas
# Output Relat-Trimestral
# Move "F" to Fim-Arquivo-Vendas
# Perform 030-Ler-Arquivo-Vendas
#
# 030 - Ler-Arquivo-Vendas.
# Read Arquivo-Vendas
# At END
# Move "T" to Fim-Arquivo-Vendas
#
# 040 - Imprimir-Linhas-Relatório.
# Move Nome-Registro-Vendas TO Nome-Trabalho
# Compute Total-Trimestre = Vendas-Mes-1-Registro-Vendas
# + Vendas-Mes-2-Registro-Vendas
# + Vendas-Mes-3-Registro-Vendas
# Move Total-Trimestre TO Total-Trabalho
# Move Cota-Registro-Vendas TO Cota-Trabalho
# Write Linha-Relat-Trimestral
# From Linha-Relatorio-Trabalho
# Perform 030-Ler-Arquivo-Vendas
#
# 050 - Termino-E-Encerramento.
# CLOSE Arquivo-Vendas
# Relat-Trimestral
#