Balance line - cobol

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 O CADASTRO 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 PIC 9(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