как найти модуль числа?
есть стандартная функция?

Спасибо.

а если взять максимальное из -b и b?

нашел - abs

Ещё несколько вариантов:

1) modulus = b * SIGN( b ).

2) IF. b < 0. modulus = -1 * b. ELSE. modulus = b. ENDIF.

3) write b to char_modulus no-grouping no-sign left-justified.

Для целых чисел:

4) i_modulus = SQRT( b ** 2 ).