Programando em Cobol

Recuperando documentos antigos….da époda ca faculdade, olha só o que encontrei!

Programas em cobol.


IDENTIFICATION DIVISION.
PROGRAM-ID. PROG02.
AUTHOR. BRUNO.


*DEFINICAO DO PATH ARQUIVO DE ENTRADA
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT ARQ-S ASSIGN TO "CLIENTES.DAT".


*DEFINICAO DO ARQUIVO DE ENTRADA
DATA DIVISION.
FILE SECTION.
FD ARQ-S
LABEL RECORD IS STANDARD.
01 REG-S
03 COD-CLI-E PIC 9(05).
03 VALOR-E PIC 9(07)V99.


*DEFINICAO DAS VARIAVEIS UTILIZADAS NO PROGRAMA
WORKING-STORAGE SECTION.
77 W-GRAVA PIC X.
77 W-OUTRO PIC X.
01 W-COD-CLI-E PIC 9(05).
01 W-VALOR-E PIC 9(07)V99.


*INICIO DA CODIFICACAO DO PROGRAMA
PROCEDURE DIVISION.
INICIO.
OPEN OUTPUT ARQ-S.


PERFORM TELA01.
CLOSE ARQ-S
STOP RUN.


*INICIO DA CONSTRUCAO DA TELA
TELA01
DISPLAY (03 21) "C A D A S T R O D E C L I E N T E S".
DISPLAY (06 09) "CLIENTE..:".
DISPLAY (08 09) "VALOR....:".
ACCEPT (06 20) W-COD-CLI-E.
ACCEPT (08 20) W-VALOR-E.
PERFORM TELA02.


TELA02
DISPLAY (16 33) " ".
DISPLAY (14 01) "----------------------------------------"
DISPLAY (14 40) "----------------------------------------"
DISPLAY (16 34) "GRAVAR...:".
ACCEPT (16 44) W-GRAVA.


IF W-GRAVA = "S"
PERFORM GRAVAR.


*PROCEDURE QUE GRAVA O REGISTRO
GRAVAR.
MOVE W-COD-CLI-E TO COD-CLI-E.
MOVE W-VALOR-E TO VALOR-E.
WRITE REG-S.
DISPLAY (16 34) " ".
DISPLAY (16 33) "CONTINUAR...:".
ACCEPT (16 48) W-OUTRO.
IF W-OUTRO = "S"
PERFORM TELA01.

Segue um TAR.GZ com todos os Programas em cobol…

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

Site no WordPress.com.

Acima ↑

%d blogueiros gostam disto: