データ域のアンロック
名前 オペランドは、アンロックするデータ域の名前、または予約語 *DTAARA でなければなりません。
*DTAARA が指定されている場合には、プログラム中でロックされているすべてのデータ域がアンロックされます。
データ域は、すでに *DTAARA DEFINE ステートメントの結果フィールドに指定されているか、あるいは定義仕様書の DTAARA キーワードで指定されていなければなりません。 名前 は内部データ域またはプログラム初期化パラメーター (PIP) データ域を参照してはなりません。すでにアンロックされているデータ域に UNLOCK 命令を指定してもエラーには なりません。
詳細については、ファイル命令を参照してください。
図 1. データ域のアンロック命令
*...1....+....2....+....3....+....4....+....5....+....6....+....7...+....
CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....
*
* TOTAMT, TOTGRS, and TOTNET are defined as data areas in the
* system. The IN operation retrieves all the data areas defined in
* the program. The program processes calculations, and
* then unlocks the data areas. The data areas can them be used
* by other programs.
*
C *LOCK IN *DTAARA
C :
C :
C UNLOCK *DTAARA
C *DTAARA DEFINE TOTAMT 8 2
C *DTAARA DEFINE TOTGRS 10 2
C *DTAARA DEFINE TOTNET 10 2