次の例では、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) が D と E に 継承されており、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).H と J(1).I だけが初期設定されます。
declare 1 G,
2 H initial(0),
2 I initial(0),
1 J(8) like G;