小编mrs*_*ted的帖子

如何在部分自由格式 RPG 中将变量/字段值转换为 IBM 有符号数字值

我正在尝试将变量值从分区十进制格式转换为字符,但这样做时,我需要根据 IBM 标准将它们转换的代码,在旧的 RPG 代码中,大多数开发人员都使用操作码 MOVEL 和 MLLZO,但是什么是部分替代命令自由格式RPG。

 *For example, the result of below code will be var2 = 1234N 
D var1     s       10s 2    inz(-123.45)
D var2     s       10      
 /Free
C           MOVEL   var1 var2
            dsply var2;
            *Inlr = *on;
 /End-free
Run Code Online (Sandbox Code Playgroud)

rpgle ibm-midrange

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

标签 统计

ibm-midrange ×1

rpgle ×1