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…

6 pensamentos em “Programando em Cobol”

  1. Bruno, boa tarde.

    Sabe me dizer se você conhece alguma de fazer consulta na base de dados, onde ao ser informado as letras da frase que quero consulta, já vá mostrando os resultados referentes a letra informada. Exemplo:
    Quero fazer uma consulta no cadastro de clientes. Porem procurando pelo no nome. supondo que o nome que eu queira saber é “Rodrigo”, o que estou querendo e que quando e informar “R”, já apareça todos o nome que começam com “R”, após quando digitar o “o”, que já apareça todos os nome que começam com “Ro”, e assim sucessivamente.

  2. Olá Bruno, estou com dificuldades para ler um arquivo.txt gerado no bloco de notas ,

    com o sequinte erro no assinalamento do endereco do arquivo. (SELECT ASSIGN “C:NORMANDOTESTE.TXT”.)
    RESULTADO COMANDO INVALID.
    Estou com um compilador IDECOBOL

    COMO DEVO PROCEDER, ME AJUDE. OBRIGADO…

  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…

  4. 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

  5. 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.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *