SUBTRACT

Format 1

SUBTRACT {number} ... FROM { result [ROUNDED] } ...

     [ ON SIZE ERROR statement-1 ]

     [ NOT ON SIZE ERROR statement-2 ]

     [ END-SUBTRACT ]

Format 2

SUBTRACT {number} ... FROM number

       GIVING { result [ROUNDED] } ...

     [ ON SIZE ERROR statement-1 ]

     [ NOT ON SIZE ERROR statement-2 ]

     [ END-SUBTRACT ]

Format 3

SUBTRACT {CORRESPONDING} group-1 FROM group-2 [ROUNDED]
         {CORR         }

     [ ON SIZE ERROR statement-1 ]

     [ NOT ON SIZE ERROR statement-2 ]

     [ END-SUBTRACT ]

Format 4

SUBTRACT TABLE src-table FROM dest-table [ROUNDED]

    [ FROM INDEX src-start TO src-end ]

    [ DESTINATION INDEX dest-start ]

    [ ON SIZE ERROR statement-1 ]

    [ NOT ON SIZE ERROR statement-2 ]

    [ END-SUBTRACT ]