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 ]
Additional Information:
explode
extract