[FUG-BR] [off] OpenCobol & ncurses

[Sergio]

É isso que vc quer:

----------------INICIO-------------------------
       identification division.
        program-id. screens2.
        author. Hudson Reis.

        environment division.
        configuration section.
        special-names.
           decimal-point is comma
           crt status is Tecla.

        data division.
        working-storage section.
        77 Codigo		   pic 9(005) value zeros.
        77 Codigo-Mascara          pic z(005) value spaces.        77 Nome			   pic x(030) value spaces.
        77 Rua	 		   pic x(050) value spaces.
        77 Numero		   pic 9(005) value zeros.
        77 Numero-Mascara 	   pic z(005) value spaces.
        77 Telefone                pic x(015) value spaces.
        77 Tecla                   pic 9(004) value zeros.

        77 Esc                     pic 9(004) value 0027.

        screen section.
        01 Tela.
              02 background-color 7 foreground-color 1.
              03 blank screen.
              03 line 09 col 10 value "Código...:".
              03 line 10 col 10 value "Nome.....:".
              03 line 11 col 10 value "Rua......:".
              03 line 12 col 10 value "Número...:".
              03 line 13 col 10 value "Telefone.:".

       procedure division.
       Inicio.
           display Tela.

       Pega-Codigo.
           accept Codigo-Mascara line 09 position 21
           if  Tecla equal Esc
           then
               go to Fim
           end-if
           move Codigo-Mascara to Codigo
           if  Codigo equal zeros
           then
               go to Pega-Codigo
           end-if.

       Pega-Nome.
           accept Nome line 10 position 21
           if  Tecla equal Esc
           then
               go to Pega-Codigo
           end-if
           if  Nome equal spaces
           then
               go to Pega-Nome
           end-if.

       Pega-Rua.
           accept Rua line 11 position 21
           if  Tecla equal Esc
           then
               go to Pega-Nome
           end-if
           if  Rua equal spaces
           then
               go to Pega-Rua
           end-if.

       Pega-Numero.
           accept Numero-Mascara line 12 position 21
           if  Tecla equal Esc
           then
               go to Pega-Rua
           end-if
           move Numero-Mascara to Numero
           if  Numero equal zeros
           then
               go to Pega-Numero
           end-if.

       Pega-Telefone.
           accept Telefone line 13 position 21
           if  Tecla equal Esc
           then
               go to Pega-Numero
           end-if
           if  Telefone equal spaces
           then
               go to Pega-Telefone
           end-if.

       Fim.
           stop run.
----------------FIM--------------------------------- Original Message ----- 
From: "irado furioso com tudo" <irado em safe-mail.net>
To: "lista fugsp-br" <Freebsd em fug.com.br>
Sent: Thursday, September 11, 2008 3:47 PM
Subject: [FUG-BR] [off] OpenCobol & ncurses



bem.. sou um completo cego em ncurses - catei o manual agorinha mesmo -
e vou tentar fazer alguma coisa com o OpenCobol; apreciaria se algum
colega se dispusesse a me enviar um link ou mesmo um fragmento de
programa que me mostrasse como montar uma tela de I/O (posicionamento,
extensão, essas coisas). Cobol sem tela, só em batch (rs).

dei uma olhada lá no forum mas não encontrei algo realmente informativo
(só um fragmento de código em "c")

TIA

-- 
saudações,
irado furioso com tudo
Linux User 179402/FreeBSD BSD50853/FUG-BR 154
Não uso drogas - 100% Miko$hit-free
se o país é democrático, por que razão sou obrigado a votar?
-------------------------
Histórico: http://www.fug.com.br/historico/html/freebsd/
Sair da lista: https://www.fug.com.br/mailman/listinfo/freebsd


--------------------------------------------------------------------------------



No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.169 / Virus Database: 270.6.20/1666 - Release Date: 11/9/2008 
07:03