1
FUNCTION z_util_src_compress.
2
*"----------------------------------------------------------------------
3
*"*"Lokale Schnittstelle:
4
*" IMPORTING
5
*" REFERENCE(IT_SRC) TYPE TABLE
6
*" REFERENCE(IV_COMPRESS_BETTER) TYPE FLAG OPTIONAL
7
*" EXPORTING
8
*" REFERENCE(ET_COMPRESSED) TYPE TABLE
9
10
11
*&---------------------------------------------------------------------*
12
*& Function Module Z_UTIL_SRC_COMPRESS *
13
*& *
14
15
16
*& This program is free software: you can redistribute it and/or *
17
*& modify it under the terms of the GNU General Public License as *
18
*& published by the Free Software Foundation, either version 3 of the *
19
*& License, or any later version. *
20
21
*& This program is distributed in the hope that it will be useful, *
22
*& but WITHOUT ANY WARRANTY; without even the implied warranty of *
23
*& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
24
*& See the GNU General Public License for more details. *
25
26
*& You should have received a copy of the GNU General Public License *
27
*& along with this program. If not, see <http://www.gnu.org/licenses/>.*
28
29
30
31
*& Author: Ruediger von Creytz ruediger.creytz@globalbit.net *
32
*& Copyright: globalBIT, LLC http://www.globalbit.net *
33
*& Version: 20210302 *
34
35
36
37
REFRESH et_compressed.
38
39
PERFORM get_src_compressed
40
USING
41
it_src
42
iv_compress_better
43
CHANGING
44
et_compressed.
45
46
ENDFUNCTION.