MODULE creat_listbox OUTPUT.

  DATA : wa_carrid TYPE t_carrid.

  DATA : list  TYPE vrm_values,

         value LIKE LINE OF list.

  SELECT  carrid carrname

    FROM  scarr

    INTO  CORRESPONDING FIELDS OF  wa_carrid.

    value-key  = wa_carrid-carrid.

    value-text = wa_carrid-carrname.

    APPEND value TO list.

  ENDSELECT.

  CALL FUNCTION 'VRM_SET_VALUES'

    EXPORTING

      id     = 'WBTABLE-FLID'

      values = list.

ENDMODULE.                 " creat_listbox  OUTPUT