以下代码在CRTBNDRPG下编译，但在运行时仅在1个I/O上卡住 我要做的就是——我们所有的表的订单号都是8，但这个文件的订单号是10。所以我只是创建了两个字段，一个是8，另一个是正常的。你知道为什么这个小节目没有成功吗 FMFHHMH IF E DISK F* output file

此代码是一个清除程序。我们希望清除从未订购过任何东西的客户（在公司中，如果有人是“潜在”客户，他们会保留记录。） 这将首先在测试环境中运行，但最终将针对生产环境运行。我们将保留创建的临时文件作为备份。我不知道如何删除。我认为此时需要这样做：如果找不到订单实体，请将记录写入TRCMASAC文件 C IF NOT %FOUND(OEORH4) C WRITE TRCMASRR * Delete? file

我想知道是否有可能对数据结构而不是文件执行SQL 例如，我有一个包含100个字段的外部数据结构，假设命名约定是field1、field2等……数据结构名称是DS1。DS1结构与所有100个包含值的字段一起传递给程序。我想知道是否可以这样做： /free exec sql update DS1 set field1 = field2; /end-free 我不确定是否可以查询数据结构，而不是将数据存储到磁盘中，但如果可以，则会使事情变得更快、更简单

我试图在ALTER语句中将参数传递给FIELDPROC prgram ALTER TABLE SEKAR2/FPPEM ALTER COLUMN S1ESSN SET FIELDPROC SEKAR2/KYR001('SEKAR2','FPPEM','S1ESSN') 在程序内部，参数似乎受到特定分隔符的限制。我试着扫描RPGLE中的角色。它不起作用。请帮助我分析传递的参数 ....5...10...15...20...25...30...35...40...45...5

我有一个批处理作业，它调用CLP并使用CPYTOPCD命令复制包含XML数据的DB2文件。在CLP的作业日志中，它说文件已成功复制，但当我检查QDLS子文件夹…QDLS/XXXXXX/XXXXX/ERR/时，该文件没有显示在那里。我尝试了Iseries Navigator和thru命令WRKFLR，但都没有成功。当我手动运行CPYTOPCD命令时，它会将文件复制到文件夹中。这发生在客户的UAT箱中 但是，当我在开发框中运行批处理作业时，它成功地复制了文件 不确定这是开发人员端还是系统管理员端的问

我有一个条件。 我有一个CL，其中我用Qtemp版本（Qtemp/TabA）覆盖一个表（TabA）。然后我调用一个RPG程序。 现在在RPG程序中，我更新了TabA。因此Qtemp版本正在更新，但我希望实际版本得到更新。因此，基本上，就在这次更新中，我不希望我的覆盖工作。一种方法是删除覆盖，然后在更新后重新覆盖它。有更好的办法吗 我将通过在F-spec或SQL中使用完全限定的文件名来处理这种情况，而不是在不同级别使用覆盖，而完全不使用覆盖。听起来RPG程序应该总是更新永久文件，而不是临时文件，因

因此，我在将源代码复制到IFS时遇到了一个问题。我基本上只是希望代码中的文本看起来像一个.txt文件。我正在本地计算机上存储数据，以便在已有备份的基础上保留另一个备份 我发现并使用了一个CL程序，它可以很好地处理我想要的许多文件。它的作用如下： PGM PARM(&file &LIBRARY) dcl &file *char 10 dcl &library *char

好吧，那可能不是最好的主题 我正在应用程序中设置审批工作流。我将用户名和美元金额传递给子流程，并找出审批流程需要使用的工作流。我想我已经有了这个工作，直到我试图处理的条件时，用户还没有被设置 因此，在我的表格中，我有： wfid wfuser wfamt 1 user1 0 2 user2 0 2 user2 10000.00 显然，如果用户设置正确，这是可行的。然而，把我们的user3 sinareo放回

IBMDB2：如何在不删除视图的情况下更改视图的结构并再次创建它？ " 我在DB2IBMi-series中有一个视图，我需要“更新”/“更改它的”查询“。到目前为止，我知道的唯一方法是删除并重新构建它，但在本例中，我有另一个基于此视图的视图，如果我删除第一个视图，则第二个视图将被删除到..您正在查找语法吗？如果您在i5/OS V7.1上运行，则可以使用创建或替换视图 如果没有，则（不幸的是）您必须删除/重新创建视图（及其从属对象）。您必须查看哪些其他视图正在使用此视图 必须重新创造它们。 您可以

