First Commit (2026.08.28)

2026-08-28 00:31:38 +00:00
parent c0ee4b26f0
commit ef241d888e
61 changed files with 16193 additions and 0 deletions
@@ -0,0 +1,42 @@
+*&---------------------------------------------------------------------*
+*& 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.