segunda-feira, 30 de janeiro de 2012

Menu principal em COBOL


       identification division.
       program-id. menu.
       author. jorgefox.
       data division.
       working-storage section.
      *77 opcao          pic 9 value zero.
       77 wopcao          pic 9 value zero.
       screen section.
       01 menu-principal.
          02 blank screen.
          02 line 1 col 1 value "***************************************
      -"************************************".
          02 line 2 col 21 value "Sistema de compra e venda Mercadorias"
      -.
          02 line 3 col 1 value "***************************************
      -"************************************".
          02 line 4 col 33 value "Menu Principal".
          02 line 7 col 10 value "[1] Cadastro Mercadoria".
          02 line 8 col 10 value "[2] Cadastro Cliente".
          02 line 9 col 10 value "[3] Cadastro Vendedor/Comprador".
          02 line 10 col 10 value "[4] Listagem de Mercadoria".
          02 line 11 col 10 value "[5] Listagem de Cliente".
          02 line 12 col 10 value "[6] Sair sistema".
          02 line 15 col 10 "Digite a opção desejada[.]".
          02 opcao line 15 col 10 pic 9 using wopcao auto.
       procedure division.
       inicio.
          display menu-principal
          accept menu-principal
          evaluate wopcao
             when 1
                call "cadmercadoria" using wopcao
                go to inicio
             when 2
                call "cadcliente" using wopcao
             when 6
                stop run
             when other
                 go to inicio
          end-evaluate.

4 comentários:

  1. muito legal esse exercício!

    ResponderExcluir
  2. ei oque é wopcao, nao entendi para que serve

    ResponderExcluir
    Respostas
    1. Bom dia. A variável wop
      cao pode ser usada como flag. Essa flag sinaliza uma inclusão ou atualização na base. Desta forma posso usar a mesma tela incluir. Listar e atualizar. Obrigado pela visita. Bom dia.

      Excluir
    2. Bom dia. A variável wop
      cao pode ser usada como flag. Essa flag sinaliza uma inclusão ou atualização na base. Desta forma posso usar a mesma tela incluir. Listar e atualizar. Obrigado pela visita. Bom dia.

      Excluir

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