2.5.34 JMN5141I-S

型名'@1@'の定義が，型名'@2@'を参照しています．
型名'@1@'は無効になります．

引数の説明

@1@:

利用者定義の型名

@2@:

利用者定義の型名

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.     P5141.
      000003 DATA            DIVISION.
      000004 WORKING-STORAGE  SECTION.
      000005  01 X TYPEDEF   TYPE X.
      000006  01 A TYPEDEF.
      000007   02 A1         PIC S9(9) BINARY.
      000008   02 A2         TYPE B.
      000009  01 B TYPEDEF.
      000010   02 B1         PIC S9(9) BINARY.
      000011   02 B2         TYPE C.
      000012  01 C TYPEDEF.
      000013   02 C1         PIC S9(9) BINARY.
      000014   02 C2         TYPE A.
      000015 PROCEDURE       DIVISION.
      000016     STOP RUN.
      000017 END  PROGRAM    P5141.

P5141.cob (5) : JMN5141I-S 型名'X'の定義が，型名'X'を参照しています．型名'X'は無効になります．
P5141.cob (6) : JMN5141I-S 型名'A'の定義が，型名'A'を参照しています．型名'A'は無効になります．
P5141.cob (9) : JMN5141I-S 型名'B'の定義が，型名'A'を参照しています．型名'B'は無効になります．
P5141.cob (12) : JMN5141I-S 型名'C'の定義が，型名'A'を参照しています．型名'C'は無効になります．

詳細な説明

型宣言(TYPEDEF句が指定されたデータ記述項)内で，TYPE句を記述してさらに型を参照することができます．ただしこのとき，自分自身の型や，自分自身の型を含む型を参照することはできません．