小编Kun*_*oy 的帖子

为什么 *inlr(最后一条记录指示器)在 rpgle 程序结束时打开

*inlr(最后一条记录指示器)在 rpgle 程序结束时打开。打开最后一条记录指示器的主要原因是什么。如果不打开此指示灯会发生什么。

rpg rpgle ibm-midrange

3
推荐指数
1
解决办法
162
查看次数

如何获取已为特定库绑定给定 RPGLE 模块的程序和服务程序列表

假设我有一个 Rpgle 模型名称和一个库名称。我如何为该库列表找出模块绑定到的程序和服务程序列表。

rpgle ibm-midrange

3
推荐指数
1
解决办法
79
查看次数

我有一个 PF ,如何获取正在使用该特定 PF 的程序列表?

我有一个特定的物理文件。如何获取正在使用该 PF 的程序列表。AS400 中是否有任何命令(或本机实用程序)可以获取该列表并将其放在输出文件中?

rpg rpgle ibm-midrange

3
推荐指数
1
解决办法
485
查看次数

在 RPGLE 中,如何检查 10 大小变量的最后 3 个字符是否为数字

我有一个大小为 10 的变量。它存储一个 10 大小的值,如“KUNAL12345”。如何检查值的最后 3 个字符是否为数字。在这种情况下,最后 3 个字符是 345,它是数值。

rpgle ibm-midrange

2
推荐指数
1
解决办法
197
查看次数

CRTPGM 和 UPDPGM 有什么区别

假设我的模块发生了一些变化,所以我必须更新服务程序,结果签名发生了变化。那么我应该选择哪个选项呢?我应该使用 CRTPGM 或 UPDPGM 重新创建使用服务程序的程序。在这种情况下,您能区分 CRTPGM 和 UPDPGM 之间的区别吗?

rpgle ibm-midrange

2
推荐指数
1
解决办法
375
查看次数

rpgle(sqlrpgle) 中编译器指令 /Include 和 /copy 之间的区别

在 rpgle /sqlrpgle 代码中,我遇到了 /INCLUDE 和 /COPY 等编译器指令,有人可以告诉我两者之间的核心区别是什么,因为它们似乎几乎做了同样的事情。

rpg rpgle ibm-midrange

2
推荐指数
1
解决办法
481
查看次数

在rpg中使用激活组的真正优势是什么

有人可以告诉我使用激活组的真正优势是什么吗?我的意思是,除了我们可以一起停用一堆程序这一事实之外,激活组还为我们提供了比不使用它的真正优势。

rpg rpgle ibm-midrange

2
推荐指数
1
解决办法
354
查看次数

如何查询由提交的作业在 qtemp 中创建的文件

有一个作业被提交。该作业调用一个程序,该程序在其 qtemp 中创建一个临时文件。有人可以告诉我如何在作业的 qtemp 中查询该文件吗?

rpg rpgle ibm-midrange

1
推荐指数
1
解决办法
822
查看次数

原型未在名为 RPGLE 的程序中使用,但该程序仍然有效

我有一个程序 SS150R,其中 PI 声明为

Dcl-pi SS150R;                        
pCompcd Char(4);                  
ptrncd Packed(3:0);               
pErrMsg Char(30) options(*nopass);
pSuccess Char(1) options(*nopass);
End-pi;                                 
Run Code Online (Sandbox Code Playgroud)

没有为此(PI)声明原型(PR),但该程序仍然运行良好。

我的问题是,我一直读到,如果有一个命名的 PI ,如果它不是一个命名的 PI ,则必须声明原型

dcl-pi *n ;
Parm char(1) ;
end-pi ;
Run Code Online (Sandbox Code Playgroud)

那么就不需要原型声明了。有人可以解释一下,如果我的程序 SS150R 有一个指定的 PI 并且没有 PR,但它如何仍然有效?

注意:我的程序被旧的非RPG程序调用。

rpg rpgle ibm-midrange

1
推荐指数
1
解决办法
116
查看次数

如何在RPGLE中找到句子中特定单词的起始位置

假设一个句子是“How is Kunal”,如何使用RPGLE在该句子中找到单词Kunal的起始位置。

rpg rpgle ibm-midrange

0
推荐指数
1
解决办法
72
查看次数

标签 统计

ibm-midrange ×10

rpgle ×10

rpg ×7