It appears that in the following managed console program, if there is no run-time exception, "swallows" up the tail end of the program if the End-Try is missing. There appear to be no warnings, etc., when the program is compiled.
program-id. Program1 as "cblTestTryCatch1.Program1".
* You can use the CHECKDIV"ENTCOBOL" directive so that you get an division by zero error returned.
* Adding an ON SIZE ERROR would also allow you to handle the error in your code.
* The $set directive shown above accomplishes this.
01 Junk Pic X.
01 A Pic 9 value 1.
01 B Pic 9 value 1.
01 C Pic 9 value 2.
Declare Exception1 as type Exception
Compute C = B / A
Display "C = ", C
Display "End of program..."
end program Program1.