VMS Help
COBOL, PROCEDURE_DIVISION, ACCEPT, 3format_screen_extensions
*Conan The Librarian
|
The ACCEPT statement makes low-volume data available to the program.
The HP extensions to the ACCEPT statement (formats 3, 4 and 5) are
COBOL language additions that facilitate video forms design and data
handling.
Format 3 -
ACCEPT dest-item
{| { line-num } |}
{| FROM LINE NUMBER { line-id [ PLUS [ plus-num ] ] } |}
{| { PLUS [ plus-num ] } |}
{| { column-num } |}
{| FROM COLUMN NUMBER { column-id [ PLUS [ plus-num ] ] } |}
{| { PLUS [ plus-num ] } |}
{| ERASE [TO END OF] { SCREEN } |}
{| { LINE } |}
{| WITH BELL |}
{| UNDERLINED |}
{| BOLD |}
{| WITH BLINKING |}
{| PROTECTED [| SIZE { prot-size-lit } |] |}
{| [| { prot-size-item } |] |}
{| [| WITH AUTOTERMINATE |] |}
{| [| WITH EDITING |] |}
{| [| WITH NO BLANK |] |}
{| [| WITH FILLER prot-fill-lit |] |}
{| WITH CONVERSION |}
{| REVERSED |}
{| WITH NO ECHO |}
{| DEFAULT IS { def-src-lit } |}
{| { def-src-item } |}
{| { CURRENT VALUE } |}
{| CONTROL KEY IN key-dest-item |}
{ [ ON EXCEPTION stment ] [ NOT ON EXCEPTION stment ] }
{ [ AT END stment ] [ NOT AT END stment ] }
[ END-ACCEPT ]
is the identifier of a data item into which data is accepted.
is a numeric literal that specifies a line position on the terminal
screen. Line-num must be a positive integer. It cannot be zero.
is the identifier of a data item that provides a line position on the
terminal screen.
is a numeric literal that specifies a column position on the terminal
screen. Column-num must be a positive integer. It cannot be zero.
is the identifier of a data item that provides a column position on
the terminal screen.
is a numeric literal that increments the current value for line or
column position, or that increments the value of line-id or
column-id. Plus-num can be zero or a positive integer.
is a numeric literal that specifies the maximum length of the video
screen field into which data can be typed. Prot-size-lit must be a
positive integer. It cannot be zero.
is the identifier of a numeric integer data item that specifies
the maximum length of the video screen field into which data can
be typed. It must be a positive integer; it cannot be zero.
is a single character alphanumeric literal that is used to initialize
each character position of a protected video screen field into which
data can be typed.
is a nonnumeric literal or a figurative constant. However, it cannot
be the figurative constant ALL literal.
is the identifier of an alphanumeric data item.
is the identifier of a data item that defines a control key.
Key-dest-item must specify an alphanumeric data item at least four
characters in length.
is an imperative statement executed for an AT END, NOT AT END,
ON EXCEPTION or NOT ON EXCEPTION condition.