81 lines
2.8 KiB
ABAP
81 lines
2.8 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& Include ZCOM0010TOP - Report ZCOM0010
|
|
*&---------------------------------------------------------------------*
|
|
INCLUDE zco_constants.
|
|
INCLUDE zco_variant.
|
|
INCLUDE zco_macro.
|
|
|
|
TABLES: zcat0010, zcat0020.
|
|
|
|
SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE TEXT-t01.
|
|
PARAMETERS: p_appli TYPE zcat0010-appli OBLIGATORY DEFAULT 'CO',
|
|
p_grp TYPE zcat0010-grp,
|
|
p_spras TYPE zcat0010-spras NO-DISPLAY.
|
|
SELECTION-SCREEN END OF BLOCK b01.
|
|
|
|
TYPES: BEGIN OF ty_header,
|
|
mark TYPE c LENGTH 1,
|
|
appli TYPE zcat0010-appli,
|
|
grp TYPE zcat0010-grp,
|
|
spras TYPE zcat0010-spras,
|
|
grp_txt TYPE zcat0010-grp_txt,
|
|
hdr_01 TYPE zcat0010-hdr_01,
|
|
len_01 TYPE zcat0010-len_01,
|
|
hdr_02 TYPE zcat0010-hdr_02,
|
|
len_02 TYPE zcat0010-len_02,
|
|
hdr_03 TYPE zcat0010-hdr_03,
|
|
len_03 TYPE zcat0010-len_03,
|
|
hdr_04 TYPE zcat0010-hdr_04,
|
|
len_04 TYPE zcat0010-len_04,
|
|
hdr_05 TYPE zcat0010-hdr_05,
|
|
len_05 TYPE zcat0010-len_05,
|
|
hdr_06 TYPE zcat0010-hdr_06,
|
|
len_06 TYPE zcat0010-len_06,
|
|
hdr_07 TYPE zcat0010-hdr_07,
|
|
len_07 TYPE zcat0010-len_07,
|
|
hdr_08 TYPE zcat0010-hdr_08,
|
|
len_08 TYPE zcat0010-len_08,
|
|
hdr_09 TYPE zcat0010-hdr_09,
|
|
len_09 TYPE zcat0010-len_09,
|
|
hdr_10 TYPE zcat0010-hdr_10,
|
|
len_10 TYPE zcat0010-len_10,
|
|
fcnt TYPE zcat0010-fcnt,
|
|
remk TYPE zcat0010-remk,
|
|
mode TYPE c LENGTH 1,
|
|
END OF ty_header.
|
|
TYPES tt_header TYPE STANDARD TABLE OF ty_header WITH DEFAULT KEY.
|
|
|
|
TYPES: BEGIN OF ty_item,
|
|
mark TYPE c LENGTH 1,
|
|
appli TYPE zcat0020-appli,
|
|
grp TYPE zcat0020-grp,
|
|
spras TYPE zcat0020-spras,
|
|
code TYPE zcat0020-code,
|
|
code_txt TYPE zcat0020-code_txt,
|
|
fld_01 TYPE zcat0020-fld_01,
|
|
fld_02 TYPE zcat0020-fld_02,
|
|
fld_03 TYPE zcat0020-fld_03,
|
|
fld_04 TYPE zcat0020-fld_04,
|
|
fld_05 TYPE zcat0020-fld_05,
|
|
fld_06 TYPE zcat0020-fld_06,
|
|
fld_07 TYPE zcat0020-fld_07,
|
|
fld_08 TYPE zcat0020-fld_08,
|
|
fld_09 TYPE zcat0020-fld_09,
|
|
fld_10 TYPE zcat0020-fld_10,
|
|
useyn TYPE zcat0020-useyn,
|
|
sortseq TYPE zcat0020-sortseq,
|
|
mode TYPE c LENGTH 1,
|
|
END OF ty_item.
|
|
TYPES tt_item TYPE STANDARD TABLE OF ty_item WITH DEFAULT KEY.
|
|
|
|
DATA: gt_header TYPE tt_header,
|
|
gs_header TYPE ty_header,
|
|
gt_item TYPE tt_item,
|
|
gs_item TYPE ty_item,
|
|
gv_selected_grp TYPE zcat0010-grp,
|
|
gv_lines TYPE i.
|
|
|
|
|
|
|
|
DATA go_events TYPE REF TO lcl_events.
|