2.5.33 JMN5140I-S

TYPE句の名標'@1@'は，一意な型名でなければなりません．
TYPE句は無効になります．

引数の説明

@1@:

TYPE句に指定した名標

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.     P5140.
      000003 DATA            DIVISION.
      000004 WORKING-STORAGE  SECTION.
      000005  01 A TYPE B.
      000006  01 B.
      000007   02 B1   PIC S9(9) BINARY.
      000008   02 B2   PIC X(1024).
      000009 PROCEDURE       DIVISION.
      000010      STOP RUN.
      000011 END  PROGRAM    P5140.

P5140.cob (5) : JMN5140I-S TYPE句の名標'B'は，一意な型名でなければなりません．TYPE句は無効になります．

詳細な説明

型宣言を指定するTYPE句では，型名(TYPEDEF句を指定した01レベルのデータ記述項の項目名)を指定しなければなりません．