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

  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;

Terms of use | Feedback

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