在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是否正确启动了该命令,因为如果我通过STRKSH CMD('LS>fromcobol.txt'(更改它,则会创建具有正确输出的文件'fromcobl.txt',但我不知道如何将该输出检索到同一个COBOL程序中…(。。。我对COBOL非常无知,我今天开始学习,仅仅启动命令就花了很长时间…(

非常感谢你的帮助。。。

midrange.com COBOL400邮件列表的存档中有一个关于读取COBOL中的IFS文件的线程。下面是该线程的一篇文章,其中包含一个示例程序。https://archive.midrange.com/cobol400-l/200010/msg00006.html

相关内容

  • 没有找到相关文章

最新更新