Balance line - cobol

Páginas: 4 (841 palavras) Publicado: 24 de setembro de 2012
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...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • Lines of balance
  • Cobol
  • Cobol
  • Cobol
  • COBOL
  • COBOL
  • Cobol
  • Cobol

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!