小编tar*_*ils的帖子

如何在 RPGLE 中获取角色的 EBCDIC 值?

我需要某种方法将 RPGLE 中的单个字符转换为整数 - 有没有人知道一个好方法?它必须适用于所有可能的输入,并且理想情况下为每个输入提供不同的整数 - 至少它必须为所有常见输入提供不同的值。我并不特别关心整数是什么。在类似 C 的语言中,我会采用 ASCII 值或类似的值 - 理想情况下我想要与它等效的东西。

说明我希望它如何工作的示例:

characterData = "Hello";
for i = 1 to %len(string);
    singleCharacter = %subst(characterData:i:1);
    number = myFunction(singleCharacter);
    dsply 'The value of ' + singleCharacter + ' is ' + %char(number);
endfor;
Run Code Online (Sandbox Code Playgroud)

这将打印

H 的值为 72
e 的值为 101
l 的值为 108
l 的值为 108
o 的值为 111

但请注意,我实际上并不关心数字是什么,只是每个输入的数字都不同。

所有这些都有助于在 RPGLE 中为字符数据构建哈希函数,因此如果您知道这样做的好方法,那将是一个更好的答案。

rpg rpgle ibm-midrange

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

标签 统计

ibm-midrange ×1

rpg ×1

rpgle ×1