How to hold the value in List box.

Question

Hi All,
On my screen painter Screen I am displaying the Sold to party and ship to party with thier address.
I am also displaying the Shipping condition based on ship to party. To display the shipping condition i am using list box. Once the user enter the sold to party automatically all the field is going to populate in their respective fields. I am facing the problem that, The list box getting populated with shipping condition but once you choose the shipping condition and hit the enter the list box getting refreshed. I am using this code in PAI event. And I can Only use this in PAI.
The Function i am using for list box is CALL FUNCTION 'VRM_SET_VALUES'.
Pls suggest me how to hold the value in List box.
Thanks,
Rakesh

Answer 1

Hi,
Now i am using in PBO.
the code below in in PBO.It is still not holding the value.
      if list[] is initial.
      perform SHP_COND.
      endif.
form SHP_COND .
*DATA: SHOP(80).
    clear : GT_VSBED, list.
    refresh : GT_VSBED, list.
     select vsbed
       from knvv AS K
       into table GT_VSBED
      where Kvkorg = vbak-vkorg  "Kkunnr = GV_STPH
      and K~vtweg = vbak-vtweg
      and K~spart = vbak-spart.
    select VSBED vtext
      from TVSBT
    into table list
    for all entries in GT_VSBED
    where spras = sy-langu
    and vsbed = GT_VSBED-VSBED.
*break-point.
NAME = 'SHP_CON'.
CALL FUNCTION 'VRM_SET_VALUES'
  EXPORTING
    id                    = NAME
    values                = LIST[]
EXCEPTIONS
   ID_ILLEGAL_NAME       = 1
   OTHERS                = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.                    " SHP_COND
Thanks,
Rakesh