レコード・ロックの解放

UNLOCK 命令によって、更新ディスク・ファイルの最後にロックされたレコ ードのロックを解放することもできます。

名前 は、UPDATE ディスク・ファイルの名前でなければなりません。

図 363. レコードのアンロック操作
*...1....+....2....+....3....+....4....+....5....+....6....+....7...+....
FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords++++++++++++++++++++++++++++
 *
FUPDATA    UF   E             DISK
 *
CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....
 *
 *  Assume that the file UPDATA contains record format vendor.
 *  A record is read from UPDATA. Since the file is an update
 *  file, the record is locked. *IN50 is set somewhere else in
 *  the program to control whether an UPDATE should take place.
 *  otherwise the record is unlocked using the UNLOCK operation.
 *  Note that factor 2 of the UNLOCK operation is the file name,
 *  UPDATA, not the record format, VENDOR
 *
C                   READ      VENDOR                                 12
C                   :
C     *IN50         IFEQ      *ON
C                   UPDATE    VENDOR
C                   ELSE
C                   UNLOCK    UPDATA                               99
C                   ENDIF