x"0D"   | grer-enter   | The user has pressed the [Enter] key.  | 
x"00"   | grer-dblclick   | The user double-clicked the cell.  | 
x"01"   | grer-del  | The user has pressed the [DEL] key.  | 
x"FF"   | grer-entry-by-program  | The Action property has been set to Action-Entry  | 
any  other character  | The user has pressed a key, such as a number or a letter. Inquiring this property the character pressed by the user is returned.  | 
procedure division. ...   screen-1-gr-1-evt-msg-begin-entry.      inquire screen-1-gr-1 entry-reason ws-er      if ws-er = grer-dblclick         display message "Entry reason: Double click"       end-if       . ...  |