ABAP数据表修改功能

做一个通用的数据表单修改功能，可以记录修改原因，运维单号等等，

可以调整哪些表单通过哪些CONDITION查询表单记录做成可配置，匹配 DD03L表单DDIC定义动态读取。

DDIC表单设计：

1. ZTFI1101_02数据表账号属性维护表单

账号属性DOMAIN定义

SM30用户账号权限维护

2. 数据表修改配置字段ZTFI1101_01

操作属性DOMAIN定义：

屏幕数据筛选变量配置DOMAIN: 

SM30维护

3. ZTFI1101_03 数据表维护

存值

程序实现

************************************************************************
* TRANSATION ID        :
* PROGRAM TITLE        : ZP
* AUTHOR               :
* SUPPLIER             :
* DATE                 :
* DEVELOPMENT ID       : ZPOC021
* CHANGE REQUEST (CTS) :
* DESCRIPTION          :
*=======================================================================
* COPIED FROM         : (CLONED PROGRAM)
* TITLE               : (PROGRAM TITLE)
* OTHER RELATED OBJ   : (OBJECT NAMES)
*=======================================================================
* CHANGE HISTORY LOG
*-----------------------------------------------------------------------
* MOD. NO.|  DATE    | NAME           | CORRECTION NUMBER  | CHANGE REFE
*-----------------------------------------------------------------------
* MOD-001 |YYYY.MM.DD| XXXXXXXXXXXXXX | XXXXXXXXXX         | XXXXXXXXXX
*
* DESCRIPTION:  复制程序ZPOC021
*-----------------------------------------------------------------------
* MOD-002 |YYYY.MM.DD| XXXXXXXXXXXXXX | XXXXXXXXXX         | XXXXXXXXXX
*
* DESCRIPTION:
************************************************************************
REPORT ZFI1101_D01 MESSAGE-ID 00 NO STANDARD PAGE HEADING.

TABLES:DD02L.


DATA:GT_DATA TYPE REF TO DATA.
DATA:GS_DATA TYPE REF TO DATA.
FIELD-SYMBOLS:<GT_DATA> TYPE STANDARD TABLE.
FIELD-SYMBOLS:<GS_DATA> TYPE ANY.


DATA:GT_SAVE TYPE REF TO DATA.
DATA:GS_SAVE TYPE REF TO DATA.
FIELD-SYMBOLS:<GT_SAVE> TYPE STANDARD TABLE.
FIELD-SYMBOLS:<GS_SAVE> TYPE ANY.

DATA:GT_DEL TYPE REF TO DATA.
DATA:GS_DEL TYPE REF TO DATA.
FIELD-SYMBOLS:<GT_DEL> TYPE STANDARD TABLE.
FIELD-SYMBOLS:<GS_DEL> TYPE ANY.

DATA:GT_OLD TYPE REF TO DATA.
DATA:GS_OLD TYPE REF TO DATA.
FIELD-SYMBOLS:<GT_OLD> TYPE STANDARD TABLE.
FIELD-SYMBOLS:<GS_OLD> TYPE ANY.


TYPES:BEGIN OF TY_KEY,
        KEY1 TYPE ZE_GUID_CZD,
        KEY2 TYPE CHAR50,
        KEY3 TYPE CHAR50,
      END OF TY_KEY.
DATA:GS_KEY TYPE TY_KEY.


DATA:GT_DD03L TYPE STANDARD TABLE OF DD03L.
DATA:GS_DD03L TYPE DD03L.

DATA:GT_FI1101_01 TYPE STANDARD TABLE OF ZTFI1101_01,
     GS_FI1101_01 TYPE ZTFI1101_01,
     GS_FI1101_02 TYPE ZTFI1101_02,
     GS_FI1101_03 TYPE ZTFI1101_03.


TYPES: BEGIN OF TY_SEL,
         SIGN   TYPE C LENGTH 1,
         OPTION TYPE C LENGTH 2,
         LOW    TYPE CHAR50,
         HIGH   TYPE CHAR50,
       END OF TY_SEL.
DATA:GT_SEL TYPE STANDARD TABLE OF TY_SEL,
     GS_SEL TYPE TY_SEL.
DATA: OPCODE_USR_ATTR(1)  TYPE X VALUE 5.

SELECTION-SCREEN BEGIN OF BLOCK BLK01 WITH FRAME TITLE TEXT-T01.
PARAMETERS P_TABLE AS LISTBOX VISIBLE LENGTH 20 TYPE CHAR30 USER-COMMAND SEL.
PARAMETERS P_GUID TYPE ZE_GUID_CZD LOWER CASE.
PARAMETERS P_KEY1 TYPE CHAR255 LOWER CASE.
PARAMETERS P_KEY2 TYPE CHAR255 LOWER CASE.
SELECTION-SCREEN END OF BLOCK BLK01.


SELECTION-SCREEN COMMENT /1(50) COM1 .
SELECTION-SCREEN COMMENT /1(50) COM2 .
SELECTION-SCREEN COMMENT /1(50) COM3 .
SELECTION-SCREEN COMMENT /1(50) COM4 .
SELECTION-SCREEN COMMENT /1(50) COM5 .
SELECTION-SCREEN COMMENT /1(