Cacher is the code snippet organizer for pro developers

  field_s-tabname    = 'ZSYPRE_LOG'.
  field_s-fieldname  = 'VALUE_OLD'.
  field_s-value      = <lfs_field>.
  CONDENSE field_s-value.
  field_s-field_attr = '02'.
  APPEND field_s TO field_t.
  CLEAR field_s.

  field_s-tabname    = lv_tab.
  field_s-fieldname  = i_field.
  field_s-field_obl  = abap_true.
  APPEND field_s TO field_t.
  CLEAR field_s.

  field_s-tabname    = 'ZSYPRE_LOG'.
  field_s-fieldname  = 'DESCRIPTION'.
  field_s-field_obl  = abap_true.
  APPEND field_s TO field_t.
  CLEAR field_s.

  CALL FUNCTION 'POPUP_GET_VALUES'
    EXPORTING
*     NO_VALUE_CHECK  = ' '
      popup_title     = lv_title
*     START_COLUMN    = '5'
*     START_ROW       = '5'
    IMPORTING
      returncode      = retcode
    TABLES
      fields          = field_t
    EXCEPTIONS
      error_in_fields = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    RAISE popup_error.
  ENDIF.

  e_retcode = retcode.
  CHECK retcode EQ ''.