Skip to main content

Hi aw_muench,

On the cell, I hit <enter> to go in edit mode, and input a partial descriptor i.e. "desc", hit <enter>, msg-finish-entry activates and reads file looking for a match for 'desc', if found - populates the grid, if not found it calls a program that lists all  records beginning with "desc" (description, description1, description2, etc).  I choose an item that I want and populate the row of the grid. I use the modify <grid, cell-data = variable passed> command to populate the cells in the grid.  Coming back to the grid, the cursor is gone and if I click on a cell (in that same row) and continue to input a numeric field I cannot input anything in that cell.  As a workaround, I click on an item outside the grid, then click again on the grid.  After this action, the grid behaves normal.

If I do not invoke a lookup, the grid functions correctly.

aw_muench in Extend and ACUCOBOL

How do you call your lookup ? Via a funktion key or the space bar ? What do you do after calling your lookup program ? How exactly do you display the found data in your grid ?
in reply to dufox
I am not using HOT-KEY to call a program within the cell of the grid. I am just using a regular 'call prog-name' followed by a 'cancel prog-name'. I have also tried: move 4 to accept-control, move <grid-id> to control-id. It only works when I am in debug mode. but without debug, it does not do anything. Thanks for the help.

Hi aw_muench,

On the cell, I hit <enter> to go in edit mode, and input a partial descriptor i.e. "desc", hit <enter>, msg-finish-entry activates and reads file looking for a match for 'desc', if found - populates the grid, if not found it calls a program that lists all  records beginning with "desc" (description, description1, description2, etc).  I choose an item that I want and populate the row of the grid. I use the modify <grid, cell-data = variable passed> command to populate the cells in the grid.  Coming back to the grid, the cursor is gone and if I click on a cell (in that same row) and continue to input a numeric field I cannot input anything in that cell.  As a workaround, I click on an item outside the grid, then click again on the grid.  After this action, the grid behaves normal.

If I do not invoke a lookup, the grid functions correctly.

aw_muench in Extend and ACUCOBOL

How do you call your lookup ? Via a funktion key or the space bar ? What do you do after calling your lookup program ? How exactly do you display the found data in your grid ?
in reply to dufox
I am not using HOT-KEY to call a program within the cell of the grid. I am just using a regular 'call prog-name' followed by a 'cancel prog-name'. I have also tried: move 4 to accept-control, move <grid-id> to control-id. It only works when I am in debug mode. but without debug, it does not do anything. Thanks for the help.

Calling a program in an event procedure is too much to handle for the runtime.

Please try the following:

After discovering that you have to call your lookup set one of your flags e.g. move "y" to w-lookup,

then

MOVE EVENT-ACTION-TERMINATE TO EVENT-ACTION

and leave the event procedure.

Now the runtime executes the on exception code after your accept, where you - depending on your flag - can call your lookup, update your grid and then go back to the accept.

Terms & ConditionsAccessibility statement