Passing database table values to drop down list list using "vrm_set_values"

Question

DEar Experts,
How can we pass database travel to drop down list using vrm_set_value call function.
Looking forward for advise from you experts .
REgards
CHandan

Answer 1

Dear Anubhab,
Thanks for your suggestion,
Plz see my code:
Type-pools: vrm.
DATA: it_zlt_mita       TYPE STANDARD TABLE OF Zlt_mita,
           wa_zlt_mita    TYPE zlt_mita,
           it_vrm              TYPE vrm_values with header line .
Selection-Screen: Begin of Block b1 With Frame Title text-001.
  Parameters:
    p_mitar            Type Zlt_mita-M1 as listbox visible length 20 user-command zcc01 obligatory,
    p_mitarn          Type Zlt_mita-M2.
Selection-Screen : End of Block b1.
AT SELECTION-SCREEN OUTPUT.
   Select * From ZLT_mita INTO CORRESPONDING FIELDS OF TABLE it_zlt_mita.
  LOOP at it_zlt_mita into wa_zlt_mita.
     it_vrm-key   = wa_zlt_mita-m2.
     it_vrm-text  = wa_zlt_mita-m1.
     APPEND it_vrm.
     Clear: it_vrm, wa_zlt_mita.
  ENDLOOP.
                 CALL FUNCTION 'VRM_SET_VALUES'
                   EXPORTING
                     id                    = 'P_mitar'
                     values                =  it_vrm[]
*                  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.
Data: dynfields type table of dynpread with header line.
     dynfields-fieldname = 'p_mitar'.
      Append dynfields.
CALL FUNCTION 'DYNP_VALUES_READ'
  EXPORTING
    dyname                               = sy-cprog
    dynumb                               = 1000    " can I use sy-dynnr here
*   TRANSLATE_TO_UPPER                   = ' '
*   REQUEST                              = ' '
*   PERFORM_CONVERSION_EXITS             = ' '
*   PERFORM_INPUT_CONVERSION             = ' '
*   DETERMINE_LOOP_INDEX                 = ' '
*   START_SEARCH_IN_CURRENT_SCREEN       = ' '
*   START_SEARCH_IN_MAIN_SCREEN          = ' '
*   START_SEARCH_IN_STACKED_SCREEN       = ' '
*   START_SEARCH_ON_SCR_STACKPOS         = ' '
*   SEARCH_OWN_SUBSCREENS_FIRST          = ' '
*   SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
  tables
    dynpfields                           =  dynfields
* EXCEPTIONS
*   INVALID_ABAPWORKAREA                 = 1
*   INVALID_DYNPROFIELD                  = 2
*   INVALID_DYNPRONAME                   = 3
*   INVALID_DYNPRONUMMER                 = 4
*   INVALID_REQUEST                      = 5
*   NO_FIELDDESCRIPTION                  = 6
*   INVALID_PARAMETER                    = 7
*   UNDEFIND_ERROR                       = 8
*   DOUBLE_CONVERSION                    = 9
*   STEPL_NOT_FOUND                      = 10
*   OTHERS                               = 11
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
  EXPORTING
    dyname                     = sy-cprog
    dynumb                     = 1000
  tables
    dynpfields                 = dynfields
* EXCEPTIONS
*   INVALID_ABAPWORKAREA       = 1
*   INVALID_DYNPROFIELD        = 2
*   INVALID_DYNPRONAME         = 3
*   INVALID_DYNPRONUMMER       = 4
*   INVALID_REQUEST            = 5
*   NO_FIELDDESCRIPTION        = 6
*   UNDEFIND_ERROR             = 7
*   OTHERS                     = 8
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
PLZ SUGGEST ME IF ANYWHERE I WENT WRONG IN MY CONCEPT AS PER YOUR SUGGESTION.
Looking forward for your further guidance.
Regards
Chandan