转 Commit/Rollback概念

hanyu

1. 
   
2. 数据库文件是AS/400中类型为*FILE的Object；它们既可以是PF又可以是LF，既可以是外部描述，又可以是程序描述。
   
3. 访问数据库文件时使用落实控制(COMMIT/ROLBK)，可以确保对数据库文件操作的以下两个结果之一：
   
4. 1、全部数据库文件操作都是成功的(落实操作)；
   
5. 2、全部数据库文件操作都是无效的(取消操作).
   
6. 用这种方法，从而保证了数据库文件的完整性；另外，可以把一组操作当作一个单元来处理。
   
7. 
   
8. 使用落实控制,要做：
   
9. 
   
10. 在AS/400上：
    
11. 1、使用落实控制的准备：用CL命令CRTJRN(生成日志)、CRTJRNRCV(生成日志接收器)和STRJRNPF(日志物理文件).
    
12. 2、通知AS/400启动和结束落实控制的时间:用CL命令STRCMTCTL(启动落实控制)和ENDCMTCTL(结束落实控制).
    
13.    ●落实控制琐：
    
14.    在STRCMTCTL命令中，要注意指定一个上锁级别，LCKLVL(*ALL),LCKLVL(*CHG)或LCKLVL(*CS)，当你的程序在落实控制下操作，并且对一个文件的记录已在落实控制下进行了I/O(输入/输出)处理，记录由落实控制加锁。
    
15.    ●落实控制范围：
    
16.    当用STRCMTCTL命令启动落实控制时，系统建立一个落实定义。落实定义包括作业中落实控制下修改的资料信息；
    
17. 落实定义只适用于发出STRCMTCTL命令之后的作业并且在发出ENDCMTCTL命令结束。
    
18.    落实定义范围指出了作业中哪些程序要使用落实控制，落实定义范围在活动组级或作业级。
    
19.    缺省的落实定义范围是发出STRCMTCTL命令的程序所在的活动组，也就是活动组级。只在这个活动组中运行的程序
    
20. 才能使用落实定义。
    
21.    OPM程序将使用*DFTACTGRP落实定义；ILE程序用与之有关的活动组。
    
22.    你可以在STRCMTCTL命令的落实范围参数CMTSCOPE上指定落实定义的范围。
    
23. 在RPG程序中：
    
24. 1、在要做落实控制文件的文件描述规范表上指出落实控制(COMMIT).
    
25. 2、用COMMIT落实操作码实施对在落实控制下数据库文件的一组修改，或者用ROLBK取消操作码对在落实控制下
    
26.    数据库文件的一组修改。
    
27. 
    
28. ★注：落实控制只适用于数据库文件。
    
29. 
    
30. [举例]
    
31. 
    
32. ▲<例1>;这个例子解释了在落实控制下程序所用的规范表和CL命令:
    
33. 
    
34. ※要准备使用落实控制，发出下列CL命令：
    
35. 1、CRTJRNRCV JRNRCV(RECEIVER)
    
36. 这个命令生成一个名为REVEIVER的日志接收器.
    
37. 2、CRTJRN JRN(JOURNAL) JRNRCV(RECEIVER)
    
38. 这个命令生成一个名为JOURNAL的日志，并连接名为RECEIVER的日志接收器.
    
39. 3、STRJRNPF FILE(MASTER TRANS) JRN(JOURNAL)
    
40. 这个命令把文件MASTER和TRANS的日志项记到日志JOURNAL中.
    
41. 
    
42. ※在程序中，为文件MASTER和TRANS指出COMMIT.
    
43. ------------------------------------------------------------------------------
    
44. FMASTER    UF   E       K       DISK         COMMIT
    
45. FTRANS     UF   E       K       DISK         COMMIT
    
46. F*
    
47. 
    
48. C             :
    
49. C             :
    
50. C*
    
51. C*  使用COMMIT操作，如果成功，做完整的一组操作；如果不成功，撤消所有修改.
    
52. C*
    
53. C                  UPDATE       MAST_REC                 90
    
54. C                  UPDATE       TRAN_REC                 91
    
