问题标签 [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 投票
1 回答
660 浏览

ibm-midrange - 使用 DSPATR(&ATTR) 在支持 RED 输入的字段中显示 CS(列分隔符)

我正在显示来自 RPG 的 DSPF 格式,不使用指示符,但 P-field 属性可以改变颜色和输入能力。Turquoise 和 Yellow 字段默认具有 CS(列分隔符)。如果我使用带有指标的格式,则在记录级别带有 CHGINPDFT(CS) 的可输入红色字段会显示点。我没有成功获得带有属性的点,也没有在字段级别使用另一个 CHGINPDFT(CS)。DSPF 中是否有一个选项(关键字)允许我使用 RED 和 CS,具有 P 字段属性?

我添加了我的客户端访问会话的屏幕图像,所有默认值 在此处输入图像描述

字段alter“Titolo”是红色的,没有CS,不可能吗?

0 投票
3 回答
2334 浏览

ibm-midrange - 如何为给定条件的字段选择最大值?

我正在做考勤系统,其中我的物理文件(PF)具有以下字段:

问题是,我尝试选择特定的用户 ID 和日期以及当天的最高超时值。并将超时值移动到我程序中的变量中。

RPGLE 源代码会是什么样子?

0 投票
3 回答
5244 浏览

ibm-midrange - 如何为 RPG 或 CL 程序中的激活组设置编译器选项?

有没有办法为程序源指定,在编译期间应该使用哪些激活组选项?

在我们在 as/400 上的大多数程序中,我们需要更改激活组的处理方式(因为默认行为根本没有用......)。每次编译其中一个程序时,我都必须记住设置编译器选项(在 PDM 中: enter 14、 hit F4、 change DFTACTGRPfrom *YESto *NO、 hit enter、 change ACTGRPto *NEWor *CALLER,具体取决于程序)。所以我们有很多程序开头都有注释,有大量的感叹号,提醒程序员这样做。是的,有时你会忘记。

有什么诀窍,让你不必记住自己吗?

0 投票
1 回答
1429 浏览

colors - 如何定义要在 RPG 中用于子文件显示的颜色

如何在某些条件执行时为子文件中的特定记录设置颜色?我有一个显示文件,其中定义了 SFL 和 CTL。我在哪里可以参考 DSP 文件中的指标或在 RPG 中使用它们来触发适当的调节。

例如:

我现在只想在我的子文件中显示年龄大于 30 岁的记录。(age>30) 我想要那些以不同颜色检索的记录。

0 投票
2 回答
92 浏览

ibm-midrange - 只能读取一个值

我编写了一个程序来读取物理文件:

我允许用户输入日期、时间和超时。

当然它会复制 USRID

在我的程序中,我检查以前的最大值,如下所示:

我有以下用户:

但是当我尝试与以前的值进行比较时。我的程序只能检查 user A000000001,而不是其他用户。

如何修改程序以便检查所有用户?

0 投票
1 回答
683 浏览

ibm-midrange - 具有不同的记录格式与具有单独的显示文件

对于在 AS400 上开发的应用程序的每个类别有不同的显示文件是否更好,或者创建不同的记录格式(或同一 DSPF 中的多个文件的 RECORD 格式类型)是合适的。

我有 4 个屏幕要显示。我应该在 1 个 DSPF 中创建 4 个不同的 DSPF 文件或 4 种不同的格式类型,请指导。

0 投票
2 回答
1950 浏览

database - 将日期字段值保存到物理文件中

我有一个日期字段,它接受 AS400 中的系统日期

显示文件包含 *DATE 的日期字段

我有一个包含日期列的物理文件。当我尝试将屏幕的其他字段保存到此物理文件时,我还想保存此系统日期。

但是我无法向这个内置的 Date 函数添加字段名称。

我怎么能在我的显示屏幕上有一个日期字段,它会自动接受系统日期并具有 DD/mm/yy 格式的输入格式,但在数据库内部它必须将其保存为 yy/mm/dd。

为了在我的日期格式数据库中进行这种内部转换,我初始化了一个名为“日期”的日期字段,长度为 6,压缩十进制,0 小数位。

请指导如何以这种格式将屏幕上的系统日期保存到物理文件中。

重新编辑:我有一个等级的 PF 接收日期定义如下。(其 DDS)

我避免使用“L”数据类型作为日期,因为我想执行上面解释的日期转换。

0 投票
3 回答
1514 浏览

drop-down-menu - AS400 显示文件中的下拉菜单

在 AS400 中,是否可以在显示文件“RECORD”类型的记录格式中有一个下拉菜单。

但是对于其中一个选项,我还想打开一个菜单,一个子菜单,而不是在同一个屏幕上(如下拉菜单)。我知道显示下拉菜单的记录类型......但我该怎么做通过 CL 调用它我不确定。

请帮助人们。

0 投票
3 回答
581 浏览

db2 - 验证用户、密码并打开 rpgs 菜单

我的 AS400(rpg400) 应用程序中有一个登录模块。这里验证了用户名和密码,并且只有当密码匹配时,用户才能访问菜单屏幕,该屏幕进一步包含 rpg 程序以导航到后续模块。

我现在想要实现的是当用户被验证时,登录的用户名必须出现在每个屏幕上,或者更确切地说是每个被调用的 rpg 屏幕上。(即必须维护用户会话)请不要指导管理属性。这是来自低水平的工作点。

以下是关于用户的 PF:

键入用户类型。如何允许所有 pgms 访问已登录人员的变量?

0 投票
2 回答
2344 浏览

ibm-midrange - 显示加载了已排序数据库记录的子文件

例如,假设我有这些表:

USRMF(主要物理文件)

USRTS

我的子文件应该看起来像这样:

*此子文件显示每个用户和日期的摘要数据:第一次进入和最后一次退出。该名称应从其他数据库表 (USRMF) 中读取,并且应按考勤卡日期排序。

如果用户将选项 5 放在子文件的第三行,其中用户 id:A000001 用户名:samuel 和日期 090812,则将显示下一个子文件屏幕。

该子文件应列出所选日期和人员的所有进出时间。

我该怎么做这个程序????????? 特别是对于第一个子文件.???????