tiny-cobol-users

Re: [Tiny-cobol-users] How to reduce the time for found a shared library ?

[<bur...@ya...>]

Hi 

Thanks for the information, what I would dont want to
do is convert to the Eloquence db I want to go with an
open source version, I was wondering what anyone else
had used apart from the Postgresql mentioned below.
This site was what interested me in the first place to
using Tiny Cobol but does not have much in there yet !

Peter

 --- Ferran Pegueroles Forcadell
<fer...@re...> wrote: > On dv,
2002-08-23 at 10:23, Peter Burgess wrote:
> > I am looking for some general librarys for
> accessing
> > databases using Tiny Cobol. Starting my first
> hp3000
> > conversion to Linux/Tiny Cobol , does anyone have
> any
> > resources they can point to that will work with an
> sql
> > db please. 
> > 
> Peter Osborn did a good job converting MPE/IX cobol
> to Linux using
> TinyCobol. They write this web to help people do the
> same.
> 
> http://linux.pwo.ca/
> 
> This can help you as an start point. You can also
> ask him for help.
> 
> > Thanks for any help in advance.
> > 
> > Regards
> > 
> > Peter
> > 
> >  --- Ferran Pegueroles
> <fer...@re...>
> > wrote: > eurlix wrote:
> > > 
> > > >Hi All,
> > > >
> > > >I am trying to use postgreSQL with TC, using
> > > Rildo's tdb02a.c
> > > >compiled as a shared library. 
> > > >This works not too bad (thanks Rildo) but the
> time
> > > to start
> > > >a program is almost TWENTY seconds.
> > > >I think that is the time to find libpq.so in
> > > /usr/lib/.
> > > >I have tryed somethings like :
> > > >- add "/usr/lib/libpq.so" in
> TCOB_LD_LIBRARY_PATH,
> > > >- recompile TC with libltdl,
> > > >...
> > > >but the time for start the program is always
> the
> > > same.
> > > >
> > > >As someone (perhaps Ferran) an idea about this
> ?
> > > >
> > > >Regards,
> > > >  
> > > >
> > > Sorry for the late answer, I was on halydays.
> > > 
> > > The calls to libpq are from the C source, then
> the
> > > TCOB_LD_LIBRARY_PATH 
> > > doesn't act on it. This only acts for finding
> the
> > > routines found on tdba.c
> > > 
> > > My recomentation is, first link tdba.c with
> libpq.
> > > This can be done 
> > > easily because shared libs can be linked with
> other
> > > shared libs. This 
> > > should reduce the time needed to find libpq. 
> Then
> > > the problem is the 
> > > time to fund the libraries found on tdb02a. A
> good
> > > solution is to rename 
> > > the shared object to something like libtdba.so.
> > > 
> > > If this doesn't work try to inser displays and
> > > printf on the cobol and c 
> > > source and see where is the time spend exactly.
> > > 
> > > If nothing helps, ask me again with more
> detailed
> > > info.
> > > 
> > > -- 
> > > Salutacions / Regards
> > >
> >
>
+---------------------------------------------------------------+
> > > | Ferran Pegueroles Forcadell                   
>    
> > >            |
> > > | mailto:fer...@re...          
>    
> > >            |
> > > | Tels (+34)937252106 - (+34)667658535          
>    
> > >            |
> > > | C/Unió 44 2n 2a 08201 Sabadell (BCN)          
>    
> > >            |
> > >
> >
>
+---------------------------------------------------------------+
> > > 
> > > 
> > > 
> > > 
> > >
> >
>
-------------------------------------------------------
> > > This sf.net email is sponsored by: OSDN - Tired
> of
> > > that same old
> > > cell phone?  Get a new here for FREE!
> > >
> >
>
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
> > > _______________________________________________
> > > Tin...@li...
> > >
> >
>
https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users
> 
> > 
> > __________________________________________________
> > Do You Yahoo!?
> > Everything you'll ever need on one web page
> > from News and Sport to Email and Music Charts
> > http://uk.my.yahoo.com
> > 
> > 
> >
>
-------------------------------------------------------
> > This sf.net email is sponsored by: OSDN - Tired of
> that same old
> > cell phone?  Get a new here for FREE!
> >
>
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
> > _______________________________________________
> > Tin...@li...
> >
>
https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users
> 
> 
> 
>
-------------------------------------------------------
> This sf.net email is sponsored by: OSDN - Tired of
> that same old
> cell phone?  Get a new here for FREE!
>
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
> _______________________________________________
> Tin...@li...
>
https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users 

__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com

Re: [Tiny-cobol-users] How to reduce the time for found a shared library ?

[Ferran P. F. <fer...@re...>]

On dv, 2002-08-23 at 10:23, Peter Burgess wrote:
> I am looking for some general librarys for accessing
> databases using Tiny Cobol. Starting my first hp3000
> conversion to Linux/Tiny Cobol , does anyone have any
> resources they can point to that will work with an sql
> db please.=20
>=20
Peter Osborn did a good job converting MPE/IX cobol to Linux using
TinyCobol. They write this web to help people do the same.

http://linux.pwo.ca/

This can help you as an start point. You can also ask him for help.

> Thanks for any help in advance.
>=20
> Regards
>=20
> Peter
>=20
>  --- Ferran Pegueroles <fer...@re...>
> wrote: > eurlix wrote:
> >=20
> > >Hi All,
> > >
> > >I am trying to use postgreSQL with TC, using
> > Rildo's tdb02a.c
> > >compiled as a shared library.=20
> > >This works not too bad (thanks Rildo) but the time
> > to start
> > >a program is almost TWENTY seconds.
> > >I think that is the time to find libpq.so in
> > /usr/lib/.
> > >I have tryed somethings like :
> > >- add "/usr/lib/libpq.so" in TCOB_LD_LIBRARY_PATH,
> > >- recompile TC with libltdl,
> > >...
> > >but the time for start the program is always the
> > same.
> > >
> > >As someone (perhaps Ferran) an idea about this ?
> > >
> > >Regards,
> > > =20
> > >
> > Sorry for the late answer, I was on halydays.
> >=20
> > The calls to libpq are from the C source, then the
> > TCOB_LD_LIBRARY_PATH=20
> > doesn't act on it. This only acts for finding the
> > routines found on tdba.c
> >=20
> > My recomentation is, first link tdba.c with libpq.
> > This can be done=20
> > easily because shared libs can be linked with other
> > shared libs. This=20
> > should reduce the time needed to find libpq.  Then
> > the problem is the=20
> > time to fund the libraries found on tdb02a. A good
> > solution is to rename=20
> > the shared object to something like libtdba.so.
> >=20
> > If this doesn't work try to inser displays and
> > printf on the cobol and c=20
> > source and see where is the time spend exactly.
> >=20
> > If nothing helps, ask me again with more detailed
> > info.
> >=20
> > --=20
> > Salutacions / Regards
> >
> +---------------------------------------------------------------+
> > | Ferran Pegueroles Forcadell                      =20
> >            |
> > | mailto:fer...@re...             =20
> >            |
> > | Tels (+34)937252106 - (+34)667658535             =20
> >            |
> > | C/Uni=F3 44 2n 2a 08201 Sabadell (BCN)             =20
> >            |
> >
> +---------------------------------------------------------------+
> >=20
> >=20
> >=20
> >=20
> >
> -------------------------------------------------------
> > This sf.net email is sponsored by: OSDN - Tired of
> > that same old
> > cell phone?  Get a new here for FREE!
> >
> https://www.inphonic.com/r.asp?r=3Dsourceforge1&refcode1=3Dvs3390
> > _______________________________________________
> > Tin...@li...
> >
> https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users=20
>=20
> __________________________________________________
> Do You Yahoo!?
> Everything you'll ever need on one web page
> from News and Sport to Email and Music Charts
> http://uk.my.yahoo.com
>=20
>=20
> -------------------------------------------------------
> This sf.net email is sponsored by: OSDN - Tired of that same old
> cell phone?  Get a new here for FREE!
> https://www.inphonic.com/r.asp?r=3Dsourceforge1&refcode1=3Dvs3390
> _______________________________________________
> Tin...@li...
> https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users

Re: [Tiny-cobol-users] How to reduce the time for found a shared library ?

[<bur...@ya...>]

I am looking for some general librarys for accessing
databases using Tiny Cobol. Starting my first hp3000
conversion to Linux/Tiny Cobol , does anyone have any
resources they can point to that will work with an sql
db please. 

Thanks for any help in advance.

Regards

Peter

 --- Ferran Pegueroles <fer...@re...>
