Re: [Tiny-cobol-users] Help with "accept"

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

Hi,

On Thu, 16 Dec 1999, Boris Kortiak wrote:

>  As I read it, it is a MOVE to a PIC X(n) USAGE DISPLAY field.  In other
> words, the ACCEPT puts bytes into the receiving starting at the leftmost
> byte and progressing to the right until the receiving field is full,
> everything after that point is ignored.

This is much simpler than I have implemented for the original tiny cobol
compiler. (even for the microterminals)
I have included DARK (echoing '*'), WITH NO ECHO, decimal point alignment
in numeric fields, positioning with (LINE, COLUMN), auto-skiping when
filling fields (optional), and more. Well, I'll let you decide. This
standard implementation is much easier to do and I
would be glad to make it into reality :)
  
What the others think? Is any extension desirable, or just follow the
standard. What the commercial implementations do? What do you use to get
input from your user's applications?

> Some extensions I have seen include:
>  	ON SIZE ERROR determines what processing to do in the event that
>the input bytes exceed the size of the receiving field
>  	AT which identifies a position (either YYXX, YYYXXX or YYYYXXXX)
>on the screen at which to echo the ACCEPTED bytes where the X term
>indicates the column and the Y term indicates the row of a character
based display
> 	LINE or ROW which identifies the row of the display
> 	COL(UMN) which identifies the column of the display
>  	[NO] ECHO where ECHO is the default and NO ECHO means that the
>information is not echoed to the display (for things like password
>security and such)

Thank you, Boris for your contribution.

regards, (e um grande abraço)
 ----------------------------------------------------------------
 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