BLOCK DATA

目的

BLOCK DATA ステートメントはブロック・データ・プログラム 単位の最初のステートメントであり、名前付き共通ブロック 内の変数に初期値を与えます。

構文



>>-BLOCK DATA--+-----------------+-----------------------------><
               '-block_data_name-'
 
 

block_data_name
ブロック・データ・プログラム単位の名前です。

規則

1 つの実行可能プログラム内に複数のブロック・データ・プログラム単位を 入れることができますが、名前を指定しなくてよいのはその中の 1 つだけです。

ブロック・データ・プログラム単位の名前を指定する場合、その名前は、実行可能プログラム内の外部サブプログラム、入り口、メインプログラム、モジュール、または共通ブロックの名前と同じであってはなりません。 また、当該プログラム単位内のローカル・エンティティーの名前と同じであってもなりません。

BLOCK DATA ABC
  PARAMETER (I=10)
  DIMENSION Y(5)
  COMMON /L4/ Y
  DATA Y /5*I/
END BLOCK DATA ABC

関連情報

IBM Copyright 2003