例題
[C5566.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5566. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. M5566. 000008 ENVIRONMENT DIVISION. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 WGP. 000012 02 WOCC PIC X(1) OCCURS 10 INDEXED BY IX1. 000013 LINKAGE SECTION. 000014 01 LK1 PIC S9(9) COMP-5. 000015 01 LK2 PIC X(9). 000016 PROCEDURE DIVISION USING LK1 000017 RETURNING LK2. 000018 MOVE SELF :: "M5566" (IX1) TO LK2. 000019 END METHOD M5566. 000020 END OBJECT. 000021 END CLASS C5566.
[Win32]
C5566.cob 18: JMN5566I-S メソッドの行内呼出しの引数は,SELF,EXCEPTION-OBJECT,NULL,リポジトリ段落で指定されたクラス名,ファイル節,作業場所節または連絡節で定義されたデータ項目,または定数でなければなりません.
[Winx64]
C5566.cob 18: JMN5566I-S メソッドの行内呼出しの引数は,SELF,EXCEPTION-OBJECT,NULL,リポジトリ段落で指定されたクラス名,ファイル節,作業場所節,局所記憶節または連絡節で定義されたデータ項目,または定数でなければなりません.