例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1821. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. MTD1. 000006 DATA DIVISION. 000007 LINKAGE SECTION. 000008 01 A PIC 9(4) COMP-5 IS PUBLIC. 000009 END METHOD MTD1. 000010 END OBJECT. 000011 END CLASS C1821.
C1822.cob (8) : JMN1821I-S クラスに含まれるメソッド定義の連絡節にPRIVATE以外のアクセス指定句は記述できません.次の認識できる句,段落,節または部まで無効になります.