...
  data: return_tab like ddshretval occurs 0 with header line.

  call function 'F4IF_FIELD_VALUE_REQUEST'
      exporting
          tabname           = 'ZPM_CCRQK'
          fieldname         = 'KUNNR'
          searchhelp        = 'ZPM_CCRQK'
          callback_program  = 'ZPM_CCRQ'
          callback_form     = 'CB_F4_VALUE_REQUEST'
      tables
          return_tab        = return_tab
      exceptions
          field_not_found   = 1
          no_help_for_field = 2
          inconsistent_help = 3
          no_values_found   = 4
          others            = 5.

   if not return_tab[] is initial.
      read table return_tab with key shlpname = 'ZPM_CCRQK'
                                    fieldname = 'KUNNR'.
      ...
      read table return_tab with key shlpname = 'ZPM_CCRQK'
                                    fieldname = 'WADAT'.
      ...
      read table return_tab with key shlpname = 'ZPM_CCRQK'
                                    fieldname = 'WERKS'.
      ...
      read table return_tab with key shlpname = 'ZPM_CCRQK'
                                    fieldname = 'VKBUR'.
...

form cb_f4_value_request tables record_tab structure seahlpres
                       changing shlp type shlp_descr_t
                                callcontrol like ddshf4ctrl.
  data: wa_props like ddshfprop,
        wa_intf like ddshiface.

  loop at shlp-fieldprop into wa_props where shlpoutput = 'X'.
     read table shlp-interface into wa_intf
          with key shlpfield = wa_props-fieldname.
             wa_intf-f4field = 'X'.
     modify shlp-interface from wa_intf index sy-tabix
            transporting f4field.
  endloop.
endform.                    "CB_F4_VALUE_REQUEST