埋め込みの説明
@1@ : INVOKEまたはCALL.
例題
[C5576.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID C5576. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. M5576. 000008 DATA DIVISION. 000009 LINKAGE SECTION. 000010 01 LK1 PIC X(6). 000011 01 LK2 PIC X(8). 000012 PROCEDURE DIVISION USING LK1 000013 RETURNING LK2. 000014 END METHOD M5576. 000015 END OBJECT. 000016 END CLASS C5576.
[P5576.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5576. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C5576. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT REPFILE ASSIGN TO SYS001. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD REPFILE REPORT IS REP1. 000013 WORKING-STORAGE SECTION. 000014 01 YYMMDD PIC X(6). 000015 01 YYYYMMDD PIC X(8). 000016 01 WOBR OBJECT REFERENCE C5576. 000017 REPORT SECTION. 000018 RD REP1 PAGE 66 000019 FIRST DETAIL 6. 000020 01 PH-ITEM TYPE PH. 000021 02 LINE 2. 000022 03 COLUMN 50 PIC X(6) SOURCE YYMMDD. 000023 PROCEDURE DIVISION. 000024 INVOKE WOBR "M5576" USING PH-ITEM 000025 RETURNING YYYYMMDD 000026 END PROGRAM P5576.
[Solaris][Solaris64][Linux][LinuxIPF]
P5576.cob 24: JMN5576I-S INVOKE文のUSINGに指定可能な一意名は,ファイル節,作業場所節または連絡節で定義されたデータ項目でなければなりません.INVOKE文を無効とします.
[Linux64]
P5576.cob 24: JMN5576I-S INVOKE文のUSINGに指定可能な一意名は,ファイル節,作業場所節,局所記憶節または連絡節で定義されたデータ項目でなければなりません.INVOKE文を無効とします.