Dynamically Setting up values for a field( not a DDIC data element)

* Set Value in Deal Type list
  IF li_list IS INITIAL.
    l_id = 'G_DLTP'.
    w_value-key = c_a.
    w_value-text = text-034.
    APPEND w_value TO li_list.

    w_value-key = c_b.
    w_value-text = text-035.
    APPEND w_value TO li_list.

    w_value-key = c_c.
    w_value-text = text-036.
    APPEND w_value TO li_list.

    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id              = l_id
        values          = li_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.
  ENDIF.