引数の説明
CATCH指定のデータ名 |
System.Exception |
例
000001 PROGRAM-ID. C3544. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS SYSOB AS "System.Object" 000006 . 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 WDATA1 PIC S9(4)V9(4) COMP-3. 000010 01 OBJSYS OBJECT REFERENCE SYSOB. 000011 LINKAGE SECTION. 000012 01 LDATA-1 PIC S9(9) COMP-5. 000013 PROCEDURE DIVISION USING LDATA-1. 000014 TRY 000015 COMPUTE WDATA-1 = WDATA-1 / LDATA-1 000016 CATCH OBJSYS 000017 DISPLAY "-- EXCEPTION OCCURED !! --" 000018 END-TRY. 000019 . 000020 END PROGRAM C3544.
C3544I.cob (16) : JMN3544I-S CATCH指定の'OBJSYS'は,System.ExceptionまたはSystem.Exceptionのサブクラスを参照するオブジェクト参照データ名でなければなりません.