COBCH1633 PROCEDURE DIVISION が大きすぎるか構造が複雑すぎる- PERFORMTYPE(MF) の使用の推奨