(ABAP 코드) Selection-Screen Dropbox

*&---------------------------------------------------------------------*

*& SELECTION SCREEN (PARAMETERS / SELECT-OPTIONS) 선언부

*&---------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t01.

PARAMETERS: p_carr2   LIKE  scarr-carrid.

PARAMETERS: p_carrid  LIKE  scarr-carrid  AS LISTBOX

               VISIBLE LENGTH 25 DEFAULT 'AA'.

SELECTION-SCREEN END OF BLOCK b1.

 

 

 

 

  TYPE-POOLS : vrm.

 

  DATA: Lv_NAME   TYPE vrm_id,     " List화 시킬 Parameter

        Lt_LIST  TYPE vrm_values.  " List 만들 Internal Table

 

*-set listbox

  lv_name = 'P_CARRID'.  " List화 시킬 Parameter 이름

 

  CLEAR : Lt_LIST[].

 

*>>> 리스트박스에 채울 데이터를 select 한다.

  SELECT carrid, carrid && '--->' && carrname

    INTO TABLE @Lt_LIST

    FROM scarr

   ORDER BY carrid.

 

*>>> 리스트박스에 나타나게 한다.

  CALL FUNCTION 'VRM_SET_VALUES'

    EXPORTING

      id     = Lv_NAME              " List화 시킬 Parameter

      values = Lt_LIST[].           " List 만들 Internal Table