如何捕捉ABAP屏幕列表框的选中事件以更新字段值？

一、自定义屏幕（Dynpro）场景 #

如果是自行创建的屏幕（通过SE80/SE51维护），可按以下步骤实现：

1. 绑定屏幕元素与程序变量：在屏幕 painter 中，将列表框元素绑定到ABAP程序内的变量（例如g_list_val）。
2. 配置输入事件触发：在屏幕流逻辑（Flow Logic）中，添加PROCESS ON INPUT块，指定针对该字段触发处理模块：

PROCESS ON INPUT.
  MODULE update_target_field ON INPUT OF g_list_val.

3. 编写更新逻辑：在ABAP程序中实现模块代码，列表框选中值变化时自动执行更新：

MODULE update_target_field INPUT.
  CASE g_list_val.
    WHEN 'OPTION1'.
      g_target_field = '对应更新值1'.
    WHEN 'OPTION2'.
      g_target_field = '对应更新值2'.
    WHEN OTHERS.
      g_target_field = '默认值'.
  ENDCASE.
ENDMODULE.

注：ON INPUT OF会在字段值改变且屏幕数据传输到程序时触发，确保每次选新选项都能触发更新。

二、选择屏幕（Selection Screen）场景 #

如果是用PARAMETERS或SELECT-OPTIONS定义的选择屏幕列表框：

1. 定义列表框参数：通过AS LISTBOX VISIBLE LENGTH属性创建列表框：

PARAMETERS: p_list TYPE char10 AS LISTBOX VISIBLE LENGTH 15.

2. 绑定值变化事件：使用AT SELECTION-SCREEN ON <参数名>事件，在列表框值修改时触发更新：

AT SELECTION-SCREEN ON p_list.
  CASE p_list.
    WHEN 'A'.
      p_target = '选项A对应的更新内容'.
    WHEN 'B'.
      p_target = '选项B对应的更新内容'.
  ENDCASE.

注：该事件在用户修改列表框值并回车/切换焦点时触发，完成目标字段的实时更新。

进阶：无需回车的实时触发 #

若需要用户选中选项后立即更新（无需按回车），可给列表框设置USER-COMMAND属性：

1. 在屏幕 painter 中为列表框分配自定义命令码（例如LIST_CHG）。
2. 在流逻辑中添加命令处理块：

PROCESS ON COMMAND.
  MODULE handle_list_change WHEN COMMAND 'LIST_CHG'.

3. 实现模块内的实时更新逻辑：

MODULE handle_list_change INPUT.
  g_target_field = COND #( WHEN g_list_val = 'X' THEN '实时更新X' ELSE '实时更新Y' ).
ENDMODULE.

内容的提问来源于stack exchange，提问作者dave25