パラメータデータの定義

レベル番号は 01～99 の範囲内の 1 桁または 2 桁の数字（先頭の 0 は任意）を使用し、フィールドグルーピングと合わせて使用します。 02 またはそれ以上のレベル番号が割り当てられたフィールドは、それより小さいレベル番号が割り当てられた直前のグループの一部であるとみなされます。

グループを定義すると、グループ名を使用して一連のフィールド（または 1 つのフィールドのみ）を参照できます。 特定のステートメント（CALL、CALLNAT、RESET、WRITE など）の場合、グループ名をショートカットとして指定し、グループに含まれるフィールドを参照することもできます。

グループには、他のグループを含めることができます。 グループにレベル番号をつけるときは、レベル番号を飛ばしてはなりません。

• 『Natural の使用』ドキュメントの「ユーザー定義変数の命名規則」

• 『プログラミングガイド』の「データ構造の条件指定」

redefinition を使用して、グループまたは単一のフィールド／変数（スカラまたは配列）を再定義できます。 「再定義」を参照してください。

注意:
parameter-data-definition では、グループの "再定義" は REDEFINE ブロック内のみで行うことができます。

参照による呼び出し、値による呼び出し、値による呼び出しと結果のいずれを使用するかに応じて、適切な転送メカニズムが適用されます。 詳細については、CALLNAT ステートメントを参照して下さい。

参照による呼び出しは、BY VALUE キーワードを省略した場合にデフォルトで有効になります。 この場合、パラメータは参照によって（つまりアドレスを介して）サブプログラムまたはサブルーチンに渡されるため、CALLNAT または PERFORM ステートメント内でパラメータとして指定するフィールドのフォーマット／長さは、サブプログラムまたはサブルーチンで呼び出される対応するフィールドと同じである必要があります。

BY VALUE を指定すると、パラメータは値によってサブプログラムまたはサブルーチンに渡されます。つまり、（アドレスの代わりに）実際のパラメータ値が渡されます。 さらに、サブプログラムまたはサブルーチン内にあるフィールドのフォーマット／長さは、CALLNAT または PERFORM パラメータと同じである必要はありません。 フォーマット／長さでは、データ転送の互換性のみが必要です。 データ転送の互換性に関しては、『プログラミングガイド』の「演算割り当てのルール」セクションにある「データ転送」の対応表が適用されます。

BY VALUE を使用すると、例えば、サブプログラムまたはサブルーチンを呼び出すオブジェクトを調整しなくても、サブプログラムまたはサブルーチン内でフィールドの長さを増加させることができます（サブプログラムまたはサブルーチンの拡張によってそれが必要になった場合）。

* Program
DEFINE DATA LOCAL
1 #FIELDA (P5)
...
END-DEFINE
...
CALLNAT 'SUBR01' #FIELDA
...

* Subroutine SUBR01
DEFINE DATA PARAMETER
1 #FIELDB (P9) BY VALUE
END-DEFINE
...

BY VALUE はサブプログラムまたはサブルーチンに渡されるパラメータに適用されますが、BY VALUE RESULT では、パラメータが値によって両方向に渡されます。つまり、実際のパラメータ値が呼び出し側のオブジェクトからサブプログラムまたはサブルーチンに渡され、呼び出し側のオブジェクトに戻るときに、実際のパラメータ値がサブプログラムまたはサブルーチンから呼び出し側オブジェクトに返されます。

BY VALUE RESULT を指定する場合は、対象フィールドのフォーマット／長さに関して、両方向のデータ転送で互換性を確保する必要があります。

OPTIONAL を使用しないで定義したパラメータ（デフォルト）には、呼び出し側のオブジェクトから値を渡す必要があります。

OPTIONAL を使用して定義したパラメータには、値を渡すことはできますが、呼び出し側のオブジェクトからこのパラメータに値を渡す必要はありません。

呼び出し側のオブジェクトでは、スキップされるパラメータが、表記 nX を使用して示されます。つまり、値は渡されません。

SPECIFIED オプションを指定すると、実行時にオプションパラメータが定義されているかどうかを確認できます。