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-ADD ]