While working on some support recently for our compiler (Micro Focus COBOL compiler that is), I became annoyed with the lack of a reasonable error messages\/stack trace output from our Java\/COBOL Object support.<\/p>\n
I have no idea why our default exception handler for Java exceptions just displays a such a simple message with little or no information. <\/p>\n
For those who have not seen it, display something similar to:<\/p>\n
Exception 65537 not trapped by the class javaexceptionmanager. Luckily for me and you, we do expose a mechanism for replacing the default exception handler.<\/p>\n Anyway, with very little effort I created a different “default” system exception handler that display this instead:<\/p>\n WARNING: JavaException: Test error The key difference being that a Java stack trace is included, boy did this help me.<\/p>\n The program below is the code that implements the exception handler. I am sure someone else can take this example and make it much nicer and provide more features but for this blog I will keep it simple.<\/p>\n class-control. working-storage section. invoke ExceptionManager \"register\" using invoke EntryCallback \"new\" using z\"DispError\" goback.<\/p>\n entry \"Jexception\" using invoke javasup \"exceptionOccurred\" if theJavaException not equal null invoke lnkErrorTextCollection \"do\" using wsIterator entry \"DispError\" using anElement To use the above code, you just have to first cut-paste to code into a file called ExceptionCatcher.cbl and include this in your project, and then add the directive INITCALL”ExceptionCatcher”, then away you go.<\/p>\n My test programs for the above example are:<\/p>\n class-control. working-storage section. display \"instantiated - test 1\" display \"instantiated - test 2\" <\/code><\/p>\n and the Java class itself:<\/p>\n public class SimpleClass { public void TestException() throws Exception { References: Studio Enterprise 6.0 Document for COBOL\/Java Interop<\/a><\/p>\n","protected":false},"excerpt":{"rendered":" While working on some support recently for our compiler (Micro Focus COBOL compiler that is), I became annoyed with the lack of a reasonable error messages\/stack trace output from our Java\/COBOL Object support. I have no idea why our default … Continue reading Exception 65537 not trapped by the class javaexceptionmanager.
\nDescription: \"Java exception\"
\nTest error
\nHit T to terminate program. Hit any other key to continue.
\ninstantiated - test <\/p>\n
\nDescription: \"Java exception\"
\nTest error
\nHit T to terminate program. Hit any other key to continue.
\n<\/code><\/p>\ninstantiated - test 1
\njava.lang.Exception: Test error
\n at SimpleClass.TestException(SimpleClass.java:10)<\/p>\n
\ninstantiated - test 2
\njava.lang.Exception: Test error
\n at SimpleClass.TestException(SimpleClass.java:10)
\nWARNING: JavaException: Test error
\n<\/code><\/p>\n
\n $set ooctrl (+p-f) case
\n program-id. ExceptionCatcher.<\/p>\n
\n EntryCallback is class \"entrycll\"
\n JavaExceptionManager is class \"javaexpt\"
\n ExceptionManager is class \"exptnmgr\"
\n Javasup is class \"javasup\"
\n .<\/p>\n
\n 01 wsCallback object reference.
\n 01 wsIterator object reference.
\n 01 theJavaException object reference.
\n local-storage section.
\n 01 filler pic x. *> dummy storage item to allow recursion
\n linkage section.
\n 01 lnkException object reference.
\n 01 lnkErrorObject object reference.
\n 01 lnkErrorTextCollection object reference.
\n 01 lnkErrorNumber pic x(4) comp-5.
\n 01 anElement object reference.
\n procedure division.
\n *>---Set up system level Exception handler
\n invoke EntryCallback \"new\" using
\n z\"JException\"
\n returning wsCallback
\n end-invoke<\/p>\n
\n javaexceptionmanager
\n wsCallback
\n end-invoke<\/p>\n
\n returning wsIterator
\n end-invoke<\/p>\n
\n lnkException
\n lnkErrorNumber
\n lnkErrorTextcollection
\n .<\/p>\n
\n returning theJavaException
\n end-invoke<\/p>\n
\n invoke theJavaException \"printStackTrace\"
\n end-if<\/p>\n
\n goback.
\n .<\/p>\n
\n display \"WARNING: JavaException: \" with no advancing
\n invoke anElement \"display\"
\n display \" \"
\n goback.
\n .
\n<\/code><\/p>\n
\n $set ooctrl (+p-f) case
\n program-id. jtest.<\/p>\n
\n SimpleClass is class \"$JAVA$SimpleClass\"
\n .<\/p>\n
\n 01 theInstance object reference.
\n local-storage section.
\n 01 filler pic x. *> dummy storage to allow the local entry
\n procedure division.
\n *>---Instantiate the class
\n invoke SimpleClass \"new\" returning theInstance<\/p>\n
\n invoke theInstance \"TestException\"<\/p>\n
\n invoke theInstance \"TestException\"
\n stop run.<\/p>\n
\nimport java.lang.* ;<\/p>\n
\n public SimpleClass() { }<\/p>\n
\n throw new Exception (\"Test error\" );
\n }
\n}
\n<\/code><\/p>\n