Прочитать вывод команды с помощью QCMDEXC в COBOL iSeries AS / 400

Я использую QCMDEXC в COBOL для выполнения такой команды 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, я начал учиться сегодня, и мне потребовалось очень много времени, чтобы запустить команду...)

Большое спасибо за любую помощь...

Источник

1 ответ

Решение

В архивах списка рассылки midrange.com COBOL400 есть ветка о чтении файлов IFS в COBOL. Вот сообщение из этой ветки с примером программы. https://archive.midrange.com/cobol400-l/200010/msg00006.html

Источник
Другие вопросы по тегам