埋め込みの説明
@1@ : INVOKEまたはCALL.
例題
[P5551.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5551. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 WOBR OBJECT REFERENCE. 000010 PROCEDURE DIVISION. 000011 INVOKE WOBR "M5551" USING BY REFERENCE 123. 000012 END PROGRAM P5551.
P5551.cob 11: JMN5551I-S INVOKE文のBY REFERENCE指定には,定数,定義済みオブジェクト一意名またはクラス名を記述できません.INVOKE文を無効とします.