引数の説明
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のサブクラスを参照するオブジェクト参照データ名でなければなりません.