埋め込みの説明
@1@ : ACCEPTまたはDISPLAY.
@2@ : AT,LINE,COLUMN,SIZEまたはPROMPT.
@3@ : メソッドの行内呼び出し,オブジェクト指定子付の一意名,オブジェクトプロパティ,クラス名,定義済みオブジェクト一意名SELF,定義済みオブジェクト一意名SUPER,定義済みオブジェクト一意名EXCEPTION-OBJECTまたは定義済みオブジェクト一意名NULL.
例題
[SYSEXP.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. SYSEXP. 000003 END CLASS SYSEXP.
[P5579.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5579. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS SYSEXP. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 WDA1. 000010 02 WDA11 PIC S9(4). 000011 02 WDA12 PIC S9(4). 000012 02 WDA13 PIC X(20). 000013 PROCEDURE DIVISION. 000014 DECLARATIVES. 000015 ERR-1 SECTION. USE EXCEPTION SYSEXP. 000016 ACCEPT WDA1 AT EXCEPTION-OBJECT 000017 ON EXCEPTION DISPLAY "NG in 1600 LINE". 000018 END DECLARATIVES. 000019 END PROGRAM P5579.
P5579.cob 16: JMN5579I-S ACCEPT文のAT指定には定義済みオブジェクト一意名EXCEPTION-OBJECTは指定できません.AT指定は無効になります.
P5579.cob 17: JMN2500I-S 文が現れなければいけない所に,語'ON'が現れました.次の文または手続き名まで読み飛ばします.