REPORT ZVV_POPUP.

* dummy code to display table of fields
  define display_values.
    data: w_fields like sval occurs 0 with header line,
          w_msg(200).
    w_fields[] = p_fields[].
    w_msg = &1.
    loop at w_fields.
      concatenate w_msg w_fields-tabname '-' w_fields-fieldname '='
                  w_fields-value ','
                  into w_msg.
    endloop.
    message i398(00) with w_msg+0(50)   w_msg+50(50)
                          w_msg+100(50) w_msg+150(50).
  end-of-definition.

  parameter p_matnr like mara-matnr.
  data: w_fields like sval occurs 0 with header line,
        w_rc(1).

end-of-selection.
  w_fields-tabname   = 'MARA'.
  w_fields-fieldname = 'MATNR'.
  w_fields-value     = p_matnr.
  append w_fields.

  CALL FUNCTION 'POPUP_GET_VALUES_USER_CHECKED'
    EXPORTING
      FORMNAME                        = 'USER_FORM2'
      POPUP_TITLE                     = 'GET VALUES USER CHECKED'
      PROGRAMNAME                     = 'ZVV_POPUP'
*     START_COLUMN                    = '5'
*     START_ROW                       = '5'
*     NO_CHECK_FOR_FIXED_VALUES       = ' '
    IMPORTING
      RETURNCODE                      = w_rc
    TABLES
      FIELDS                          = w_fields
    EXCEPTIONS
      ERROR_IN_FIELDS                 = 1
      OTHERS                          = 2.
  IF SY-SUBRC <> 0 or not w_rc = space.
    write: / 'GET VALUES USER CHECKED failed'.
  ENDIF.

  CALL FUNCTION 'POPUP_GET_VALUES_USER_HELP'
    EXPORTING
      F1_FORMNAME                     = 'F1_FORM'
      F1_PROGRAMNAME                  = 'ZVV_POPUP'
      F4_FORMNAME                     = 'F4_FORM'
      F4_PROGRAMNAME                  = 'ZVV_POPUP'
      FORMNAME                        = 'USER_FORM2'
      POPUP_TITLE                     = 'GET VALUES USER HELP'
      PROGRAMNAME                     = 'ZVV_POPUP'
*     START_COLUMN                    = '5'
*     START_ROW                       = '5'
*     NO_CHECK_FOR_FIXED_VALUES       = ' '
    IMPORTING
      RETURNCODE                      = w_rc
    TABLES
      FIELDS                          = w_fields
    EXCEPTIONS
      ERROR_IN_FIELDS                 = 1
      OTHERS                          = 2.
  IF SY-SUBRC <> 0 or not w_rc = space.
    write: / 'GET VALUES USER HELP failed'.
  ENDIF.

  CALL FUNCTION 'POPUP_GET_VALUES_USER_BUTTONS'
    EXPORTING
      F1_FORMNAME                     = 'F1_FORM'
      F1_PROGRAMNAME                  = 'ZVV_POPUP'
      F4_FORMNAME                     = 'F4_FORM'
      F4_PROGRAMNAME                  = 'ZVV_POPUP'
      FORMNAME                        = 'USER_FORM'
      PROGRAMNAME                     = 'ZVV_POPUP'
      POPUP_TITLE                     = 'GET VALUES USER BUTTONS'
      OK_PUSHBUTTONTEXT               = 'Ok'
      ICON_OK_PUSH                    = '@0V@'      "ICON_OKAY
      QUICKINFO_OK_PUSH               = 'Done'
      FIRST_PUSHBUTTON                = 'Check 1'
      ICON_BUTTON_1                   = '@38@'      "ICON_CHECK
      QUICKINFO_BUTTON_1              = 'Check 1'
      SECOND_PUSHBUTTON               = 'Check 2'
      ICON_BUTTON_2                   = '@46@'      "ICON_COMPARE
      QUICKINFO_BUTTON_2              = 'Check 2'
*     START_COLUMN                    = '5'
*     START_ROW                       = '5'
*     NO_CHECK_FOR_FIXED_VALUES       = ' '
    IMPORTING
      RETURNCODE                      = w_rc
    TABLES
      FIELDS                          = w_fields
    EXCEPTIONS
      ERROR_IN_FIELDS                 = 1
      OTHERS                          = 2.
  IF SY-SUBRC <> 0 or not w_rc = space.
    write: / 'GET VALUES USER BUTTONS failed'.
  ENDIF.

*==============================================================
*  Checking form 1
form user_form tables p_fields
               using  p_ok_code_save
                      p_error
                      p_h_show_popup.
  display_values 'Checking:'.
  message i398(00) with 'sy-ucomm =' sy-ucomm.
* ....
* continue procesing
  case sy-ucomm.
    when 'FURT'.  p_h_show_popup = space.  "OK button
    when 'COD1'.  p_h_show_popup = 'X'.    "button 1
    when 'COD2'.  p_h_show_popup = 'X'.    "button 2
  endcase.
* ....
* check successful
  clear p_error.
endform.

*==============================================================
*  Checking form 2
form user_form2 tables p_fields
                using  p_error.
  display_values 'Checking:'.
* ....
* check successful
  clear p_error.
endform.

*==============================================================
*  Help form
form f1_form using  p_table
                    p_field.
  message i398(00) with 'Help for:' p_table '-' p_field.
endform.

*==============================================================
*  F4 form
form f4_form using  p_table
                    p_field
                    p_flag
                    p_retruncode
                    p_value.
  message i398(00) with 'F4 for:' p_table p_field p_value.
  p_value = '4444'.
endform.

*=======================