[Tiny-cobol-users] More changes.

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

Hi,

I have implemented, as Andrew requested, a clause "KEY IS <alternate key>"
for the READ statement. I haven't tested it, though, just see it's
compiler output.

Now, the arguments for indexed files of the cob_read function are:

int
cob_read ( struct file_desc *f, char *record, struct fld_desc *fkey,
	char *keybuf );

The 2 last arguments refer to the key descriptor and storage. Please
notice that this is _not_ the function prototype, that continue to be:

int
cob_read( struct file_desc *f, char *record, ... );

This is only to make clear what is passed.  You shall use va_arg to read
the remaining parameters, after checking that the file organization is
indexed. The newer arguments return undefined objects for other file
organizations, so be careful.
 
regards,
 ----------------------------------------------------------------
 Rildo Pragana                 FPGA/uControllers * Linux * tcl/tk
 P.O. Box 721 Camaragibe PE    http://members.xoom.com/rpragana
 Brazil 54792-990              +55-81-459-1776