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

commit (2026.08.28)

Browse Source 
젠컨설팅 서버 설정에 맞도록 커스트마이징(경영단위 S001)
This commit is contained in:
mygit
2026-08-28 07:48:21 +00:00
parent ef241d888e
commit 82915844ee
3 changed files with 35 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/zcopatd0010top.prog.abap
+4 -4
View File
@@ -87,9 +87,9 @@ DATA : g_exit(1),
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 'CE01000',
g_ce1name LIKE dd03p-tabname VALUE 'CE11000',
g_tabname LIKE dd03p-tabname VALUE 'CEx1000',
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',
@@ -113,7 +113,7 @@ DATA: gs_bpsel TYPE kepp_s_bpsel,
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 '1000',
DATA: g_erkrs LIKE tkeb-erkrs VALUE 'S001',
g_kokrs LIKE tka01-kokrs,
g_pa_type LIKE ceddb-pa_type VALUE '1'.