埋め込みの説明
@1@ : メソッド名
例題
[C3421-C.cob] 000001 CLASS-ID. C3421-C. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 PROCEDURE DIVISION. 000009* 000010 METHOD-ID. C3421-M. 000011 DATA DIVISION. 000012 WORKING-STORAGE SECTION. 000013 LINKAGE SECTION. 000014 PROCEDURE DIVISION. 000015 END METHOD C3421-M. 000016* 000017 METHOD-ID. C3421-M2. 000018 DATA DIVISION. 000019 WORKING-STORAGE SECTION. 000020 01 WORK1 PIC X(50). 000021 LINKAGE SECTION. 000022 PROCEDURE DIVISION. 000023 MOVE SELF::"C3421-M" TO WORK1. 000024 END METHOD C3421-M2. 000025* 000026 END OBJECT. 000027 END CLASS C3421-C.
C3421-C.cob 23: JMN3421I-S 行内呼出しのメソッド'C3421-M'にRETURNING指定がありません．行内呼出しの結果を表意定数ゼロとみなします．
