埋め込みの説明
@1@ : INVOKE.
例題
[P5552.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5552. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WOBR OBJECT REFERENCE. 000006 PROCEDURE DIVISION. 000007 INVOKE WOBR "M5552" 000008 ON EXCEPTION DISPLAY "NG". 000009 INVOKE WOBR "M5552" 000010 ON OVERFLOW DISPLAY "NG". 000011 END PROGRAM P5552.
P5552.cob 7: JMN5552I-S INVOKE文に条件指定は記述できません.INVOKE文を無効とします.
P5552.cob 9: JMN5552I-S INVOKE文に条件指定は記述できません.INVOKE文を無効とします.
詳細な説明
ここでの条件指定とは,次の指定を指します.
ON OVERFLOW指定
ON EXCEPTION指定