55. C                  IF           *IN90 OR *IN91
    
56. C                  ROLBK
    
57. C                  ELSE
    
58. C                  COMMIT
    
59. C                  ENDIF
    
60. -----------------------------------------------------------------------------
    
61. 
    
62. ※要在落实控制下操作程序，发出命令：
    
63. 1、STRCMTCTL LCKLVL(*ALL)
    
64. 这个命令启动带有最高级锁定的落实控制.
    
65. 2、CALL REVIST
    
66. 这个命令调用REVIST命令.
    
67. 3、ENDCMTCTL
    
68. 这个命令结束落实控制，并产生一个隐含的ROLL BACK操作.
    
69. 
    
70. ▲<例2>;:有条件的落实控制例子：
    
71.    可以编写一个程序来控制打开一个运行时做落实控制的文件。通过完成有条件落实控制，可不用写出
    
72. 两套相同的程序：一套在落实控制下执行，另一套不在落实控制下执行。
    
73.    COMMIT键字有一个可选参数，它允许你指定有条件的落实控制。在这个文件的文件描述规范表的键字
    
74. 区输入COMMIT键字。ILE RPG/400编译程序定义一个1个字节的与参数中规定的同名字符型字段；如果参数
    
75. 为1，文件就在落实控制下运行。
    
76.    COMMIT键字参数必须在文件打开之前设置。可以在调用程序时传递一个值来设置，也可以在程序中直接设为"1"。
    
77.    对于共享式打开，如果文件已经打开了，即使COMMIT键字参数设为1也没有作用。
    
78. 
    
79. --------------------------------------------------------------------------------
    
80. FMASTER    UF   E       K       DISK         COMMIT(COMMITFLAG)
    
81. FTRANS     UF   E       K       DISK         COMMIT(COMMITFLAG)
    
82. 
    
83. 
    
84. C*  如果COMMITFLAG='1',文件在落实控制下打开，否则不是.
    
85. C   *ENTRY        PLIST
    
86. C                 PARM                          COMMITFLAG
    
87. C                 :
    
88. C                 :
    
89. c*
    
90. C*  使用COMMIT操作，如果成功，做完整的一组操作；如果不成功，撤消所有修改;
    
91. C*  仅可在文件是在落实控制打开时，才能用COMMIT和ROLBK操作(即COMMITFLAG='1').
    
92. C*
    
93. C                  UPDATE       MAST_REC                 90
    
94. C                  UPDATE       TRAN_REC                 91
    
95. C                  IF           COMMITFLAG='1'
    
96. C
    
97. C                  IF           *IN90 OR *IN91
    
98. C                  ROLBK
    
99. C                  ELSE
    
100. C                  COMMIT
     
101. C                  ENDIF
     
102. C
     
103. C                  ENDIF
     
104. ---------------------------------------------------------------------------------
     
105. 
     
106. 最后，提提程序周期中的落实控制：
     
107.    落实控制是给全过程文件用的，对主文件和次文件不使用落实控制。它的输入输出是在程序员的控制下，是由RPG
     
108. 程序周期控制，原因如下：
     
109. ●在程序中不能为最后总计输出发出一个COMMIT操作；
     
110. ●周期内的程序从一个上锁记录条件中恢复是困难的；
     
111. ●级别指示器不能由ROLBK操作更新设置；
     
112. ●一个ROLBK操作以后，处理匹配记录可能产生一个顺序错误。
     

复制代码

michael9406

VERY GOOD.

qm

收藏先！3KS！

tianyi

讲解得太好了。
前一段时间看了日文的资料，理解的没这么透彻。
谢谢！

mamei

老大，就是老大，！

刘天王

好啊！

mamei

老帖子
翻出来看看

nhxingliang

学习呢!!!!!!!!!!!!!!

大肥肥

厉害, 佩服!
以前我用vb操作400上文件的时候，想做这么一个事务处理, 程序老提示:
the file is invaild for the operation. 后来研究了很久,才发现要给文件建立日记,
不过据说事务锁表挺严重的，不知道有谁有研究?

Stealer

虽然用过，但看了还是收获不少