NetCOBOL V11.0 メッセージ集

2.6.55 JMN5151I-S

クラス定義で宣言された型が，DEPENDING ON指定またはKEY IS 指定を持つOCCURS句を含む場合，分離されたメソッドでそれらの型を参照することはできません． TYPE句は無効になります．

例題

[C5151.cob]
000001 IDENTIFICATION  DIVISION.
000002 CLASS-ID.       C5151.
000003 ENVIRONMENT     DIVISION.
000004 OBJECT.
000005 DATA            DIVISION.
000006 WORKING-STORAGE  SECTION.
000007 01 VGRP TYPEDEF.
000008   02            OCCURS 3 TO 5 TIMES DEPENDING ON  ODO1
000009                 PIC S9(4) BINARY.
000010 01 ODO1         PIC S9(4) BINARY.
000011 PROCEDURE       DIVISION.
000012 METHOD-ID.      M5151 PROTOTYPE.
000013 PROCEDURE       DIVISION.
000014 END METHOD      M5151.
000015 END OBJECT.
000016 END CLASS       C5151.

[M5151.cob]
000001 IDENTIFICATION  DIVISION.
000002 METHOD-ID.      M5151 OF C5151.
000003 ENVIRONMENT     DIVISION.
000004 CONFIGURATION   SECTION.
000005 REPOSITORY.
000006      CLASS      C5151.
000007 DATA            DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 METDATA      TYPE VGRP.
000010 PROCEDURE       DIVISION.
000011     MOVE ZERO  TO  METDATA.
000012     EXIT METHOD.
000013 END METHOD      M5151.

M5151.cob 9: JMN5151I-S クラス定義で宣言された型が，DEPENDING ON指定またはKEY IS 指定を持つOCCURS句を含む場合，分離されたメソッドでそれらの型を参照することはできません．TYPE句は無効になります．