例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1799. 000003** 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006** 000007 METHOD-ID. NEW AS ".ctor". 000008 END METHOD NEW. 000009 END OBJECT. 000010 END CLASS C1799.
C1799.cob (7) : JMN1799I-S インスタンスコンストラクタのメソッド名段落には,CUSTOM-ATTRIBUTE句およびメソッド属性のみ指定できます.次の段落または部まで無効になります.