用rpgle如何实现%abs函数？？？一直没想出来，求高手！！！

ping222s

如题，先谢谢了。。。

rolexliu

不知道你在说什么

first_come

小于0，乘-1不就可以了。

seraph0019

C                   Z-ADD     *ZERO         FIELD1            4 0      
C                   Z-ADD     -100          FIELD1                     
C     FIELD1        DSPLY                                               
C                   EVAL      FIELD1 = %ABS(FIELD1)                     
C     FIELD1        DSPLY                                               

刚才试了下 好用 不知道是不是你想要的  很久没有RPG4 了

ping222s

崩溃啊。。。大家貌似没明白我的意思！

如果%ABS(PARM1)是一个rpgle的函数，那么在函数中如何定义parm1呢？
因为parm1可以有多种类型。。。
如：10s 2
      10s 1
      15p 2
      ...
      ...
      ...

0406410525

定义一个满足你需要的数值型，如15S5，然后去传就可以了，前提是你%ABS(PARM1)的PARM1也是一样的定义

rolexliu

不就是取绝对值吗? 还是不明白你的问题是什么...

roden

估计楼主是想问怎么实现类似的功能,只要在pr和pi处定义返回，并在RETURN的时候，将值返回即可。
函数如下定义：
D IYR74           pr          1024    varying        
D  pOrgString                 1024    varying  value
D  pStarPos                      5P 0 value         
D  pLength                       5P 0 value         
D*                                                   
P IYR74           B                   EXPORT         
D IYR74           pi          1024    varying        
D  pOrgString                 1024    varying value  
D  pStarPos                      5P 0 value         
D  pLength                       5P 0 value         

C                   RETURN    P@SUBSTR


这样调用：
EVAL      W@STR = #SUBST(W@STR1 : W@STRPOS : W@LEN)

ping222s

回复 8# roden


    谢谢。。。。有思路了

ping222s

貌似还不行啊。。。。谁能提供一些思路呢？
有高手用rpgle做过类似的函数吗？？？