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
*