How do you get the modulus of two numbers in easytrieve?

FELD-01 W 6 P VALUE 13 . * DIVIDEND

FELD-02 W 6 P VALUE 05 . * DIVISOR

FELD-03 W 6 P VALUE 00 . * QUOTIENT

FELD-04 W 6 P VALUE 00 . * WORK

FELD-05 W 6 P VALUE 00 . * MODULUS

*

JOB INPUT(NULL)

*

* 13 / 5 = 2 MOD 3

*

FELD-03 = FELD-01 / FELD-02 . * 13 / 5 ==> 02

FELD-04 = FELD-02 * FELD-03 . * 2 * 5 ==> 10

FELD-05 = FELD-01 - FELD-04 . * 13 - 10 ==> 03

*

DISPLAY FELD-01 ' / ' FELD-02 ' = ' FELD-03 ' MOD ' FELD-05

*