埋め込みの説明
@1@ : 定義済みオブジェクト一意名NULL.
例題
[C5542.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5542 INHERITS FJBASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE. 000007 IDENTIFICATION DIVISION. 000008 OBJECT. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. M5542. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 01 WRT PIC X(1). 000015 LINKAGE SECTION. 000016 01 LK1 OBJECT REFERENCE FJBASE. 000017 01 LK2 PIC X(1). 000018 PROCEDURE DIVISION 000019 USING LK1 000020 RETURNING LK2. 000021 MOVE SELF :: "M5542" (NULL :: "NEW") 000022 TO WRT. 000023 END METHOD M5542. 000024 END OBJECT. 000025 END CLASS C5542.
C5542.cob 21: JMN5542I-S 定義済みオブジェクト一意名NULLはメソッドの行内呼び出しのメソッド呼び出しのオブジェクトとして,またはオブジェクトプロパティのオブジェクトとしては使用できません.