如何锁定400记录？

cqlifu

如何锁定一条记录，使其他程序不能Read该记录，但可以Read其他记录？

YZG

你这里所说的其他程序不能READ,是怎样的READ?仅仅是检索还是需要更新的操作?

cqlifu

检索的Read

coolk

他的意思应该是说像Oracle select ........ for update 一样的功能！但是到现在为止我还没有找到DB2/400有这样的功能的，呵呵！

cqlifu

看来有可能不支持这样的锁定哟，无法确认呀。
那在什么样的情况下，DSPRCDLCK会显示某记录的Lock Type为Read或Internal呢？

utirei

chain 后面跟一个属性。

qingzhou

考虑使用RPG中“C     KEY      READE/READP/CHAIN     DB1”方式锁定记录、处理完用“C    UNLOCK   DB1”释放被锁定的记录。
另外自行查资料看看“C  READ   DB1”与“C  READ(N)  DB1”的区别。

cqlifu

其实，我的意思是：
如果我在文件控制 UF 下Read了一条记录，此时该记录被Update锁定；
同时，另一个程序在 UF 下不能读，但在 IF 下仍然可以读那条记录，怎样才能让他在 IF 下都读不到呢？
想确定一下在非事务控制模式下是否有其他的办法

rodenmao

一般来说，在IF下是不必理会这条记录是否locked的，如果实在需要的话，
写一个UF的小程序check一下这条记录就可以了。