JCI_ExceptionClear

Die Funktion entfernt eine anstehende Exception.
Sie ist äquivalent zur JNI-Funktion ExceptionClear.

Aufruf

CALL 'JCI_ExceptionClear'

Returnwert (RETURN-CODE)

JCI-RET-OK

Der Aufruf war erfolgreich.

Hinweise

Die Funktion darf auch aufgerufen werden, wenn keine Java-VM gestartet wurde oder keine Exception ansteht.

Beispiel

DATA DIVISION.
WORKING-STORAGE SECTION.
COPY JCI-TYPEDEFS.
01 JCIConstants.
COPY JCI-CONST.
...
01 className.
  02 PIC S9(9) USAGE COMP-5 VALUE 30.
  02 PIC X(30) VALUE 'hello'.
...
01 classObj  TYPE JCI-object.
...
PROCEDURE DIVISION.
...
CALL 'JCI_FindClass' USING className classObj
IF RETURN-CODE NOT = JCI-RET-OK
  CALL 'JCI_ExceptionCheck'
  IF RETURN-CODE = JCI-RET-TRUE
    CALL 'JCI_ExceptionDescribe'
    CALL 'JCI_ExceptionClear'
  END-IF
ELSE
...
END-IF.
...

Wenn die Klasse hello nicht existiert, sieht die Ausgabe in etwa folgendermaßen aus:

Exception in thread "main" java.lang.NoClassDefFoundError: hello
Caused by: java.lang.ClassNotFoundException: hello
at java.net.URLClassLoader.findClass(URLClassLoader.java:382)
        at java.lang.ClassLoader.loadClass(ClassLoader.java:425)
        at sun.misc.Launcher$AppClassLoader.loadClass(Launcher.java:332)
        at java.lang.ClassLoader.loadClass(ClassLoader.java:358)