FM for Drop down in a field

CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID              = P_L_ID “Field name
      VALUES          = P_L_T_VALUES “All the values key and TEXT
    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.