INPUT CLEAR statement

INPUT CLEAR statement

Clears any keystrokes buffered from the keyboard, discarding any type-ahead characters. The INPUT CLEAR statement is useful when you want to make sure the AVM clears out extra characters in the input statement that could follow a field entry that is too long.

Note: Does not apply to SpeedScript programming.

Syntax
INPUT CLEAR 
Example

This menu procedure tests each key the user presses. If the user presses a key other than 1, 2, or 3, the AVM clears the keyboard buffer and displays a message.
r-inclr.p
DISPLAY  
  "     Please choose     " SKIP 
  " 1  Run order entry    " SKIP 
  " 2  Run receivables    " SKIP 
  " 3  Exit               " WITH CENTERED FRAME menu. 
REPEAT: 
  READKEY. 
  IF LASTKEY = KEYCODE("1") THEN RUN ordentry. 
  ELSE 
  IF LASTKEY = KEYCODE("2") THEN RUN receive. 
  ELSE 
  IF LASTKEY = KEYCODE("3") THEN QUIT. 
  ELSE DO: 
    MESSAGE "Sorry, that is not a valid choice". 
    INPUT CLEAR. 
  END. 
END. 
Notes

In Windows, the keyboard type-ahead buffer can contain a maximum of 16 characters.

If the current input source is not the keyboard, the INPUT CLEAR statement has no effect.

INPUT CLEAR is not available on the Windows GUI platform after Progress Version 7.3D. It is available in Windows character and non-Windows GUI or character platforms.

See also

EDITING phrase

INPUT CLEAR

r-inclr.p
DISPLAY " Please choose " SKIP " 1 Run order entry " SKIP " 2 Run receivables " SKIP " 3 Exit " WITH CENTERED FRAME menu. REPEAT: READKEY. IF LASTKEY = KEYCODE("1") THEN RUN ordentry. ELSE IF LASTKEY = KEYCODE("2") THEN RUN receive. ELSE IF LASTKEY = KEYCODE("3") THEN QUIT. ELSE DO: MESSAGE "Sorry, that is not a valid choice". INPUT CLEAR. END. END.

OpenEdge Release 10.2B