在 COBOL iSeries AS/400 中使用 QCMDEXC 从命令中读回输出

Question

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

非常感谢您的帮助...

Answer 1

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

在 COBOL iSeries AS/400 中使用 QCMDEXC 从命令中读回输出

Read back output from command using QCMDEXC in COBOL iSeries AS/400

ibm-midrange

cobol

qshell