如何在RPGLE中将数字型和字符型互换？？？？？

george251

我一般都是 用movel 直接赋值  

如果位数不等  用过 %int %dec  从字符转数字

我也想知道   数字转字 ...
seraph0019 发表于 2010-07-08 17:05

    V6R1有%CHAR 数字转字符， 是可以去掉零的

first_come

%DEC，具体怎么使用，DSPF中对应如何定义，%INT我试验过，没问题。
顺便说一下，那个方法就是你想知道的数字转字符去0的好方法？用RPGLE来实现的很多方法都可以，
check(RB)是可以的CHECK(FE)，不过在V5R3（我的版本里），需要自己定义下field exit key。

zhangv520

C                   Z-ADD     12345         INVN              8 0      
C                   MOVE    ...
HAPPY潜龙 发表于 2010-07-13 11:58

      谢谢！对了，RPGLE力是不是有函数能直接转换啊？

zhangv520

V6R1有%CHAR 数字转字符， 是可以去掉零的
george251 发表于 2010-07-14 08:13

    那怎么把数字转换成字符呢？

first_come

  那怎么把数字转换成字符呢？

这是个很简单的数学建模问题，自己想想看，用%SUBST，move什么的，很简单的。

zhangv520

这是个很简单的数学建模问题，自己想想看，用%SUBST，move什么的，很简单的。
first_come 发表于 2010-07-15 10:58

    谢谢 我试试

ll250240868

回复 6# HAPPY潜龙


    可以做个判断去0的速度做循环。做一个跟赋值长度一样的数组，每位元素一位长度，循环从叔祖的第一位开始，如果是0就赋空，最后那这个数组赋给那个字段