[Tiny-cobol-users] Re: Cobol Delete

[Andrew C. <an...@an...>]

Hi,

Once delete is complete I plan to start with the library routines for
ALTERNATE KEYS.

Thanks for implementing the code to compile ALTERNATE KEYS and for
defining the structures that I will need to write the library routines.

We will also need a field in the structure to carry the active key as once
you access a file via START or READ with an alternate KEY ALL IO to that
file must use the Alternate KEY until such time as another READ or START
changes to another ALTERNATE or PRIMARY KEY.

For this to work the compiler will also need to be able to compiler
READ xxx KEY IS key-name etc
where key-name is anyone of the valid keys defined for that file.

Regards
Andrew Cameron

On Mon, 6 Dec 1999, Rildo Pragana wrote:

> Date: Mon, 6 Dec 1999 17:15:45 -0200 (EDT)
> From: Rildo Pragana <rpr...@ac...>
> To: Andrew Cameron <an...@an...>
> Cc: tin...@ma...
> Subject: Re: Cobol Delete
> 
> Hi Andrew,
> 
> On Mon, 6 Dec 1999, Andrew Cameron wrote:
> 
> > Currently the Cobol Delete works correctly for Indexed Files.
> > 
> > It does not work for relative files as the current implementation does not
> > return recno.
> > 
> > For it to work I need the following.
> > 
> > int cob_delete(struct file_fdesc *f, char *record, ...)
> > 
> > So that I can get the record Number with
> > va_start(args,record);
> > recno = va_arg(args,recno_t);
> > va_end(args);
> > 
> > Please could you change the Compiler to return this information so that
> > the DELETE Statement will work with Relative IO.
> 
> If I remember well, it did like you told (passing a recno in var_args)
> before. I don't know how this changed. 
> Anyway, I'll fix this shortly.
> 
> I'm still redoing all the inspect statement.  Who said "move" is the most
> difficult part of the language? I would like better to be working in the
> "move" stuff, as I'm getting crazy with "inspect", just after "unstring"
> and "string". I really don't know what's the worse of these :(
> When I finish this, I'll go for a "hollidays" with 
> the accect statement :)  Just some little tricks with ncurses...
> 
> regards,
> Rildo
>  _____   _ __    __       __      __      ___      __  Rildo Pragana
> /\ '__`\/\`'__\/'__`\   /'_ `\  /'__`\  /' _ `\  /'__`\ P.O. Box 721
> \ \ \L\ \ \ \//\ \L\.\_/\ \L\ \/\ \L\.\_/\ \/\ \/\ \L\.\_ Camaragibe
>  \ \ ,__/\ \_\\ \__/.\_\ \____ \ \__/.\_\ \_\ \_\ \__/.\_\ PE Brazil
>   \ \ \/  \/_/ \/__/\/_/\/___L\ \/__/\/_/\/_/\/_/\/__/\/_/ 54792-990
>    \ \_\ rpr...@ac... /\____/ FPGA/uControllers * Linux * tcl/tk
>     \/_/ +55-81-459-1776  \_/__/  http://members.xoom.com/rpragana/
> 

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

Andrew Cameron
Internet : an...@an...
X.400    : C=ZA G=Andrew S=Cameron Admd=TELKOM400

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