1

我在 COBOL 中使用 QCMDEXC 来执行一个 QShell 命令，如下所示：

   01 PROGRAM-VARIABLES.                        
      05 CL-CMD PIC X(33)                       
                VALUE "STRQSH CMD('LS')".
      05 PACK-VAL PIC 9(10)V9(5) COMP-3         
                  VALUE 16.                                    
   MAINLINE.                                    
       CALL "QCMDEXC" USING CL-CMD PACK-VAL.

LS 正在执行，结果显示在屏幕上。但是，我找不到任何地方或想出一种读取输出的方法，在这种情况下，文件/文件夹列表从“unix”再次进入 COBOL。（我验证了命令是由 COBOL 正确启动的，因为如果我通过 STRQSH CMD('LS>fromcobol.txt') 更改它，则会使用正确的输出创建文件 'fromcobol.txt'，但我不知道如何将该输出检索到同一个 COBOL 程序中......我对 COBOL 非常无知，我今天开始学习，我花了很长时间才启动命令......）

非常感谢您的帮助...

4

1 回答 1

5

midrange.com COBOL400 邮件列表的存档中有一个关于在 COBOL 中读取 IFS 文件的主题。这是来自该线程的带有示例程序的帖子。https://archive.midrange.com/cobol400-l/200010/msg00006.html

于 2020-09-22T09:54:01.967 回答