SelectionSceen - List box

목표

List Box 만들기

List Box

 

Step

1. List box 선언

2. List box 내용 추가

 

DEFINE _input_data.
  &1-key = &3.
  &1-text = &4.

  append &1 to &2.
  clear &1.

END-OF-DEFINITION.


DATA : gt_list TYPE vrm_values,
       gs_list TYPE LINE OF vrm_values.


**********************************************************************
* SELECTION-SCREEN.
**********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-t01.
PARAMETERS : p_list(2) AS LISTBOX VISIBLE LENGTH 20 OBLIGATORY.

SELECTION-SCREEN END OF BLOCK bl1.

**********************************************************************
* INITIALIZATION.
**********************************************************************
INITIALIZATION.
  PERFORM init_listbox.

AT SELECTION-SCREEN.
  MESSAGE s000 WITH p_list.


*&---------------------------------------------------------------------*
*&      Form  INIT_LISTBOX
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM init_listbox .

  p_list = 'R'.

  _input_data : gs_list gt_list 'C' 'Create',
                gs_list gt_list 'R' 'Read',
                gs_list gt_list 'U' 'Update',
                gs_list gt_list 'D' 'Delete',
                gs_list gt_list 'A' 'All'.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id                    = 'P_LIST'
      values                = gt_list
*   EXCEPTIONS
*     ID_ILLEGAL_NAME       = 1
*     OTHERS                = 2
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.


ENDFORM.