169 lines
6.4 KiB
ABAP
169 lines
6.4 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& Include ZCO_VARIANT
|
|
*&---------------------------------------------------------------------*
|
|
|
|
*&---------------------------------------------------------------------*
|
|
*& Include ZH_VARIANT
|
|
*&---------------------------------------------------------------------*
|
|
|
|
TABLES: sscrfields.
|
|
|
|
DATA : gv_err.
|
|
|
|
*----------------------------------------------------------------------*
|
|
* ALV DEFINE *
|
|
*----------------------------------------------------------------------*
|
|
DATA :
|
|
|
|
*-- Container.
|
|
go_docking_container TYPE REF TO cl_gui_docking_container,
|
|
go_docking_container1 TYPE REF TO cl_gui_docking_container,
|
|
go_docking_container2 TYPE REF TO cl_gui_docking_container,
|
|
go_docking_container3 TYPE REF TO cl_gui_docking_container,
|
|
|
|
go_custom_container TYPE REF TO cl_gui_custom_container,
|
|
go_custom_container1 TYPE REF TO cl_gui_custom_container,
|
|
go_custom_container2 TYPE REF TO cl_gui_custom_container,
|
|
go_custom_container3 TYPE REF TO cl_gui_custom_container,
|
|
go_custom_container4 TYPE REF TO cl_gui_custom_container,
|
|
|
|
go_splitter TYPE REF TO cl_gui_splitter_container,
|
|
go_splitter_w1 TYPE REF TO cl_gui_splitter_container,
|
|
go_splitter_w2 TYPE REF TO cl_gui_splitter_container,
|
|
go_splitter_w3 TYPE REF TO cl_gui_splitter_container,
|
|
go_splitter_h1 TYPE REF TO cl_gui_splitter_container,
|
|
go_splitter_h2 TYPE REF TO cl_gui_splitter_container,
|
|
go_splitter_h3 TYPE REF TO cl_gui_splitter_container,
|
|
|
|
go_container TYPE REF TO cl_gui_container,
|
|
go_container1 TYPE REF TO cl_gui_container,
|
|
go_container2 TYPE REF TO cl_gui_container,
|
|
go_container3 TYPE REF TO cl_gui_container,
|
|
go_container4 TYPE REF TO cl_gui_container,
|
|
go_container5 TYPE REF TO cl_gui_container,
|
|
|
|
go_container_top TYPE REF TO cl_gui_container,
|
|
go_container_end TYPE REF TO cl_gui_container,
|
|
go_container_l TYPE REF TO cl_gui_container,
|
|
go_container_r TYPE REF TO cl_gui_container,
|
|
|
|
go_top_of_list TYPE REF TO cl_gui_html_viewer,
|
|
go_end_of_list TYPE REF TO cl_gui_html_viewer,
|
|
|
|
*-- ALV Grid.
|
|
go_grid TYPE REF TO lcl_alv_grid,
|
|
go_grid1 TYPE REF TO lcl_alv_grid,
|
|
go_grid2 TYPE REF TO lcl_alv_grid,
|
|
go_grid3 TYPE REF TO lcl_alv_grid,
|
|
go_grid4 TYPE REF TO lcl_alv_grid,
|
|
go_grid5 TYPE REF TO lcl_alv_grid,
|
|
|
|
*-- ALV Tree.
|
|
go_tree1 TYPE REF TO cl_gui_alv_tree,
|
|
go_tree2 TYPE REF TO cl_gui_alv_tree,
|
|
go_tree3 TYPE REF TO cl_gui_alv_tree,
|
|
go_tree4 TYPE REF TO cl_gui_alv_tree,
|
|
|
|
gs_variant TYPE disvariant,
|
|
gs_variant1 TYPE disvariant,
|
|
gs_variant2 TYPE disvariant,
|
|
gs_variant3 TYPE disvariant,
|
|
gs_variant4 TYPE disvariant,
|
|
gs_variant5 TYPE disvariant,
|
|
|
|
*-- ALV control: Layout
|
|
gs_layout TYPE lvc_s_layo,
|
|
gs_layout1 TYPE lvc_s_layo,
|
|
gs_layout2 TYPE lvc_s_layo,
|
|
gs_layout3 TYPE lvc_s_layo,
|
|
gs_layout4 TYPE lvc_s_layo,
|
|
gs_layout5 TYPE lvc_s_layo,
|
|
|
|
*-- ALV LIst : Fieldcataolg.
|
|
gs_fieldcat TYPE lvc_s_fcat,
|
|
gt_fieldcat TYPE lvc_t_fcat,
|
|
gt_fieldcat1 TYPE lvc_t_fcat,
|
|
gt_fieldcat2 TYPE lvc_t_fcat,
|
|
gt_fieldcat3 TYPE lvc_t_fcat,
|
|
gt_fieldcat4 TYPE lvc_t_fcat,
|
|
gt_fieldcat5 TYPE lvc_t_fcat,
|
|
gt_fieldcat_popup TYPE lvc_t_fcat,
|
|
|
|
*-- ALV F4 Help.
|
|
gt_f4 TYPE lvc_t_f4,
|
|
gs_f4 TYPE lvc_s_f4,
|
|
|
|
*-- ALV Sorting.
|
|
gs_sort TYPE lvc_s_sort,
|
|
gt_sort TYPE lvc_t_sort,
|
|
gt_sort1 TYPE lvc_t_sort,
|
|
gt_sort2 TYPE lvc_t_sort,
|
|
gt_sort3 TYPE lvc_t_sort,
|
|
gt_sort4 TYPE lvc_t_sort,
|
|
gt_sort5 TYPE lvc_t_sort,
|
|
|
|
*-- ALV Toolbar.
|
|
gs_toolbar TYPE stb_button,
|
|
go_toolbar TYPE REF TO cl_gui_toolbar,
|
|
|
|
gs_exclude TYPE ui_functions,
|
|
gs_exclude1 TYPE ui_functions,
|
|
gs_exclude2 TYPE ui_functions,
|
|
gs_exclude3 TYPE ui_functions,
|
|
gs_exclude4 TYPE ui_functions,
|
|
gs_exclude5 TYPE ui_functions,
|
|
|
|
*-- ALV Color & Style
|
|
gs_color TYPE lvc_s_scol,
|
|
gt_color TYPE lvc_t_scol WITH HEADER LINE,
|
|
gs_style TYPE lvc_s_styl,
|
|
gt_style TYPE lvc_t_styl WITH HEADER LINE,
|
|
gs_stable TYPE lvc_s_stbl.
|
|
|
|
|
|
DATA: gs_rows TYPE lvc_s_row,
|
|
gt_rows TYPE lvc_t_row.
|
|
|
|
|
|
*-- Tree 관련.
|
|
DATA: gs_hierarchy_header1 TYPE treev_hhdr,
|
|
gs_hierarchy_header2 TYPE treev_hhdr.
|
|
|
|
DATA: gs_dynpro LIKE dynpread,
|
|
gt_dynpro LIKE TABLE OF gs_dynpro.
|
|
|
|
*----------------------------------------------------------------------*
|
|
* OK_CODE. *
|
|
*----------------------------------------------------------------------*
|
|
DATA: ok_code_0100 LIKE sy-ucomm,
|
|
ok_code_0110 LIKE sy-ucomm,
|
|
ok_code_0120 LIKE sy-ucomm,
|
|
ok_code_0200 LIKE sy-ucomm,
|
|
ok_code_0300 LIKE sy-ucomm,
|
|
ok_code_0400 LIKE sy-ucomm.
|
|
|
|
|
|
*----------------------------------------------------------------------*
|
|
* BDC DEFINE *
|
|
*----------------------------------------------------------------------*
|
|
DATA : gt_bdcdata LIKE TABLE OF bdcdata WITH HEADER LINE, " BDC Data.
|
|
gt_bdcmsg LIKE TABLE OF bdcmsgcoll WITH HEADER LINE, " BDC Message.
|
|
gv_bdcmode LIKE ctu_params-dismode VALUE 'N', " BDC Mode.
|
|
gv_bdcmsg LIKE bapireturn-message, " BDC Message.
|
|
gv_message LIKE bapireturn-message.
|
|
|
|
*----------------------------------------------------------------------*
|
|
* F4 Help. *
|
|
*----------------------------------------------------------------------*
|
|
DATA : gt_f4_fields LIKE help_value OCCURS 0 WITH HEADER LINE,
|
|
gt_f4_header TYPE f4typ_heading_tab WITH HEADER LINE,
|
|
gv_f4_fieldname LIKE help_info-fieldname,
|
|
gv_f4_fieldvalue LIKE help_info-fldvalue.
|
|
|
|
|
|
TYPES : BEGIN OF ty_err,
|
|
fname TYPE lvc_fname,
|
|
index TYPE sy-index,
|
|
msg TYPE char100,
|
|
END OF ty_err.
|