SCREEN LAYOUT에 플랜트 필드(GV_WERKS)를 하나 만들고 F4를 구현하는 셈플예제

PROCESS BEFORE OUTPUT.
  MODULE STATUS_0100.

PROCESS AFTER INPUT.
  MODULE EXIT AT EXIT-COMMAND.
  MODULE USER_COMMAND_0100.

PROCESS ON VALUE-REQUEST.
  FIELD : GV_WERKS MODULE F4_WERKS.  "이 부분에 F4기능을 아래와 같이 구현한다.

MODULE F4_WERKS INPUT.

  DATA : BEGIN OF LT_VALUE OCCURS 0,
         WERKS LIKE T001W-WERKS,
         NAME1 LIKE T001W-NAME1,
         END OF LT_VALUE.
  CLEAR: LT_VALUE, LT_VALUE[].

  SELECT WERKS
         NAME1
    INTO TABLE LT_VALUE
    FROM T001W.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD        = 'WERKS'
      DYNPPROG        = SY-CPROG
      DYNPNR          = SY-DYNNR
      DYNPROFIELD     = 'GV_WERKS'
      VALUE_ORG       = 'S'
    TABLES
      VALUE_TAB       = LT_VALUE
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      OTHERS          = 3.

ENDMODULE.

필드를 리스트박스로 하면 아래와 같이 보이고 일반필드로 하면 F4형태로 보여진다.