mygit/abap-zcomcode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

First commit (2026.09.09)

Browse Source 
공통 코드 관리
This commit is contained in:
mygit
2026-09-09 09:09:28 +00:00
parent 330ae44423
commit 709e049c97
21 changed files with 1648 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/zcom0010top.prog.abap
+80
View File
@@ -0,0 +1,80 @@
*&---------------------------------------------------------------------*
*& 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.