This is an alternative option to using Domain.
I use this method to customize the dropdown/listbox available to a field.
Here I retrieve from a custom table to fill the values, however, you can read DD07T to obtain the Domain Values.
This code retrieves a value from DD07T.
SELECT SINGLE ddtext INTO p_value
FROM dd07t
WHERE domname = 'ZDROPTYPE'
AND ddlanguage = sy-langu
AND domvalue_l = p_key.
IF sy-subrc NE 0.
p_value = 'Undefined'.
This is different code to retrieve from custom table and display.
TYPE-POOLS vrm.
DATA: " Letter Name Restrict List
rletname_field TYPE vrm_id,
rletname_result TYPE STANDARD TABLE OF vrm_value,
rletname_val LIKE LINE OF rletname_result.
In the PBO routine
REFRESH rletname_result.
SELECT letterid letterdesc
INTO TABLE rletname_result
FROM zlmetext
WHERE relid = base_relid
AND appl = base_appl.
* Field name to assign drop down values
rletname_field = 'BASE_RLETTER'.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = rletname_field
values = rletname_result
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
You must, in the screen painter attribute screen make the Dropdown option = Listbox.
Additionally, on the attribute screen on the Program tab, you must make the Value list (under Entry Help) = 'A'.
Bluesky
