埋め込みの説明
@1@ : 定義済み一意名SELF,定義済み一意名SUPER,定義済み一意名EXCEPTION-OBJECT,クラス名,メソッドのインライン呼出しまたはASオブジェクト指定子付きの一意名.
例題
[C5509.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5509. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 IDENTIFICATION DIVISION. 000006 OBJECT. 000007 PROCEDURE DIVISION. 000008 IDENTIFICATION DIVISION. 000009 METHOD-ID. M5509. 000010 DATA DIVISION. 000011 LINKAGE SECTION. 000012 01 LK1 PIC X(2). 000013 PROCEDURE DIVISION RETURNING LK1. 000014 SET SELF TO NULL. 000015 MOVE SPACE TO SELF :: "M5509" 000016 END METHOD M5509. 000017 END OBJECT. 000018 END CLASS C5509.
C5509.cob 14: JMN5509I-S 受取り側項目に定義済みオブジェクト一意名SELFは指定できません.
C5509.cob 15: JMN5509I-S 受取り側項目にメソッドの行内呼出しは指定できません.