例
public class CS5213 { protected virtual void M5213(){} }
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5213 INHERITS CS5213. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS CS5213. 000007 OBJECT. 000008 PROCEDURE DIVISION. 000009 METHOD-ID. M5213 OVERRIDE. 000010 PROCEDURE DIVISION. 000011 EXIT METHOD. 000012 END METHOD M5213. 000013 END OBJECT. 000014 END CLASS C5213.
C5213.cob (9) : JMN5213I-S 再定義するメソッドのアクセス属性は,再定義されるメソッドのアクセス属性と同じでなければなりません.
詳細な説明
メソッドのアクセス属性は,メソッド名段落に,PUBLIC/PRIVATE/PROTECTEDのいずれかを指定して宣言します.