function sign (arg-1) |
$sign (arg-1) |
working-storage section. 77 var pic s9(9). ... procedure division. ... evaluate function sign(var) when -1 |var contains a negative value when 0 |var contains zero when 1 |var contains a positive value end-evaluate. |