module f4_drum_S101 input.
  DATA: l_form   TYPE  sy-xform
      VALUE 'F4_PRUEFLOS_CALLBACK_FORM'.

  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
    EXCEPTIONS
      OTHERS           = 99.
  IF NOT sy-subrc IS INITIAL.
    MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

endmodule.                 " f4_drum_S101  INPUT