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

我在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非常无知，我从今天开始学习，只是启动命令花费了我很长时间…）

---

非常感谢您的帮助…

在midrange.com COBOL400邮件列表的归档文件中有一个关于在COBOL中读取IFS文件的线程。下面是该线程的一篇文章，其中包含一个示例程序

在midrange.com COBOL400邮件列表的归档文件中有一个关于在COBOL中读取IFS文件的线程。下面是该线程的一篇文章，其中包含一个示例程序

我查看了IBMQCMDEXC文档，却找不到方法。由于可以将输出通过管道传输到文件中，因此可能只需将该文件作为输入读取到第二个COBOL程序中即可。由于可以将输出通过管道传输到文件中，因此可以将该文件作为输入读取到第二个COBOL程序中。