*&---------------------------------------------------------------------*
*& Report Z14_05
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_05.


CLASS lcl_order DEFINITION.
  PUBLIC SECTION.
    DATA: order_quantity TYPE i.

    METHODS: create_order IMPORTING p_quantity TYPE i.
    EVENTS: order_created EXPORTING VALUE(p_quantity) TYPE i.
ENDCLASS.

CLASS lcl_order IMPLEMENTATION.
  METHOD create_order.
    " 주문 생성 로직
    order_quantity = p_quantity.

    " 주문이 생성되었음을 이벤트로 알림
    RAISE EVENT order_created EXPORTING p_quantity = p_quantity.
  ENDMETHOD.
ENDCLASS.

CLASS lcl_order_handler DEFINITION.
  PUBLIC SECTION.
    METHODS: handle_order_created FOR EVENT order_created OF lcl_order
      IMPORTING p_quantity.
ENDCLASS.

CLASS lcl_order_handler IMPLEMENTATION.
  METHOD handle_order_created.

    " 주문 생성 이벤트가 발생했을 때 처리할 로직
    WRITE: / '주문이 생성되었습니다. 주문 수량: ', p_quantity.
  ENDMETHOD.
ENDCLASS.

PARAMETERS: p_quan TYPE i.

START-OF-SELECTION.
  DATA: lo_order         TYPE REF TO lcl_order,
        lo_order_handler TYPE REF TO lcl_order_handler.

  " 주문 객체 생성
  CREATE OBJECT lo_order.

  " 주문 이벤트 핸들러 생성
  CREATE OBJECT lo_order_handler.

  " 이벤트 핸들러 등록
  SET HANDLER lo_order_handler->handle_order_created FOR lo_order.

  " 주문 생성 메소드 호출
  lo_order->create_order( p_quantity = p_quan ).