wrote: > eurlix wrote:
> 
> >Hi All,
> >
> >I am trying to use postgreSQL with TC, using
> Rildo's tdb02a.c
> >compiled as a shared library. 
> >This works not too bad (thanks Rildo) but the time
> to start
> >a program is almost TWENTY seconds.
> >I think that is the time to find libpq.so in
> /usr/lib/.
> >I have tryed somethings like :
> >- add "/usr/lib/libpq.so" in TCOB_LD_LIBRARY_PATH,
> >- recompile TC with libltdl,
> >...
> >but the time for start the program is always the
> same.
> >
> >As someone (perhaps Ferran) an idea about this ?
> >
> >Regards,
> >  
> >
> Sorry for the late answer, I was on halydays.
> 
> The calls to libpq are from the C source, then the
> TCOB_LD_LIBRARY_PATH 
> doesn't act on it. This only acts for finding the
> routines found on tdba.c
> 
> My recomentation is, first link tdba.c with libpq.
> This can be done 
> easily because shared libs can be linked with other
> shared libs. This 
> should reduce the time needed to find libpq.  Then
> the problem is the 
> time to fund the libraries found on tdb02a. A good
> solution is to rename 
> the shared object to something like libtdba.so.
> 
> If this doesn't work try to inser displays and
> printf on the cobol and c 
> source and see where is the time spend exactly.
> 
> If nothing helps, ask me again with more detailed
> info.
> 
> -- 
> Salutacions / Regards
>
+---------------------------------------------------------------+
> | Ferran Pegueroles Forcadell                       
>            |
> | mailto:fer...@re...              
>            |
> | Tels (+34)937252106 - (+34)667658535              
>            |
> | C/Unió 44 2n 2a 08201 Sabadell (BCN)              
>            |
>
+---------------------------------------------------------------+
> 
> 
> 
> 
>
-------------------------------------------------------
> This sf.net email is sponsored by: OSDN - Tired of
> that same old
> cell phone?  Get a new here for FREE!
>
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
> _______________________________________________
> Tin...@li...
>
https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users 

__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com

Re: [Tiny-cobol-users] Interfacing TinyCOBOL programs with cgi-util library

[Ferran P. <fer...@re...>]

Hudson Reis wrote:

>Hi Ferran,
>
>thanks to help me!
>
>  
>
>>It's easy.
>>    
>>
>
>I believe so, but I don't know C.. :(
>
>  
>
>>To call the routine you should terminate the parametre wirh a NULL 
>>(binary 0).
>>    
>>
>
>Ok, I got it.
>
>  
>
>>Somryhing like this should work :
>>
>>move spaces to parameter-wor.
>>
>>string address-to-verify delimited by size
>>          x'00'                   delimited by size
>>                     into parameter-wor.
>>
>>call "cgi_goodemailaddress" using   parameter-wor.
>>    
>>
>
>What kind of variable do I need to declare?(pic a(n) or pic x(n))
>What's the size of this variable?
>  
>
The variable can be any type, I use pic x(n) but pic a(n) or pic 9(n) 
should work.
The size is not important, the size of parameter-wor only needs to be 
big enought to contain all the address and the null char. If there is an 
empty space after this, the C routine won't use it.

>How could I test the call's return from C routine on my COBOL program?  How could I receive the values return from C routine on my COBOL program?
>
To get the return value, you should use the giving or returning clause 
of the call statement.

call "cgi_goodemailaddress" using   parameter-wor giving return-wor.

I recomend that return-wor were a pic 9(6) comp, this picture is the equivalent to a C int.



> 
>  
>
>>Then you should coimpile the COBOL sources and link it with the C 
>>object. to make an executable.
>>    
>>
>
>Ok, I got it.
>
>Thanks
>Hudson
>
>
>-------------------------------------------------------
>This sf.net email is sponsored by: Dice - The leading online job board
>for high-tech professionals. Search and apply for tech jobs today!
>http://seeker.dice.com/seeker.epl?rel_code=31
>_______________________________________________
>Tin...@li...
>https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users
>  
>


-- 
Salutacions / Regards
+---------------------------------------------------------------+
| Ferran Pegueroles Forcadell                                   |
| mailto:fer...@re...                          |
| Tels (+34)937252106 - (+34)667658535                          |
| C/Unió 44 2n 2a 08201 Sabadell (BCN)                          |
+---------------------------------------------------------------+

Re: [Tiny-cobol-users] How to reduce the time for found a shared library ?

[Ferran P. <fer...@re...>]

eurlix wrote:

