리스트 박스 구현
******** On-line
MODULE INIT_SCREEN_100 OUTPUT.
txtplant = p_werks.
txtdate = sy-datum.
txttime = sy-uzeit.
txtbigo = 'N'.
PERFORM LISTBOX_P_MODE_SET. "실행모드
FORM LISTBOX_P_MODE_SET .
TYPES: BEGIN OF TY_VRM_VALUE,
KEY(40) TYPE C,
TEXT(80) TYPE C,
END OF TY_VRM_VALUE.
DATA: LT_VRM_VALUE TYPE TABLE OF TY_VRM_VALUE,
LS_VRM_VALUE TYPE TY_VRM_VALUE,
L_FNAME TYPE TY_VRM_VALUE-TEXT.
*-set listbox
L_FNAME = 'TXTBIGO'.
LS_VRM_VALUE-KEY = 'N'.
LS_VRM_VALUE-TEXT = '주 1회 신규 FSCT 갱신에 의한 변경'.
APPEND LS_VRM_VALUE TO LT_VRM_VALUE.
LS_VRM_VALUE-KEY = 'F'.
LS_VRM_VALUE-TEXT = 'FCST 추가 변경에 의한 계획 수정'.
APPEND LS_VRM_VALUE TO LT_VRM_VALUE.
LS_VRM_VALUE-KEY = 'T'.
LS_VRM_VALUE-TEXT = 'Trouble 등에 의한 계획 변경'.
APPEND LS_VRM_VALUE TO LT_VRM_VALUE.
SORT LT_VRM_VALUE DESCENDING.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = L_FNAME
VALUES = LT_VRM_VALUE.
ENDFORM. " LISTBOX_P_MODE_SET
****** Report
PARAMETERS: P_MODE TYPE CHAR1 DEFAULT 'A' AS LISTBOX
VISIBLE LENGTH 20.