Balance line - cobol

Disponível somente no TrabalhosFeitos
  • Páginas : 4 (841 palavras )
  • Download(s) : 0
  • Publicado : 24 de setembro de 2012
Ler documento completo
Amostra do texto
ID DIVISION.
PROGRAM-ID. COB0X015.
AUTHOR. PROTHEUS.
*****************************************************************
**
* PROGRAMA PARA TRABALHAR BALANCELINE *
* ANALISTA PROTHEUS *
**
*****************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.

*****************************************************************
**
* ENTRADA EH O CADASTRO ATUAL *
* LANCAMENTO EH O ARQUIVO DE MOVIMENTO *
* SAÍDA EH OCADASTRO NOVO *
* *
*****************************************************************SELECT ENTRADA ASSIGN TO ALUNOS.
SELECT LANCAMENTO ASSIGN TO MOVALUNO.
SELECT SAIDA ASSIGN TO NOVALUNO.
SELECT RELATORIO ASSIGN TO IMPRESSO.*
DATA DIVISION.
FILE SECTION.
FD ENTRADA
RECORDING MODE F
LABEL RECORD IS STANDARD.

01 REG-ENTRADA.
03 CHAVE-ENTRADA.05 CLASSE-E PIC 9(03).
05 NUMERO-E PIC 9(03).
03 NOME-E PIC X(20).
03 ENDERECO-E PIC X(20).
03 NOTA1-E PIC9(02)V99.
03 NOTA2-E PIC 9(02)V99.
03 NOTA3-E PIC 9(02)V99.
03 IDADE-E PIC 9(02).

FD SAIDA
RECORDING MODE F...
tracking img