Or you can use Mart's by just changing this...

 Code:
			? $line
			$line = Split($line, "XXXX")
			$line = Join($line, $status)
			$rc = WriteLine(1, $line + @CRLF)

To something like this...
 Code:
			? $line
			$line = Left($line, 20)+$status+Right($line, 24)
			$rc = WriteLine(1, $line + @CRLF)