RPGLE打印到命令窗口

Question

希望有人能帮我。我在命令窗口中看不到我的RPGLE程序的DSPLY‘一些文本’输出。我正在使用iseries client for iseries创建一个简单的RPGLE程序。我可以编译程序没有错误，但不能看到显示文本，看看它是否工作时，它运行它调用MYLIB/TESTRPG。这是我的程序代码：

     /free
         dsply 'Hello World';
         return;   

请帮帮忙。感觉我在“黑暗中学习”。

提前感谢

Answer 1

这只是我在2006年(16年？！)对此所作的说明。在RPG中调用CL。可能将下面的DLYJOB更改为SNDMSG、SNDBRKMSG等(https://www.ibm.com/docs/en/i/7.4?topic=messages-commands-used-send-system-user)

/IF Defined(*CRTBNDRPG)
H DFTACTGRP(*NO)
/ENDIF
H BNDDIR('QC2LE')
D GoCmd PR 10I 0 Extproc('system')
D CmdStr * value
D options(*string)
D NullString C -1    
D Success C 0
D Returncode S 10I 0
D User S 10 Inz(*User) Varying
/free
Returncode = Gocmd('DLYJOB DLY(300)'); // change to a SNDBRKMSG maybe?
Select;
When Returncode = Success; // Command was successful
When Returncode = NullString; // Command string was null
Other;
Endsl;
*INLR=*ON;
/end-free

祝好运