我有四个库，每个库都有一组不同的程序选择。不幸的是，我不能用SQL删除库中未使用的程序，因为我需要使它们退役（这样它们就不会留在我们的客户机服务器上） 有没有办法为此制定一个CL计划？我们的高级程序员说这是做不到的，但我想在被迫手动淘汰2300个对象之前探索每一种可能性 它最初是Aldon change management软件中的一个函数，我有一个SQL查询来选择所需的对象 在您的上下文中，我不理解retire和delete之间的区别，但这里有一个示例CL，用于读取程序对象文件并删除它们 它假

我的iSeries ILE程序因未提交的更改而崩溃。 现在我想用ENDCMTCTL结束承诺控制（要再次启动程序，程序启动承诺控制本身），但失败了，消息如下： CPF8355 - ENDCMTCTL not allowed. Pending changes active 是否有一种方法可以回滚/提交更改并以正确的方式结束提交控制？我的经验更丰富的同事建议只需注销并开始新的会话 编辑 我尝试过WRKCMTDFN和其中的所有操作，但都没有成功。 强制回滚和强制提交失败，消息为： CPD83ED -C

我有一个创建所需数据集的SQL。我可以在Crystal Reports中使用它；但是，它们允许的行数限制存在一些问题。还有其他类似的SQL语句组。我包含所有代码只是为了了解每个部分有多少行 然而，4组在CR时间方面运行良好。但是，我想把它变成一个存储过程 问题: 它是外部的SQL类型。 我是否制作临时表来保存数据？ 如果不是2，那么如何从Crystal Reports访问此数据。 我可以从那里访问存储过程 SQL示例： SELECT count(*) as PROGR5PST, ( SELECT

我想对iseries服务器上运行的mysql服务器进行更改。更改将增加mysql将使用的内存量。在进行此更改之前，我想知道iseries中有多少内存？在任何给定的点上大概有多少可用？ 我看过WRKSYSSTS屏幕，但我不确定如何阅读任何信息IBM网站上的信息也没有任何帮助。我们正在运行V7R1 只是澄清一下，我不会改变iseries内存分配或池。我将更改MySQL设置，这可能会导致MySQL进程消耗比当前更多的内存。如果我做了一个改变，导致mysql使用的内存超过可用内存，那么可能会发生交换，我

我在下面的场景中遇到问题 程序a中的文件MYFILE上有一个记录锁。稍后会话突然断开，MYFILE上有一个记录锁，并执行取消处理程序例程。在cancel handler程序例程（程序B）中，它尝试删除MYFILE中锁定的记录，会话挂起，因为文件MYFILE是使用NOMAX的WAITRCD时间编译的。现在，没有人可以从其他会话访问帐户进行任何更新操作 程序流程如下所示： 。。。。 .... 程序A（记录锁） .... 程序X（取消处理程序）->添加了OVRDBF WAITRCD（3） .... 程

我正在尝试从不同的显示文件显示窗口。即使在提供了RMVWDW之后，新窗口也会与前一个窗口重叠。当从多个显示文件显示窗口时，RMVWDW是否工作？ 当从不同的显示文件显示窗口时，在显示新窗口时删除以前的窗口的解决方案是什么？因此，在没有更好的问题描述的情况下，让我试着描述一下发生了什么。我写了一些小程序来帮助你 首先，我们有一个显示文件，只有一个全屏记录和一个窗口。窗口将覆盖全屏记录 DSPF1 关联程序PGM1 **free dcl-f dspf1 workstn; dcl-pr pgm

我为我的客户机为DB2设置了CDC引擎。我安装好了。已启动DMIRROR子系统，但当我启动TCP侦听器作业（STDMTCP）时，此作业无法启动。在作业日志中，它显示以下错误： Message.....Failure on QUSPTRUS call. Message.....Operation not valid on system domain object. Cause..... The requested operation is not valid on a system dom

我需要在CL程序中显式使用当前库名称 CHGVAR &LIB *CURLIB 不起作用（在这一行后面&lib='*curlib'）。这应该很简单-有什么想法吗？找到了： RTVJOBA CURLIB（&LIB）找到它： RTVJOBA CURLIB（&LIB）请注意，给定作业可能没有当前库。 在这种情况下&LIB的值为*NONE请注意，给定作业可能没有当前库。 在这种情况下，&LIB的值为*NONE

假设在一个显示文件中指定了DDS CF20以使F20可用。现在我想在RPG程序中满足某些条件时禁用此功能。由于该程序已经用完了01-IN99中的所有通用指示器，因此在显示文件中使用指示器停用CF20关键字不是一个选项。是否有其他替代方法来实现此目的？当用户按下F20且RPG程序决定不允许此操作时，通知用户并禁止程序内的F20操作。换句话说，不要对显示文件做任何事情，在RPG程序内完成所有工作。这是否意味着在没有指示灯的情况下无法停用显示文件中的F20？对。只有一个指示器可以决定F20是否可用。使

如何在CLLE中修剪变量？？？CLLE中没有可用的标准函数修剪。但是, 如果要粘合两个变量，请查看*TCAT（或|），因为CL中的所有变量都是固定长度的，因此没有修剪本身的逻辑要求 若要在不插入空格的情况下连接两个值，请使用| 要查找不包括尾随空格的字符长度，您需要使用%SST（&VAL&POS 1）对该值进行良好的向后遍历，以测试每个字符的空格位置。类似于： DCL &LEN *DEC (15 0) DCL &VAL *CHAR 50 VALUE('Some test dat

我正在编写一组程序，用于创建、编写和编译一组SQLRPLE程序。我的程序开始时的很多代码在我的每个程序中都是重复的，所以我把这些代码放到参考源代码中是有意义的。。。它的形式大致相同 H some h specs D a load of d specs /free my nice free formatted code that I use everywhere 然后我的元程序出现并添加了大量代码。在这一点上，我的程序看起来像这样 /copy *l

我一直在尝试查看AS400触发器的触发器定义，但似乎找不到帮助我执行此操作的命令。我可以列出、创建或删除触发器，但如何查看触发器定义。DSPFD文件（LIB/FILE）类型（*TRG）将为您提供有关调用什么程序以及触发器何时触发的基本信息。使用iSeries Navigator深入数据库项中的连接。在相应的架构下，单击触发器。然后右键单击您感兴趣的触发器并选择“定义” 查看触发器列表时，请查看“类型”列以查看触发器是“SQL”还是“外部”。“外部”触发器写入HLL，如RPG、C、COBOL或其他

我想更改子文件中字段中单个字符的颜色 斯科特·劳伦斯 约翰·史密斯 我喜欢把斯科特中的CO显示为红色，史密斯中的MI显示为红色，其他所有角色都是绿色。这能实现吗？在DSPF中，我很难在单个字符级别而不是字段级别找到DSPATR。基本上，我希望以不同的颜色显示子文件中具有CO和MI值的字段中的字符。在5250显示中，将SCOTT中的CO显示为红色的唯一方法是在字符串中写入十六进制值，例如： 'S'+x'28'+'CO'+x'20+'TT' x28：红色，x20：正常-cf 这将更改颜色，但任何十六

什么是DW4和DW5数据存储？在以下关于IBMs Query/400产品的一般操作特性的网页上，它提到了数据合并的DW4和DW5的可访问性 DW4和DW5参考第4版和第5版。您不太可能遇到任何DW使用。但是，如果您仍然使用像Query/400这样的老版本，我想这是可能的。这是IBM的DisplayWrite。

我对运行在几个IBMiSeries机器上的DB2是新手。我在编写一个存储过程时遇到了一些困难，它将从表中选择值，其中键字段以参数的值开头 现在在MS SQL Server中，我将这样写： SELECT field FROM table WHERE fieldB like parm + '%' 因此，对于我的DB2进程，我有： SELECT field FROM table WHERE fieldB like parm || '%' 我不仅在IBM文档中发现了这种语法，而且在一些问答中也发现了

我正在寻找一种方法，将数据库文件作为excel工作表附加到邮件中，并从IBMi服务器发送出去。请告知是否有任何方法仅使用本机iseries命令来执行此操作。我们公司限制使用可用的开源工具，因此寻找本机方法 我确实有可用的esendmail实用程序，但它没有此功能。我使用的是7.3，我不知道有哪个IBM命令可以创建电子表格。可以使用CPYTOIMPF创建类似CSV的文件，但不能创建完整的Excel电子表格 您可以提交RFE，要求IBM提供本机解决方案，但有几个类似的请求被拒绝，因为IBM已经为我们

我修改了一个旧的cobol程序，在用debug测试它时遇到了一些奇怪的行为/特性。有一个相当大的记录结构和一个初始化 在调试过程中，如果我使用f10单步执行初始化行，则完成该步骤大约需要20分钟。然而，如果我在它前后放置一个断点，并用f12在其上继续，它将在几分之一秒内完成。 注意：此代码已在程序中 这是一个bug还是一个我应该知道的特性 01 TABLE. 03 RECORD OCCURS 999

我有一个查询字段，它是每个发票的计算总数。我需要创建一个包含此字段的PF，我想将类型指定为分区，但它不允许。 我想用S型，对吗 Data Field Buffer Buffer Field Type Length Length Position VALUE01 ZONED 16 2 16 17 如下所示：值12S02是，它应该工作： A

所以我一直在尝试将文件从我的系统传输到as400。当我从系统传输文件时，文件中的磅符号会变成一些垃圾字符。有人能提出建议吗 提前感谢…听起来确实像是CCSID不匹配。您如何尝试传输文件？如果使用IBM i Access数据传输，则在文件>属性>转换下有一个名为“Convert CCSID 65535”的设置。如果系统设置为CCSID 65535，则数据传输必须猜测字符的编码 您可能想要更改系统值QCCSID以匹配实际语言（美国英语为37），或者更改特定表（您可以使用正确的CCSID创建视图…我对

AS400：如果我使用1更新文件。STRSQL（来自命令行）2。SQLRPGLE程序中的Update/Insert/Delete语句是否会创建日志条目？（文件已正确记录日志）是，两者都有。即使使用标准的RPG写入/更新操作是。如果省略某些类型的数据库事务，它将是无用的

假设我有这个程序接口 d PgmText pi d outInfo 65535 d pgmName 10 const d pgmLibrary 10 const 我通过JTOpen调用它，然后读取分配给输入/输出参数outInfo的数据。问题是分配的%alloc-数据超出了outInfo的最大维度 那么，我该怎么办呢？ 例如，我可以将AS400By

有没有简单的方法可以直接返回RPGLE中字符和类型变量的长度？这里我说的长度不是D-spec中指定的长度。我说的是字符串中有意义字符的实际数量。假设一个字符类型变量被定义为50个字符长，并且它被赋值为“Hello world！”，那么我想要的长度是12，从“H”到“！”。将忽略前导空白和尾随空白。有什么简单的方法可以做到这一点吗？您可以使用%len（%trimr（field）），它在检查长度之前修剪尾随空格 %triml修剪前导空格（左侧） %trimr修剪尾随空格（右侧） %trim修剪前导

我正在处理一个显示文件。此显示文件显示屏幕顶部的页眉、底部的页脚和中间的子文件。目前，我已经将其分为四种记录格式，一种用于页眉，一种用于页脚，两种用于子文件。由于某些原因，我想将页眉和页脚转换为记录格式。因此，在RPG中，它将首先写入页眉和页脚，然后在页眉和页脚之间写入子文件。我已尝试运行RPG，但在将子文件控制记录写入屏幕时出错。有没有办法克服这个错误？还是不可能呢 某些消息需要使用ERRMSGID关键字显示，并由单独的指示器进行调节。一条消息与页眉中的字段关联，另一条消息与页脚中的字段关联。

在我看来，如果我记得的话，逻辑文件在Crystal REports中使用时，它不仅传递文件OEOEHDOH的所有记录，而且传递所有的字段。这是正确的吗 如果CR只对5个字段感兴趣，我们如何对其进行逻辑编码，或者创建一个只通过较少的新字段，您认为这是性能问题吗 我还为这个逻辑系统添加了一个临时过滤器 R oOrhdrr PFILE（oOrhdoh） *由booksman添加，我将其放在当前O线之前。这应该通过更少的记录？我知道有更好的方法来编写代码，但我想先看看是否有水晶性能的改进。 O OHOR

如果我使用DFTACTGRP（*否）创建了一个ILE RPG程序，我的理解是该程序将保留在内存中，直到激活组被销毁。如果我在关闭LR的情况下退出程序，变量是在下一次调用时重新初始化还是保留其值 简短回答 不，它们不会重新初始化，除非设置了ACTGRP（*New），或者您以其他方式回收激活组 长答案 *INLR是RPG循环的一个功能，而不是激活组的功能，只要您使用循环主程序，它的功能应与预期基本一致（程序未卸载除外）。对于线性主程序，所有的赌注都是无效的。该手册指出，线性模块中依赖于循环的特性“可

我试图理解在程序上使用DSPPGM命令时显示的详细信息的含义 假设命令如下所示： DSPPGM PGM(SE046R) DETAIL(*ALL) Program . . . . . . . : SE046R Library . . . . . . . : HGBASQUA Owner . . . . . . . . : QPGMR Program attribu

我正在PGM a中向我的库列表添加库并提交作业PGM B。PGM B提交作业PGM C。但是，在调试PGM C时，我注意到库列表没有显示我在PGM a中添加的特定库。因此，我的问题是，是否需要在PGM C中将该库再次添加到我的LIBL中？库列表是否随提交的每个新作业而更改？默认情况下，库列表在SBMJOB命令上设置为用户配置文件作业描述。以下是要覆盖的两种方法： 在SBMJOB命令上更改“初始库列表”和/或“当前库”参数（INLLIBL和CURLIB） 创建专门针对此职位和类似职位的职位描述。

我有问题与tn5250（AS400模拟器）与我的桌面页面向上和向下的工作良好。但是我的笔记本电脑不能工作。 我所做的 解锁数字锁并尝试按9或3，但什么也没发生 这不仅仅是一种模拟，因为这种类型经常是强制性的。大多数情况下，这是模拟器中不匹配的键盘。我使用iSeries Access for Windows附带的模拟器。选择编辑、首选项、键盘、自定义。在该窗口中，您可以编辑键盘映射。我通常确保数字键盘、Ctrl-C和Ctrl-V正常工作。在笔记本电脑上，您可能需要设置结合shift键或cont

我使用屏幕设计辅助创建了一个显示文件，其中包含一个子文件和一个窗口，用于弹出并向子文件添加记录。 在窗口上，我只想有两个控制功能 -输入以添加记录并关闭窗口 -F3返回上一个子文件页面 我有一个问题，每当我打开窗口并按下除已定义按钮之外的任何其他Fn键时，我的程序似乎都会无限循环 在WRKACTJOB中查看我的作业占用CPU负载 我想以某种方式禁用所有其他键的输入，以防止用户出现此错误并占用系统资源 这是我的DDS代码 A*%%TS SD 20210608 183039 JAL

我正在寻找将.01或-.01转换为0.01或-0.01的最佳方法。当我想把十进制数转换成字符时，这是必需的 在用EDITW和EDITC搜索了很多之后，我得到了下面的代码 D Sales S 9S 2 D Net_Sales S 10A // Sales variable may contain positive or negative amount If Sales >= 0 Net_Sales = %T

遇到CLLE程序在随机情况下抛出以下错误的情况： Message text for CPF9841 is: Override not found at specified level. 引发错误的行是DLTOVR文件（QSYSPRT） 怀疑是同一命令的多次提交导致了此错误 通过谷歌搜索，可以发现将调用级别定义为*JOB可能有助于消除此错误 还有更好的建议吗 因此，如果DLTOVR命令是在*作业级别执行的，那么OVRPRTF命令也需要在*作业级别执行，我相信 如果问题是CLLE

我使用创建绑定RPG程序（CRTBNDRPG）和一个示例程序 作业日志 Ownership of object QSORTR in QTEMP type *MODULE changed. Definition not found for symbol 'QSORT'. Program QSORTR in library QTEMP not created. Compilation failed.

我有很多表格和数据库。大多数表都有空格，并且没有表列具有描述性名称。。有人能帮我把数据拿出来吗？多亏了我很久以前就不得不这么做了，结果使用了一个非常粗糙的解决方案——我使用了一个具有屏幕录制功能的终端模拟器，然后将AS400数据转储到终端。然后，我编写了一个简单的程序，它接收捕获的终端会话，并将文本字段过滤到数据库中。它很难看，但它只是用于一次性数据导出到新系统，最重要的是它工作了。我很久以前就必须这样做，结果使用了一个非常粗糙的解决方案-我使用了一个具有屏幕录制功能的终端模拟器，然后将AS40

我试图使一个RPG程序能够在内部程序调用出错时告知更具体的细节。我想要监视的异常与糟糕的程序逻辑无关，比如除以零。我要检查的是，程序调用是否由于权限问题而失败，或者程序未找到。73-74处的指示器只能说明存在异常，但不能说明其背后的原因。是否有任何可能的方法可以在RPG中检测到这一点，就像CL程序中的MONMSG语句一样？使用和/或捕获并解释特定的错误条件。使用和/或捕获并解释特定的错误条件。有两类错误：程序和文件。程序错误包括被零除、调用失败等。完整列表位于。这些错误代码非常粗糙-如果您调用P

我在AS400（iSeries）上设置了一个数据源，当Cognos通过客户端访问ODBC驱动程序访问它时，它会锁定AS400上的文件。即使报告关闭，文件也会在一段时间内保持锁定状态。这会导致在更新数据源、重新组织文件、清除记录等方面出现问题。必须有一种方法在检索数据时强制ODBC驱动程序解除锁定……或者至少监控其保持锁定的时间。任何指示都将不胜感激 谢谢 Cognos 10.1.0。。。。 iSeries V7R1M0 巴克， 感谢您花时间发表评论……不过，我向您保证，我的iSeries实际上运

在rpg程序中，如果设置*inRT指示器，只要活动组处于活动状态，该程序就会一直保留在内存中。 因此，即使程序已返回，也可以在程序中调用回调函数 我想知道我是否能在ILE C++程序中做同样的事情。 我已经尝试过了，当我调用一个结束的ILE C++程序的函数时，我有一个MCH3402消息试图引用一个不再存在的对象的全部或部分< /P> 当然，我可以编写一个服务程序而不是一个程序，但这将使我改变很多事情。 所以在做之前，我想知道我是否可以在ILE C++程序中做一些类似于RPG*iRT= *的事情

当试图通过DataStudio在IBMi（iSeries）上部署DB2存储过程时，状态窗口中会显示“找不到例程的构建服务” 我在首选项->数据管理->SQL开发->例程->部署选项->SQL-External中看到了选项。默认情况下，在SYSPROC模式中，这是由构建实用程序名DSNTPSMP填充的，但这不是iSeries中存在的。有人知道iSeries上的等效模式和程序吗？该设置用于部署到z/OS，而不是IBM i。一般来说，IBMi上的外部SQL例程是一个HLL，类似于单独创建的RPG或Co

有人能帮我写一个AS400程序的宏，每5分钟刷新一个特定的页面。它应该是一个无限循环，我可以通过点击程序中的停止按钮来停止。我试着录下宏，但我不知道怎么做循环 谢谢大家! 这是我在录制宏时得到的。。。（.mac文件） 循环的一种方法是执行WHILE或DO-UNTIL。您可能希望显示一个消息框，要求用户退出。尝试： Do While 1 = 1 subSub1_ result = MsgBox("Exit?", vbOK, "Exit?") If result = vbOK

我有一个PF，在rpgle程序中引用。记录格式名称为“ROETBL” 现在，我根据生成的（内部）输入规范创建了一个具有不同名称的字段结构（C_u表示“复制”）： DC_ROETBL E DS EXTNAME(ROEPF:ROETBL) PREFIX(C_) 我该怎么做呢 C MOVE ROETBL C_ROETBL 编译器向RNF7260投诉：因子2中的ROETBL对于给定的操作无效 因

我的客户希望我制作一份报告，列出100个访问量最大的文件（PF），其中包含读取/写入/更新次数 到目前为止，我没有得出任何结论 它是PDI或iDoctor的产品还是其他产品？请查看视图 select table_schema, table_name, system_table_schema, system_table_name , insert_operations, update_operations, delete_operations from qsys2.systable

我正试图从RPGLE调用CL程序。 我以前没有这样做过。我一直都在做这件事（从一个CL打电话过来） 可能吗？通过callp或QCMDEXC？？？您可以从RPGLE调用任何程序，就像调用QCMDEXC一样，您必须使用extpgm关键字定义原型，并像过程一样使用它 dcl-pr name_inside_rpgle extpgm('*LIBL/CLPGMNAME'); // program name MUST be uppercased ... end-pr; name_inside_rpgl