EXCEPT 命令的问题！！！

franliu

如果在F表里定义为U类型，CHAIN就会加锁，
这个锁会一直锁着，直到：
1）纪录被更新
2）程序读同一表的别的纪录，这样就解锁旧纪录，锁住新记录。
3）执行解锁操作 UNLOCK, EXCEPT
4）程序运行结束
正常程序设计是不可以长期锁住纪录（不超过1分钟）。不然在多用户环境里会造成其他作业的程序崩溃。

不解锁，就是“占着茅坑不拉屎”，要知道这“茅坑”可是公用的呢。系统缺省值允许作业占用“茅坑”一分钟。

一个作业等待一分钟还进不了茅坑，就成了*MSGW 状态，除非你自己用EXCEPTION逻辑处理它。

[ 本帖最后由 franliu 于 2009-11-23 10:59 编辑 ]

franliu

对了。UNLOCK 是解自己的锁，让其他作业可以更新这个纪录。你不解锁, 就是“占着茅坑不拉屎”，要知道这“茅坑”可是公用的呢。

你按我教你的办法，DUBUG 样板程序，单步执行，并且用另一个5250对话用DSPRCDLCK检查每一步锁的状态，就明白啦。

[ 本帖最后由 franliu 于 2009-11-23 10:37 编辑 ]

giggsone

有UPDATE数据的时候，程序必须是带锁读这个数据库，不然会出错的。

giggsone

没用过EXCEPT,如何用EXCEPT解锁呢？

franliu

就是执行一个EXCEPT.  以前旧版本的RPG没有UNLOCK这个操作，只好用EXCEPT.

在O表里面定义一个EXCPT:

      OXXXXXXXXE                EXP_NM
   
XXXXXXXX 是纪录名。  EXP_NM　是　EXCEPT名。

O表中可以续行列明序号更新的字段名。列出的会被更新，没有列出的会保持不变。
如果O表中一个字段也没有列出，那么这个EXCEPT就是为解锁而设的。

在C表中执行  EXCPT (rpg) 或 EXCEPT (ILE RPG)纪录就更新了或者解锁了

giggsone

谢谢，如果列出几个字段，是不是运行EXCEPT的时候，先更新列出的字段，然后解锁呢

huangxkst

china会不会加锁还得看看文件是怎么申明的...unlock是解除文件的锁,文件不一定是自己程序加的锁.

franliu

对了。任何对纪录的更新都会解锁。没有字段的EXCEPT可以理解为一个DUMMY的更新。RPG刚刚出来的时候是没有UPDATE的，只有用O表来做更新。后来才有了UPDATE和UNLOCK.

UNLOCK比较好用，哪怕没有锁，开锁没有关系。

如果用except，没有锁你要开锁，系统就报错了。

franliu

china会不会加锁还得看看文件是怎么申明的--- 对。只有U型的文件才会加锁。只读文件没有锁。


...unlock是解除文件的锁,文件不一定是自己程序加的锁. --- 错。

1）解开的是纪录的锁，不是文件的锁。 文件的锁要等文件关闭才能解开
2）只能解开自己加上的锁。别人加上的锁只有别人自己可以解开。
3）你想解开别人的锁，除非杀了别人

giggsone

呵呵，谢谢，又学了一招