DIVIDE

Format 1

DIVIDE divisor INTO { result [ROUNDED] } ...

     [ ON SIZE ERROR statement ]

     [ NOT ON SIZE ERROR statement ]

     [ END-DIVIDE ]


Format 2

DIVIDE divisor INTO dividend

       GIVING { result [ROUNDED] } ...

     [ ON SIZE ERROR statement ]

     [ NOT ON SIZE ERROR statement ]

     [ END-DIVIDE ]


Format 3

DIVIDE dividend BY divisor

       GIVING { result [ROUNDED] } ...

     [ ON SIZE ERROR statement ]

     [ NOT ON SIZE ERROR statement ]


     [ END-DIVIDE ]


Format 4

DIVIDE divisor INTO dividend GIVING result [ROUNDED]

       REMAINDER remainder

     [ ON SIZE ERROR statement ]

     [ NOT ON SIZE ERROR statement ]

     [ END-DIVIDE ]


Format 5

DIVIDE dividend BY divisor GIVING result [ROUNDED]

       REMAINDER remainder

     [ ON SIZE ERROR statement ]

     [ NOT ON SIZE ERROR statement ]

     [ END-DIVIDE ]