9.165 PUT_NUM_AREA
注意： 9.1 組み込み関数の規則 利用オプション
数値を数値データ・エリアに挿入します。
引数
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
|---|---|---|---|---|---|---|---|
1 | N | 必須 | 挿入する値 | 1 | 15 | 0 | 0 |
2 | A | 必須 | データ・エリア名 | 1 | 10 | ||
3 | A | 任意 | ライブラリ名 デフォルト：'*LIBL' | 1 | 10 | ||
4 | A | 任意 | データ・エリアのロック解除 'Y' - データ・エリアのロックを解除する デフォルト：'N' | 1 | 1 |
戻り値
戻り値はありません。
例
ジョブのライブラリ・リストを通じて検索されるNEXTBATCHという名前のデータ・エリアから、バッチ番号#BATCHを取得します。
バッチ番号の値を加算して、その加算した値をデータ・エリアに戻します。
ロック・オプションとアンロック・オプションを使用して、複数のジョブに同じバッチ番号が割り当てられないようにします。
USE BUILTIN(GET_NUM_AREA)
WITH_ARGS(NEXTBATCH '''*LIBL''' 'Y') TO_GET(#BATCH)
CHANGE FIELD(#BATCH) TO('#BATCH + 1')
USE BUILTIN(PUT_NUM_AREA)
WITH_ARGS(#BATCH NEXTBATCH '''*LIBL''' 'Y')