Abap 根据上一个列表框（模块池）中的选择填充的列表框

我有一个DYNPRO 010，它有两个列表框dropdownlist，我想在自动选择第一个项目后填写第二个PEP，不按enter键

当我在listbox1中选择一个值并按enter键时，它会工作

屏幕010：

PROCESS AFTER INPUT.
  Chain.
    field: 
       wa_screen_010-proj MODULE iniciativa ON REQUEST,
       wa_screen_010-pep  MODULE field_validation.
  Endchain.

模块INCIATIVA的ABAP代码：

---

必须通过为第一个列表框指定功能代码来激活该列表框。这将触发PAI-PBO循环。确保功能代码不会触发任何不需要的功能

很好用。。你知道当我在输入文本中选择一个值时如何填充列表框吗？

MODULE iniciativa INPUT.

  DATA: ld_field     TYPE VRM_ID ,
        it_listbox   TYPE VRM_VALUES,
        wa_listbox   LIKE LINE OF it_listbox,
        it_prps      TYPE STANDARD TABLE OF prps,
        wa_prps LIKE LINE OF it_prps.

  SELECT  peps~pspnr peps~posid peps~post1 peps~stufe
         INTO CORRESPONDING FIELDS OF TABLE it_prps
         FROM proj AS proyecto
         LEFT JOIN prps AS peps
         ON proyecto~pspnr = peps~psphi
         WHERE proyecto~pspid  = WA_SCREEN_010-PROJ .

  DELETE it_prps where stufe ne 2.

   loop at it_prps into wa_prps.
    wa_listbox-key = wa_prps-posid .
    wa_listbox-text = wa_prps-posid.
    append wa_listbox to it_listbox.
  endloop.

   ld_field = 'WA_SCREEN_010-INICIATIVA'.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = ld_field
      values = it_listbox.