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…
Loading tweets...
4 comments
ricardo says:
31, October 2009 at 9:47 pm (UTC -3 )
por acaso vc não teria um programa em cobol de incluir ,alterar e consultar dados em cobol ?
Receita says:
9, December 2009 at 5:08 pm (UTC -3 )
A programação em cobol vem dos primórdios, a maioria dos bancos ainda utiliza esta linguagem, pois os primeiros programas foram feitos em cobol. Não vale a pena mudar a linguagem de programação utilizada hoje em dia para sistemas bancários devido ao alto custo para a migração.
Roberto M. Lima says:
17, August 2010 at 6:22 pm (UTC -3 )
Olá Bruno boa noite. tenho algumas dúvidas a respeito de programação Cobol; usei a muitos anos no colégio e agora gostaria de fazer outros programas nessa linguagem, pura curiosidade., mas perdi as dicas iniciais. Seguinte no antigo sistema Dos se escrevia um programa Cobol atraves de um editor de programas, com extensão .cob, atualmente uso UBUNTU lINUX, e descobri através de pesquisa o Open Cobol, e o problema é o seguinte não sei que editor usar para montar o programa, e as linhas de comando que devo usar para compilar e rodar o mesmo. Obs: já tenho as bibliotecas necessárias instaladas, mas não sei como chamar as linhas de compilação para tal. Pode me ajudar.
Obrigado,
Roberto
JUNIOR says:
8, December 2010 at 8:41 pm (UTC -3 )
Olá campeão, seguinte estou fazendo um curso de cobol mai estou com dificuldades em relatorios, seguinte será que naum tem como vc me dar um força, seguinte o programa pede um relatorio de agencia, conta corrente, hora, valor na primeira pagina, e na segunda os mesmos dados mais no final pede o total do valor. sera que tem como dar essa forcinha, grande abrasss , obrigado pela atenção…