埋め込みの説明
@1@ : INVOKE．
例題
[C5592.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5592. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 IDENTIFICATION DIVISION. 000007 OBJECT. 000008 PROCEDURE DIVISION. 000009 IDENTIFICATION DIVISION. 000010 METHOD-ID. M5592. 000011 ENVIRONMENT DIVISION. 000012 DATA DIVISION. 000013 LINKAGE SECTION. 000014 01 LK1 PIC X(10). 000015 01 LK2 PIC 9(10). 000016 PROCEDURE DIVISION 000017 USING LK1 LK2. 000018 END METHOD M5592. 000019 END OBJECT. 000020 END CLASS C5592.
[P5592.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5592. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C5592 000007 . 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 WOBJ OBJECT REFERENCE C5592. 000011 PROCEDURE DIVISION. 000012 INVOKE WOBJ "M5592" USING BY CONTENT OMITTED 20. 000013 END PROGRAM P5592.
P5592.cob 12: JMN5592I-S INVOKE文のBY CONTENT指定には，OMITTEDは指定できません．INVOKE文を無効にします．
