COBRT048 ゼロで割ろうとしている

解決方法：

ON SIZE ERROR 句を使用してエラーをトラップできるようにプログラムを修正します。