Запуск дочернего процесса в COBOL

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

Используйте общее расширение COBOL, который поддерживается с лет в GnuCOBOL (ранее OpenCOBOL), тоже:

CALL 'SYSTEM' USING whatever END-CALL 

Это работает с «cobcrun», тоже, и может быть полезно, если вам нужен процесс COBOL с микросхемой отдельная среда (EXTERNAL, ACCEPT x FROM y/SET ENVIRONMENT y TO x) или конфигурация времени выполнения (например, через cobcrun -c different.cfg OTHERMAIN).

Ваш оригинальный образец может выглядеть (без возможности использовать трубы, которые были бы другой вопрос):

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

После этого вы можете прочитать DirList как нормальная линия последовательного файла.

Simon

КСТАТИ: Учитывая ваш сэмпл может искать CALL 'C$LISTDIR'.