SUBTRACT

General Format

Format 1

SUBTRACT { Indentifier-1 } ... FROM { Identifier-2 [ROUNDED] } ...           { Literal-1     }     [ ON SIZE ERROR Imperative-Statement-1 ]      [ NOT ON SIZE ERROR Imperative-Statement-2 ]      [END-SUBTRACT]

Format 2

SUBTRACT { Indentifier-1 } ... FROM { Identifier-2 } ...          { Literal-1     }          { Literal-2    }     GIVING { Identifier-3 [ROUNDED] } ...      [ ON SIZE ERROR Imperative-Statement-1 ]      [ NOT ON SIZE ERROR Imperative-Statement-2 ]      [END-SUBTRACT]

Format 3

SUBTRACT { CORRESPONDING }{ {Identifier-4} } ... FROM { {Identifier-5} } ...          { CORR          }   [ ON SIZE ERROR Imperative-Statement-1 ]     [ NOT ON SIZE ERROR Imperative-Statement-2 ]     [END-ADD]

Syntax rules

Formats 1 and 2

1.	Identifier-1 and identifier-2 shall reference numeric data items.

2.	Literal-1 and literal-2 shall be numeric literals.

Format 2

3.	Identifier-3 shall reference a numeric data item or a numeric-edited data item.

Format 3

4.	CORRESPONDING and CORR are synonymous.

5.	Identifier-4 and identifier-5 shall reference a group item.

General rules

1.

When format 1 is used, the initial evaluation consists of determining the value to be subtracted, which is literal-1 or the value of the data item referenced by identifier-1, or if more than one is specified, the sum of such operands. The initial evaluation is subtracted from the value of the data item referenced by identifier-2 and the result is stored as the new value of the data item referenced by identifier-2.

 

When standard arithmetic is in effect, the result of the initial evaluation is equivalent to the result of the arithmetic expression

 

(operand-11 + operand-12 + ... + operand-1n)

 

where the values of operand-1 are the values of literal-1 and the data items referenced by identifier-1 in the order in which they are specified in the SUBTRACT statement. The result of the subtraction from the value of each data item referenced by identifier-2 is equivalent to the result of the arithmetic expression

 

(identifier-2 – initial-evaluation)

 

where initial-evaluation represents the result of the initial evaluation.

2.

When format 2 is used, the initial evaluation consists of determining the value to be subtracted, which is literal-1 or the value of the data item referenced by identifier-1, or if more than one is specified, the sum of such operands; and subtracting this value from literal-2 or the value of the data item referenced by identifier-2. The result is stored as the new value of the data item referenced by identifier-3.

 

When standard arithmetic is in effect, the result of the initial evaluation is equivalent to the result of the arithmetic expression

 

(operand-2 – (operand-11 + operand-12 + ... + operand-1n))

 

where the values of operand-1 are the values of literal-1 and the data items referenced by identifier-1 in the order in which they are specified in the SUBTRACT statement and the value of operand-2 is the value of either literal-2 or the data item referenced by identifier-2 in the SUBTRACT statement.

3.	In Format 3, elementary numeric items in Identifier-4 are subtracted from the corresponding items in Identifier-5. The values are then stored in Identifier-5.

Examples

Format 1 - Subtract several variables and literals from variable

move 100 to num-result move 10 to num-1 move 5 to num-2 subtract num-1 num-2 10 from num-result *> new value for num-result : 75

Format 2 - Subtract several numbers from number and leave result on another variable validating size error

subtract 10 20 30 from 100    giving num-result   on size error display message "Size error on num-result!" end-subtract *> new value for num-result : 40

Format 3 - Subtract values of one group data item from another group with corresponding sub-items

working-storage section. 01 work-hours.    05 test-hours    pic 9(3) value 10.    05 doc-hours     pic 9(3) value 11.    05 support-hours pic 9(3) value 12. 01 notconfirmed-work-hours.    05 test-hours    pic 9(3) value 2.    05 doc-hours     pic 9(3) value 4.    05 support-hours pic 9(3) value 2.   procedure division. add-hours.    subtract corresponding notconfirmed-work-hours from work-hours        on size error display message "Error subtracting from work-hours"        not on size error            display message                     test-hours    of work-hours " , "                    doc-hours     of work-hours " , "                    support-hours of work-hours    end-subtract