리스트 박스 구현

********   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.

Naver 태그: abap,listbox