>Hi All,
>
>I am trying to use postgreSQL with TC, using Rildo's tdb02a.c
>compiled as a shared library. 
>This works not too bad (thanks Rildo) but the time to start
>a program is almost TWENTY seconds.
>I think that is the time to find libpq.so in /usr/lib/.
>I have tryed somethings like :
>- add "/usr/lib/libpq.so" in TCOB_LD_LIBRARY_PATH,
>- recompile TC with libltdl,
>...
>but the time for start the program is always the same.
>
>As someone (perhaps Ferran) an idea about this ?
>
>Regards,
>  
>
Sorry for the late answer, I was on halydays.

The calls to libpq are from the C source, then the TCOB_LD_LIBRARY_PATH 
doesn't act on it. This only acts for finding the routines found on tdba.c

My recomentation is, first link tdba.c with libpq. This can be done 
easily because shared libs can be linked with other shared libs. This 
should reduce the time needed to find libpq.  Then the problem is the 
time to fund the libraries found on tdb02a. A good solution is to rename 
the shared object to something like libtdba.so.

If this doesn't work try to inser displays and printf on the cobol and c 
source and see where is the time spend exactly.

If nothing helps, ask me again with more detailed info.

-- 
Salutacions / Regards
+---------------------------------------------------------------+
| Ferran Pegueroles Forcadell                                   |
| mailto:fer...@re...                          |
| Tels (+34)937252106 - (+34)667658535                          |
| C/Unió 44 2n 2a 08201 Sabadell (BCN)                          |
+---------------------------------------------------------------+

Re: [Tiny-cobol-users] Name of index file.

[Hudson R. <hud...@so...>]

Hi Win,

> I would suggest that TC would strip the eventual 'extension' off the 
> filename and adds '.idx' to the result.

I think a good idea.

> So <file.data> will result in an index called <file.idx>
> And <file> will result in <file.idx>
> And <file.creationdata.data> will result in <file.creationdate.idx>

In this way I don't think a good idea. In my point of view, the ideal is this:

so <file> will result in an index called <file.idx>
and <file.dat> will result in an index called <file.dat.idx>

What do you think?
Developers, is very hard to modify the file index extension in TinyCOBOL?

Thanks
Hudson

[Tiny-cobol-users] Name of index file.

[<hud...@so...>]

Hi all, 

I created a indexed file with TinyCOBOL and I notice that it generate a 
index file called <filename>1. 

Ex:
select Arq assign   to "arq"
      organization is indexed
      access mode  is dynamic
      record key   is KeyVar
      file-status  is wsFileStatus. 

The data  file is generated as arq
The index file is generated as arq1 

Developers, is possible modify TinyCOBOL to generate an indexed file called 
arq.idx? Exist a config file to this? 

Thanks
Hudson

[Tiny-cobol-users] Re: Libdb Limits.

[<hud...@so...>]

Hi Alejandro, 

> No tienen limitaciones.

You know where find a documentation about libdb? 

Thanks
Hudson 

Re: [Tiny-cobol-users] Problems using function keys

[Jim M. <ji...@by...>]

Hudson

This is probable caused by the "curses" routines.  These routines have to
detect when a special key is pressed.  Since many keys send sequences
starting with an escape, they wait a certain period of time to see if there
is another character following the escape indicating that it was really a
function key or something else that was pressed.  If no other character is
received within a certain length of time, then the routine assumes it was
just an escape character that was pressed.

You can change the time delay by editing the terminfo file and "tic"ing it.
Its a while since I have done this, so I can't remember which parameters you
change, but it is pretty easy if you set aside a few hours to study it.

If you use a terminal emulation program over a LAN, then sometimes the
function key sequences get split up into different packages and can arrive
after a significant delay.  This means that the delay time needs to be
dramatically increased.  You may find that you are using a version of a
terminfo file that has been set up for use over a LAN.

Jim Morcombe



----- Original Message -----
From: Hudson Reis <hud...@so...>
To: Lista SourceForge <tin...@li...>
Sent: Tuesday, August 13, 2002 11:27 PM
Subject: [Tiny-cobol-users] Problems using function keys


> Hi all,
>
> I've had a doubt using the functions keys.
>
> I use the ESC and F3 keys to exit from my system. However, when I use ESC
key, the result is slow, when I use F3 key the result is fast.
>
> Anyone knows why?
>
> Thanks
> Hudson
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by: Dice - The leading online job board
> for high-tech professionals. Search and apply for tech jobs today!
> http://seeker.dice.com/seeker.epl?rel_code=31
> _______________________________________________
> Tin...@li...
> https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users

[Tiny-cobol-users] Libdb Limits.

[Hudson R. <hud...@so...>]

Hi all,

What is the limit of libdb using indexed files with TinyCOBOL?

