Clube Cobol

[celsofigueiredo]

Prezados Tinycoboleiros.

Outro dia desses, estava eu com um dúvida tremenda, de como usar o Tinycobol com o Tcl/Tk. Quem me ajudou nesta minha dúvida, foi o pessoal da INFOCONT de Joinville - SC, especialmente o Fernando e o Danilo. Segue abaixo, dois pequenos programas bem simples, um em Cobol e o outro em Tcl/tk. Outra coisa, aqui desta lista, quem mais é usuário do TINYCOBOL. Gostaria de saber, pois me parece que são poucos, os usuários do TINYCOBOL.

Arquivos anexos:
------------ --------- ---
hello03.tcl
------------ --------- ---
#!/bin/sh
# \
exec wish "$0" "$@"

package require BWidget
package require Wcb

toplevel .principal

wm minsize .principal 250 100

button .principal.ok -text "OK" -command {exit}

pack .principal.ok

set x [expr {([winfo screenwidth .principal] - [winfo width .principal]) /2}]

set y [expr {([winfo screenheight .principal] - [winfo height .principal]) /2}]

wm geometry .principal [winfo width .principal]x[ winfo height .principal]+ $x+$y

wm title .principal "Curso de Tcl/Tk"

wm protocol .principal WM_DELETE_WINDOW {exit}

wm withdraw .

proc variaveis_cobol {} {
global cobol_fields widget
set cobol_fields {
VariavelCobol 1
}
}

proc ::cobol_preprocess {args} {
}

variaveis_cobol

------------ --------- ---
hello03.cob
------------ --------- ---
*> programa usando cobol e tcl/tk
IDENTIFICATION DIVISION.
PROGRAM-ID. hello03.
AUTHOR. Celso.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 W01-DADOS PIC X(01) VALUE SPACES.
77 NM-PROG PIC X(64) VALUE "hello03.tcl" .
PROCEDURE DIVISION.
CALL "initTcl".
CALL "tcleval" USING W01-DADOS NM-PROG.
STOP RUN.


Celso Henrique.

[arcanjoebc]

[nettobr]

Caros Celso e Everaldo,

Mais um no mundo do Tiny Cobol...

Já fui um ótimo programador Sr. de Cobol para Main-Frame, mais isso foi no século passado.

Preciso relembrar disso tudo...

Mas estou achando o Tiny Cobol um pouco fraco, bom, vou tentar.

Alguém tem uma lista dos comandos do compilador e qual a sintaxe???

Everaldo: quer mandar seu programa para eu ver se acho o erro???
nettobr@terra.com.br

Celso: amanhã eu teste o tcl/tk no XP.

Um abraço a todos,

NettoBr

[nettobr]

Oi pra todos,

Fiz umas alterações no Hello World do meu jeito.

Segue:

IDENTIFICATION DIVISION.
Program-id. HELLO.
AUTHOR. NettoBr.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
Special-Names.
Decimal-point is comma.
INPUT-OUTPUT SECTION.
FILE SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 variavel-independente PIC X(30) VALUE "Minha variável independente".

01 Variavel-de-data.
05 CONSTANTE PIC X(06) VALUE "Data: ".
05 DATA-PRINT.
10 DIA-S PIC X(02).
10 FILLER PIC X(01) VALUE "/".
10 MES-S PIC X(02).
10 FILLER PIC X(03) VALUE "/20".
10 ANO-S PIC X(02).

01 Variavel-de-hora.
05 DATA-PRINT.
10 HOR-S PIC X(02).
10 FILLER PIC X(01) VALUE ":".
10 MIN-S PIC X(02).
10 FILLER PIC X(01) VALUE ":".
10 SEG-S PIC X(02).

01 DATA-HOJE.
05 ANO PIC X(02).
05 MES PIC X(02).
05 DIA PIC X(02).

01 HORA-HOJE.
05 HOR PIC X(02).
05 MIN PIC X(02).
05 SEG PIC X(02).


PROCEDURE DIVISION.
Main Section.
DISPLAY "Hello world, sou eu!".
ACCEPT DATA-HOJE FROM DATE.
ACCEPT HORA-HOJE FROM TIME.
MOVE ANO TO ANO-S.
MOVE MES TO MES-S.
MOVE HOR TO HOR-S.
MOVE MIN TO MIN-S.
MOVE SEG TO SEG-S.
MOVE DIA TO DIA-S.
DISPLAY "Hoje eh o dia: " Variavel-de-data.
DISPLAY "Hora : " Variavel-de-hora.

