43 lines
1.8 KiB
ABAP
43 lines
1.8 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& 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.
|