求教：一個(gè)RPGLE 事務(wù)處理的問題

moonlight

本人為初級入門者，最近用rpgle寫了有事務(wù)處理的程序。發(fā)現(xiàn)了一個(gè)重要問題

[本地環(huán)境]：OS/400 V5R2M0

[問題描述] ：
交待一下，我處理事務(wù)的做法大致如下
1. CRTJRNRCV，CRTJRN......

2. STRJRNPF

3. STRCMTCTL

4. CALL XXXXX (RPGLE)

5.ENDCMTCTL


其中1和2不用寫進(jìn)程序 ，3,4,5寫在一個(gè)CLP里，4是調(diào)用一個(gè)rpgle程序，里面有相應(yīng)的commit,rollback處理 。

現(xiàn)在我發(fā)現(xiàn)的問題是：


在我更新或新增完一筆記錄，但沒有任何COMMIT和ROLLBACK的操作時(shí)，該筆記錄在數(shù)據(jù)庫里是可見的。即使不同的用戶新建SESSION也能讀取到這筆記錄�？梢酝ㄟ^strsql中看到,也可以通過RPG讀取到，這樣的話，極其可能導(dǎo)致數(shù)據(jù)錯(cuò)誤。

一個(gè)例子，如果程序a在處理數(shù)據(jù)，程序b正在統(tǒng)計(jì)數(shù)據(jù)。


可能程序b取得的數(shù)據(jù)，在一段時(shí)間后被程序a的異常處理給rollback掉了。

（在ORACLE里面，系統(tǒng)默認(rèn)是寫進(jìn)BUFFER里，在提交事務(wù)前，別的用戶無法看到數(shù)據(jù)變化。直到執(zhí)行了COMMIT別的用戶才能看到數(shù)據(jù)的變化）

我想400應(yīng)該有解決這種問題的方法吧，請老師指點(diǎn)迷津！

moonlight

哪位好心人給回復(fù)一下吧，謝謝！

億城雪

俺不太懂，拋磚引玉一下

在我更新或新增完一筆記錄，但沒有任何COMMIT和ROLLBACK的操作時(shí)，該筆記錄在數(shù)據(jù)庫里是可見的。即使不同的用戶新建SESSION也能讀取到這筆記錄�？梢酝ㄟ^strsql中看到,也可以通過RPG讀取到，這樣的話，極其可能導(dǎo)致數(shù)據(jù)錯(cuò)誤。

400有記錄鎖的，應(yīng)該不會(huì)出現(xiàn)這種問題。

qingzhou

標(biāo)題不宜寫請教誰，既然是BBS嘛，需要的是大家的群策群力，不是個(gè)人能夠獨(dú)撐一面的，所以我把標(biāo)題改了，不介意吧�。海�

關(guān)于事務(wù)處理，企業(yè)里用得不多，所以我也沒有這方面的經(jīng)驗(yàn)，銀行的朋友用得會(huì)更多些。

關(guān)注中。。。

希望有相關(guān)經(jīng)驗(yàn)的朋友出來指點(diǎn)。

flame_xu2008

我也還不是很清楚。但。我們曾經(jīng)用過這樣，測試是沒有問題的啊。

你在RPG中有UPDATE 或Write的Table 的F卡聲明時(shí)，是否有加Commit？只能是建議看看。SORRY!

胖有型

所以說統(tǒng)計(jì)程序要加在事務(wù)處理程序的后面啊，等我測試一下先

duron_1g

樓主說的不會(huì)出現(xiàn)，你的A程序在進(jìn)行操作的時(shí)候400，會(huì)把表鎖起來，像CHAIN，UPDATE等，這個(gè)時(shí)候是不會(huì)讓其他程序?qū)Ρ磉M(jìn)行修改的。如果你A程序出錯(cuò)，ROLBAK，也是對A程序進(jìn)行操作的恢復(fù)。只有當(dāng)A程序運(yùn)行完了把表釋放了以后，你的B程序才能進(jìn)行統(tǒng)計(jì)。
還有提一下，如果大家在寫的時(shí)候，如果用了2次CHAIN 會(huì)鎖表，我一直沒有搞清楚什么原因。誰知道！就是CHAIN-CHAIN 就鎖還有。CHAIN-UPDATE-CHAIN 如果是同一條記錄也鎖！郁悶死了

胖有型

關(guān)于鎖表的實(shí)際測試：

1        程序調(diào)用：如果A程序調(diào)用B程序，而且A、B程序都用U的方式打開同一個(gè)文件，更改同一條記錄時(shí)，那么在調(diào)用B程序之前，需要有一個(gè)UPDATE或者CLOSE的動(dòng)作，否則在被調(diào)用的B程序?qū)��?huì)鎖表。

2        程序之間：A程序定義了COMMIT，在UPDATE賦值語句后，UPDATE操作之前，其它程序查找該條記錄，仍然是原始的數(shù)據(jù)；在UPDATE操作之前，事件處理語句之后，其它程序查找該條記錄，則是更改后的數(shù)據(jù)了，如果之后再ROLLBACK操作，的確有可能出現(xiàn)錯(cuò)誤，所以說統(tǒng)計(jì)程序要在事務(wù)處理語句之后進(jìn)行。

3        程序內(nèi)部：單個(gè)程序內(nèi)，無論有無定義COMMIT，只要做了UPDATE的操作，都可以多次對同一條記錄進(jìn)行CHAIN的；只要沒做UPDATE操作，下一次做CHAIN時(shí)，就會(huì)鎖表。樓上說的情況，沒有在測試中出現(xiàn)（即chain -update -chain仍然鎖表）。如仍有問題，可先查詢一下系統(tǒng)配置，或者是再看看源碼

胖有型

補(bǔ)充：如果程序是用I（即只讀）的方式打開文件，是不會(huì)鎖表；同時(shí)，即使某條記錄被其它鎖，該程序仍然能夠讀到這條記錄，至于讀到的數(shù)據(jù)，參見上面第2條。

還有，第2條寫錯(cuò)了，應(yīng)該是“在UPDATE操作之后，事務(wù)處理語句之前”。

kengz

要看看你的程序是怎么寫的？在程序的F表定義中，如果你打開的文件沒有加上關(guān)鍵字COMMIT的話，此文件是不會(huì)進(jìn)入事物處理的控制中的，馬上修改馬上更新。