Criando MatchCode com Valores Supostos(Tabela Interna)

O exemplo abaixo mostra como criar um MatchCode com valores vindos de uma tabela interna:

TYPES: BEGIN OF tp_matchcode,
         maquina  TYPE zdmaquina,
         kurztext TYPE qtxt_code,
       END OF tp_matchcode.

* Declaração de Variáveis Locais:
DATA tg_matchcode TYPE TABLE OF tp_matchcode WITH HEADER LINE.
DATA tg_matchcode_value TYPE STANDARD TABLE OF ddshretval WITH HEADER LINE.

CLEAR p_equipamento.

SELECT maquina kurztext
  FROM ztab_maq_equip
  INTO TABLE tg_matchcode.


CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
    retfield     = 'KURZTEXT'
    dynpprog     = sy-repid
    dynpnr       = sy-dynnr
    window_title = 'Equipamento'
    value_org    = 'S'
  TABLES
    value_tab    = tg_matchcode
    return_tab   = tg_matchcode_value.

IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
  READ TABLE tg_matchcode INDEX 1.
  IF sy-subrc EQ 0.
    p_equipamento = tg_matchcode_value-fieldval.
  ENDIF.
ENDIF.