*&---------------------------------------------------------------------*
*& Include ZCOPATD0010TOP                           - Report ZCOPATD0010
*&---------------------------------------------------------------------*
REPORT zcopatd0010  MESSAGE-ID ztopdown.
INCLUDE zcopatdcommtop                          .  " 패키지 공용 Data

TABLES: cepl4a, t821t, tkepc, tkequs1t, tkeplexitt, tkeptrt,cepl4b.

* strategies
CONSTANTS: g_c_distri  LIKE tkepplsz-type            VALUE '1'.
CONSTANTS: g_c_forec   LIKE tkepplsz-type            VALUE '2'.
CONSTANTS: g_c_reval   LIKE tkepplsz-type            VALUE '3'.
CONSTANTS: g_c_treval  LIKE tkepplsz-type            VALUE '4'.
CONSTANTS: true            VALUE 'X', false VALUE space,
           ident_dim_curtp LIKE ceformf-field VALUE 'CURTP'.

DATA : g_topdown   TYPE REF TO zcl_copa_topdown.

DATA: g_char_type.

TYPES:
  BEGIN OF ys_ref_on_screen,
    mark         TYPE flag,
    fnam         LIKE cedst-fnam.
    INCLUDE TYPE kepp_s_src.
    INCLUDE TYPE kepp_s_ref.
TYPES:
    src_low_txt  TYPE scrtext_m,
    src_high_txt TYPE scrtext_m,
    ref_low_txt  TYPE scrtext_m,
    ref_high_txt TYPE scrtext_m,
    icon_more    TYPE char5,
    icon_sel     TYPE char5,
  END OF ys_ref_on_screen.

TYPES:
  BEGIN OF ys_0201,
    show_text,
    found_col  TYPE fieldname,
    found_line TYPE int4,
  END OF ys_0201,

  BEGIN OF ys_1100,
    fieldname      TYPE fieldname,
    fieldname_txt  TYPE scrtext_m,
    entry_count(8) TYPE n,
    cursor_line    TYPE n,
    but_filter     TYPE char5,
    but_filter_txt TYPE char30,
    found_col      TYPE fieldname,
    found_line     TYPE int4,
    show_text,
    show_from_to,
    col_optimize,

  END OF ys_1100.

DATA: BEGIN OF g_fieldtabkey,
        tabname   LIKE dd03p-tabname,
        fieldname LIKE dd03p-fieldname,
      END OF g_fieldtabkey.


DATA: tscrol(1) OCCURS 0 WITH HEADER LINE.
DATA: g_planmerk LIKE cepl5 OCCURS 0 WITH HEADER LINE.
DATA: g_planwert LIKE cepl9 OCCURS 0 WITH HEADER LINE.

DATA: g_tkebpfm LIKE tkebpfm OCCURS 0 WITH HEADER LINE.
DATA: gs_tkeb TYPE rkea1_v_tkeb.
DATA: g_tkebpsf LIKE tkebpsf OCCURS 0 WITH HEADER LINE,
      gt_fnam   TYPE kepp_t_fnam WITH HEADER LINE,
      gt_sort   TYPE kepp_t_sort WITH HEADER LINE,
      gt_box    TYPE kepp_t_box  WITH HEADER LINE.

DATA :
  gt_backup_ref   TYPE STANDARD TABLE OF ys_ref_on_screen
              WITH HEADER LINE,
  gt_backup_multi TYPE STANDARD TABLE OF ys_ref_on_screen
                   WITH HEADER LINE.

DATA:           g_fcodetab LIKE kpp0i OCCURS 0 WITH HEADER LINE.

DATA : g_exit(1),
       g_tfill_200      LIKE sy-tfill,
       g_func           LIKE tkebpsf-func VALUE 'GITD',
       gs_0201          TYPE ys_0201,
       g_begin_200      LIKE sy-tabix,
       g_datar          LIKE sy-datar,
       g_index_200      LIKE sy-tabix VALUE 1,
       g_ce0name        LIKE dd03p-tabname  VALUE 'CE0S001',
       g_ce1name        LIKE dd03p-tabname  VALUE 'CE1S001',
       g_tabname        LIKE dd03p-tabname  VALUE 'CExS001',
       kepp_c_prog      LIKE tkebpsf-prog VALUE 'SAPLKEPP',
       g_fcode          LIKE kpp0i-ok_code,
       g_dnum           LIKE tkebpsf-dnum VALUE '0200',
       g_fnam           TYPE kepp_s_sel1-fnam,
       g_display(1),
       gt_chartab       TYPE kepp_t_sel1 WITH HEADER LINE,
       gs_1100          TYPE ys_1100,
       g_first_pbo_1100 TYPE flag,
       g_loopc_200      LIKE sy-tabix,
       g_begin_1000     LIKE sy-tabix,
       g_tfill_1000     LIKE sy-tfill,
       g_loopc_1000     LIKE sy-tabix.

** curtp texts
DATA: src_high TYPE char20,
      ref_high TYPE char20.

DATA: gs_bpsel   TYPE kepp_s_bpsel,
      gt_old_sel TYPE kepp_t_sel1.

DATA: g_fieldtab TYPE rkea1_fieldtab WITH HEADER LINE.
DATA: g_ftab_dep TYPE rkea1_t_depend WITH HEADER LINE.

DATA: g_erkrs   LIKE tkeb-erkrs VALUE 'S001',
      g_kokrs   LIKE tka01-kokrs,
      g_pa_type LIKE ceddb-pa_type VALUE '1'.

DATA: subrc   LIKE sy-subrc.

DATA:
  gt_ref   TYPE STANDARD TABLE OF ys_ref_on_screen WITH HEADER LINE,
  gt_multi TYPE STANDARD TABLE OF ys_ref_on_screen WITH HEADER LINE.

CONTROLS:
  tctd_sk TYPE TABLEVIEW USING SCREEN '0100',
  tc_ref  TYPE TABLEVIEW USING SCREEN '1100'.



*-- Selection Screen 입력값
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-s01.
  PARAMETERS: p_erkrs  TYPE erkrs   OBLIGATORY,      "경영단위 코드
              p_perio  TYPE jahrper OBLIGATORY,      "기간(YYYYMM)
              p_varint TYPE covariant OBLIGATORY.   "변형
SELECTION-SCREEN END OF BLOCK b1.