Drop down in Module pool program

Question

Hi,
I need to have a drop down input/output field. For that I have given a name like YHRTM_LEAVE-ATEXT in screen painter. Here YHRTM_LEAVE is table and ATEXT is a field. I have maintained the possible values in ATEXT domain to avail the drop down values.
In PAI, I need to access YHRTM_LEAVE-ATEXT . But only YHRTM_LEAVE value appears only while debugging.
Could anybody help me to achieve my requirement.
Thanks
jey

Answer 1

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'.