+----------------------------------IBM 拡張----------------------------------+
目的
RECORD ステートメントは特殊な形式のタイプ宣言ステートメントです。他のタイプ宣言ステートメントとは異なり、RECORD ステートメントで宣言されたエンティティーの属性はこのステートメント自体には指定できません。
構文
レコード・エンティティー宣言は、以下の構文に従って行います。
record_stmt:
.-,------------------------------------------. V | >>-RECORD----/ type_name /--+----+--record_obj_dcl_list-+------>< '-::-'
record_obj_dcl:
>>-record_object_name--+----------------+---------------------->< '-(-array_spec-)-'
type_name は有効範囲単位内でアクセス可能な派生型の名前でなければなりません。
規則
RECORD ステートメント内でエンティティーを初期化することはできません。
record_stmt は、その直前にある type_name によって指定された派生型のエンティティーを宣言します。
RECORD キーワードは、IMPLICIT または FUNCTION ステートメントの type_spec としては指定できません。
例
以下の例では、派生型変数を宣言するために、RECORD ステートメントが使用されています。
STRUCTURE /S/ INTEGER I END STRUCTURE STRUCTURE /DT/ INTEGER I END STRUCTURE RECORD/DT/REC1,REC2,/S/REC3,REC4
関連情報
+--------------------------------IBM 拡張の終り-------------------------------+