*----------------------------------------------------------------------*
***INCLUDE Z13_08_O01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'S0100'.
  SET TITLEBAR 'T0100'.

ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SCREEN_INIT OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE screen_init OUTPUT.
*  LOOP AT SCREEN.
*    IF SCREEN-GROUP1 EQ 'DIS'.
*      SCREEN-INPUT = 0.
*      MODIFY SCREEN.
*    ENDIF.
*  ENDLOOP.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module CREATE_LISTBOX OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE create_listbox OUTPUT.
  DATA lt_listbox TYPE vrm_values.
  SELECT  empcd
         ,ename
    FROM zemplist
    INTO TABLE @DATA(lt_data).

  LOOP AT lt_data INTO DATA(ls_data).
    APPEND VALUE #( key  = ls_data-empcd
                    text = ls_data-ename ) TO lt_listbox.

  ENDLOOP.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'ZEMPLIST-EMPCD'  "Screen Name
      values = lt_listbox.

ENDMODULE.