LKKP0TOP-S

FUNCTION-POOL kpp0 MESSAGE-ID k9.
---- function-pool:里面定义的都是全局性变量
---- SAP Function Group KPP0
---- k9：

ABAP-程序开始语句（Introductory Statements）（三）——函数池
ABAP开始语句包含以下6种：
---- CLASS-POOL：开始一个类池
---- FUNCTION-POOL：开始一个函数组
---- INTERFACE-POOL：开始一个接口池
---- PROGRAM：开始一个模块池或者子例程池
---- REPORT：开始一个可执行程序
---- TYPE-POOL：开始一个类型池
函数池是一个ABAP程序，该程序只用于包含函数模块，通常通过函数模块的使用来加载。当前函数组可以只包含最多99个函数模块。支持自己的屏幕。
语法：FUNCTION-POOL fpool [list_options] [MESSAGE-ID mid]
FUNCTION-POOL语句引入一个函数组。在任何已存在的包含程序展开后，它必须是独立程序的第一个语句。对于FUNCTION-POOL语句，附加的条件同REPORT后面有同样的含义。
函数组可以使用ABAP工作台的函数构建器维护。工作台自动生成了一个框架程序和下面列出的包含程序。FUNCTION-POOL语句在top inlcude里被创建。

• Includes
  INCLUDE kppxi001. "Allgemeine Konstanten
  INCLUDE kppxi002. "Allgemeine Variablen
  INCLUDE kppxi003. "Allgemeine Typen
  TYPE-POOLS: kpp, vrm, abap.
  INCLUDE kpp0comm. "Common-Part

class CL_ABAP_CHAR_UTILITIES definition load.

DATA: generator_versn LIKE sy-saprl
VALUE ‘013’.

• Änderungshistorie: 008 3.0F EC303

•                009 3.0D+ Attribute im CO-OM umgelegt
  

•                010 4.0   Attribute im CO-OM umgelegt
  

•                          Feldname_werte teilweise translated '&_'
  

•                011 4.0C  Vorzeichengerechtes Summieren im EC-CS
  

•                012 4.6A  ab Hot-Package 09, 4.6A Hot Package 01
  

•                          wg. gen Forms ec301, ec303
  

•                013 4.7   wg  Unicode Anpassungen im kpp0gsch
  

• Tabellen
  TABLES: dfies, "DDIC Feldinformationen
  kpp0b, "Dynprofelder U02
  kpp1b, "Dynprofelder U02, ohne Loop
  tkes2, "Dynprofelder U02
  kpp0m, "Struktur Verprob.tab.
  kpp0r, "Reportkatalog
  mesg, "Struktur Message-Ausgabe
  tkes1, "Katalog Zeilen-/Spaltenstr.
  tka51, "Planerprofil für VTL
  tka52, "Vorparametrisierung
  trdir, "Reportdirectory
  kpp1l_key.

• Typen

TYPES: chaintype(1) TYPE n, "Kettentypen
number(4) TYPE n. "Kettennummer

D