[Tiny-cobol-users] Re: Cobol Delete

[Rildo P. <rpr...@ac...>]

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/