Cadastro De Estudantes Cobol

      Este é um código desenvolvido na linguagem de programação COBOL, serve para cadastra estudantes, é simples, mas funcional. A partir dele poderemos esta desenvolvendo uma interface mais agradável aos olhos. Cadastra o nome dos estudantes, notas e ao final a media. Espero que gostem, volte sempre ao blog abraços.

 ===============================================
                                     Começo do Código 
 ===============================================

identification division.
program-id.                              estudantes.
author.                                  dionatan.
environment division.
configuration section.
input-output section.
file-control.
select estudantes assign to "estudantes.dat"
organization is indexed
access mode is dynamic
record key is codigo
alternate key is nome with duplicates
file status is fs-estudantes.
data division.
file section.
fd estudantes.
           01 registro-estudantes .
              02 codigo               pic 9999 values zeros.
              02 nome                 pic x(50) values spaces.
              02 nota1                pic 9999 values zeros.
              02 nota2                pic 9999 values zeros.
              02 nota3                pic 9999 values zeros.
              02 nota4                pic 9999 values zeros.
           01 reg-estudantes.
              02 wcodigo              pic 9999 values zero.
              02 wnome                pic x(50) values spaces.
              02 wnota1               pic 9999 values zeros.
              02 wnota2               pic 9999 values zeros.
              02 wnota3               pic 9999 values zeros.
              02 wnota4               pic 9999 values zeros.
working-storage section.
           01 fs-estudantes.
              02 fs-estudantes-1            pic 9.
              02 fs-estudantes-2            pic 9.
              02 fs-estudante-r redefines fs-estudantes-2 pic 99 comp-x.
              77 opcao                       pic x value spaces.
procedure division.
abertura.
open i-o estudantes.
inicio.
             display erase
              perform tela
               if opcao="S" or opcao="s" then
               perform grava-dados
               perform limpa-campos
             go to inicio
               else
             go to inicio
               end-if
       .
tela.
                 display "Cadastro de estudantes" at 0230
                 display "Codigo              : " at 0605
                 display "Nome                : " at 0705
                 display "Nota1               : " at 0805
                 display "Nota2               : " at 0905
                 display "Nota3               : " at 1005
                 display "Nota4               : " at 1105
                 accept wcodigo at 0625
                 if wcodigo = 9999 then
                 close estudantes
                  stop run
                   end-if
          accept wnome at 0725
          accept wnota1 at 0825
          accept wnota2 at 0925
          accept wnota3 at 1025
          accept wnota4 at 1125
       display "Os dados estão corretos S/N" at 1525
          accept opcao
.
limpa-campos.
move spaces to reg-estudantes.
grava-dados.
move reg-estudantes to registro-estudantes
write registro-estudantes.