Abap query about enhancement set

Question

How do we use an enhancement set?Where we can maintain a particular enhancement set to a client?
*How do we know about an activated enhancement set?
Moderator message: please search for available information/documentation before asking, this is not a training forum.
locked by: Thomas Zloch on Oct 5, 2010 5:32 PM

Answer 1

Hi,
In PBO code this way :
MODULE f4_scr OUTPUT.
  REFRESH g_list1.
  g_name1 = c_status.
  g_value_1-key = c_to_be_sub.
  g_value_1-text = c_to_be_sub.
  APPEND g_value_1 TO g_list1.
  g_value_1-key = c_sub.
  g_value_1-text = c_sub.
  APPEND g_value_1 TO g_list1.
  g_value_1-key = c_chg_needed.
  g_value_1-text = c_chg_needed.
  APPEND g_value_1 TO g_list1.
  g_value_1-key = c_app.
  g_value_1-text = c_app.
  APPEND g_value_1 TO g_list1.
  IF NOT g_list1 IS INITIAL.
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id     = g_name1
        values = g_list1.
  ENDIF.
ENDMODULE.                 " F4_SCR  OUTPUT
And in PAI :
MODULE user_command_9000 INPUT.
* function module to get the list box values.
  g_name1 = c_status.
  CALL FUNCTION 'VRM_GET_VALUES'
    EXPORTING
      id           = g_name1
    IMPORTING
      values       = g_list1
    EXCEPTIONS
      id_not_found = 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.
  READ TABLE g_list1 INTO g_wa_list WITH KEY key = g_status.
  IF sy-subrc EQ 0.
    g_status = g_wa_list-text.
  ENDIF.
ENDMODULE.                 " USER_COMMAND_9000  INPUT
Hope this helps.
thanx,
dhanashri.
Edited by: Dhanashri Pawar on Aug 21, 2008 11:36 AM