FIXED DECIMAL または PICTURE 制御変数が使用されている DO ループは、 FIXED BINARY 制御変数が使用されているループよりもパフォーマンスが大幅 に劣ります。
ループ制御変数の宣言を FIXED DEC から FIXED BIN(31) に変更することに より、コードのパフォーマンスを大幅に向上させることができます。