埋め込みの説明
@1@ : 行内呼び出し / オブジェクトプロパティ
@2@ : メソッド名 / プロパティ名
例題
[C3557.cob] 000001 @OPTIONS ARITHMETIC(31) 000002 CLASS-ID. C3557. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 PROPDAT PIC S9(31) COMP-5 PROPERTY. 000007 PROCEDURE DIVISION. 000008 END OBJECT. 000009 END CLASS C3557.
[P3557.cob] 000001 @OPTIONS ARITHMETIC(18) 000002 PROGRAM-ID. P3557. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C3557. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 WDATA PIC S9(9) COMP-5. 000010 01 OBJC3557 OBJECT REFERENCE C3557. 000011 PROCEDURE DIVISION. 000012 MOVE WDATA TO PROPDAT OF OBJC3557.
P3557.cob 12: JMN3557I-S オブジェクトプロパティ'PROPDAT'のUSING指定またはRETURNING指定に、18けたを超える数字項目が存在します.18桁互換演算モードでは使用できません.