解決方法：
必要に応じて文を再コーディングしてから再コンパイルします。
例：
次の例では、MOVE 文は送り型と受け側の両方で x1 変数を指定していますが、これは許可されない用法です。
$set warning(2) 01 x1 pic x(10). move x1 to x1