问题标签 [rpg]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
2 回答
4011 浏览

programming-languages - RPG III:如何将数组重新定义为单独的字段,就像在 COBOL 中一样

在 RPG III 中,我需要在文件中存储一个巨大的数组。最大字段长度为 256,因此我用 16 个字段定义了文件,每个字段长度为 250 个字符。有没有办法将数组的 1000 个值放入 16 个字段而不移动?就像 COBOL 中的 REDEFINES 一样?

程序中的数组:

文件规范:

在 Cobol 我会写:

读取文件我得到数组 MPDV 及其值和 MPDV 中的值我可以写入文件。

我的解决方案如下所示:一个额外的数组

和很多动作:

并反向阅读。

0 投票
4 回答
9537 浏览

java - IBM iSeries 上的 RPG 到 Java 迁移

我们公司使用 IBM iSeries 进行大部分数据处理。我们所有的内部应用程序都是用 RPG 编写的。根据 IBM 的路线图,IBM 正在推动公司转向 Java/J2EE。我们正在寻求将我们的内部应用程序现代化,使其具有更多的 GUI 界面。我们通过使用 Asp.Net 网络提供外部网络存在,尽管也许新建项目可能是 Java。一种选择是在使用 RPG 的同时使用屏幕抓取应用程序,但我认为慢慢走 IBM 的路线图并转向 Java 可能会更好。我们的目标是迁移到 GUI 界面并与 IBM 的路线图保持一致。

您是否参与了从 RPG 到 Java 的迁移,即使只有新建项目是 Java 而棕地项目仍然是 RPG?

我的管理层担心:

1) 在工作站上更新 JRE,尤其是瘦客户端,可能会导致管理上的噩梦(我们公司使用 80% 的瘦客户端和 20% 的 PC)和

2) Java 需要过多的工作站开销才能有效运行

3) 我们更新时 JRE 客户端之间的不兼容,可能会破坏其他需要 JRE 的应用程序。

你能对此有所了解吗?有什么巨大的好处吗?有什么大问题吗?

澄清:我只对迁移到 Java 感兴趣。从 RPG 到 Java 的难度是多少?我会失去什么吗?迁移到 Java 后,屏幕是否反应灵敏?

0 投票
3 回答
1169 浏览

odbc - 使用 Iseries ODBC 时如何定义调用程序?

使用 Iseries ODBC 驱动程序时,有没有办法定义调用“程序名称”?当我使用 Iseries Access ODBC 驱动程序对我们的 AS400 运行命令时,as400 调用堆栈中的调用程序将程序名称显示为空白。我想定义一个,因为我们有一个需要知道谁是调用者的触发器。

0 投票
3 回答
1313 浏览

version-control - Aldon 和 CVTRPGSRC 从 RPGIII 到 RPGIV

我有一个想要从 RPGIII 转换为 RPGIV 的程序。我不知道如何让 ALDON 去做。我在 iSeries 上使用 7.5E 版(绿屏)。

我已经在 ALDON 之外转换了源,在 ALDON 中我已经将检出对象(选项 16)从 RPG 更改为 BND 的 RPGLE 扩展属性。这将起作用,但是,源仍然在 QRPGSRC 物理源文件(92 列)而不是 QRPGLESRC(112 列)中。我实际上已经丢失了原始来源中可能存在的任何评论。ALDON 中的选项 16 不允许您更改源文件。

感谢您的任何帮助,您可以提供。

0 投票
2 回答
424 浏览

ibm-midrange - rpg as400 标题打印 2 倍?

标题打印在报告的开头和结尾。我觉得我的LR错了。有什么帮助吗?

0 投票
4 回答
4243 浏览

ibm-midrange - RPG程序中的DSPATR(PR)保护场地

我正在 IBM 开发软件上开发 RPG 程序

发生的事情是我正在创建一个带有输入字段的显示文件

我正在努力完成一项任务。

如果他们已经输入了所有字段并且显示了其他记录,我想保护他们只输入值直到他们按下回车键的字段

但我很困惑如何使用 DSPATR(PR) 来保护现场

0 投票
1 回答
348 浏览

ibm-midrange - Tabsequence un a DSPF subfile vertical, with multicolumn subfile

是否有一个 DSPF 关键字,它定义在多列子文件中,当从列中的最后一个字段到达时,光标跳转到同一列上出现的第一个字段,下一行,而不是默认行为, 同一行的下一个条目在哪里获得 corsur 位置?

如果我有

C=列,F=字段

在 C1F2a 上的标签应该让我在 C1F1b 上。C1F2c 上的选项卡应该让我进入 C2F1a。

0 投票
3 回答
4245 浏览

ibm-midrange - 如何学习RPG/400

我从我的讲师那里听说了 RPG 编程。我想试一试。问题在于,我如何进行编程?我不知道适合需求的操作系统和 IDE。有什么帮助吗?

0 投票
1 回答
1954 浏览

sql-server - AS400:如何知道哪个程序创建了一个文件?

我不是AS400专家,只知道一些命令,我​​将一些文件从 AS400 (iSeries) 导出到 SQL Server 2005。

实际上我需要知道哪个 RPG 程序在库中创建了一个文件。这是因为该文件包含来自存储在其他 AS400 库中的其他文件的统计数据。

此屏幕截图显示了STTMVF库中的文件DAT_4DWH(作者DSPLIB DAT_4DWH

在此处输入图像描述

所以有一个命令让我知道哪个 RPG 程序创建了文件 STTMVF ?

如果是,我需要打开源 RPG 或 CL 并尝试了解哪些物理文件用于组成此统计文件。

提前致谢!

0 投票
3 回答
515 浏览

ibm-midrange - 我可以在 rpgleref 源代码中使用没有 /end-free 的 /free 吗?

我正在编写一组程序来创建、编写和编译一组 SQLRPGLE 程序。我的程序开头的很多代码在我拥有的每个程序中都重复了,所以我把它放到参考源中是有意义的......它大致的形式

然后我的元程序出现并添加了很多代码。此时我的程序看起来像这样

当我编译它时它不起作用 - 我认为这是因为程序无法正确匹配 /free 和 /end-free ......对吗?还是我在这里错过了一些更微妙的东西?

干杯