Thanks
Hudson

Re: [Tiny-cobol-users] bugs in occurs <n> times indexed by <index> ?

[Hudson R. <hud...@so...>]

Hi Bernard,
 
> There are several tests for indexes in the NIST compiler test suite that are
> not passed, I will try to look the next week what I can do to improve the
> situation for displaying errors as well as getting the code correct.
> 
> This statement also covers the previous message "bugs in SET".
> 
> Bernard

Thanks!
Hudson

Re: [Tiny-cobol-users] bugs in occurs <n> times indexed by <index> ?

[Hudson R. <hud...@so...>]

Hi Binyamin, 

> I believe INDEXED BY variables are implicitly defined (at least in IBM COBOL).

Unfortunatelly I don't know. I will look in ISO/IEC draft.

> The MOVE 1 to I should have generated a compiler error. The correct
> instruction is SET I TO 1.

Ok, I got it.

> As you have never specified a value for I the results are random, including
> references to undefined storage.

Ok, I got it.

> Looks like a compiler bug.

Thanks to your help! :)

Regards,
Hudson

Re: [Tiny-cobol-users] bugs in occurs <n> times indexed by <index> ?

[Hudson R. <hud...@so...>]

Hi Bernard,
 
> There are several tests for indexes in the NIST compiler test suite that are
> not passed, I will try to look the next week what I can do to improve the
> situation for displaying errors as well as getting the code correct.
> 
> This statement also covers the previous message "bugs in SET".
> 
> Bernard
> 
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by: Dice - The leading online job board
> for high-tech professionals. Search and apply for tech jobs today!
> http://seeker.dice.com/seeker.epl?rel_code=31
> _______________________________________________
> Tin...@li...
> https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users


-- 
Hudson Reis                                       hud...@so...

Re: Odp: [Tiny-cobol-users] Question about current-date intrinsic function.

[Hudson R. <hud...@so...>]

Hi Mariuz
 
>                   Hudson,
> 
>       It seems, that the syntax  of current-date intrinsic function is
> correct. Here is an example from IBM COBOL Programming Guide:
> 
> Date and time
> The following example shows how to calculate a due date that is 90 days
> from
> today. The first eight characters returned by the CURRENT-DATE function
> represent
> the date in a four-digit year, two-digit month, and two-digit day format
> (YYYYMMDD).
> The date is converted to its integer value; then 90 is added to this value
> and the
> integer is converted back to the YYYYMMDD format.
> 01 YYYYMMDD Pic 9(8).
> 01 Integer-Form Pic S9(9).
> . . .
> Move Function Current-Date(1:8) to YYYYMMDD
> Compute Integer-Form = Function Integer-of-Date(YYYYMMDD)
> Add 90 to Integer-Form
> Compute YYYYMMDD = Function Date-of-Integer(Integer-Form)
> Display 'Due Date: ' YYYYMMDD.
> 
> 
>             So perhaps there is a problem in implementation of this
> function in TinyCobol ?
> 
I believe to so.

Thanks for your help!

Best Regards
Hudson.

Re: [Tiny-cobol-users] Interfacing TinyCOBOL programs with cgi-util library

[Hudson R. <hud...@so...>]

Hi Ferran,

thanks to help me!

> It's easy.

I believe so, but I don't know C.. :(

> To call the routine you should terminate the parametre wirh a NULL 
> (binary 0).

Ok, I got it.

> Somryhing like this should work :
> 
> move spaces to parameter-wor.
> 
> string address-to-verify delimited by size
>           x'00'                   delimited by size
>                      into parameter-wor.
> 
> call "cgi_goodemailaddress" using   parameter-wor.

What kind of variable do I need to declare?(pic a(n) or pic x(n))
What's the size of this variable?

How could I test the call's return from C routine on my COBOL program?  How could I receive the values return from C routine on my COBOL program?
 
> Then you should coimpile the COBOL sources and link it with the C 
> object. to make an executable.

Ok, I got it.

Thanks
Hudson

Re: [Tiny-cobol-users] Interfacing TinyCOBOL programs with cgi-ut il library

[Hudson R. <hud...@so...>]

Hi Boris!

> I don't understand what you want here.  Do you want the routines translated
> into COBOL or an explanation of how to use them from COBOL?

I would like an explanation of how to use them from COBOL, what kind of variable, which parameters are necessary to pass to C routine and which parameters return to COBOL program. 
I tried to look test.code examples, but I DO not understand how to pass and receive parameters from COBOL to C and from C to COBOL. :(
I don't know C, but I know some commands(as printf, if, return), and, trying to know if the parameters passed by COBOL are received by C routine, I modified the cgi-util.c file, putting a printf before the return(to show the values returned from C routine in screen), see:

ex: 

cgi_getcookie routine
--------------------- 
printf(cookie_name); 
printf(cookieval);  
return(cookieval);

cgi_goodemailaddress routine
----------------------------
printf("0");
return 0;

printf("1");
return 1;

I notice that the values have been passed through C routine and they are showed in the screen in output form, but I don't know how to receive this values from C routines passing through COBOL.
How could I get the return value of C routines from a COBOL program? I believe that it's something like the examples below(to routines cgi_goodemailaddress and cgi_getcookie), but it isn't working. :(

cgi_goodemailaddress routine.
-----------------------------
data division.
working-storage section.
77 wsEmail             pic x(040) value spaces.
77 wsEndOfString       pic x(001) value low-values.
77 wsParameter         pic x(045) value spaces.
01 wsReturn            pic 9(001) value zeros.
   88 InvalidEmail                value 0.
   88 ValidEmail                  value 1.

procedure division.
string wsEmail wsEndOfString into wsParameter
call "cgi_goodemailaddress" using wsParameter wsReturn
evaluate true
    when InvalidEmail
         display "Uh.. Invalid Email"  
    when ValidEmail
         display "Yes! Valid Email"
    when other
         display "error calling cgi_goodemailaddress routine"
end-evaluate
stop run

cgi_getcookie routine
---------------------
data division.
working-storage section.
77 wsCookieName        pic x(015) value "TinyCOBOLCookie".
77 wsCookieValue       pic x(200) value spaces.
77 wsEndOfString       pic x(001) value low-values.
77 wsParameter         pic x(035) value spaces.

procedure division.
string wsCookieName wsEndOfString into wsParameter
call "cgi_getcookie" using wsParameter wsCookieValue
display wsCookieValue
stop run

What do you think? Could you help me?

Thanks
Hudson

[Tiny-cobol-users] Problems using function keys

[Hudson R. <hud...@so...>]

Hi all,

I've had a doubt using the functions keys.

I use the ESC and F3 keys to exit from my system. However, when I use ESC key, the result is slow, when I use F3 key the result is fast. 

Anyone knows why?

Thanks
Hudson

[Tiny-cobol-users] problems with inspect in dynamic libraries

[Hudson R. <hud...@so...>]

Hi all,

I'm had problems using inspect. When I use the verb inspect in a shared library it isn't work(isn't called from a main program).

I'm attaching the programs below:

inspect0.cob -> main program. (should be compiled as a binary)
inspect1.cob -> subprogram.   (should be compiled as a shared library)

Thanks.
Hudson

[Tiny-cobol-users] problems with string in dynamic libraries

[Hudson R. <hud...@so...>]

Hi all,

I'm had problems using string. When I use the verb string in a shared library it isn't work(isn't called from a main program).

I'm attaching the programs below:

sgc0000a.cob -> main program. (should be compiled as a binary)
sgc0000b.cob -> subprogram.   (should be compiled as a shared library)

Thanks.
Hudson

[Tiny-cobol-users] problems with function current-date in shared libraries

[Hudson R. <hud...@so...>]

Hi all,

I'm had problems using function current-date in shared libraries When I use the function current-date in a shared library it isn't work(isn't called from a main program).

I'm attaching the programs below:

prog0.cob -> main program. (should be compiled as a binary)
prog1.cob -> subprogram.   (should be compiled as a shared library)

Thanks.
Hudson

Re: [Tiny-cobol-users] Question about current-date intrinsic function.

[Hudson R. <hud...@so...>]

Hi Ferran,

> I have programed all the intrinsic functions. I don't know if this is 
> correct or not but  I'm sure that this don't work with TC.
> Perharps in a future.

Ok, but I looked at ISO/IEC standard and it seems to be correct, however, I'll wait you update, thanks! :)

> By now you can use temp variable to do this.

Ok.

Thanks
Hudson

[Tiny-cobol-users] How to reduce the time for found a shared library ?

[eurlix <eu...@li...>]

Hi All,

I am trying to use postgreSQL with TC, using Rildo's tdb02a.c
compiled as a shared library. 
This works not too bad (thanks Rildo) but the time to start
a program is almost TWENTY seconds.
I think that is the time to find libpq.so in /usr/lib/.
I have tryed somethings like :
- add "/usr/lib/libpq.so" in TCOB_LD_LIBRARY_PATH,
- recompile TC with libltdl,
...
but the time for start the program is always the same.

As someone (perhaps Ferran) an idea about this ?

Regards,
-- 
Alain Lucari    Eurlix
1, rue Reine Elisabeth von Witellsbach
       (Reine des Belges)
13001 Marseille
FRANCE

Re: [Tiny-cobol-users] (no subject)

[Ferran P. <fer...@re...>]

The compiler by now only work on intel platforms, because we create 
asembler code from COBOL sources.

 Theorically with some work it could work on solaris for intel. But it 
is impossible for solaris on SPARC.

Try to use opencobol. It transforms COBOL to C and it can be ported to 
solaris.

shaif k wrote:

> help required....
>
> Does this work on Solaris?
> Any changes required?
> I could build the compiler - with 722 shift/reduce conflicts,
> But the program statements are not being identified (parsed).
>
> Can somebody help?
>
> thanx,
>
>
>
>
>
> -------------------------------------------------------
> This sf.net email is sponsored by:ThinkGeek
> Welcome to geek heaven.
> http://thinkgeek.com/sf
> _______________________________________________
> Tin...@li...
> https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users



-- 
Salutacions / Regards
+---------------------------------------------------------------+
| Ferran Pegueroles Forcadell                                   |
| mailto:fer...@re...                          |
| Tels (+34)937252106 - (+34)667658535                          |
| C/Unió 44 2n 2a 08201 Sabadell (BCN)                          |
+---------------------------------------------------------------+

Re: [Tiny-cobol-users] Question about current-date intrinsic function.

[Ferran P. <fer...@re...>]

I have programed all the intrinsic functions. I don't know if this is 
correct or not but  I'm sure that this don't work with TC.
Perharps in a future.

By now you can use temp variable to do this.

Hudson Reis wrote:

>hi all,
>
>A user of TinyCOBOL brasilian mailing list reported the following problem:
>
>When he run a shared library from a main program that contain the current-date intrinsic function, occurs a problem and shows the following message: 
>
>  
>
>>     "undefined symbol: tcob_intrinsic_current_date"
>>    
>>
>
>it uses the current-date function on the following way:
>
>  
>
>>     MOVE FUNCTION CURRENT-DATE(1:8) TO GDA-DATA
>>    
>>
>
>However, when I created a little program using the current date function and reference modification, the compiler shows errors. 
>I searched for informations about reference modification in current-date intrinsic functions in COBOL 85 ISO/IEC draft, but I didn't find any reference about this. In our examples in test.code, I didn't find nothing too...
>
>Could anyone tell me if the COBOL sentence above is according to the COBOL 85 standard and if there is any bug on TinyCOBOL?
>
>I attach a little program to help..
>
>Thanks 
>Hudson
>
>       identification division.
>       program-id. currentdate.
>       author. Hudson Reis.
>
>       data division.
>       working-storage section.
>       01 wsDate.
>          03 wsYear    pic 9(004) value zeros.
>	  03 wsMonth   pic 9(002) value zeros.
>	  03 wsDay     pic 9(002) value zeros.
>
>       procedure division.
>           move function current-date(1:8) to wsDate
>      *>     move function current-date to wsDate
>           display wsDate line 10 position 10
>	   stop run.
>  
>


-- 
Salutacions / Regards
+---------------------------------------------------------------+
| Ferran Pegueroles Forcadell                                   |
| mailto:fer...@re...                          |
| Tels (+34)937252106 - (+34)667658535                          |
| C/Unió 44 2n 2a 08201 Sabadell (BCN)                          |
+---------------------------------------------------------------+

Re: [Tiny-cobol-users] Interfacing TinyCOBOL programs with cgi-util library

[Ferran P. <fer...@re...>]

It's easy.

To call the routine you should terminate the parametre wirh a NULL 
(binary 0).

Somryhing like this should work :

move spaces to parameter-wor.

string address-to-verify delimited by size
          x'00'                   delimited by size
                     into parameter-wor.

call "cgi_goodemailaddress" using   parameter-wor.

Then you should coimpile the COBOL sources and link it with the C 
object. to make an executable.


Hudson Reis wrote:

>Hi all,
>
>I'm trying to interface my COBOL programs with the cgi-util library. However I've been having a problem:
>
>I'm only a COBOL programmer, I don't know C, and I would like to use the routines cgi_goodemailaddress and cgi_getcookie. 
>
>Could any C programmer help me?
>
>The routines are attached below:
>
>Thanks 
>Hudson
>
>/* Returns whether or not an e-mail address appears to be in the correct
>   syntax ("use...@ho...main"): */
>
>int cgi_goodemailaddress(const char * addr)
>{
>  int i;
>  
>  /* No "@".. what? */
>  
>  if (strchr(addr, '@') == NULL)
>    return 0;
>  
>  
>  /* "@" or "." at the end or beginning? */
>  
>  if (addr[strlen(addr - 1)] == '@' ||
>      addr[strlen(addr - 1)] == '.' ||
>      addr[0] == '@' || addr[0] == '.')
>    return 0;
>  
>  
>  /* No "." after the "@"?  More than one "@"? */
>  
>  if (strchr(strchr(addr, '@'), '.') == NULL ||
>      strchr(strchr(addr, '@') + 1, '@') != NULL)
>    return 0;
>  
>  
>  /* Any illegal characters within the string? */
>  
>  for (i = 0; i < strlen(addr); i++)
>    {
>      if (isalnum(addr[i]) == 0 &&
>	  addr[i] != '.' && addr[i] != '@' && addr[i] != '_' &&
>	  addr[i] != '-')
>	return(0);
>    }
>  
>  
>  /* Must be ok... */
>  
>  return 1;
>}
>
>/* Grab a cookie, if it exists.  Return NULL if it doesn't: */
>/* (Based on code by Pete Cassidy (pca...@io...) - May 10, 2000) */
>
>const char * cgi_getcookie(const char * cookie_name)
>{
>  char * cookieval, * tmpcookie, * rawcookie, * left, * right;
>  int done;
>  printf(cookie_name);
>
>
>  /* Get raw cookie data: */
>
>  rawcookie = getenv("HTTP_COOKIE");
>  if (rawcookie == NULL)
>    {
>      /* No cookies at all?  The cookie we want can't exist! */
>
>      cgi_errno = CGIERR_NO_COOKIES;
>      return(NULL);
>    }
>
>
>  /* Strtok is destructive, so make a temporary copy of the raw cookie data: */
>
>  tmpcookie = malloc(sizeof(char) * (strlen(rawcookie) + 1));
>  if (tmpcookie == NULL)
>    {
>      cgi_errno = CGIERR_OUT_OF_MEMORY;
>      return(NULL);
>    }
>
>  strcpy(tmpcookie, rawcookie);
>
>
>  /* Tokenize out all cookies and check for the one we're looking for: */
>
>  left = strtok(tmpcookie, ";");
>  cookieval = NULL;
>  done = 0;
>
>  do
>    {
>      /* Grab the righthand size of the current cookie pair's "=" sign: */
>
>      right = strchr(left, '=') + (1 * sizeof(char));
>
>
>      /* Change the "=" into a NULL character, to get the lefthand side: */
>
>      *strchr(left, '=') = '\0';
>
>
>      /* See if this is our cookie: */
>
>      if (strcmp(left, cookie_name) == 0)
>	{
>          /* If so, set our return-string to the value (righthand side): */
>
>          cookieval = malloc(sizeof(char) * (strlen(right) + 1));
>          if (cookieval == NULL)
>            {
>              cgi_errno = CGIERR_OUT_OF_MEMORY;
>              return(NULL);
>            }
>
>          strcpy(cookieval, right);
>          done = 1;
>	}
>
>
>      /* Jump to next cookie: */
>
>      if (!done)
>	{
>          left = strtok(NULL, ";");
>          if (left == NULL)
>            {
>              /* No more to parse? */
>
>              done = 1;
>            }
>          else
>            {
>              /* Skip the extra space: */
>
>              left++;
>            }
>	}
>    }
>  while (!done);
>
>
>  /* Free the temporary copy of the raw cookie data: */
>
>  free(tmpcookie);
>
>
>  /* Return the cookie value (which may be NULL if we never found it): */
>
>  if (cookieval == NULL)
>    cgi_errno = CGIERR_COOKIE_NOT_FOUND;
>  else
>    cgi_errno = CGIERR_NONE;
>
>  return(cookieval);
>}
>
>
>
>
>
>
>  
>


-- 
Salutacions / Regards
+---------------------------------------------------------------+
| Ferran Pegueroles Forcadell                                   |
| mailto:fer...@re...                          |
| Tels (+34)937252106 - (+34)667658535                          |
| C/Unió 44 2n 2a 08201 Sabadell (BCN)                          |
+---------------------------------------------------------------+