The DIVIDE statement divides one or more numeric data items by another.
  It stores the quotient and, for Formats 4 and 5, the remainder.

1 - 1format INTO

  The DIVIDE statement divides one or more numeric data items by another.
  It stores the quotient.

  Format 1 -

   DIVIDE srcnum INTO { rsult [ ROUNDED ] } ...

      [ ON SIZE ERROR stment ] [ NOT ON SIZE ERROR stment ]

      [ END-DIVIDE ]

 1.1 - srcnum

  is a numeric literal or the identifier of an elementary numeric item.

 1.2 - rsult

  is the identifier of an elementary numeric item.  It is the resultant
  identifier.

 1.3 - stment

  is an imperative statement.

2 - 2format INTO GIVING

  The DIVIDE statement divides one or more numeric data items by another.
  It stores the quotient.

  Format 2 -

   DIVIDE srcnum INTO srcnum GIVING { rsult [ ROUNDED ] } ...

      [ ON SIZE ERROR stment ] [ NOT ON SIZE ERROR stment ]

      [ END-DIVIDE ]

 2.1 - srcnum

  is a numeric literal or the identifier of an elementary numeric item.

 2.2 - rsult

  is the identifier of an elementary numeric item or an elementary
  numeric edited item.  It is the resultant identifier.

 2.3 - stment

  is an imperative statement.

3 - 3format BY GIVING

  The DIVIDE statement divides one or more numeric data items by another.
  It stores the quotient.

  Format 3 -

   DIVIDE srcnum BY srcnum GIVING { rsult [ ROUNDED ] } ...

      [ ON SIZE ERROR stment ] [ NOT ON SIZE ERROR stment ]

      [ END-DIVIDE ]

 3.1 - srcnum

  is a numeric literal or the identifier of an elementary numeric item.

 3.2 - rsult

  is the identifier of an elementary numeric item or an elementary
  numeric edited item.  It is the resultant identifier.

 3.3 - stment

  is an imperative statement.

4 - 4format INTO with REMAINDER

  The DIVIDE statement divides one or more numeric data items by another.
  It stores the quotient and remainder.

  Format 4 -

   DIVIDE srcnum INTO srcnum GIVING rsult [ ROUNDED ] REMAINDER remaind

      [ ON SIZE ERROR stment ] [ NOT ON SIZE ERROR stment ]

      [ END-DIVIDE ]

 4.1 - srcnum

  is a numeric literal or the identifier of an elementary numeric item.

 4.2 - rsult

  is the identifier of an elementary numeric item or an elementary
  numeric edited item.  It is the resultant identifier.

 4.3 - remaind

  is the identifier of an elementary numeric item or an elementary
  numeric edited item.

 4.4 - stment

  is an imperative statement.

5 - 5format BY with REMAINDER

  The DIVIDE statement divides one or more numeric data items by another.
  It stores the quotient and remainder.

  Format 5 -

   DIVIDE srcnum BY srcnum GIVING rsult [ ROUNDED ] REMAINDER remaind

      [ ON SIZE ERROR stment ] [ NOT ON SIZE ERROR stment ]

      [ END-DIVIDE ]

 5.1 - srcnum

  is a numeric literal or the identifier of an elementary numeric item.

 5.2 - rsult

  is the identifier of an elementary numeric item or an elementary
  numeric edited item.  It is the resultant identifier.

 5.3 - remaind

  is the identifier of an elementary numeric item or an elementary
  numeric edited item.

 5.4 - stment

  is an imperative statement.