{"id":21874943,"url":"https://github.com/amgauna/cobol-2017","last_synced_at":"2026-01-28T19:35:38.448Z","repository":{"id":117369114,"uuid":"88319933","full_name":"amgauna/Cobol-2017","owner":"amgauna","description":"Cobol - Exemplos de Código","archived":false,"fork":false,"pushed_at":"2022-01-16T22:49:01.000Z","size":27,"stargazers_count":1,"open_issues_count":0,"forks_count":1,"subscribers_count":1,"default_branch":"master","last_synced_at":"2025-06-03T11:29:41.162Z","etag":null,"topics":["cobol","cobol-example","cobol-programming"],"latest_commit_sha":null,"homepage":"","language":"COBOL","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":"other","status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/amgauna.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":"LICENSE.MD","code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null}},"created_at":"2017-04-15T03:05:46.000Z","updated_at":"2023-09-29T03:53:02.000Z","dependencies_parsed_at":"2023-07-03T17:46:07.345Z","dependency_job_id":null,"html_url":"https://github.com/amgauna/Cobol-2017","commit_stats":null,"previous_names":["amgauna58rj/cobol-exercicios","anagaunatech/cobol-exercicios","anagaunadev/cobol-exercicios","amgauna/cobol-exercicios","amgauna/cobol-2017"],"tags_count":0,"template":false,"template_full_name":null,"purl":"pkg:github/amgauna/Cobol-2017","repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/amgauna%2FCobol-2017","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/amgauna%2FCobol-2017/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/amgauna%2FCobol-2017/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/amgauna%2FCobol-2017/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/amgauna","download_url":"https://codeload.github.com/amgauna/Cobol-2017/tar.gz/refs/heads/master","sbom_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/amgauna%2FCobol-2017/sbom","scorecard":null,"host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":286080680,"owners_count":28850384,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2026-01-28T15:15:36.453Z","status":"ssl_error","status_checked_at":"2026-01-28T15:15:13.020Z","response_time":57,"last_error":"SSL_read: unexpected eof while reading","robots_txt_status":"success","robots_txt_updated_at":"2025-07-24T06:49:26.215Z","robots_txt_url":"https://github.com/robots.txt","online":false,"can_crawl_api":true,"host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["cobol","cobol-example","cobol-programming"],"created_at":"2024-11-28T07:14:02.151Z","updated_at":"2026-01-28T19:35:38.432Z","avatar_url":"https://github.com/amgauna.png","language":"COBOL","funding_links":[],"categories":[],"sub_categories":[],"readme":"# * Cobol\n# * Exemplo de Código\n# *\n# * Uma das caracteristicas importantes do Cobol \n# * é a sua auto-documentação; um programador \n# * pode entender um programa COBOL pela \n# * simples leitura de sua codificação.\n#\n# Identification Division.\n# Program-ID. Quarter.\n# Author. Larry Newcomer\n# Installation. Penn State University -- York Campus.\n# Date-Written. May 1983.\n# Date-Compiled. May 9, 1983.\n# Security. Não ha considerações de segurança para Quarter.\n#      \n# * Um resumo do programa Quarter --\n# *\n# * Quarter lê um arquivo contendo as vendas mensais\n# * dos vendedores para os 3 meses de um trimestre \n# * juntamente com o nome do vendedor e a cota de \n# * venda do trimestre. Imprime um relatório \n# * mostrando o vendedor:\n# *\n# * Nome     Venda do Trimestre    Cota\n# * Jones    $ 42.000,98           $ 40.000,00\n# * Smith    $ 59.000,67           $ 60.000,00\n# * Yost     $ 47.893,00           $ 45.000,00\n# \n# Environment Division.\n# Configuration Section.\n# Source-Computer. IBM-370.\n# Object-Computer. IBM-370.\n# Special-Names. Decimal-Point is Comma.\n# Input-Output Section.\n# File-Control.\n#   Selec Arquivo-Vendas   assign to Vendas.\n#   Selec Relat-Trimestral assign to Relatrim.\n#   \n# Data Division.\n# File Section.\n# FD Arquivo-Vendas\n#   Label Records are Standard\n#   Record Contains 80 Characters\n#   \n# 01 Registro-Vendas\n#   05 Nome-Registro-Vendas         PIC X(15).\n#   05 Vendas-Mes-1-Registro-Vendas PIC S9(4)V99.\n#   05 Vendas-Mes-2-Registro-Vendas PIC S9(4)V99.\n#   05 Vendas-Mes3-Registro-Vendas  PIC S9(4)V99.\n#   05 Cota-Registro-Vendas         PIC S9(5)V99.\n#   05 Filler                       PIC X(40).\n#   \n# FD Relat-Trimestral\n#   Label Records are Omitted\n#   Record Contains 132 Characters\n#   \n# 01 Linha-Relat-Trimestral          PIC X(132).\n#      \n# Working-Storage-Section.\n#      \n# 01 Chaves-Totais.\n#   05 Fim-Arquivo-Vendas           PIC X.\n#   05 Total-Trimestre              PIC S9(5)V99 COMP-3.\n# 01 Linha-Relatorio-Trabalho.\n#   05 Nome-Trabalho                PIC X(15).\n#   05 Filler                       PIC X(5) VALUE Spaces.\n#   05 Total-Trabalho               PIC $$$.$$$,99.\n#   05 Filler                       PIC X(5) VALUE Spaces.\n#   05 Cota-Trabalho                PIC $$$.$$$,99.\n#   05 Filler                       PIC X(87) Value Spaces.\n#      \n# Procedure Division.\n#      \n# 010 - Parag-Executivo.\n#      Perform 020-Inicializar-E-Preparar\n#      Perform 040-Imprimir-Linhas-Relatorio\n#         Ultil Fim-Arquivo-Vendas = \"T\"\n#      Perform 050-Termino-E-encerramento\n#      Stop RUN     \n#      \n# 020 - Inicializar-E-Preparar.\n#      Open Input Arquivo-Vendas\n#           Output Relat-Trimestral\n#      Move \"F\" to Fim-Arquivo-Vendas\n#      Perform 030-Ler-Arquivo-Vendas\n#           \n# 030 - Ler-Arquivo-Vendas.\n#      Read Arquivo-Vendas\n#           At END\n#                 Move \"T\" to Fim-Arquivo-Vendas     \n#      \n# 040 - Imprimir-Linhas-Relatório.\n#      Move Nome-Registro-Vendas TO Nome-Trabalho\n#      Compute Total-Trimestre = Vendas-Mes-1-Registro-Vendas\n#                              + Vendas-Mes-2-Registro-Vendas\n#                              + Vendas-Mes-3-Registro-Vendas\n#      Move Total-Trimestre TO Total-Trabalho\n#      Move Cota-Registro-Vendas TO Cota-Trabalho\n#      Write Linha-Relat-Trimestral\n#            From Linha-Relatorio-Trabalho\n#      Perform 030-Ler-Arquivo-Vendas\n#          \n# 050 - Termino-E-Encerramento.\n#      CLOSE Arquivo-Vendas\n#            Relat-Trimestral\n#      \n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Famgauna%2Fcobol-2017","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Famgauna%2Fcobol-2017","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Famgauna%2Fcobol-2017/lists"}