ABAP COMMIT ROLLBACK 表类型去前导零-一一网

【摘要】 COMMIT WORK AND WAIT ROLLBACK WORK
**&———————————————————————*
**& Report ZSO_09_UPDATE
**&————————————————…

COMMIT WORK AND WAIT
ROLLBACK WORK

**&---------------------------------------------------------------------*
**& Report ZSO_09_UPDATE
**&---------------------------------------------------------------------*
**&
**&---------------------------------------------------------------------*
REPORT ZSO_09_UPDATE.

***************数据库插入数据*********************
*定义工作区
DATA LW_ITAB TYPE ZSO_09_H.
DATA LW_ITAB2 TYPE ZSO_09_I.

*定义表
DATA LT_ITAB LIKE TABLE OF LW_ITAB.
DATA LT_ITAB2 LIKE TABLE OF LW_ITAB2.

DATA LV_TEMP LIKE SY-INDEX VALUE 1.

*清空数据库表
DELETE FROM ZSO_09_H.
DELETE FROM ZSO_09_I.

*循环往内表添加数据
DO 100 TIMES.
  LW_ITAB-ORDER_NUMBER  = 10000000 + SY-INDEX.
  LW_ITAB-CUSTOMER_NAME = '客户'.
  LW_ITAB-COMPANY_NAME  = SY-INDEX.
  LW_ITAB-DELIVERY_DATE = SY-DATUM .
  LW_ITAB-SALES_ORG = 1000 + SY-INDEX.
  LW_ITAB-SALES_GROUP = '组'.
  LW_ITAB-SALES_MAN = '销售人员'.
  IF SY-INDEX MOD 10 = 0. LW_ITAB-PRODUCT_CATEG = 10.
  ELSEIF SY-INDEX MOD 5 = 0. LW_ITAB-PRODUCT_CATEG = 20.
  ELSE. LW_ITAB-PRODUCT_CATEG = 30.
  ENDIF.
  LW_ITAB-PRODUCT_CLASS = '产品中类'.
  LW_ITAB-MADE_BY = '订单创建人'.
  LW_ITAB-MADE_DATE = SY-DATUM.
  LW_ITAB-MADE_TIME = SY-UZEIT. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "去前导零 EXPORTING INPUT  = LW_ITAB-COMPANY_NAME IMPORTING OUTPUT = LW_ITAB-COMPANY_NAME. INSERT LW_ITAB INTO TABLE LT_ITAB. LW_ITAB2-ORDER_ITEM = 1000 + SY-INDEX.
  IF SY-INDEX MOD 3 = 0. LV_TEMP = SY-INDEX.
  ENDIF.
  LW_ITAB2-ORDER_NUMBER  = 10000000 + LV_TEMP.
  LW_ITAB2-PRODUCT_NUMBER = '产品编号' && SY-INDEX.
  LW_ITAB2-PRODUCT_NAME  = '面粉' && SY-INDEX.
  LW_ITAB2-PRODUCT_QUAN = SY-INDEX.
  LW_ITAB2-UNIT = 'KG'.
  LW_ITAB2-PRICE = SY-INDEX.
  LW_ITAB2-CURRENCY = 'CNY'. INSERT LW_ITAB2 INTO TABLE LT_ITAB2.
ENDDO.

*INSERT ZSO_09_H FROM TABLE LT_ITAB.
*WAIT UP TO 1 SECONDS.
*INSERT ZSO_09_I FROM TABLE LT_ITAB2.

*内表数据存入数据库   "ZSO_09_H必须生成表结构
CALL FUNCTION 'ZFSO_09_LUW_UPDATE_H' IN UPDATE TASK  "该模块不是马上被执行，而是被放置于应用服务器中的一个特殊的更新工作过程（Update Work Process）中
  TABLES IT_ITAB = LT_ITAB.

WAIT UP TO 1 SECONDS. "等待一秒
*WAIT UP TO '0.5' SECONDS.  "等待0.5秒

CALL FUNCTION 'ZFSO_09_LUW_UPDATE_I' IN UPDATE TASK   "封装分布在不同对话过程中的所有数据库更新操作
  TABLES IT_ITAB = LT_ITAB2.

IF SY-SUBRC = 0. " COMMIT WORK [AND WAIT（同步）]. COMMIT WORK AND WAIT.  "SAP LUW 显式提交 "该语句结束SAP LUW 并触发更新工作过程，该过程在同一个数据库 LUW 中进行更新操作，因为数据库 LUW 此时可以替代SAP开始进行一致性控制。 IF SY-SUBRC = 4. ROLLBACK WORK. "取消对数 据库表所作 的更改 WRITE 'FALSE'. ELSE. WRITE 'OK'. ENDIF.
ENDIF.

  
 
  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  12
  13
  14
  15
  16
  17
  18
  19
  20
  21
  22
  23
  24
  25
  26
  27
  28
  29
  30
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41
  42
  43
  44
  45
  46
  47
  48
  49
  50
  51
  52
  53
  54
  55
  56
  57
  58
  59
  60
  61
  62
  63
  64
  65
  66
  67
  68
  69
  70
  71
  72
  73
  74
  75
  76
  77
  78
  79
  80
  81
  82
  83
  84
  85
  86
  87
  88
  89
  90
  91
  92
  93
  94

在这里插入图片描述

在这里插入图片描述

根据透明表创建表结构：
1、创建数据类型
2、选择表类型

3、行类型处输入表

要确认对数据库表的更改，请使用 COMMIT WORK 语句。要在永久存储之前取消一些更改，请使用 ROLLBACK WORK 语句。
在这里插入图片描述

COMMIT WORK AND WAIT

commit work，是异步更新，触发注册在当前SAP LUW中所有数据更新动作，数据更新动作由SAP的更新工作进程来执行，当前程序不等待更新动作结束，直接向下执行。
commit work and wait 是同步更新，此语句触发注册在当前SAP LUW所有数据更新动作，当前主程序等待SAP更新进程完成数据更新操作，然后向下执行。严格来说，commit work and wait也不是彻底的同步更新，此处等待数据更新操作完成，是指只等V1更新（优先级较高）完成，不等待其他优先级较低的V2更新等。

在 ABAP/4 报表中，可能有几个作业联系在一起形成作业的逻辑单元（LUW）。通常，可能要处理 LUW 中的所有动作，或什么也不要处理。假设 LUW 中包含了将五行插入到数据库表中的进程。如果事务成功，所有五行都将存储在数据库表中这包含一个更新请求和一个数据库事务）。在显示新屏幕之前，数据库事务将自动结束（ ABAP/4 报表的结束）。
在 ABAP/4 报表中不能以任何方式影响该进程
如果要保证数据库中当前所作的更改立即被确认，那么，就必须使用 COMMIT WORK 语句结束 LUW。
COMMIT WORK在程序代码中标记了 LUW 结束并启动更新任务（参见 COMMIT WORK 处理）。在 COMMIT WORK 语句以后，对数据库所作的所有更改都不能再取消。但是，如果在 LUW 中出现了错误，就必须取消已经执行的部分。这意味着当前没有任何插入的行能永久地保存在数据库中。
要撤销当前 LUW 对数据库的更改，请使用 ROLLBACK WORK，它将取消前一次数据库提交后的所有更改。

ROLLBACK WORK

去前导零
在这里插入图片描述