关于字符型变量转数字型的问题？

chinagirlwang

C                   move      '123     '    IN                8   
C                   Z-ADD     0             OUT               8 0
怎样才能得到： out = 00000123
??

sa_hata

C                          move  '123 '   IN      8   
C                          TESTN            IN                                90            
* XIN IS NUMBER  90 EQ ON                                 
C           *IN90     IFEQ   *ON                                                                                             
C                          MOVE XIN      OUT    80
C                          ENDIF


这个方法有点笨,不过可以拿到你想要的数字 .

[ 本帖最后由 sa_hata 于 2006-5-24 15:14 编辑 ]

xuguopeng

可能需要用数组把字符变为右存放的形式,然后通过XLATE函数替换空格才行吧

chinagirlwang

终于搞定了。
D in              S              8A   varying inz('12312   ')           
c*                                                                     
C                   Z-ADD     0             OUT               8 0      
C                   Z-ADD     0             temp              8 0      
c*                                                                     
c                   eval      temp = %len(%trim(in))                    
c                   eval      %len(in) = temp                           
c                   move      in            out                        
c*                                                                     
C                                                                       
C

fxf_china

不懂rpgle啊，
eval      %len(in) = temp           这句什么意思啊

chinagirlwang

原帖由 fxf_china 于 2006-5-24 17:13 发表
不懂rpgle啊，
eval      %len(in) = temp           这句什么意思啊

%len有两个作用，get , set长度。

eval      %len(in) = temp  在这里是set, in变量的长度为 temp那么长。但是in必须是动态的.

fxf_china

IN本来是8位的，居然能够变成5位的！好厉害

sa_hata

原帖由 chinagirlwang 于 2006-5-24 16:47 发表
终于搞定了。
D in              S              8A   varying inz('12312   ')           
c*                                                                     
C                   Z-ADD     0     ...

RPG4   一定得要找些资料看看 ....