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: Carlinux <car...@te...> - 2007-02-25 19:43:08
|
On Sat, 24 Feb 2007 22:26:39 -0500 donald tees <don...@sy...> wrote: > I have downloaded and installed the latest open cobol from the website, > and installed it on a mandriva machine. It appears to be compiling my > hello-world program, but when I try to run it, i get the following: > > ./test: error while loading shared libraries: libcob.so.1: cannot open > shared object file: No such file or directory > > I expect I either have to move the libraries somewhere particular, or > set some sort of variable to tell the compiler where they are, but do > not have a clue how to do so. A search finds that file in usr/local/lib. > make: #ln -s /usr/local/lib/libcob.so.1 /usr/lib/libcob.so.1 bye -- Carlucio Lopes- Cobolito 62-8415-8939 msn:car...@ho... Entenda Pirataria => http://www.carlinux.v10.com.br Compilador Cobol Free http://tinycobol.org em Portugues Porque Cobol? ==> http://www.clubecobol.com.br/cc_porque_cobol_02.asp Projeto Debian Brasil http://cdd.debian-br.org Tinycobol/Debian Gnu-Linux/Postgresql/Tcl-Tk |
|
From: donald t. <don...@sy...> - 2007-02-25 03:26:42
|
I have downloaded and installed the latest open cobol from the website, and installed it on a mandriva machine. It appears to be compiling my hello-world program, but when I try to run it, i get the following: ./test: error while loading shared libraries: libcob.so.1: cannot open shared object file: No such file or directory I expect I either have to move the libraries somewhere particular, or set some sort of variable to tell the compiler where they are, but do not have a clue how to do so. A search finds that file in usr/local/lib. If anybody can advise me, or point me at the germane info, I'd appreciate it. Donald |
|
From: John R. C. <jo...@we...> - 2007-02-25 00:20:21
|
On Friday 23 February 2007 08:55, vince coen wrote: > Hi All; > > Two questions: > > 1. How can I use accept / Display using line / col or any variation > of to capture data from a specific location into or from the > screen. > > I am assuming that screen section is not functional. > > If non functional is there any plans to add them and if so roughly > when? > > 2. What MF type library routines are present other than intrinsic > ie., call-by-name or call by number. > > One specifically would be handy that allows developed program to > execute a bash / msdos command and return back a error level from > command that allow programmer to confirm correct execution. > > This would allow one to do file manipulation such as rename, delete > files or directories etc. > > > If none is there any plans to add any to the compiler? > > Vince. Tiny Cobol has some of these features. Try that compiler instead. -- John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com |
|
From: David E. <de...@us...> - 2007-02-11 07:11:25
|
Ralcala wrote: > Hi fellas i now its a newie question but i need > your help i just cant compile a file with this > syntax errors: > > error: syntax error, on or before 'IN' > error: invalid clause in select, on or before 'IN' > ... > and in the cobol files stands for: > > FILE-CONTROL. > SELECT CREAANSA ASSIGN TO "anusaldo.idx" > ORGANIZATION IS INDEXED > ACCESS MODE IS RANDOM > RECORD KEY IS CVESAL > ALTERNATE RECORD KEY IS ULTSAL IN REGAAS > WITH DUPLICATES > ... The problem is with the qualification of the identifiers (IN REGAAS). This syntax is valid, but not currently implimented in TC for file description entries. Just remove the 'IN REGAAS' and the code should compile. Hope this helps. |
|
From: Ralcala <ral...@gm...> - 2007-02-10 19:21:06
|
Hi fellas i now its a newie question but i need your help i just cant compile
a file with this syntax errors:
creaansa.cob: 16: error: syntax error, on or before 'IN'
creaansa.cob: 16: error: invalid clause in select, on or before 'IN'
creaansa.cob: 16: error: invalid clause in select, on or before 'IN'
creaansa.cob: 16: error: invalid option, REGAAS, on or before 'REGAAS'
creaansa.cob: 16: error: invalid clause in select, on or before 'WITH'
creaansa.cob: 16: error: invalid clause in select, on or before 'WITH'
creaansa.cob: 16: error: invalid clause in select, on or before
'DUPLICATES'
and in the cobol files stands for:
FILE-CONTROL.
SELECT CREAANSA ASSIGN TO "anusaldo.idx"
ORGANIZATION IS INDEXED
ACCESS MODE IS RANDOM
RECORD KEY IS CVESAL
ALTERNATE RECORD KEY IS ULTSAL IN REGAAS WITH DUPLICATES
ALTERNATE RECORD KEY IS CVEAGE IN REGAAS WITH DUPLICATES
ALTERNATE RECORD KEY IS CVECOB IN REGAAS WITH DUPLICATES.
Any idea is welcome and thanks for your attention.
Bye.
--
View this message in context: http://www.nabble.com/Syntax-error-converting-cobol-files-to-TC-tf3206373.html#a8903911
Sent from the tiny-cobol-users mailing list archive at Nabble.com.
|
|
From: David E. <de...@us...> - 2007-02-01 04:02:33
|
Hi All, A new TC update (0.63.51) is available on SF CVS. I have no plans to make any further changes to the compiler, run-time or cobrun in the near future. So any one who would like to update TC CVS, now would be the time to do so. Please forward any comments, bugs to this list. David Essex |
|
From: David E. <de...@us...> - 2007-01-18 05:25:46
|
Donald Tees wrote: > I am trying to install tiny-cobol but am obviously missing > a package. > > I have installed the db1-1.85.4-8.i386.rpm, but am getting > the following on the ./configure command, > > #./configure --with-libdb=3 > ... > Beginning DB library header search sequence > checking for db3/db_185.h... no > configure: error: header db3/db_185.h for library db version > 3.x not found... aborting > > I tried both with and without the --with-libdb=3 option. > > Any pointers? Many distributions have BDB installed by default. Check to see if you have BDB installed, and what version. Newer distributions have migrated to BDB version 4x. If so, you could try the 'configure --with-libdb=4' option. Since you have installed BDB '1.85.4' the '--with-libdb=1' option will likely NOT work. The version 0.63 configure was not designed with this in mind, so the script will fail. If BDB is not installed, check your distribution packages. If all else fails, download the BDB 1.85.4 sources and build and install those. The above should work, but it depends on the locations and names of the BDB header and library files. Hope this helps, David Essex |
|
From: vince c. <vb...@bt...> - 2007-01-18 01:50:28
|
Hi; On Wednesday 17 January 2007 17:55, donald tees wrote: > I am trying to install tiny-cobol but am obviously missing a package. > > I have installed the db1-1.85.4-8.i386.rpm, but am getting the following > on the ./configure command, That looks like 1,85 so just run ./configure --with-libdb=1 > > [root@LizzyLinux tinycobol-0.63]# ./configure --with-libdb=3 > loading cache ./config.cache > checking for db3/db_185.h... no > configure: error: header db3/db_185.h for library db version 3.x not > found... aborting > > I tried both with and without the --with-libdb=3 option. Vince. |
|
From: Carlinux <car...@te...> - 2007-01-17 19:41:13
|
On Wed, 17 Jan 2007 12:55:32 -0500
donald tees <don...@sy...> wrote:
> I am trying to install tiny-cobol but am obviously missing a package.
>
> I have installed the db1-1.85.4-8.i386.rpm, but am getting the following
> on the ./configure command,
>
> [root@LizzyLinux tinycobol-0.63]# ./configure --with-libdb=3
> loading cache ./config.cache
> Beginning DB library header search sequence
> checking for db3/db_185.h... no
> configure: error: header db3/db_185.h for library db version 3.x not
> found... aborting
>
what distribuition Linux? install libdb3-dev:
ii libdb3 3.2.9-22 Berkeley v3 Database Libraries [runtime]
ii libdb3-dev 3.2.9-22 Berkeley v3 Database Libraries
[development]
ii libdb3-util 3.2.9-22 Berkeley v3 Database Utilities
ii bison-1.35 1.35-4 A parser generator that is compatible with
Y
ii flex-old 2.5.4a-6 The old version of the fast lexical
analyzer
/etc/profile
export LD_LIBRARY_PATH=/usr/local/lib
export TCOB_LD_LIBRARY_PATH=.
bye
--
Carlucio Lopes- Cobolito 62-8415-8939 msn:car...@ho...
Entenda Pirataria => http://www.carlinux.v10.com.br
Compilador Cobol Free http://tinycobol.org em Portugues
Porque Cobol? ==> http://www.clubecobol.com.br/cc_porque_cobol_02.asp
Projeto Debian Brasil http://cdd.debian-br.org Tinycobol/Debian Gnu-Linux/Postgresql/Tcl-Tk
|
|
From: donald t. <don...@sy...> - 2007-01-17 17:55:42
|
I am trying to install tiny-cobol but am obviously missing a package.
I have installed the db1-1.85.4-8.i386.rpm, but am getting the following
on the ./configure command,
[root@LizzyLinux tinycobol-0.63]# ./configure --with-libdb=3
loading cache ./config.cache
checking host system type... i686-pc-linux-gnu
checking target system type... i686-pc-linux-gnu
checking build system type... i686-pc-linux-gnu
checking for gcc... gcc
checking for as... as
checking for a BSD compatible install... /usr/bin/install -c
checking whether ln -s works... yes
checking whether make sets ${MAKE}... yes
checking for ranlib... ranlib
checking for ar... ar
checking for flex... flex
checking for bison... bison
checking for expand... /usr/bin/expand
checking how to run the C preprocessor... gcc -E
checking for ANSI C header files... yes
checking for stdio.h... yes
checking for alloca.h... yes
checking for errno.h... yes
checking for fcntl.h... yes
checking for limits.h... yes
checking for sys/time.h... yes
checking for unistd.h... yes
checking for malloc.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for strings.h... yes
checking for utime.h... yes
checking for ctype.h... yes
checking for sys/stat.h... yes
checking for sys/types.h... yes
checking for getopt.h... yes
checking for working const... yes
checking for off_t... yes
checking for size_t... yes
checking whether struct tm is in sys/time.h or time.h... time.h
checking for 8-bit clean memcmp... yes
checking for vprintf... yes
checking for strcspn... yes
checking for strdup... yes
checking for strerror... yes
checking for strspn... yes
checking for putenv... yes
checking for asin in -lm... yes
Beginning DB library header search sequence
checking for db3/db_185.h... no
configure: error: header db3/db_185.h for library db version 3.x not
found... aborting
I tried both with and without the --with-libdb=3 option.
Any pointers?
Donald
|
|
From: David E. <de...@us...> - 2007-01-16 04:56:56
|
FYI, A new TC update (0.63.39) is available on SF CVS. Some changes to the RTL where necessary. The curses library is now required for all applications, regardless of whether SCREEN-IO is used in the COBOL program. This change was made to ensure that the program run-time unit terminates curses properly. Please forward any comments, bugs. David Essex |
|
From: David E. <de...@us...> - 2007-01-13 08:11:10
|
John R. Culleton wrote: > ... > Just for fun I took an indexed sequential file created > in TinyCOBOL and read it sequentially in a program > compiled with OpenCobol. > It ran without incident. > ... There are incompatibilities between versions of BDB. For example, if you try to read/write to file created using BDB version 2.x or 3.x using a program compiled with BDB 1.x, it will likely not work properly. TC uses the BDB 1.85 API, regardless of what version of is BDB used, while OC does not use the BDB 1.85 API. I'm surprised that the above example worked, even if you you used the same version of BDB with both OC and TC. Anyway, something to consider when using BDB. |
|
From: David E. <de...@us...> - 2007-01-11 18:18:42
|
David Essex wrote:
> Harold Norris wrote:
>> ...
>> If you don't get this when you run it, I'll send over a copy of my
>> library. The only other addition to the library is a trap for
>> control-c.
>> My customer's employees enjoy, I think, entering control-c
>> to terminate what ever they are doing and it has caused
>> massive damage to the data files.
> ...
> Well 'control-c' is trapped by the curses library, I think.
> It is supposed to be used in emergency situations only.
>
> The TC RTL does not do any clean-up of the run-time unit.
> As a result, the files are not sync-ed and closed.
I will add a control-c trap to the RTL defined at run-time, with the
following options.
1) Ignore
This option will trap but ignore the signal
2) Exit
This option will trap and perform an clean exit of the program using the
RT exit routines.
Hint:
The 'CRT STATUS' can be used to determine a key press.
Function keys F1-Fn (PF1-PFn), can be used to perform special functions.
Key: F1 value: 0264 + 1
Key: Fn value: 0264 + n
Example:
IDENTIFICATION DIVISION.
...
CONFIGURATION SECTION.
SPECIAL-NAMES.
CRT STATUS IS status-field.
...
WORKING-STORAGE SECTION.
01 status-field PIC 9(04) VALUE 0.
88 status-field-f3 VALUE 0267.
...
PROCEDURE DIVISION.
...
perform A-200
until status-field-f3 .
...
A-200.
...
accept ... line 2 position 1.
...
Hope this helps.
David Essex
|
|
From: David E. <de...@us...> - 2007-01-11 00:16:48
|
Harold Norris wrote: > I took test26.cob as a start. > The existing data being displayed is being updated > with new data. > I am using a PIC X(*) variable as TC doesn't deal > well with non numeric data in a numeric variable. > ... > WORKING-STORAGE SECTION. > 01 D-1 PIC Z(6).99. > 01 D-2 PIC S9(6)V99 VALUE 45.77. > 01 W-1 PIC X(14) JUST RIGHT. > 01 W-2 PIC X(14) JUST RIGHT. > 01 W-3 PIC X. > 01 E-X PIC 9(4) COMP. > PROCEDURE DIVISION. > GO TO A001-START. > EX1-ERROR. > IF E-X = 14 MOVE 0 TO E-X. > A001-START. > MOVE D-2 TO D-1. > MOVE D-1 TO W-1. > display W-1 LINE 3 POSITION 10. > accept W-2 line 3 position 10 > ON EXCEPTION E-X PERFORM EX1-ERROR. > INSPECT W-2 REPLACING LEADING " " BY "0". > * IN HERE ARE LINES DETERMINING IF THE > * INPUT CHARACTERS ARE NUMERIC OR NOT. > MOVE W-2 TO D-2. > MOVE D-2 TO D-1. > DISPLAY D-1 LINE 3 POSITION 10. > IF E-X = 0 GO TO A001-START. > STOP RUN. > > What I get when I run the program is > (on line 3 position 10). > 45.77 > The accept cursor locates itself in > column 10 AND does not blank out the 45.77 > after I input numeric data and hit enter, > the old 45.77 is replaced by the new data. I think your code segment works, but there is no automated way to test you code changes for any new bugs. I have looked at the code, and currently there are two options available. The first, the default, will pad the data with blanks and display it. The second, UPDATE, will update the display field with the contents of the identifier. So I'm not aware of any SCREEN-IO option to achieve the desired effect. But I think that would be the way to do it. Is any one aware if it is possible to to the above with other compilers? And if so, is it an option or default behavior. > If you don't get this when you run it, I'll send over a copy of my > library. The only other addition to the library is a trap for > control-c. > My customer's employees enjoy, I think, entering control-c > to terminate what ever they are doing and it has caused > massive damage to the data files. Congratulations, you are now officially a C programmer. Well 'control-c' is trapped by the curses library, I think. It is supposed to be used in emergency situations only. The TC RTL does not do any clean-up of the run-time unit. As a result, the files are not sync-ed and closed. There are some ways around this, but then you would need some other way to trap an emergency exit. David Essex |
|
From: John R. C. <jo...@we...> - 2007-01-10 22:22:48
|
Rildo Pragana, the author emeritus of TinyCOBOL, tells me that the two
compilers were both based on his original work. Just for fun I took an
indexed sequential file created in Tiny and read it sequentially in a program
compiled with Open Cobol. It ran without incident. So it should be feasable
to use either compiler, or both, in the same application.
There are differences of course. Tiny is built to the COBOL 85 standard and
Open has implemented some features of 2002. And Tiny has both positional
accept/display and also the official COBOL screen section. But the features
and syntax largely overlap, and that is as it should be.
What both lack is a jazzy GUI for the Pepsi Generation. But Rildo has written
and tested an interface with Tcl/Tk. It requires a C program he wrote as an
intermediate between the two. The COBOL program is in charge and calls the
Tcl/TK program. This is the natural tendency for those of us raised on COBOL
at our mother's knee.
But I see virtues in putting Tcl/Tk on top, and using the expectk version of
the Tcl/Tk program. Specifically I will be writing applications where a
simple Tcl/Tk or expectk menu will call different scripts/programs and the
interactive ones will consist of an expectk screen and a COBOL program
spawned by it that does the heavy lifting.
Long tcl programs are not very readable and there is little or no data typing
in tcl. A full application written in any Tcl variant would be difficult to
debug.
Let me explain a bit about the history. Originally Tcl was written as a
powerful scripting language for ad hoc and "glue" applications. It was
expanded in two directions. When the Tk toolkit was added it became Tcl/Tk
with a topnotch graphical interface. When Don Libes added his expect code it
became a language that could interact with interactive applications like fsck
and ftp. Add the two extensions together and you have expectk, a language
that can both handle a fine GUI screen and interact with a command line
interactive program that it spawns. There is no linking step required, just
conversation back and forth using stdin and stdout.
I have just written my first expectk over COBOL toy. The expectk script spawns
the COBOL program. That program sends a string "Hello world" to the script
which replies with the string "goodbye". The COBOL program writes
the "goodbye" string to a file. Then the COBOL program sends the
string "exit" and the script exits. So the interaction between GUI-capable
script language and the COBOL program works without any intermediate
programming or any linking.
Here is the test script:
#!/usr/bin/expectk
spawn testcob
expect {
"llo" {exp_send "goodbye\r"}
"xit" {exit}
}
exit
And here is the PROCEDURE DIVISION:
001-MAIN-PROCEDURE.
OPEN OUTPUT OUTFILE.
DISPLAY "Hello world".
ACCEPT OUTFIELD.
WRITE OUTREC.
DISPLAY "exit".
CLOSE OUTFILE.
STOP RUN.
Note that the script does different things depending on what is sent to it.
Error messages could be sent to it and these would then cause a specific field
to be highlighted and so on. All in all it seems to be a very practical
combination of tools.
--
John Culleton
Able Indexing and Typesetting
Precision typesetting (tm) at reasonable cost.
Satisfaction guaranteed.
http://wexfordpress.com
|
|
From: John R. C. <jo...@we...> - 2007-01-10 00:07:59
|
On Tuesday 09 January 2007 18:34, Pam & Harold Norris wrote: > <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> On mailing lists it is considered courtesy not to send html formatted messages. Most savvy people have html turned off in their mail readers to avoid possible expolits by spammers. -- John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com |
|
From: Pam & H. N. <phn...@ve...> - 2007-01-09 22:27:25
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Hi David.<br>
<br>
I took test26.cob as a start. The existing data being displayed is
being updated with new data. I am using a PIC X(*) variable as TC
doesn't deal well with non numeric data in a numeric variable.<br>
<br>
IDENTIFICATION DIVISION.<br>
PROGRAM-ID. TEST26.<br>
ENVIRONMENT DIVISION.<br>
CONFIGURATION SECTION.<br>
DATA DIVISION.<br>
FILE SECTION.<br>
<br>
WORKING-STORAGE SECTION.<br>
01 D-1 PIC Z(6).99.<br>
01 D-2 PIC S9(6)V99 VALUE 45.77.<br>
01 W-1 PIC X(14) JUST RIGHT.<br>
01 W-2 PIC X(14) JUST RIGHT.<br>
01 W-3 PIC X.<br>
01 E-X PIC 9(4) COMP.<br>
PROCEDURE DIVISION.<br>
GO TO A001-START.<br>
EX1-ERROR.<br>
IF E-X = 14 MOVE 0 TO E-X.<br>
A001-START.<br>
MOVE D-2 TO D-1.<br>
MOVE D-1 TO W-1.<br>
display W-1 LINE 3 POSITION 10.<br>
accept W-2 line 3 position 10 ON EXCEPTION E-X PERFORM EX1-ERROR.<br>
INSPECT W-2 REPLACING LEADING " " BY "0".<br>
<br>
* IN HERE ARE LINES DETERMINING IF THE INPUT CHARACTERS ARE NUMERIC
OR NOT.<br>
<br>
MOVE W-2 TO D-2.<br>
MOVE D-2 TO D-1.<br>
DISPLAY D-1 LINE 3 POSITION 10.<br>
IF E-X = 0 GO TO A001-START.<br>
<br>
STOP
RUN.
<br>
<br>
What I get when I run the program is (on line 3 position 10).<br>
45.77<br>
The accept cursor locates itself in column 10 AND does not blank out
the 45.77<br>
after I input numeric data and hit enter, the old 45.77 is replaced by
the new data.<br>
<br>
If you don't get this when you run it, I'll send over a copy of my
library. The only other addition to the library is a trap for
control-c. My customer's employees enjoy, I think, entering control-c
to terminate what ever they are doing and it has caused massive damage
to the data files.<br>
<br>
I have go to go to Florida (Part vacation part because father-in-law is
in the hospital) and I probably won't be back for a month or so.<br>
<br>
Harold<br>
<br>
<blockquote
cite="mid...@li..."
type="cite">
<table class="header-part1" border="0" cellpadding="0" cellspacing="0"
width="100%">
<tbody>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">Subject:
</div>
Re: [Tiny-cobol-users] Changes to curses accept</td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">From: </div>
David Essex <a class="moz-txt-link-rfc2396E" href="mailto:de...@us..."><de...@us...></a></td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">Date: </div>
Tue, 09 Jan 2007 02:55:53 -0500</td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">To: </div>
tiny-cobol-users <a class="moz-txt-link-rfc2396E" href="mailto:tin...@li..."><tin...@li...></a></td>
</tr>
</tbody>
</table>
<table class="header-part2" border="0" cellpadding="0" cellspacing="0"
width="100%">
<tbody>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">To: </div>
tiny-cobol-users <a class="moz-txt-link-rfc2396E" href="mailto:tin...@li..."><tin...@li...></a></td>
</tr>
</tbody>
</table>
<br>
Harold Norris wrote:
<br>
<br>
> ...
<br>
> This is an update to my request for an update to
<br>
> curses accept which allow preexisting data to be
<br>
> displayed as opposed to being over written by an
<br>
> empty variable.
<br>
>
<br>
> I am not, nor do I plan to become a C programmer.
<br>
> I did, however find an easy way to achieve my goals
<br>
> without apparently causing any other problems to occur.
<br>
<br>
After some small tests, I suspect your modifications do not fully meet
your objective.
<br>
<br>
Just to clarify your objective. Do you have some small sample COBOL
code you could you post to this list, which demonstrates what you are
trying to achieve.
<br>
<br>
David Essex
<br>
<br>
<br>
<br>
<br>
<br>
<hr size="4" width="90%"><br>
<table class="header-part1" border="0" cellpadding="0" cellspacing="0"
width="100%">
<tbody>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">Subject:
</div>
[Tiny-cobol-users] Documentation: man and help files updates -
translators needed</td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">From: </div>
David Essex <a class="moz-txt-link-rfc2396E" href="mailto:de...@us..."><de...@us...></a></td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">Date: </div>
Tue, 09 Jan 2007 02:56:12 -0500</td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">To: </div>
tiny-cobol-users <a class="moz-txt-link-rfc2396E" href="mailto:tin...@li..."><tin...@li...></a></td>
</tr>
</tbody>
</table>
<table class="header-part2" border="0" cellpadding="0" cellspacing="0"
width="100%">
<tbody>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">To: </div>
tiny-cobol-users <a class="moz-txt-link-rfc2396E" href="mailto:tin...@li..."><tin...@li...></a></td>
</tr>
</tbody>
</table>
<br>
Hi all,
<br>
<br>
I'm in the process of updating some TC documentation to be used for
<br>
command line help, man files and Html docs.
<br>
<br>
Currently there are partial or out of date translations for Spanish
<br>
(es), French (fr), Italian (it) and Portuguese (Brazilian BR).
<br>
<br>
Your help is needed to translate or update these translations.
<br>
<br>
I have enclosed some text files which can be used as a starting point.
<br>
Or if any one would like to add another language please use English as
<br>
your guide.
<br>
<br>
All that is required is the translated text, and I will do the rest.
<br>
<br>
So please forward any translated text files to this mailing list, or
<br>
preferably to my email address.
<br>
<br>
Please note that have removed the configure option for language,
besides
<br>
English, from the TC compiler. So the only language that is currently
<br>
available for command line help is English.
<br>
<br>
I will be glad to add any language, as long as I receive an new or
<br>
updated translated text.
<br>
<br>
Thanks for help,
<br>
<br>
David Essex
<br>
<br>
<pre wrap="">
<hr size="4" width="90%">
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
<a class="moz-txt-link-freetext" href="http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV">http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV</a></pre>
<pre wrap="">
<hr size="4" width="90%">
_______________________________________________
Tiny-cobol-users mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Tin...@li...">Tin...@li...</a>
<a class="moz-txt-link-freetext" href="https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users">https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users</a>
</pre>
</blockquote>
<br>
</body>
</html>
|
|
From: David E. <de...@us...> - 2007-01-09 07:58:06
|
Hi all, I'm in the process of updating some TC documentation to be used for command line help, man files and Html docs. Currently there are partial or out of date translations for Spanish (es), French (fr), Italian (it) and Portuguese (Brazilian BR). Your help is needed to translate or update these translations. I have enclosed some text files which can be used as a starting point. Or if any one would like to add another language please use English as your guide. All that is required is the translated text, and I will do the rest. So please forward any translated text files to this mailing list, or preferably to my email address. Please note that have removed the configure option for language, besides English, from the TC compiler. So the only language that is currently available for command line help is English. I will be glad to add any language, as long as I receive an new or updated translated text. Thanks for help, David Essex |
|
From: David E. <de...@us...> - 2007-01-09 07:57:42
|
Harold Norris wrote: > ... > This is an update to my request for an update to > curses accept which allow preexisting data to be > displayed as opposed to being over written by an > empty variable. > > I am not, nor do I plan to become a C programmer. > I did, however find an easy way to achieve my goals > without apparently causing any other problems to occur. After some small tests, I suspect your modifications do not fully meet your objective. Just to clarify your objective. Do you have some small sample COBOL code you could you post to this list, which demonstrates what you are trying to achieve. David Essex |
|
From: Pam & H. N. <phn...@ve...> - 2007-01-08 23:51:52
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Hi,<br>
<br>
This is an update to my request for an update to curses accept which
allow preexisting data to be displayed as opposed to being over written
by an empty variable.<br>
<br>
I am not, nor do I plan to become a C programmer. I did, however find
an easy way to acheive my goals without apparently causing any other
problems to occur.<br>
<br>
In the scr_curses.c file I changed one variable to another<br>
/*-------------------------------------------------------------------------*\<br>
|
|<br>
|
_DisplayForAccept |<br>
|
|<br>
\*-------------------------------------------------------------------------*/<br>
static void _DisplayForAccept(struct ScrFld *pFld) {<br>
<br>
set_atributes(pFld);<br>
tcob_scr_setyx(pFld->iLine, pFld->iCol);<br>
<br>
if(pFld->iAttributes & SCR_BLANK_LINE)<br>
clrtoeol();<br>
<br>
if(pFld->iAttributes & SCR_SECURE)<br>
tcob_scr_setchar('*', pFld->fldScr.len);<br>
else if(pFld->iAttributes & SCR_NOECHO)<br>
tcob_scr_setchar(' ', pFld->fldScr.len);<br>
else<br>
addnstr(pFld->caWk,pFld->iFldPos + 1); <big>This
is the line I changed. I took the variable </big>pFld->fldScr.len
out <big>and replaced it with</big> pFld->iFldPos + 1<br>
<big>This change results in the display to terminate at the end of the
newly typed in data instead of at the</big><br>
//
else
<big>end of the variable.<br>
</big>// addnstr(pFld->caWk, pFld->fldScr.len); <big>I
know you aren't really interested with developing a compiler unique to
each application, <br>
but this change may be useful to others and it allowed
me to make my customer happy.<br>
</big>}<br>
void tcob_scr_display_field(struct ScrFld *pFld){<br>
_DisplayField(pFld);<br>
}<br>
void tcob_scr_display_for_input(struct ScrFld *pFld){<br>
// _DisplayForAccept(pFld);<br>
}<br>
void tcob_scr_display(struct ScrFld *fields){<br>
struct ScrFld *pFld;<br>
<br>
for(pFld=fields; pFld; pFld=pFld->pNext) {<br>
// if(pFld->fldFrom) {
/* if we have a from field */<br>
// tcob_move(pFld->fldFrom, pFld->caFrom,
&(pFld->fldScr), pFld->caScr);<br>
// }<br>
tcob_scr_display_field(pFld);<br>
tcob_scr_setx(tcob_scr_getx() + pFld->fldScr.len);<br>
}<br>
}
<br>
</body>
</html>
|
|
From: Rildo P. <ri...@pr...> - 2007-01-07 23:45:47
|
Hi David, David Essex wrote: > Fernando, Rildo, > > I have updated SF CVS with some of the changes found in Rildo's CVS > version. See SF CVS version 0.63.33. > > These changes exclude most of the curses screen-io and two bug fixes > (CANCEL and level 01 OCCURS clause) for which I could not find the code > changes. > > I did not merge the SF CVS with the curses screen-io, and have no plans > to do so in the near future. > > The reasons for this action are as follows: > a) I'm not very familiar with the code base as I did not write it. > b) The changes are so pervasive that even with the diff tools-set it is > difficult to determine what was changed and why. > c) There are a lot of bugs with this code, and Rildo's changes do > address all of these. At least according to some small test I ran using > Rildo's code. > > BTW, is the most recent version of available on Rildo's CVS server, and > if not where can it be found ? > > And finally, would it be possible to get a 'tar.bz2' archive of the > whole Rildo TC CVS repository ? I can send you the full CVS repository. But I don't know if it is the ultimate, because Fernando and his programmers have been modifying the library since I left, about a year ago. Anyway, if you want I cand send you what I have here. > If not would it be possible use a tool like ViewCVS, like on SF, so one > could browse the CVS repository ? This would be very useful to see what > changes were made and when. > Unfortunatelly, my (too old) server is a very outdated Pentium 150, that by miracle is still alive. I prefer not install more software there, even upgrade the slackware 7.1 heavily modified by now, as it would take me at least a week doing so. Sorry! I have not the same structure as a SourceForge! best regards, Rildo -- ------------------------------------------------------------------ Rildo Pragana FPGA/uControllers * Linux * tcl/tk R.Joaquim Nabuco,92/1101 Derby http://www.pragana.net Recife, PE - Brazil 52011-000 +55-81-3223-5694 / 9152-6275 |
|
From: John R. C. <jo...@we...> - 2007-01-07 00:58:09
|
Rildo P. suggested Frenando Wuthstrack as a source. Unfortunately my email to him bounced. Hopefully he will see this message on list and reply. I am looking for additional information on the Tiny/TclTk interface, tutorials etc. -- John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com |
|
From: John R. C. <jo...@we...> - 2007-01-06 21:08:42
|
I am educating myself on this process and making notes as I go. I have put my notes and thoughts together in a paper which I will attach. It is of course incomplete and very rough. But I thought I could stir up some conversation about this important facility by putting it out here. -- John Culleton |
|
From: David E. <de...@us...> - 2007-01-05 19:44:32
|
FYI, The is an interesting COBOL article over here (1). For those who ever slaved in one these COBOL labor camps, it will bring back fond memories. 1) Working in the COBOL mine Developing with Legacy Systems – Part 2 http://www.regdeveloper.co.uk/2007/01/05/developing_legacy_systems_part2/ |
|
From: David E. <de...@us...> - 2007-01-05 18:37:13
|
John R. Culleton wrote: > I recal that some COBOL variants had a statement > like CALL "SYSTEM" USING FIELDX for passing comand > line strings to the CLI. > I know I could link in a C language module to do > this but I just wonderd if there was a built in > function. When using TC to create a module or executable, the RTL requires the C library to link. So you so not need a C language module, or special CALL. As per your example above. 01 FIELDX. 05 FIELDX-CMD X(25) value 'ls -la' 05 FIELDX-END X value x'00'. ... CALL "system" USING FIELDX Hint when calling C functions. Case is important and any C string parameters should be NULL terminated. Hope this helps. |
24 messages has been excluded from this view by a project administrator.
