HELPLIB.HLB  —  COBOL  PROCEDURE_DIVISION, ACCEPT  3format_screen_extensions
  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

dest-item
line-num line-id
column-num column-id
plus-num prot-size-lit prot-size-item prot-fill-lit
def-src-lit def-src-item
key-dest-item
stment
Close Help