2.6.37 JMN5132I-S

ANY LENGTH句はプロパティ取出しメソッド，またはプロパティ設定メソッドのデータ項目に指定できません． ANY LENGTH句は無効になります．

例題

[C5132.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.      C5132.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 REPOSITORY.
000006 IDENTIFICATION DIVISION.
000007 OBJECT.
000008 ENVIRONMENT    DIVISION.
000009 DATA           DIVISION.
000010 WORKING-STORAGE SECTION.
000011 PROCEDURE      DIVISION.
000012 IDENTIFICATION DIVISION.
000013 METHOD-ID.     SET PROPERTY M5132.
000014 ENVIRONMENT    DIVISION.
000015 DATA           DIVISION.
000016 LINKAGE         SECTION.
000017 01 LK1         PIC X ANY LENGTH.
000018 PROCEDURE      DIVISION
000019                      USING LK1.
000020 END METHOD.
000021 END OBJECT.
000022 END CLASS      C5132.

C5132.cob 17: JMN5132I-S ANY LENGTH句はプロパティ取出しメソッド，またはプロパティ設定メソッドのデータ項目に指定できません．ANY LENGTH句は無効になります．

詳細な説明

ANY LENGTH句は，プロパティメソッドを除くメソッド定義の連絡節のレベル番号01のデータ記述項にだけ書くことができます．