*&---------------------------------------------------------------------*
*& Report ZCOPATD0030
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*

INCLUDE zcopatd0030top                          .  " Global Data
INCLUDE ZCOPATD0030c01                          .  "Event.
INCLUDE zcopatdcommF01                          .  " 패키지 Form-Routines
INCLUDE zcopatd0030o01                          .  " PBO-Modules
INCLUDE zcopatd0030i01                          .  " PAI-Modules
INCLUDE zcopatd0030f01                          .  " FORM-Routines

*----------------------------------------------------------------------*
* INITIALIZATION                                                       *
*----------------------------------------------------------------------*
INITIALIZATION.
  PERFORM get_table_info.           "패키지 DB Table 정보(필수 사전 작업)

*----------------------------------------------------------------------*
* AT SELECTION-SCREEN                                                  *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.


*----------------------------------------------------------------------*
* START-OF-SELECTION.
*----------------------------------------------------------------------*
START-OF-SELECTION.
  PERFORM show_progress(sapfztdpool) USING 30 '데이타 조회 중 입니다.'.

  PERFORM select_data.
  PERFORM make_simple_tree_node.

* 하향식 배부 클래스 생성.
  PERFORM create_top_down_object.

*----------------------------------------------------------------------*
* END-OF-SELECTION.
*----------------------------------------------------------------------*
END-OF-SELECTION.
  CALL SCREEN 0100.