%ABS FUNCTION IN RPGLE

 FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
        *************** Beginning of data *************************************
0001.00 DA                S              1S 0 INZ(-4)                          
0002.00 C                   EVAL      A=%ABS(A-2)                              
0003.00 C     A             DSPLY                                              
0004.00 C                   SETON                                        LR    
        ****************** End of data ****************************************


ABS FUNCTION IN RPG


what IS OUTPUT