DYNP_VALUES_UPDATE not working

Question

I use a screen which has two cl_gui_picture classes.
And when the pictures are clicked a event is trigerred.
In this event I want to change the values of two radiobuttons which are at the same group.
The names of the radiobuttons are G_SIRKET01 and G_SIRKET02.
The code is as follows. But even it returns no errors, nothing happens.
Regards,
*&      Form  sub_picture_click
FORM sub_picture_click USING p_x p_y p_sender.
  DATA pos_x(5) TYPE c.
  DATA pos_y(5) TYPE c.
  DATA l_dynnr LIKE syst-dynnr.
  DATA it_fields LIKE dynpread OCCURS 1 WITH HEADER LINE.
  pos_x = p_x.
  pos_y = p_y.
  IF p_sender = g_grph_elmatas.
    g_sirket01 = 'X'.
    g_sirket02 = ' '.
  ELSEIF p_sender = g_grph_elmasu.
    g_sirket01 = ' '.
    g_sirket02 = 'X'.
  ENDIF.
  it_fields-fieldname  = 'G_SIRKET01'.
  it_fields-fieldvalue = g_sirket01.
  APPEND it_fields.
  it_fields-fieldname  = 'G_SIRKET02'.
  it_fields-fieldvalue = g_sirket02.
  APPEND it_fields.
  l_dynnr = '0002'.
  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      dyname               = sy-repid
      dynumb               = l_dynnr
    TABLES
      dynpfields           = it_fields
    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.
ENDFORM.                    " sub_picture_click

Answer 1

Hai Fuat
Better to use the F.M 'F4IF_INT_TABLE_VALUE_REQUEST'
instead of using 'DYNP_VALUES_UPDATE'.
Check the following Code
TABLES : MARD.
DATA: BEGIN OF IT_MARD OCCURS 0,
WERKS LIKE MARD-WERKS,
END OF IT_MARD.
DATA : T_RETURN TYPE STANDARD TABLE OF DDSHRETVAL WITH HEADER LINE.
parameters : P_WERKS LIKE MARD-WERKS.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_WERKS.
SELECT WERKS FROM MARD UP TO 10 ROWS INTO table IT_MARD.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'WERKS'
DYNPPROG = SY-REPID
DYNPNR = '1000'
DYNPROFIELD = 'P_WERKS'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = IT_MARD
RETURN_TAB = T_RETURN
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3.
Thanks & regards
Sreenivasulu P
Message was edited by: Sreenivasulu Ponnadi