* 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