sexta-feira, 27 de janeiro de 2012

Ensaio de um crud em cobol


Pessoal depois de um jejum estou de volta com mais códigos, só que agora, com a linguagem cobol.
Este é uma tela para cadastramento de clientes, bem como mostrar o uso do nível 66.
Forte abraço.

       identification division.
       program-id. dados.
       author. jorgefox.
       data division.
       working-storage section.
       01 cliente.
          02 codigo            pic 9999 value zeros.
          02 nome              pic x(50) value spaces.
          02 endereco.
             03 rua            pic x(30) value spaces.
             03 qd             pic 99X value spaces.
             03 lt             pic 99X values spaces.
             03 compl          pic x(20) value spaces.
             03 bairro         pic x(20) value spaces.
             03 cidade         pic x(30) value spaces.
             03 estado         pic aa value spaces.
             03 cep            pic x(9) value spaces.
          02 email             pic x(50) value spaces.
          02 telefone          pic x(17) value spaces.
          02 celular           pic x(17) value spaces.
       66 logradouro renames rua thru compl.
       77 opcao                pic x value spaces.
       procedure division.
       inicio.
         display erase
         display "Codigo   : " at 0510
         display "Nome     : " at 0610
         display "Endereco " at 0710
         display "Rua      : " at 0810
         display "Qd." at 0852
         display "Lt." at 0859
         display "Compl    : " at 0910
         display "Bairro   : " at 0942
         display "Cidade   : " at 1010
         display "Estado   : " at 1052
         display "Cep      : " at 1110
         display "Telefone : " at 1210
         display "Celular  : " at 1242
         display "E-mail   : " at 1310
         display "Dados corretos [S/N] . " at 1510
         accept codigo at 0521
         accept nome at 0621
         accept rua at 0821
         accept qd at 0855
         accept lt at 0862
         accept compl at 0921
         accept bairro at 0953
         accept cidade at 1021
         accept estado at 1063
         accept cep at 1121
         accept telefone at 1221
         accept celular at 1253
         accept email at 1321
         accept opcao at 1531
         if opcao="S" or opcao="s" then
           display erase
           display "logradouro : " at 1010 logradouro
         else
           go to inicio
         end-if
         stop run.




2 comentários:

Obrigado por contribuir para melhorar este blog, deixe sua mensagem.
Forte Abraço