Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, 言語解説書

次の例では、Name にストレージが割り振られたときに、 文字定数 'John Doe' (右側にブランクが埋め込まれて 10 文字になる) が Name に割り当てられます。

  dcl Name char(10) init('John Doe');

次の例では、Pi が割り振られたときに、それに 3.1416 という値が初期設定されます。

  dcl Pi fixed dec(5,4) init(3.1416);

次の例では、式 B*C の値で A を初期設定することを指定しています。

  declare A init((B*C));

次の例では、A の最初の 920 個のエレメントはそれぞれ 0 にセットされ、 次の 80 個のエレメントは、5,5,5,9 を 20 回繰り返したものになります。

  declare A (100,10) initial
          ((920)0, (20) ((3)5,9));

次の例では、A の第 1、第 3、 および第 4 のエレメントが初期設定されます。 配列のその他の部分は初期設定されません。 配列 B は全体が初期設定され、最初の 25 個の エレメントは 0 に、次の 25 個は 1 に、 残りのエレメントは 0 にそれぞれセットされます。 構造体 C では、次元 (8)DE に 継承されており、D の最初のエレメントだけが初期設定されます。 E は全部のエレメントが初期設定されます。

  declare A(15) character(13) initial
            ('John Doe',
             *,
             'Richard Row',
             'Mary Smith'),

          B (10,10) decimal fixed(5)
            init((25)0,(25)1,(*)0),

          1 C(8),
            2 D initial (0),
            2 E initial((*)0);

構造体または共用体の配列を宣言するときに、別の構造体または共用体と同じ構 造体フォーマットにするための LIKE 属性を指定した場合、その別の構造体または 共用体のエレメントがすでに初期設定されていると、この構造体または共用体の配列における最初 の構造体または共用体だけが初期設定されます。

次の例では、構造体の配列において J(1).HJ(1).I だけが初期設定されます。

  declare 1 G,
            2 H initial(0),
            2 I initial(0),
          1 J(8) like G;

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)