UNLOCK 命令によって、更新ディスク・ファイルの最後にロックされたレコ ードのロックを解放することもできます。
名前 は、UPDATE ディスク・ファイルの名前でなければなりません。
*...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
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.