例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1806. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. GET PROPERTY P1806 AS NC"AAAA1BBBB2 000006- "CCCC3DDDD4 000007- "EEEE5FFFF6 000008- "GGGG7HHHH8 000009- "IIII9JJJJ0 000010- "KKKK1LLLL2 000011- "MMMM3NNNN4 000012- "OOOO5PPPP". 000013 DATA DIVISION. 000014 LINKAGE SECTION. 000015 01 PRM USAGE BINARY-LONG. 000016 PROCEDURE DIVISION RETURNING PRM. 000017 END METHOD. 000018 END OBJECT. 000019 END CLASS C1806. 000020
C1806.cob (5) : JMN1806I-S 外部名が最大長を超えています.先頭から最大長までを外部名とみなします.
詳細な説明
プロパティメソッドに指定された外部名には,コンパイラがプレフィクス(get_,set_)を付加します.そのため,プレフィクスを含めて160バイト内で記述してください.