Question

如何在GnuCOBOL中启动子进程？

在Node.js中，我们可以使用spawn或exec来启动子进程：

var proc = require("child_process").spawn("ls", ["-l"]);
proc.stdout.on("data", function (chunk) {
  console.log(chunk);
});

// or

var proc = require("child_process").exec("ls -l"], function (err, stdout, stderr) {
   ...
});

上述两个示例都运行ls -l（列出文件和目录）。如何在COBOL中实现同样的目标？

Answer 1

使用GnuCOBOL（以前的OpenCOBOL）多年来支持的通用COBOL扩展：

CALL 'SYSTEM' USING whatever END-CALL

这也适用于'cobcrun'，如果你需要一个具有单独环境（EXTERNAL项，ACCEPT x FROM y / SET ENVIRONMENT y TO x）或运行时配置的COBOL进程（对于示例来自cobcrun -c different.cfg OTHERMAIN）。

您的原始样本可能看起来像（没有选择使用管道，这将是一个不同的问题）：

CALL 'SYSTEM' USING 'ls -l >dirlist'
  ON EXCEPTION
    CALL 'SYSTEM' USING 'dir >dirlist'
    END-CALL
END-CALL

之后，您可以将dirlist读作普通的行顺序文件。

西蒙

BTW：鉴于您的样本，您可能会寻找CALL 'C$LISTDIR'。

在COBOL中启动子进程

1 个答案: