如何在RPGLE中將數(shù)字型和字符型互換？？？？？

zhangv520

最好給舉個(gè)小例子!~xiexie

seraph0019

我一般都是 用movel 直接賦值  

如果位數(shù)不等  用過(guò) %int %dec  從字符轉(zhuǎn)數(shù)字

我也想知道   數(shù)字轉(zhuǎn)字符怎么轉(zhuǎn)  因?yàn)?數(shù)字前面默認(rèn)一堆0  最好把0去掉了轉(zhuǎn)

gto1101

應(yīng)該有EDTCDE可以去掉數(shù)字前面的00000
move 直接吧數(shù)字轉(zhuǎn)字符

cross810

MOVE強(qiáng)轉(zhuǎn)

first_come

MOVE強(qiáng)轉(zhuǎn)

強(qiáng)轉(zhuǎn)就可以了：
下面這樣也可以，不用轉(zhuǎn)...
D       DS
D   X       S      6        1   6
D   Y        S     6     0  1   6
如果長(zhǎng)度不等，可以直接轉(zhuǎn)的（具體的影響最好自己debug看下，結(jié)果）。
字符型的定義字符型，數(shù)字型，定義數(shù)字型，然后用move操作就OK了，具體的位數(shù)，move了之后。
看是字符（movel/subst/）還是數(shù)字，自己控制一下就可以。

HAPPY潛龍

MOVE強(qiáng)轉(zhuǎn) 數(shù)字轉(zhuǎn)字符  成功后前面默認(rèn)一堆0  有什么方便的方法把0去掉???

first_come

MOVE強(qiáng)轉(zhuǎn) 數(shù)字轉(zhuǎn)字符  成功后前面默認(rèn)一堆0  有什么方便的方法把0去掉???

給那個(gè)你要顯示的字符，CHECK(RB)，應(yīng)該可以實(shí)現(xiàn)。

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的數(shù)字) 轉(zhuǎn)換成為KEY01 (8位長(zhǎng)度的字符)

zhangv520

C                     MOVE INVN      INVC    8     
C                     Z-ADD0         N       20 ...
HAPPY潛龍 發(fā)表于 2010-07-12 15:40

     RPGLE 怎么樣實(shí)現(xiàn)?

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        

只是格式有點(diǎn)不同罷了