module f4_CARRID 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          = 'SFLIGHT'
      fieldname        = 'CARRID'
*      searchhelp       = 'ZH_SFLIGHT'
*      shlpparam        = 'CARRID'
      dynpprog         = sy-repid
      dynpnr           = sy-dynnr
*      dynprofield      = 'S_100-CARRID'
      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_100-' 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_CARRID  INPUT