有没有一种方法可以判断默认流是否打开

Question

库中有一行我无法取出：

put oResults format "x(80)" skip.

我有一个程序正在调用没有默认输出的库，所以这一行出错了。

我知道我可以在程序中的某个地方发送输出，但我想修复它，这样你就不必有输出了。也许是Seek函数？

编辑：10.2b

我只在unix中得到一个错误。

在unix环境中，这一行：

put oResults format "x(80)" skip.

出错。

但是如果你放一个：

if seek(output) <> ? then 
  put oResults format "x(80)" skip.

它不会出错。

---

在unix环境中的行：

put oResults format "x(80)" skip.

出错。

但是如果你放一个：

if seek(output) <> ? then 
  put oResults format "x(80)" skip.

它不会出错。

Answer 1

您正在批处理模式下运行。在批处理模式下运行时，应始终在操作系统级别重定向输出。类似这样的东西：

bpro -p test.p > errors.out 2>&1

不重定向输出几乎总是会导致您看到的错误。

如果您在脚本中嵌入bpro、mbpro或_progress-b或任何需要显示输出或以其他方式处理输出的命令，您通常会在输出文件上使用"cat"或"tail-f"。