Menu
▾
▴
tiny-cobol-users
You can subscribe to this list here.
| 1999 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(341) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2000 |
Jan
(42) |
Feb
(22) |
Mar
(59) |
Apr
(12) |
May
(15) |
Jun
(30) |
Jul
(25) |
Aug
(13) |
Sep
(98) |
Oct
(51) |
Nov
(95) |
Dec
(99) |
| 2001 |
Jan
(105) |
Feb
(175) |
Mar
(411) |
Apr
(310) |
May
(294) |
Jun
(213) |
Jul
(132) |
Aug
(82) |
Sep
(26) |
Oct
(121) |
Nov
(181) |
Dec
(96) |
| 2002 |
Jan
(52) |
Feb
(128) |
Mar
(141) |
Apr
(111) |
May
(149) |
Jun
(164) |
Jul
(33) |
Aug
(77) |
Sep
(62) |
Oct
(92) |
Nov
(14) |
Dec
(33) |
| 2003 |
Jan
(33) |
Feb
(58) |
Mar
(120) |
Apr
(180) |
May
(206) |
Jun
(110) |
Jul
(232) |
Aug
(207) |
Sep
(103) |
Oct
(122) |
Nov
(42) |
Dec
(68) |
| 2004 |
Jan
(83) |
Feb
(107) |
Mar
(90) |
Apr
(7) |
May
(42) |
Jun
(36) |
Jul
(11) |
Aug
(24) |
Sep
(67) |
Oct
(116) |
Nov
(96) |
Dec
(22) |
| 2005 |
Jan
(29) |
Feb
(6) |
Mar
(12) |
Apr
(31) |
May
(47) |
Jun
(12) |
Jul
(76) |
Aug
(69) |
Sep
(7) |
Oct
(21) |
Nov
(5) |
Dec
(4) |
| 2006 |
Jan
(5) |
Feb
(7) |
Mar
(7) |
Apr
(3) |
May
(4) |
Jun
(4) |
Jul
(8) |
Aug
(13) |
Sep
(7) |
Oct
(2) |
Nov
(6) |
Dec
(30) |
| 2007 |
Jan
(43) |
Feb
(7) |
Mar
(2) |
Apr
(4) |
May
(11) |
Jun
(1) |
Jul
|
Aug
|
Sep
(22) |
Oct
(18) |
Nov
(6) |
Dec
(31) |
| 2008 |
Jan
(1) |
Feb
(2) |
Mar
(3) |
Apr
|
May
|
Jun
(3) |
Jul
(1) |
Aug
(2) |
Sep
(2) |
Oct
(11) |
Nov
(8) |
Dec
|
| 2009 |
Jan
(6) |
Feb
(4) |
Mar
|
Apr
|
May
(2) |
Jun
|
Jul
|
Aug
(3) |
Sep
|
Oct
(3) |
Nov
|
Dec
(8) |
| 2010 |
Jan
(15) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(4) |
Nov
|
Dec
|
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
(12) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2012 |
Jan
(7) |
Feb
(3) |
Mar
|
Apr
|
May
|
Jun
(4) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
(2) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2018 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: John R. C. <jo...@we...> - 2005-11-07 21:22:48
|
On Monday 07 November 2005 09:01 pm, Russel Crowe wrote: > Hello > > I'm an old Cobol programmer. > I'm interesting begin with TinyCobol, in Windows environment, but it's > difficult for me understand how to install, configure, compile and run with > Mingw. (I've just read the documentation). > > Please, can you tell me, in a simply way: > > 1) what packages i need to download > 2) how to install > 3) how to configure > 4) how to compile > 5) how to run > > Thanks a lot.- Believe it or not it may be simpler in the long run for you to set up a Linux partition and work in there. It is not just the initial install that you have to fight your way through, it is the upgrades. OTOH Linux comes with all stuff, compiler, linker etc. you need. there is a CDR version of Linux out there called Knoppix, and another called Slax. Just put it in the CDR drive and reboot. You also will need a pen drive for your work space because Linux can't write on a NT partition. -- John Culleton Books with answers to marketing and publishing questions: http://wexfordpress.com/tex/shortlist.pdf Book coaches, consultants and packagers: http://wexfordpress.com/tex/packagers.pdf |
|
From: Russel C. <rc...@ya...> - 2005-11-07 21:01:15
|
Hello I'm an old Cobol programmer. I'm interesting begin with TinyCobol, in Windows environment, but it's difficult for me understand how to install, configure, compile and run with Mingw. (I've just read the documentation). Please, can you tell me, in a simply way: 1) what packages i need to download 2) how to install 3) how to configure 4) how to compile 5) how to run Thanks a lot.- --------------------------------- 1GB gratis, Antivirus y Antispam Correo Yahoo!, el mejor correo web del mundo Abrí tu cuenta aquí |
|
From: Dean P. <pow...@ya...> - 2005-10-23 04:57:55
|
Hi, All: Due to a number of factors, I switched my Linux distro to Ubuntu 5.04. I managed to build Berkley DB and get the TC configure step to accept it. gcc is installed: Reading specs from /usr/lib/gcc-lib/i486-linux/3.3.5/specs Configured with: ../src/configure -v --enable-languages=c,c++,java,f77,pascal,objc,ada,treelang --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --with-gxx-include-dir=/usr/include/c++/3.3 --enable-shared --with-system-zlib --enable-nls --without-included-gettext --enable-__cxa_atexit --enable-clocale=gnu --enable-debug --enable-java-gc=boehm --enable-java-awt=xlib --enable-objc-gc i486-linux Thread model: posix gcc version 3.3.5 (Debian 1:3.3.5-8ubuntu2) Bison is 1.875d. The configure step works fine, but there's a problem with the compile. I get a whole mess of messages like: scan.c:1060: error: syntax error before "YY_PROTO" scan.l:120: error: syntax error before "switch" scan.l:123: error: redefinition of `yy_start" scan.c:272: error: `yy_start" previously defined here scan.l:123: warning: data definition has no type or storage class scan.l:124: error: syntax error before "break" scan.l:127: error: redefinition of `yy_start" scan.l:123: error: `yy_start" previously defined here scan.l:127: warning: data definition has no type or storage class and a bunch of others. I understand there is a problem with GCC3.3 and a prototype definition. Does anyone know how to fix this? Thanks in advance! Regards, Dean Powell Edmonton, Canada __________________________________ Start your day with Yahoo! - Make it your home page! http://www.yahoo.com/r/hs |
|
From: Luiz A. A. G. <lui...@ya...> - 2005-10-22 09:24:27
|
Hi
I have a cobol program that calls another cobolusing dynamic library many times . The first call is ok but from the second call the datanames in the library defined in working-storage assumes the last value moved in the last call, besides they have your values definded.
In the sample, the calling program calls repeatedly "testlib" library. This library adds 1 to W-POS, defined in working-storage with VALUE ZEROS, and accept this value. First call shows value 1 but nexts calls doesn't reinitialize W-POS with ZEROS. How can I call this library with reinitialize all datanames in WORKING-STORAGE? Can I delink the library after every call??
Calling Program testcall.cbl
IDENTIFICATION DIVISION.
PROGRAM-ID. testcall.
AUTHOR. SW.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA
CURSOR IS W-POS-CUR
.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 W-POS-CUR PIC 9(6) VALUE 005020.
01 W1 PIC ZZZZZZ.
01 W2 PIC 999999 VALUE 12345.
01 W-POS PIC 9(6) VALUE ZEROS.
01 CAMPO.
05 A PIC X(01) VALUE "0".
05 B PIC X(01) VALUE "1".
01 LINK01 PIC X(100).
01 SWCALL pic X(100).
PROCEDURE DIVISION .
PARAG.
MOVE "testlib" to SWCALL.
CALL SWCALL USING LINK01.
CANCEL "testlib".
GO TO PARAG.
STOP RUN.
htcobol62 -c -P -F testcall
gcc -g -o testcall testcall.o -L../../lib -lhtcobol -ldb -ldl -lm -lncurses
Library Program testlib.cbl
IDENTIFICATION DIVISION.
PROGRAM-ID. testlib.
AUTHOR. SW.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA
CURSOR IS W-POS-CUR
.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 W-POS-CUR PIC 9(6) VALUE 005020.
01 W1 PIC ZZZZZZ.
01 W2 PIC 999999 VALUE 12345.
01 W-POS PIC 9(6) VALUE ZEROS.
01 CAMPO.
05 A PIC X(01) VALUE "0".
05 B PIC X(01) VALUE "1".
LINKAGE SECTION.
01 LINK01 PIC X(100).
PROCEDURE DIVISION USING LINK01.
PARAG.
add 1 to W-POS.
ACCEPT W-POS AT 1010 UPDATE.
EXIT PROGRAM.
htcobol62 -c -P -F testlib
gcc -shared -Wl,-soname,libtestlib.so -o libtestlib.so testlib.o -rdynamic -L/usr/local/lib -lhtcobol -ldb -lm -ldl -lncurses
---------------------------------
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! |
|
From: Louis C. <lo...@e9...> - 2005-10-20 18:59:10
|
I'm trying to compile the example program tdb02.cob and I'm getting the
error below.
linux:/home/adsi/tinycobol-0.63/test.code/tdb02 # htcobol tdb02.cob
tdb02.cob: Assembler
messages:
tdb02.cob:2: Warning: line numbers must be positive; line number 0
rejected
tdb02.cob:2: Error: junk at end of line, first unrecognized character is
`8'
tdb02.cob:2: Warning: line numbers must be positive; line number 0
rejected
tdb02.cob:2: Error: junk at end of line, first unrecognized character is
`9'
If I look at tdb02.lis it state there are no errors. The object file is
not created.
TinyCOBOL compile audit summary:
Total lines compiled : 202
Total number of warnings : 0
Total number of errors found : 0
This is a Suse Linux 9.2 system. tinycobol built from source.
--
--
septbar.jpg
Louis Castoria - ADSI
Software Engineer
1930 First Commercial Drive
Southaven MS, 38671
Phone: 662-393-2046
WEB: http://www.e9.com
adsi.gif
|
|
From: Louis C. <lo...@e9...> - 2005-10-20 18:30:55
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> </head> <body bgcolor="#ffffff" text="#000000"> I'm trying to compile the example program tdb02.cob and I'm getting the error below. <br> <br> linux:/home/adsi/tinycobol-0.63/test.code/tdb02 # htcobol tdb02.cob <br> tdb02.cob: Assembler messages: <br> tdb02.cob:2: Warning: line numbers must be positive; line number 0 rejected <br> tdb02.cob:2: Error: junk at end of line, first unrecognized character is `8' <br> tdb02.cob:2: Warning: line numbers must be positive; line number 0 rejected <br> tdb02.cob:2: Error: junk at end of line, first unrecognized character is `9' <br> <br> <br> If I look at tdb02.lis it state there are no errors. The object file is not created.<br> <br> TinyCOBOL compile audit summary: <br> Total lines compiled : 202 <br> Total number of warnings : 0 <br> Total number of errors found : 0 <br> <br> This is a Suse Linux 9.2 system. tinycobol built from source.<br> <div class="moz-signature">-- <br> <meta http-equiv="Content-Type" content="text/html; "> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Louis Castoria</title> <p><br> <img alt="septbar.jpg" src="cid:par...@e9..." style="width: 329px; height: 51px;" lowsrc="septbar.jpg" height="51" width="329"><br> Louis Castoria - ADSI<br> Software Engineer<br> 1930 First Commercial Drive<br> Southaven MS, 38671<br> Phone: 662-393-2046<br> WEB: <a class="moz-txt-link-freetext" href="http://www.e9.com">http://www.e9.com</a><br> <img alt="adsi.gif" src="cid:par...@e9..." style="width: 100px; height: 53px;" lowsrc="adsi_white.gif" height="52" width="99"></p> </div> </body> </html> |
|
From: Louis C. <lo...@e9...> - 2005-10-20 14:07:55
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> </head> <body bgcolor="#ffffff" text="#000000"> Has anyone used Tiny Cobol with Postgresql or MySql Database? I'm a longtime Cobol user but have never used embeded SQL with COBOL. Does anyone have an example?<br> <div class="moz-signature">-- <br> <meta http-equiv="Content-Type" content="text/html; "> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Louis Castoria</title> <p><br> <img alt="septbar.jpg" src="cid:par...@e9..." style="width: 329px; height: 51px;" lowsrc="septbar.jpg" height="51" width="329"><br> Louis Castoria - ADSI<br> Software Engineer<br> 1930 First Commercial Drive<br> Southaven MS, 38671<br> Phone: 662-393-2046<br> WEB: <a class="moz-txt-link-freetext" href="http://www.e9.com">http://www.e9.com</a><br> <img alt="adsi.gif" src="cid:par...@e9..." style="width: 100px; height: 53px;" lowsrc="adsi_white.gif" height="52" width="99"></p> </div> </body> </html> |
|
From: Jürgen W. <ju...@ya...> - 2005-10-14 18:27:01
|
> BTW, I use this kind of stuff in my tcl/tk to TC interface, tctcl. Thank you very much for your hints, using tgui01/testgui05.c and t07/test07.cob I got it working. Thanks again, Jürgen __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com |
|
From: Rildo J. C. P. <ril...@gl...> - 2005-10-13 13:17:31
|
Hi J=FCrgen,
J=FCrgen Weber wrote:
>Hi,
>
>I'd like to try a socket based server in TinyCOBOL.
>
>The COBOL program should call a C function which,
>being a server, should go into an endless loop
>listening on a socket. When a client connects to the
>socket, the C function should call back to the COBOL
>program with the received buffer.
>
>
>COBOL C
>
>call "sockserver" USING VAR.
> sockserver()
> {
> while(true)
> {
> /* accept next client */
> call COBOLCALLBACK();
> }
> }
> =09
>
>* COBOLCALLBACK
>
>* PERFORM-WORK
>
>* RETURN
>
>
> =20
>
>The COBOL program should call sockserver() with the
>address of a subroutine to callback. I am not sure if
>TinyCOBOL supports this.
>
>Even if sockserver statically calls a TinyCOBOL
>subroutine there should be a way of defining different
>callable exported functions within one program. As I
>understand this would be the ENTRY statement
>(http://www.3000newswire.com/subscribers/InCobol9811.html)
> but TinyCOBOL doesn't support it, does it?
>
>
>MY-SERVICE-A.
>ENTRY "SERVICEA" USING SERVICE-A-COPYBOOK.
>GOBACK.
>
>MY-SERVICE-B.
>ENTRY "SERVICEB" USING SERVICE-B-COPYBOOK.
>GOBACK.
>
>
>sockserver(int (*callback)(char *))
>{
>=09
> listen();
>=09
> while(1)
> {
> fd =3D accept(sockfd, ...);
> =20
> buf =3D read(fd);
> =20
> if (dynamic)
> callback(buf);
> else
> if (service=3D=3D'A')
> SERVICEA(buf);
> else if (service=3D=3D'B')
> SERVICEB(buf);
> }
>}
>
>How could I solve this problem?=20
>
>Alternatively, the following would be fine, too (maybe
>even better, as it would lead to a more clearly
>structured application):
>
>Four Cobol programs, Init, Dispatcher, A, B
>
>Init calls into C-Code and never comes back.
>
>On arrival of a socket client, C-Code calls
>Dispatcher. Dispatcher calls A or B.
>
>Init C-Code Dispatcher A B =20
>
> |------>
>
> |--------->
>
> |------>
> =20
> |------------->
>
>
>There should be one Exe containing everything, one
>main (in Init), one publicly C-callable function
>(Dispatcher entry point) and Dispatcher calling entry
>points of A or B.
>
>Is this possible? I think Dispatcher, A, B should be
>compiled with -m (for no main), but are the program
>entry points publicly callable?
>
> =20
>
The PROGRAM-ID of the cobol program is what you use to call your cobol=20
code from C or any other language. I suggest you compile your cobol=20
programs as a library, so it becomes easier to link against other C (or=20
any other language) modules.=20
You can even call dynamically a cobol (sub-)program, by relying on the=20
dlsym() and related functions to load dynamic libraries (which may be=20
written in cobol, of course).
Also, there is no need to have cobol as the main program, it could be C=20
as well, if you think it would be preferable.=20
BTW, I use this kind of stuff in my tcl/tk to TC interface, tctcl.
best regards,
Rildo
--=20
------------------------------------------------------------------
Rildo Pragana FPGA/uControllers * Linux * tcl/tk
R.Joaquim Nabuco,92/1102 Derby http://www.pragana.net
Recife, PE - Brazil 52011-000 +55-81-3223-5694 / 8837-6122
|
|
From: Jürgen W. <ju...@ya...> - 2005-10-13 11:18:01
|
Hi,
I'd like to try a socket based server in TinyCOBOL.
The COBOL program should call a C function which,
being a server, should go into an endless loop
listening on a socket. When a client connects to the
socket, the C function should call back to the COBOL
program with the received buffer.
COBOL C
call "sockserver" USING VAR.
sockserver()
{
while(true)
{
/* accept next client */
call COBOLCALLBACK();
}
}
* COBOLCALLBACK
* PERFORM-WORK
* RETURN
The COBOL program should call sockserver() with the
address of a subroutine to callback. I am not sure if
TinyCOBOL supports this.
Even if sockserver statically calls a TinyCOBOL
subroutine there should be a way of defining different
callable exported functions within one program. As I
understand this would be the ENTRY statement
(http://www.3000newswire.com/subscribers/InCobol9811.html)
but TinyCOBOL doesn't support it, does it?
MY-SERVICE-A.
ENTRY "SERVICEA" USING SERVICE-A-COPYBOOK.
GOBACK.
MY-SERVICE-B.
ENTRY "SERVICEB" USING SERVICE-B-COPYBOOK.
GOBACK.
sockserver(int (*callback)(char *))
{
listen();
while(1)
{
fd = accept(sockfd, ...);
buf = read(fd);
if (dynamic)
callback(buf);
else
if (service=='A')
SERVICEA(buf);
else if (service=='B')
SERVICEB(buf);
}
}
How could I solve this problem?
Alternatively, the following would be fine, too (maybe
even better, as it would lead to a more clearly
structured application):
Four Cobol programs, Init, Dispatcher, A, B
Init calls into C-Code and never comes back.
On arrival of a socket client, C-Code calls
Dispatcher. Dispatcher calls A or B.
Init C-Code Dispatcher A B
|------>
|--------->
|------>
|------------->
There should be one Exe containing everything, one
main (in Init), one publicly C-callable function
(Dispatcher entry point) and Dispatcher calling entry
points of A or B.
Is this possible? I think Dispatcher, A, B should be
compiled with -m (for no main), but are the program
entry points publicly callable?
Thanks for your help,
Jürgen
__________________________________
Yahoo! Music Unlimited
Access over 1 million songs. Try it free.
http://music.yahoo.com/unlimited/
|
|
From: Fernando W. - I. S. I. Ltda. <fer...@in...> - 2005-10-11 13:05:28
|
Hi Jürgen
Congratulations for your success!!! I found a little bugs during the
TC compilation in Windows... One of this errors is on the htcobrun/Makefile,
that refer to the getopt library, but that is not more necessary for TC... I
only remove the reference and all works fine (tanks to David Essex for this
help).
The msysMDK package is necessary because it provide any compiler
tools, used during the TC config and compilation.
I´m now doing many tests in TC on Windows XP... I will compile all
programs used in my system (over 900 sources)... I believe that is enough
for test TC... hehehe... After all be OK, I will create a little
documentation about the TC compilation in Windows, and probably I will use
the TC wiki... That is a good idea... Thanks... hehehe... Or if you like
write these documentation, your contribution is welcome!!!
If you need more anything, contact me...
Fernando Wuthstrack
InfoCont Sistemas Integrados Ltda.
Diretor
Fone: (47) 422-3536
----- Original Message -----
From: "Jürgen Weber" <ju...@ya...>
To: <tin...@li...>
Sent: Monday, October 10, 2005 7:12 PM
Subject: [Tiny-cobol-users] tinycobol-0.63 on windows - got it working
> Hi,
>
> OK, I finally got tinycobol-0.63 to work on
> windows/Mingw, thanks to Fernando Wuthstrack.
>
> The road to success:
>
> ran MinGW-4.1.0.exe
>
> [x] The minimal set of packages to build C/C++
> [x] the full set of compiler packages
> [x] The full set of utility packages
>
> ran msysDTK-1.0.1.exe (probably unnecessary, as this
> is allready installed by the previous step, is it?)
>
> (I find the MingW install page highly confusing with
> its many, many different packages).
>
>
> Downloaded pdcurses-2.6.0-2003.07.21-1.exe
>
> installed to E:\MinGW, so it got to E:\MinGW\lib
>
>
> Unzipped db-1.85-ac.mingw32.zip
> db.h to e:\mingw\include
> libdb.a to e:\mingw\lib
>
> Tried make:
>
> E:\tinycobol-0.63\test.code\t00>make
> gcc -g -o teste teste.o -L/usr/local/lib -L/usr/lib
> -L../../lib -lhtcobol -lncurses -ldb -ldl -lm
> gcc.exe: no input files
> make: *** [teste] Error 1
>
> By chance tried mingw32-make.exe and the error went
> away. (Why ????)
>
> in E:\MinGW\lib
> copied libpdcurses.a to libncurses.a
>
> Next had to remove the -ldl from the makefile and add
> -L/TinyCOBOL and finally I had my first Cobol exe.
>
> Maybe somebody could put this report on the TC Wiki.
>
>
> The TinyCOBOL should include some typical samples, so
> the user can quickly have success in compiling and
> running the samples. Maybe even a somewhat bigger
> program?
> I discovered only by chance that there are test
> sources in the TC source package.
>
> Thanks,
> Jürgen
>
>
> PS: The compiler breaks in test15
>
> E:\tinycobol-0.63\test.code\t15>mingw32-make.exe
> htcobol -c -P -I../copybooks -I. test15.cob
> htcobol -c -P -I../copybooks -I. test15a.cob
> gcc -g -I/usr/local/include -o test15b.o -c test15b.c
> gcc -g -o test15 test15.o test15a.o test15b.o
> -L/usr/lib -L/TinyCOBOL -L../../
> lib -lhtcobol -ldb -lm
> gcc -g -I/usr/local/include -o test15d.o -c test15d.c
> gcc -g -o test15d test15d.o test15a.o -L/usr/lib
> -L/TinyCOBOL -L../../lib -lht
> cobol -ldb -lm
> htcobol -c -P -I../copybooks -I. test15e.cob
> gcc -g -I/usr/local/include -o test15f.o -c test15f.c
> gcc -g -o test15e test15e.o test15f.o -L/usr/lib
> -L/TinyCOBOL -L../../lib -lhtc
> obol -ldb -lm
> htcobol -c -P -I../copybooks -I. test15g.cob
> mingw32-make.exe: *** [test15g.o] Error -1073741819
>
>
>
>
>
>
>
>
> __________________________________
> Yahoo! Mail - PC Magazine Editors' Choice 2005
> http://mail.yahoo.com
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by:
> Power Architecture Resource Center: Free content, downloads, discussions,
> and more. http://solutions.newsforge.com/ibmarch.tmpl
> _______________________________________________
> Tin...@li...
> https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users
|
|
From: Jürgen W. <ju...@ya...> - 2005-10-10 22:12:26
|
Hi, OK, I finally got tinycobol-0.63 to work on windows/Mingw, thanks to Fernando Wuthstrack. The road to success: ran MinGW-4.1.0.exe [x] The minimal set of packages to build C/C++ [x] the full set of compiler packages [x] The full set of utility packages ran msysDTK-1.0.1.exe (probably unnecessary, as this is allready installed by the previous step, is it?) (I find the MingW install page highly confusing with its many, many different packages). Downloaded pdcurses-2.6.0-2003.07.21-1.exe installed to E:\MinGW, so it got to E:\MinGW\lib Unzipped db-1.85-ac.mingw32.zip db.h to e:\mingw\include libdb.a to e:\mingw\lib Tried make: E:\tinycobol-0.63\test.code\t00>make gcc -g -o teste teste.o -L/usr/local/lib -L/usr/lib -L../../lib -lhtcobol -lncurses -ldb -ldl -lm gcc.exe: no input files make: *** [teste] Error 1 By chance tried mingw32-make.exe and the error went away. (Why ????) in E:\MinGW\lib copied libpdcurses.a to libncurses.a Next had to remove the -ldl from the makefile and add -L/TinyCOBOL and finally I had my first Cobol exe. Maybe somebody could put this report on the TC Wiki. The TinyCOBOL should include some typical samples, so the user can quickly have success in compiling and running the samples. Maybe even a somewhat bigger program? I discovered only by chance that there are test sources in the TC source package. Thanks, Jürgen PS: The compiler breaks in test15 E:\tinycobol-0.63\test.code\t15>mingw32-make.exe htcobol -c -P -I../copybooks -I. test15.cob htcobol -c -P -I../copybooks -I. test15a.cob gcc -g -I/usr/local/include -o test15b.o -c test15b.c gcc -g -o test15 test15.o test15a.o test15b.o -L/usr/lib -L/TinyCOBOL -L../../ lib -lhtcobol -ldb -lm gcc -g -I/usr/local/include -o test15d.o -c test15d.c gcc -g -o test15d test15d.o test15a.o -L/usr/lib -L/TinyCOBOL -L../../lib -lht cobol -ldb -lm htcobol -c -P -I../copybooks -I. test15e.cob gcc -g -I/usr/local/include -o test15f.o -c test15f.c gcc -g -o test15e test15e.o test15f.o -L/usr/lib -L/TinyCOBOL -L../../lib -lhtc obol -ldb -lm htcobol -c -P -I../copybooks -I. test15g.cob mingw32-make.exe: *** [test15g.o] Error -1073741819 __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com |
|
From: Rildo J. C. P. <ril...@gl...> - 2005-10-10 19:09:51
|
Hi Jurgen,
J=FCrgen Weber wrote:
>--- "John R. Culleton" <jo...@we...> wrote:
>
> =20
>
>>A copybook in TinyCOBOL is just an ASCII source file
>>placed where the
>>compiler can find it. There is no special format.
>> =20
>>
>
>No, I was speaking about runtime. How can C code
>access a copybook?
>
>01 PERSON.
> 05 NAME PIC X(20) VALUE ' '.
> 05 AGE PIC 9(04) VALUE 0.
>
>struct person
>{
> char * name;
> int age;
> ...
>}
>
>void fillCopybook(void * copybook)
>{
> strcpy(copybook,myperson->name);
> *(copybook+20) =3D age;
>}
>
>How do I get the structure and offsets of the
>copybook?
>
>Is it as simple as all members are behind each other,
>or are there any separators or length bytes?
>
> =20
>
Yes, there is just the data, no nulls for end-of-string, nor length=20
bytes (as pascal).
This applies not only for TinyCobol, but for any other known cobol (I=20
think).
>>Interfacing with a compiled C or C++ program can be
>>done. The
>>documentation for doing this is not available AFAIK.
>>In this respect
>>OpenCOBOL has better documentation. But there are
>>examples in
>>the test programs. Look in ../test.code/T07.
>> =20
>>
>
>Thanks, but there are no C++ examples. But I guess, I
>just have to wrap the C code with extern "C".
>
>J=FCrgen
> =20
>
In cobol, the instruction "call cfunction using person" will pass a=20
pointer (default is by reference) to an array with the full length (24=20
bytes in your case) of your copybook variable. Be careful not to=20
overwrite the "last+1" byte with a null, as this will overflow the=20
variable's limits.
There are some examples in test.code. Also my tcl/tk interface code is=20
useful, as it moves data from/to cobol variables (it is very small, just=20
a couple pages).
best regards,
Rildo
--=20
------------------------------------------------------------------
Rildo Pragana FPGA/uControllers * Linux * tcl/tk
R.Joaquim Nabuco,92/1102 Derby http://www.pragana.net
Recife, PE - Brazil 52011-000 +55-81-3223-5694 / 8837-6122
|
|
From: Jürgen W. <ju...@ya...> - 2005-10-10 14:11:16
|
--- "John R. Culleton" <jo...@we...> wrote:
> A copybook in TinyCOBOL is just an ASCII source file
> placed where the
> compiler can find it. There is no special format.
No, I was speaking about runtime. How can C code
access a copybook?
01 PERSON.
05 NAME PIC X(20) VALUE ' '.
05 AGE PIC 9(04) VALUE 0.
struct person
{
char * name;
int age;
...
}
void fillCopybook(void * copybook)
{
strcpy(copybook,myperson->name);
*(copybook+20) = age;
}
How do I get the structure and offsets of the
copybook?
Is it as simple as all members are behind each other,
or are there any separators or length bytes?
> Interfacing with a compiled C or C++ program can be
> done. The
> documentation for doing this is not available AFAIK.
> In this respect
> OpenCOBOL has better documentation. But there are
> examples in
> the test programs. Look in ../test.code/T07.
Thanks, but there are no C++ examples. But I guess, I
just have to wrap the C code with extern "C".
Jürgen
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
|
|
From: John R. C. <jo...@we...> - 2005-10-10 12:47:22
|
On Monday 10 October 2005 08:39 am, J=FCrgen Weber wrote: > Hi, > > other questions: > > Is there an example, how to interface tinycobol with > C++? Is this possible at all? > > Is there an example, how to populate a copybook in a C > function or C++ method? Is there a documentation on > the binary structure of a copybook? > > Thanks again, > J=FCrgen A copybook in TinyCOBOL is just an ASCII source file placed where the compiler can find it. There is no special format. Look in=20 =2E./test.code/copybooks for some examples. You are attempting to solve a problem that doesn't exist.=20 Interfacing with a compiled C or C++ program can be done. The documentation for doing this is not available AFAIK. In this respect OpenCOBOL has better documentation. But there are examples in the test programs. Look in ../test.code/T07. =2D-=20 John Culleton Books with answers to marketing and publishing questions: http://wexfordpress.com/tex/shortlist.pdf Book coaches, consultants and packagers: http://wexfordpress.com/tex/packagers.pdf |
|
From: John R. C. <jo...@we...> - 2005-10-10 12:24:53
|
On Monday 10 October 2005 01:37 am, Rildo J. C. Pragana wrote:
> Hi all,
>
>
> To grab my local cvs sources, you may use the following:
>
> CVSROOT=:pserver:ano...@pr...:/mnt/cvspublic
> cvs login
> (with an empty passord)
> cvs co development
>
> My development platform is Linux, but I expect most of this to work
> flawlessly under Windows too. If it doesn't, you may ask me for assistance.
>
> best regards,
> Rildo
Your effort is far more advanced than mine.
Perhaps the gentleman from Chile can puzzle his way through the
documentation in Portugese, since the languages are similar in
many ways.
I am taking a simpler route for now. Here are two tiny test
programs using tcl, expect and COBOL. They work in TC or
OpenCOBOL. They are at this point just proof of concept. The
tcl program is activated and is spawns the COBOL program. The
two exchange a few messages.
-----------------------------
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. TEMPLATE.
000030 AUTHOR. JOHN CULLETON.
000040 INSTALLATION. WEXFORDPRESS
000045 Eldersburg MD.
000050*REMARKS.
000060* THIS IS A TEMPLATE FOR OPEN COBOL AND HTCOBL.
000070 ENVIRONMENT DIVISION.
000080
000090 CONFIGURATION SECTION.
000100 SOURCE-COMPUTER.
000110 Linux.
000120 OBJECT-COMPUTER.
000230 Linux.
000140
000150 INPUT-OUTPUT SECTION.
000160 FILE-CONTROL.
000170 SELECT PRINTFILE ASSIGN TO "testit"
ORGANIZATION IS LINE SEQUENTIAL.
000180 DATA DIVISION.
000190
000200 FILE SECTION.
000210 FD PRINTFILE.
01 PRINTREC PIC X(80).
000220 WORKING-STORAGE SECTION.
000230 01 SPECREC PIC XXX.
000240 PROCEDURE DIVISION.
000250 001-MAIN-PROCEDURE.
OPEN OUTPUT PRINTFILE.
000260 DISPLAY "foo".
ACCEPT SPECREC.
MOVE SPECREC TO PRINTREC.
WRITE PRINTREC.
DISPLAY "OK".
ACCEPT SPECREC.
IF SPECREC EQUAL "end"
MOVE SPECREC TO PRINTREC
WRITE PRINTREC.
CLOSE PRINTFILE.
000270 STOP RUN.
-----------------------------
#!/usr/local/bin/expect -f
spawn cobprog
expect "foo"
send -- "bar\r"
expect "OK"
send -- "end\r"
--------------------------
--
John Culleton
|
|
From: Jürgen W. <ju...@ya...> - 2005-10-10 08:39:22
|
Hi, other questions: Is there an example, how to interface tinycobol with C++? Is this possible at all? Is there an example, how to populate a copybook in a C function or C++ method? Is there a documentation on the binary structure of a copybook? Thanks again, Jürgen __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com |
|
From: Rildo J. C. P. <ril...@gl...> - 2005-10-10 01:37:14
|
Hi all, John R. Culleton wrote: >>>rafael reyes Chile >>> >>> >>I'm handling the same matter. >>The first thing I did was separating cobol screen handling from procedural >>sources. >>In this way the computing program does all i-o and other data handling. It >>just CALLs screen program to get user interface. >>Second thing I did was writing a cobol source which translates cobol >>screens sentences to tcl sources for USING-FROM-GIVING handling. >>Now, when a "procedural" source needs user input, it just writes data, to >>modify-confirm, to a line sequential file; does a system call to tcl >>interpreter which reads and eventually rewrites the file; finally, >>procedural cobol re-reads the file and handles data. >>Unfortunately, the calling program is unable to wait for tcl interpreter >>(system call) exit. So it just manages a wait-read-wait cycle for a second >>line sequantial file, handled by tcl, where an exit status is written. >>The solution appears to be a direct call to tcl's (not a system call) with >>a direct return-status, but. so far, I've not found the solution. >>Anyone has any idea? >>Marcello >> >> > >I have ideas but thus far no success. First, the tcl/tk program >wants to be in charge. We want the COBOL program to be in >charge. Second, a good application will provide instant data >checking. This means that either the Tcl program checks the >data or else there is interaction between the two programs on a >field by field basis. > > > I have written a very simple interface between TC (TinyCobol) and tcl/tk which does exactly that: the cobol program is in charge and have the control. I have also written a short tutorial (in portuguese only for now, sorry, but full of pictures) on how to do several kinds of interactions back and forth from/to tcl variables. You may find the sources of my "tctcl" interface from my local TC cvs (see below for directions) at the directory development/test.code/00_FernandoWuthstrack/tcl. You may also get the tutorial at http://pragana.net/cobol/TC-gui.pdf (ready to read/print) or http://pragana.net/cobol/TC-gui.odt for a OpenOffice.org source of the tutorial. With this interface, you are able to create your GUIs with any Tk gui-builder like Visual Tcl, SpecTcl, TclProE, or others. Please see some examples I've included. By the way, I'm the originator and used to lead this (TinyCobol) project, and I'm also a tcl fan, so if you want to ask anything more, I feel home with this combination (TC+tcl/tk). >Some part of the solution may require the use of the Expect >package. > >But wait, it gets worse. Interactive applications are >essentially event driven. A person fills out a field and >something happens. This may not occur in any predictable order. >COBOL is driven by its internal flow of logic. > >Perhaps the solution is a kind of message handling process. >Something happens in the Tcl/Tk program. A message is sent to >the COBOL program, containing a field identifier and a string of >data. The COBOL program accepts this message, and performs the >necessary logic depending on the field identifier. Then it sends >a message back to the Tcl/Tk program. The tcl logic is reduced >to sending the identifier and the field. Essentially the two >programs are co-routines, with heavy interaction. > >Creating tcl code on the fly is interesting but is not a >solution the heavy interaction problem as I see it. Like it or >not the windowed program has to be in charge and start up the >COBOL program, not vice versa. Coding Tcl is tough enough.Coding >it in the COBOL program just adds another layer of complexity. > >So my proposed solution requires: >a: The Tcl program spawns the COBOL program. >b: The Expect package is used. >c: The action taken as each field is exited is a message to the >COBOL program. The response is either a "OK" message that the >user never sees or an "ERROR" message. > >That is my plan anyhow. I'll let you know how it works out. Too >bad the COMMUNICATION SECTION was abolished. We never needed it >before, and now we need it and don't have it. > >If I have any success I'll post. Don't hold your breath. And my >solution will be Linux-only. Windows is just too difficult for >me. > > To grab my local cvs sources, you may use the following: CVSROOT=:pserver:ano...@pr...:/mnt/cvspublic cvs login (with an empty passord) cvs co development My development platform is Linux, but I expect most of this to work flawlessly under Windows too. If it doesn't, you may ask me for assistance. best regards, Rildo -- ------------------------------------------------------------------ Rildo Pragana FPGA/uControllers * Linux * tcl/tk R.Joaquim Nabuco,92/1102 Derby http://www.pragana.net Recife, PE - Brazil 52011-000 +55-81-3223-5694 / 8837-6122 |
|
From: John R. C. <jo...@we...> - 2005-10-09 12:23:57
|
> > > > rafael reyes Chile > > I'm handling the same matter. > The first thing I did was separating cobol screen handling from procedural > sources. > In this way the computing program does all i-o and other data handling. It > just CALLs screen program to get user interface. > Second thing I did was writing a cobol source which translates cobol > screens sentences to tcl sources for USING-FROM-GIVING handling. > Now, when a "procedural" source needs user input, it just writes data, to > modify-confirm, to a line sequential file; does a system call to tcl > interpreter which reads and eventually rewrites the file; finally, > procedural cobol re-reads the file and handles data. > Unfortunately, the calling program is unable to wait for tcl interpreter > (system call) exit. So it just manages a wait-read-wait cycle for a second > line sequantial file, handled by tcl, where an exit status is written. > The solution appears to be a direct call to tcl's (not a system call) with > a direct return-status, but. so far, I've not found the solution. > Anyone has any idea? > Marcello I have ideas but thus far no success. First, the tcl/tk program wants to be in charge. We want the COBOL program to be in charge. Second, a good application will provide instant data checking. This means that either the Tcl program checks the data or else there is interaction between the two programs on a field by field basis. Some part of the solution may require the use of the Expect package. But wait, it gets worse. Interactive applications are essentially event driven. A person fills out a field and something happens. This may not occur in any predictable order. COBOL is driven by its internal flow of logic. Perhaps the solution is a kind of message handling process. Something happens in the Tcl/Tk program. A message is sent to the COBOL program, containing a field identifier and a string of data. The COBOL program accepts this message, and performs the necessary logic depending on the field identifier. Then it sends a message back to the Tcl/Tk program. The tcl logic is reduced to sending the identifier and the field. Essentially the two programs are co-routines, with heavy interaction. Creating tcl code on the fly is interesting but is not a solution the heavy interaction problem as I see it. Like it or not the windowed program has to be in charge and start up the COBOL program, not vice versa. Coding Tcl is tough enough.Coding it in the COBOL program just adds another layer of complexity. So my proposed solution requires: a: The Tcl program spawns the COBOL program. b: The Expect package is used. c: The action taken as each field is exited is a message to the COBOL program. The response is either a "OK" message that the user never sees or an "ERROR" message. That is my plan anyhow. I'll let you know how it works out. Too bad the COMMUNICATION SECTION was abolished. We never needed it before, and now we need it and don't have it. If I have any success I'll post. Don't hold your breath. And my solution will be Linux-only. Windows is just too difficult for me. John Culleton Books with answers to marketing and publishing questions: http://wexfordpress.com/tex/shortlist.pdf Book coaches, consultants and packagers: http://wexfordpress.com/tex/packagers.pdf |
|
From: Marcello M. <mar...@fo...> - 2005-10-09 11:40:47
|
> > We aer need help to do an program inc tiny cobol for Windows to do > invoice, with TCL-TK > > Thaks, a lot of. > > rafael reyes Chile > I'm handling the same matter. The first thing I did was separating cobol screen handling from procedural sources. In this way the computing program does all i-o and other data handling. It just CALLs screen program to get user interface. Second thing I did was writing a cobol source which translates cobol screens sentences to tcl sources for USING-FROM-GIVING handling. Now, when a "procedural" source needs user input, it just writes data, to modify-confirm, to a line sequential file; does a system call to tcl interpreter which reads and eventually rewrites the file; finally, procedural cobol re-reads the file and handles data. Unfortunately, the calling program is unable to wait for tcl interpreter (system call) exit. So it just manages a wait-read-wait cycle for a second line sequantial file, handled by tcl, where an exit status is written. The solution appears to be a direct call to tcl's (not a system call) with a direct return-status, but. so far, I've not found the solution. Anyone has any idea? Marcello |
|
From: John R. C. <jo...@we...> - 2005-10-08 20:58:38
|
On Friday 07 October 2005 04:46 pm, RAFAEL reyes wrote: > Hi, > > We aer need help to do an program inc tiny cobol for Windows to do invoice, > with TCL-TK > > Thaks, a lot of. > > rafael reyes Chile > Do you have TinyCOBOL installed on your system? Do you have Tcl/Tk installed on your system? Do you have the Expect package installed on your system? Was the file where the invoice information is available created by TinyCOBOL? If so can you show us the file layout (FD)? Is there a customer file that is to be used when creating invoices.? It is possible to use both Tcl/Tk and COBOL in the same application but the connection between the two programs is not trivial. Perhaps someone who has mastery of Spanish could be of more help than I. Any volunteers? -- John Culleton Books with answers to marketing and publishing questions: http://wexfordpress.com/tex/shortlist.pdf Book coaches, consultants and packagers: http://wexfordpress.com/tex/packagers.pdf |
|
From: RAFAEL r. <raf...@la...> - 2005-10-07 16:47:32
|
Hi, We aer need help to do an program inc tiny cobol for Windows to do invo= ice, with TCL-TK Thaks, a lot of. rafael reyes Chile TRADUCCION: Necesitamos ayuda para confeccionar un programa en tiny cobol con TCL-T= k para windows que emita e imprima una factura. Muchas gracias =A1S=E9 listo! Contrata el antivirus http://www.pandasoftware.es/tienda= /?idpers=3D109&track=3D13920 |
|
From: Jürgen W. <ju...@ya...> - 2005-10-06 17:49:26
|
Hi, I tried in vain to get tinycobol-0.63 to run on windows. Has anybody recently tried it? Or has somebody even succeded in compiling it with plain Visual C++ ? I got quite far compiling it with cygwin, but the linker fails: make[1]: Entering directory `/cygdrive/e/tinycobol-0.63/lib' gcc -shared -Wl,-soname,libhtcobol.so.0 -o libhtcobol.so.0.63.0 mcmath.lo genera l.lo fileio.lo pictures.lo basicio.lo strings.lo screenio.lo cobmove.lo cobmove_ f_.lo cobmove_x_.lo cobmove_e_.lo cobmove_9_.lo cobmove_b_.lo cobmove_c_.lo rter rors.lo scr_curses.lo intrinsic.lo dyncall.lo flckclient.lo config.lo -ldl -lcyg win -ldb -lncurses /usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../i686-pc-cygwin/bin/ld: cannot find -ldl collect2: ld returned 1 exit status make[1]: *** [libhtcobol.so.0.63.0] Error 1 Thanks, Juergen __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com |
|
From: John R. C. <jo...@we...> - 2005-09-26 20:55:00
|
On Saturday 24 September 2005 04:22 pm, Volker N. Englisch wrote: > Hi! > > I want to call "mktemp" from inside my Cobol program. I tried it this > way: > > IDENTIFICATION DIVISION. > PROGRAM-ID. T1. > * > ENVIRONMENT DIVISION. > DATA DIVISION. > WORKING-STORAGE SECTION. > 01 W-QUERY. > 03 W-QUERY-1 PIC X(33) > VALUE "mktemp /tmp/$0.XXXXXX 2>/dev/null". > 03 W-QUERY-2 PIC X VALUE LOW-VALUE. > 01 W-RESULT PIC X(40). > * > PROCEDURE DIVISION. > 00000-MAIN. > CALL "system" USING BY CONTENT W-QUERY RETURNING W-RESULT. > DISPLAY "RESULT: " W-RESULT. > STOP RUN. > > When running this program, I see e.g.: > > /tmp/sh.030370 > RESULT: > > How can I get the file name into my W-RESULT field? Is there a way to > accomplish this? > > Thanks in advance > > V. Well I am not familiar with all the features of your CALL statement. I would route the results of your mktemp program to a small one-line file and then read that file in the usual way. -- John Culleton Books with answers to marketing and publishing questions: http://wexfordpress.com/tex/shortlist.pdf Book coaches, consultants and packagers: http://wexfordpress.com/tex/packagers.pdf |
|
From: Volker N. E. <eng...@qu...> - 2005-09-24 19:06:21
|
Hi!
I want to call "mktemp" from inside my Cobol program. I tried it this
way:
IDENTIFICATION DIVISION.
PROGRAM-ID. T1.
*
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 W-QUERY.
03 W-QUERY-1 PIC X(33)
VALUE "mktemp /tmp/$0.XXXXXX 2>/dev/null".
03 W-QUERY-2 PIC X VALUE LOW-VALUE.
01 W-RESULT PIC X(40).
*
PROCEDURE DIVISION.
00000-MAIN.
CALL "system" USING BY CONTENT W-QUERY RETURNING W-RESULT.
DISPLAY "RESULT: " W-RESULT.
STOP RUN.
When running this program, I see e.g.:
/tmp/sh.030370
RESULT:
How can I get the file name into my W-RESULT field? Is there a way to
accomplish this?
Thanks in advance
V.
|
24 messages has been excluded from this view by a project administrator.
