埋め込みの説明
@1@ : INVOKE.
例題
[P5553.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5553. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WOBR OBJECT REFERENCE. 000006 01 WPR1 PIC X(08). 000007 01 WRT PIC X(08). 000008 PROCEDURE DIVISION. 000009 INVOKE WOBR "M5553" RETURNING WRT 000010 USING WPR. 000011 END PROGRAM P5553.
P5553.cob 10: JMN5553I-S INVOKE文のUSING指定の位置に誤りがあります.INVOKE文を無効とします.
詳細な説明
USING指定は,RETURNING指定の後に指定してはなりません.