Ibm midrange IBM i RPG程序什么都不做

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

Ibm midrange 必须从生产主表中删除记录

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

Ibm midrange AS400 RPGLE/free针对数据结构的嵌入式SQL

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

Ibm midrange FIELDPROC参数解析

我试图在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

Ibm midrange CLP中的CPYTOPCD命令成功复制了DB2文件(包含XML),但该文件未显示在QDL子文件夹中

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

Ibm midrange 在RPG中重写。

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

Ibm midrange 将源代码作为文本复制到IFS时出现问题,映射错误

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

Ibm midrange 检索记录问题

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

Ibm midrange IBMDB2:如何更改视图';是否在不删除结构的情况下重新创建?

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

Ibm midrange CL(IBMi系列)中的程序,它使库对象失效?

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

Ibm midrange 如何使用挂起的更改调用ENDCMTCTL?

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

Ibm midrange 在IBM iSeries上编写存储过程

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

Ibm midrange iSeries内存利用率详细信息或报告

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

Ibm midrange iSeries-按相同作业/会话记录锁定

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

Ibm midrange 在AS400中显示新窗口时如何删除以前的窗口

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

Ibm midrange IBM中的CDC引擎,无法启动TCP侦听器作业

我为我的客户机为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

Ibm midrange 如何在CL程序中访问当前库的名称?

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

Ibm midrange 如何在不使用指示器停用其命令功能的情况下禁用显示文件中的功能键?

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

Ibm midrange CLLE中的微调变量

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

Ibm midrange 我可以在rpgleref源中使用/free而不使用/end free吗?

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

Ibm midrange 如何在AS400中查看触发器定义

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

Ibm midrange AS400 RPG DSPF字符级颜色更改

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

Ibm midrange 带变量的类DB2运算符

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

Ibm midrange 从AS400以excel格式发送数据库文件

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

Ibm midrange 在调试模式下使用F10单步执行时,初始化大记录大约需要20分钟

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

Ibm midrange 如何创建分区as/400 DDS定义

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

Ibm midrange IBM i(AS400)文件传输问题。英镑符号更改

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

Ibm midrange 从SQL+;更新时创建日记账分录;AS400

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

Ibm midrange 从RPG程序返回任意二进制数据

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

Ibm midrange 如何获取RPGLE中字符类型变量的长度?

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

Ibm midrange 是否可以将一种显示文件记录格式粘贴到另一种格式的中间?

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

Ibm midrange AS/400逻辑文件

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

Ibm midrange ILE RPG程序变量值能否在调用之间保留在内存中?

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

Ibm midrange 理解ibmi中的DSPPGM命令

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

Ibm midrange 库列出并提交作业--AS400

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

Ibm midrange 如何在笔记本电脑上使用as400仿真器tn5250进行上下翻页

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

Ibm midrange 禁用Fn键Dspf Rpgle

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

Ibm midrange 将.01转换为0.01&;-。01至-0.01英寸

我正在寻找将.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

Ibm midrange CL编程:CPF9841:在指定级别未找到覆盖错误

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

Ibm midrange 编译器使用qsort失败

我使用创建绑定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.

Ibm midrange 需要帮助从as400系统中获取数据吗

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

Ibm midrange 是否可以捕获RPG程序中程序调用引发的错误消息?

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

Ibm midrange iSeries数据源锁定

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

Ibm midrange 调用程序中已返回的函数

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

Ibm midrange 通过DataStudio为DB2forIBMi(iSeries)构建存储过程失败

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

Ibm midrange 需要创建循环宏IBM i(as400)

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

Ibm midrange 将隐式变量从外部定义的文件复制到IBMi上的结构中

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

Ibm midrange IBMi上的物理文件(表)性能

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

Ibm midrange 从RPGLE程序问题调用CL程序

我正试图从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

  1    2   3   4   5   6  ... 下一页 共 6 页