Popup com campos, preenchimento obrigatório, etc

Pode parecer besteira, mas se um dia você quiser um programa para gravar algumas informações no meio de um processo qualquer, se você puder abrir um popup com os campos para preencher seria ótimo. Você pode dar uma viajada e gerar isto dinâmico para realizar um select posteriormente, ou buscar informações, etc. Faça bom proveito.

REPORT ZSAPeiros.

DATA:
  t_fields TYPE TABLE OF sval, "Atributos tabela
  w_fields TYPE          sval. "Atributos tabela

w_fields-tabname   = 'MARA'.
w_fields-fieldname = 'MATNR'.
w_fields-field_obl = abap_true.
APPEND w_fields TO t_fields.
CLEAR w_fields.

w_fields-tabname   = 'MARA'.
w_fields-fieldname = 'MEINS'.
APPEND w_fields TO t_fields.
CLEAR w_fields.

CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
    popup_title = 'Informe os dados corretamente'
  IMPORTING
    returncode  = lv_retcode
  TABLES
    fields      = t_fields.

IF lv_retcode NE 'E'. "Cancelar
  LOOP AT t_fields INTO w_fields.
    WRITE:/ w_fields-value.
  ENDLOOP.
ENDIF.