progress-4gl - 有没有办法判断默认流是否打开？

Question

图书馆里有一行我无法取出：

put oResults format "x(80)" skip.

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

我知道我可以在我的程序中的某个地方发送输出，但我想修复它，这样你就不必有输出了。寻求功能可能吗？

编辑：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 或 _progres -b 或任何需要显示该输出或以其他方式使用它的命令，您通常会在输出文件上使用“cat”或“tail -f”。