引数の説明
ACCEPTまたはDISPLAY. |
AT,LINE,COLUMN,SIZEまたはPROMPT. |
メソッドの行内呼び出し,オブジェクト指定子付の一意名,オブジェクトプロパティ,クラス名,定義済みオブジェクト一意名SELF,定義済みオブジェクト一意名SUPER,定義済みオブジェクト一意名EXCEPTION-OBJECTまたは定義済みオブジェクト一意名NULL. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5579.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS SYSEXP AS "System.Exception".
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指定は無効になります.