Screen Dropdown List

화면 레이아웃에서 드롭다운 - Listbox로 선택

PBO에

  PERFORM SET_LISTBOX_0100 USING : 'GS_S1040-ART'.

FORM SET_LISTBOX_0100  USING PV_FIELD TYPE ANY.
  DATA : LT_LIST TYPE  VRM_VALUES WITH HEADER LINE,
         L_ID    TYPE VRM_ID.

  REFRESH LT_LIST.

  SELECT CODE1 AS KEY ,
         SNAME AS TEXT
      FROM 테이블명
      INTO TABLE @DATA(LT_INSPINT)
      WHERE SPRAS EQ @SY-LANGU.

  MOVE-CORRESPONDING LT_INSPINT[] TO LT_LIST[].

  L_ID = PV_FIELD.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID              = L_ID
      VALUES          = LT_LIST[]
    EXCEPTIONS
      ID_ILLEGAL_NAME = 1
      OTHERS          = 2.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
ENDFORM.

텍스트로 되어있지만 ART필드에는 코드값으로 들어감.
코드값 보이게 하고싶으면 화면 레이아웃에서 List box with key 로 선택