*&---------------------------------------------------------------------*
*& 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.