退出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 可以调用 CL 程序。您可以使用RPG和CL模块创建程序[CRTPGM]。 或者您可以使用 RPG 模块创建程序，并使用 CL 创建服务程序 [CRTSRVPGM]。如果您的 CL 将来可能被其他程序使用，则此方法可能更可取。