图11 高级应用程序
程序X对程序Y和Z的调用是静态调用。
参见1.3.2.2.1节中的“ILE作用”，其中介绍了应用程序处理调用，数据，文件及错误的过程中ILE作用的详细资料。
1.3.3.5 相关信息
1.3.4 应避免的一种策略
ILE提供了很多建立程序和应用程序的选择。然而，不是所有的都是同样好的，通常，你应该避免出现这样的情况：一个应用程序包含OPM和ILE程序，而它们分别跨跃OPM默认活动组和命名活动组。换言之，应避免图12中显示的方案。
CL
*PGM(X)
缺省活动组
作业 二步建立方法 活动组 异常处理 服务程序 更新程序
ILE静态连接
第六章2.3节中的“用CRTRPGMOD和CRTPGM命令建立程序”。 2.5.6节中的“管理活动组”
第九章2.6节中的“过程与程序调用”，也见于ILE概念。 第十一章3.2节中的“处理异常”，也见于ILE概念。 第七章2.4节中的“建立服务程序”，也见于ILE概念。 2.3.4.1节中的“使用UPDPGM命令”
CL *MODULE(Z2)
图12 应避免的方案，一个应用程序被分开放在OPM默认活动组和命名的活动组中。
这样做就混合了OPM的行为和ILE的行为。例如，默认活动组中的程序可能要求ILE程序在结束时释放他们的资源。然而，活动组不结束的话这是不可能发生的。
类似的，当应用程序分开放在默认活动组和命名活动组中时，复盖和共享的ODP的作用范围将更加难于管理。在默认情况下，命名活动组的作用范围是在活动组级，但是默认活动组的作用范围是调用级或作业级，而不是活动组级。
2.0 建立并运行 ILE RPG/400应用程序
此部分提供了建立和运行ILE RPG/400程序所需的信息。包括：
2.1 第四章 录入源语句
录入源语句 建立模块 读编译清单 建立程序 建立服务程序 运行程序 传递参数 运行时间管理
调用其它的程序或过程
RPG
*SRVPGM(Z)
RPG
*PGM(Y)
QILE活动组 以下简要介绍一些ILE的术语和概念，这些术语和概念将在ILE概念中作全面地讨论。
本章提供了你录入RPG源语句所需要的信息，也简要地介绍了为完成本步骤必需的工具。
要把RPG源语句录入到系统中，可采用以下方法：
交互地使用SEU 交互地使用CODE/400
开始，把源语句录入到一个叫QRPGLESRC的文件中去，文件QRPGLESRC的新成员自动地以RPGLE为默认类型。接着，建立模块和连接成为程序目标的默认的源文件叫做QRPGLESRC。IBM提供了在QGPL库中的QRPGLESRC源文件，它的记录长度为112个字符。 注意：在录入源程序时可用混合大小写的方式，但是，ILE RPG/400的编译程序将把多数的源程序转换成大写，但不转换文字，数组数据或表数据。
2.1.1 建立库和源物理文件
源语句是录入到源物理文件的成员中的。在你录入程序之前，库和源物理文件必须已经存在。
要建立一个库，应使用CRTLIB命令。要建立源物理文件，使用CRTSRCPF命令。建议文件记录长是112个字符。该记录长度考虑到了图13所示的新的ILE RPG/400结构。
顺 序 号 码 注 释
图13 ILE RPG/400记录长度分析
因为系统默认的源物理文件记录长度是92个字符，所以应该指定记录长为112。如果指定了小于92的记录长度，那么系统可能会因为截短了源代码而不进行编译。 注意：如果你在一个新的库中建立文件，那么你必须先建立库，然后建立源文件。 关于建立库和源文件的更多信息，参见ADTS/400：源语句录入实用程序(SEU)和ADTS/400：程序开发管理工具(PDM)。
2.1.2 使用源语句录入实用程序(SEU)
最小记录长度 (92个字符） 建议记录长度 (112个字符）
12
80
20
可以用源语句录入实用程序(SEU)来输入源语句，SEU提供了不同规范表样板的提示和语法检查。要启动SEU，使用STRSEU（启动源语句录入实用程序）命令。关于用这种方法启动并使用SEU，参见ADTS/400：源语句录入实用程序。
如果源文件的名字是QRPGLESRC，那么当SEU编辑一个新成员时，自动地将源成员类型设为RPGLE。否则的话，必须在建立成员时指定RPGLE。
如果想在键入STRSEU后得到提示，按F4键。就会出现STRSEU显示屏，列出参数，并给出默认值，如果在要求提示前已给出了某些参数值，那显示屏幕上将会填上那些值。 在下面的例子中，输入一个程序的源语句，这个程序将打印一个取自文件中的雇员信息。它告诉你如何做下面的事情：
建立库
建立源物理文件 启动SEU编辑任务 输入源语句
1、为了建立名为MYLIB的库，键入CRTLIB(MYLIB)。 CRTLIB命令建立一个名为MYLIB的库。
2、建立名为QRPGLESRC的源物理文件，键入CRTSRCPF FILE(MYLIB/QRPGLESRC) CRTSRCPF命令在库MYLIB中建立了源物理文件QRPGLESRC。 3、启动一个编辑任务，并建立源成员EMPRPT键入。
STRSEU SRCFILE(MYLIB/QRPGLESRC) SRCMBR(EMPRPT) TYPE(RPGLE)OPTION(2)
RCDLEN(112) TEXT(‘Source physical file for all RPG progroms’)。
键入OPITION(2)指出要启动编辑任务来建立一个新的成员。STRSEU命令在库MYLIB的文件QRPGLESRC中建立一个新成员EMPRPT，并启动编辑任务。
SEU的编辑屏如图14所示，注意屏幕自动地转换，以使第6列（规范表类型列）位于左边界。
* *
* Columns . . . : 6 76 Edit MYLIB/QRPGLESRC *
* SEU==> EMPRPT * * FMT H
HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ * * *************** Beginning of data
************************************* *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ''''''' *
* ****************** End of data **************************************** *
* *
* F3=Exit F4=Prompt F5=Refresh F9=Retrieve F10=Cursor *
* F16=Repeat find F17=Repeat change F24=More keys