check记录是否被lock住.

cici858

我想在update记录前判断记录是否被lock; 用什么方式比较简单.

poplar2009

In older RPG you can use *PSSR.  In a newer program u can use a MONITOR block.

But in usual, before update a record, we need lock it, if it is locked successful, then update it.
if locked unsuccessful, report it.

tomroom

CHAIN WITH OUT LOCK 好像是CHAIN N  再相应判断指示器，具体查IBM红皮书,有例子

gto1101

LZ概念有没有搞清楚先？
要UPDATED的必要条件，必须是记录被锁，也就是对应之前的操作一定要有CHAIN 或者READ的动作去读到记录并且锁住记录
如果你非要说判断的话，那你UPDATE后面加个指示器去判断UPDATE是否成功

gto1101

如果非要判断的话，用%status ba

mxpy

在UPDATE之前会用到Chain:
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq
C     KEY         CHAIN  RFM                                                                                        53   

Hi位的indicator指示记录是否存在
Lo位的indicator指示记录是否正在被使用 ，*ON表示正在被使用
Eq位好象是错误指示，不太记得了

坐地还价

顶一下

wht196503933

我想他要表达的意思是之前是否有锁这条记录的

胖有型

顶！

chain操作，lo指示器就是记录锁指示器。
如果别的JOB锁住某条记录，当前程序chain的时候不会等待解锁，而是直接执行下一条语句。此时lo指示器为*on

如果lo处为空，则chain语句会以阻塞的方式等待该条记录解锁，或者超时。

franliu

在程序里面判断记录是否被锁， 建一个FILE INFORMATON DATA STRUCTURE：

FMYFILE    IF   E           K DISK                     
F                                     INFDS(FIDS01)   
。。。
D FIDS01          DS                                            
D  STS01            *STATUS               

读记录后检查字段 STS01 的返回值，如果是  1218 就表示记录被锁。

在命令行检查，用

DSPRCDLCK 命令。