STOP RUN.

[venitius]

Também estou no grupo dos que utilizam o TinyCOBOL. Minha plataforma e WindowsXP/AMD.

Instalei o TinyCOBOL no WinXP. A dificuldade foi só descobrir e alterar os arquivos de lote e compilar o primeiro programa.

Estou aprendendo TinyCOBOL para usá-lo em aplicações contábeis. Até o momento estou tentanto fazer com que o Tcl/Tk funcione com o TinyCOBOL. Vou aproveitar os fontes apresentado por vocês para testes.

Este forum é pouco movimentado, mas se nos tornar-mos mais ativos creio que será melhor que o yahoogroups.

Estou na área.

[venitius]

Caros,


Tentei rodar o exemplo dado, a saber, hello3.tcl e hello3.cob. De início não esta sendo encontrada a biblioteca tk84.dll, entrei no síto do tcl/tk e baixei a versão OpenSource 8.5.20 e problema persistiu, instalei então a versão 4.8.19 e tk84.dll foi encontrada, no entanto, um pacote Wcb não foi encontrado.

Alguém tem uma dica?

[nettobr]

Caro Venitius,

Passei por isso, e veja abaixo o que o Fernando da Infocont me respondeu.

Pegue a versão dele, que já vem com o TCL e instale a do instruction por cima.

Um abraço,

NettoBr


Re: Aos TinyCoboleiros de Plantão.

PUBLICIDADE
Fala Fernando,

Fiz isso agora a pouco, já tinha a versão InfoCont do TC.... Instalei a do Nilo por cima.

Recompilei o programa e ficou tudo igualzinho antes....

O terceiro display não sai de jeito nenhum.

Seria melhor avisar o Nilo.

Um abraço,

Vieira


--- Em cobol@..., "Fernando Wuthstrack - InfoCont Sistemas Integrados Ltda." <fernando@...> escreveu
>
> Olá Vieira
>
> Isso era um problema que o Nilo já corrigiu na versão que está para download no http://tinycobol.instruction.com.br . Sou sincero em dizer que não testei isso, mas pelo que conversei com ele, este erro não é mais para ocorrer.
> Se você puder, gostaria que tentasse fazer uma junção da versão instalada pela gente com a versão do Nilo.. Tipo, instale primeira a nossa e depois a versão do Nilo por cima... Se funcionar, gostaria que me avisasse.
> De qualquer maneira, estamos trabalhando em cima da nova versão do TC, pra poder liberar em breve...
> Beleza?
>
>
> Fernando Wuthstrack
> InfoCont Sistemas Integrados Ltda.
> Diretor
> Fone: (47) 3422-3536
> ----- Original Message -----
> From: hgcotuca
> To: cobol@...
> Sent: Thursday, July 17, 2008 1:18 PM
> Subject: [Clube Cobol] Aos TinyCoboleiros de Plantão.
>
>
> Fala Turma,
>
> Estou testando a integração do TC com TCL/TK usando o exemplo que vem com o TC.
>
> Ambos executam, mostra a janela, ms não consigo fazer o controle voltar para o cobol.
>
> O TCL com o comando "exit" mostra a janela espera o clique e termina.
>
> Mas O TCL com o comando "return" mostra a janela espera o clique e fica mostrando a janela indefinidamente, e não termina (só com Control C).
>
> Vejam abaixo os programas:
>
> Um abraço,
>
> Vieira

[nettobr]

Caro Vinitius e outros,

Este site tem pouca participação, seria bom que todos entrassem na lista do Yahoo, que tem bom movimento. De 1 a 2 Emails por dia (+/-) com 25 posts cada.

Pesquisando vc achara muitas respostas.

http://br.groups.yahoo.com/group/cobol/

Boa Sorte.

[Jair]

Neto,
Na verdade este fórum foi fundado a partir da lista do Yahoo e não tem o objetivo de substituí-la e sim acrescentar.
A grande vantagem do fórum é que os posts tornam-se menos repetitivos e quando alguém procura algo que já foi discutido já encontra a solução pronta aqui. Provalmente esta é uma das razões dum menor numero de posts diário.
_________________
Jair - Campo Grande/RJ
NetExpress 3.1/DialogSystem
NetCobol 10/PowerCobol
MySql 5.1/PostgreSQL 8.3
Crystal Reports XI/PowerFORM