I-O用に開いていないファイルにREWRITEを実行しようとしています。
関連するファイルを閉じ、I-O処理用にファイルを開いてください。REWRITE処理を実行できます。しかし、このエラーはプログラムのロジック に誤りがあることを示しますので、開いているファイルを閉じSTOP RUN文を実行してプログラムを記録してください。