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

zhangv520

最好给举个小例子!~xiexie

seraph0019

我一般都是 用movel 直接赋值  

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

我也想知道   数字转字符怎么转  因为 数字前面默认一堆0  最好把0去掉了转

gto1101

应该有EDTCDE可以去掉数字前面的00000
move 直接吧数字转字符

cross810

MOVE强转

first_come

MOVE强转

强转就可以了：
下面这样也可以，不用转...
D       DS
D   X       S      6        1   6
D   Y        S     6     0  1   6
如果长度不等，可以直接转的（具体的影响最好自己debug看下，结果）。
字符型的定义字符型，数字型，定义数字型，然后用move操作就OK了，具体的位数，move了之后。
看是字符（movel/subst/）还是数字，自己控制一下就可以。

HAPPY潜龙

MOVE强转 数字转字符  成功后前面默认一堆0  有什么方便的方法把0去掉???

first_come

MOVE强转 数字转字符  成功后前面默认一堆0  有什么方便的方法把0去掉???

给那个你要显示的字符，CHECK(RB)，应该可以实现。

HAPPY潜龙

C                     MOVE INVN      INVC    8     
C                     Z-ADD0         N       20   
C                     MOVE '0'       K       1     
C           K         CHECKINVC:1    N            
C           9         SUB  N         M       20   
C           M         SUBSTINVC:N    KEY01   8     

成功把INVN (8,0的数字) 转换成为KEY01 (8位长度的字符)

zhangv520

C                     MOVE INVN      INVC    8     
C                     Z-ADD0         N       20 ...
HAPPY潜龙 发表于 2010-07-12 15:40

     RPGLE 怎么样实现?

HAPPY潜龙

C                   Z-ADD     12345         INVN              8 0      
C                   MOVE      INVN          INVC              8        
C                   Z-ADD     *ZERO         N                 2 0      
C                   MOVE      '0'           K                 1        
C     K             CHECK     INVC:1        N                          
C     9             SUB       N             M                 2 0      
C     M             SUBST     INVC:N        KEY01             8        

只是格式有点不同罢了