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将来可能被其他程序使用，则此方法可能更为可取。

退出DSPF后转到wrksplf？

2 个答案: