ibm-midrange - 退出DSPF后去wrksplf？

Question

我正在 iSeries 400 [IBM] 上创建屏幕设计器

我创建的 RPGLE 程序我试图找出让用户在wrksplf退出程序后进入的命令（按我创建指示器的 F3）

在 CLLE 中，我wrksplf之前可以在程序结束时使用，enddo但我找不到任何信息如何在其他语言（如 RPGLE 或其他任何语言）中执行此操作。

Answer 1

只要您处于交互式作业中，您就可以调用 QCMDEXC 来调用命令...

DQCMDEXC          PR                  EXTPGM('QCMDEXC')    
D prCmdStr                    4096A   CONST                
D prCmdLen                      15P 5 CONST                

 /free
  QCMDEXC('WRKSPLF':25);
 /end-free

Answer 2

ILE 程序/程序可以调用其他语言编写的 ILE 程序。调用包含命令的已编译 CLLE 过程比调用 QCMDEXC 解释器接口来解析和执行它更有效。它还使您能够在被调用的过程中封装更多功能，以备不时之需。

您可以创建一个简单的 CLLE 模块来执行 WRKSPLF 命令。您的 ILE RPG 可以 CALLP 到 CL 程序。您可以使用 RPG 和 CL 模块创建程序 [CRTPGM]。或者您可以使用 RPG 模块创建程序，并使用 CL 创建服务程序 [CRTSRVPGM]。如果将来您的 CL 可能被其他程序使用，则此方法可能更可取。