FM (Convertion Exit) для полей с количеством.

Столкнулся с необходимостью создать подпрограмму преобразования для полей с количеством.
Данный код является примером.