Screen Layout에 플랜트 필드(GV_WERKS2)를 LIST BOX 형태로 생성한다.

PBO에 로직을 구현한다.

PROCESS BEFORE OUTPUT.
  MODULE STATUS_0100.
  MODULE GV_WERKS2_LISTBOX. "PBO 적당한 위치에 아래와 같이 로직을 구현한다.

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

MODULE GV_WERKS2_LISTBOX OUTPUT.
  DATA: LT_VAL TYPE VRM_VALUES,
        LS_VAL TYPE VRM_VALUE.

  SELECT *
    INTO TABLE @DATA(LT_T001W)
    FROM T001W.

  LOOP AT LT_T001W INTO DATA(LS_T001W).
    LS_VAL-KEY = LS_T001W-WERKS.
    LS_VAL-TEXT = LS_T001W-NAME1.
    APPEND LS_VAL TO LT_VAL.
  ENDLOOP.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID              = 'GV_WERKS2'
      VALUES          = LT_VAL
    EXCEPTIONS
      ID_ILLEGAL_NAME = 1
      OTHERS          = 2.
ENDMODULE.