MODULE f4_drum_s101 INPUT.
  DATA: l_form   TYPE  sy-xform
       VALUE 'F4_PRUEFLOS_CALLBACK_FORM',
       l_fname like dynpread-fieldname.
  DATA: lt_return TYPE STANDARD TABLE OF ddshretval with header line,
        scr_field      LIKE  dynpread   OCCURS 0 WITH HEADER LINE.

  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname          = 'ZQMT0107'
      fieldname        = 'DRUM'
*      searchhelp       = 'ZQM_DRUM'
*      shlpparam        = 'DRUM'
      dynpprog         = sy-repid
      dynpnr           = sy-dynnr
*      dynprofield      = 'S_101-DRUM'
      callback_program = sy-repid
      callback_form    = l_form
    TABLES
     return_tab                = lt_return[]
    EXCEPTIONS
      OTHERS           = 99.
  IF NOT sy-subrc IS INITIAL.

  ENDIF.

  REFRESH: scr_field.
  LOOP AT lt_return.
    concatenate 'S_101-' lt_return-fieldname INTO l_fname.
    scr_field-fieldname = l_fname.
    scr_field-fieldvalue = lt_return-fieldval.
    APPEND scr_field.
  ENDLOOP.
  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      dyname               = sy-cprog
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = scr_field.
  .
  IF sy-subrc <> 0.

  ENDIF.


ENDMODULE.                 " f4_drum_S101  INPUT