declare 1 A,
2 C,
3 E(3) union,
5 E1,
5 E2,
3 F;
declare 1 B(10) union,
2 C, 3 G, 3 H,
2 D;
begin;
declare 1 C like B;
declare 1 D(2),
5 BB like A.C;
end;
宣言 C および D の結果を、次の例に示します。
dcl
1 C, /* DIM and UNION not copied. */
2 C, 3 G, 3 H,
2 D;
dcl 1 D(2),
5 BB,
6 E(3) union, /* DIM(3) and UNION copied. */
7 E1, /* Note adjusted level-numbers. */
7 E2,
6 F;
次の例は、C.E が LIKE 属性を持つため無効です。
declare 1 A like C,
1 B,
2 C,
3 D,
3 E like X,
2 F,
1 X,
2 Y,
2 Z;
次の例は、A の LIKE 属性が、 LIKE 属性によって宣言された構造体 G の 副構造体 G.C を指定するため無効です。
declare 1 A like G.C,
1 B,
2 C,
3 D,
3 E,
2 F,
1 G like B;
次の例は、A の LIKE 属性が、LIKE 属性を持つ副構造体 F を 含む構造体 B 内の構造体 C を指定するため無効です。
declare 1 A like C,
1 B,
2 C,
3 D,
3 E,
2 F like X,
1 X,
2 Y,
2 Z;