Function

The MULTIPLY statement multiplies two numeric operands and stores the product in one or more data items.

num

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

rsult

is the identifier of an elementary numeric item. However, in Format 2, rsult can be an elementary numeric edited item. It is the resultant identifier.

stment

is an imperative statement executed when an on size error condition has occurred.

stment2

is an imperative statement executed when no on size error condition has occurred.

General Rules

1. In Format 1, the value of num is multiplied by the value of the first rsult. The product replaces the current value of the first rsult. The process repeats for each succesive occurrence of rsult.
2. In Format 2, the values of the two operands before the word GIVING are multiplied together. The product replaces the current value of each rsult.

Additional References

• Section 6.1.4, Scope of Statements
• Section 6.6.1, Arithmetic Operations
• Section 6.6.3, ROUNDED Phrase
• Section 6.6.4, ON SIZE ERROR Phrase

• Section 6.6.7, Overlapping Operands and Incompatible Data
• Section 6.6.2, Multiple Receiving Fields in Arithmetic Statements

Examples

Each of the examples assume these data descriptions and beginning values:

INITIAL VALUES

     03  ITEMA  PIC S99 VALUE 4.                     4
     03  ITEMB  PIC S99 VALUE -35.                 -35
     03  ITEMC  PIC S99 VALUE 10.                   10
     03  ITEMD  PIC S99 VALUE 5.                     5

1. Without GIVING phrase: RESULTS

   MULTIPLY 2 BY ITEMB. ITEMB = -70

2. SIZE ERROR phrase:
   (When the SIZE ERROR condition occurs, the values of the affected resultant identifiers do not change.)

   MULTIPLY 3 BY ITEMB ON SIZE ERROR ITEMB = -35 MOVE 0 TO ITEMC. ITEMC = 0

3. NOT ON SIZE ERROR phrase:

   MULTIPLY 2 BY ITEMB ON SIZE ERROR ITEMB = -70 MOVE 0 TO ITEMC NOT ON SIZE ERROR MOVE 1 TO ITEMC. ITEMC = 1

4. END-MULTIPLY and MULTIPLY results with SIZE ERROR:
   (The stment in the SIZE ERROR phrase executes if any operation causes a size error condition. The first MULTIPLY statement terminates with END-MULTIPLY. The second MULTIPLY executes whether or not the SIZE ERROR condition occurs.)

   MULTIPLY 4 BY ITEMA ITEMB ITEMC ON SIZE ERROR MOVE 1 TO ITEMD END-MULTIPLY MULTIPLY 2 BY ITEMA ITEMB ITEMC ON SIZE ERROR ADD 1 TO ITEMD END-MULTIPLY.

   After First MULTIPLY	After Second MULTIPLY
   ITEMA = 16	ITEMA = 32
   ITEMB = -35	ITEMB = -70
   ITEMC = 40	ITEMC = 80
   ITEMD = 1	ITEMD = 1

   
   If the initial value of ITEMB had been -20, a SIZE ERROR condition would not have occurred during the first MULTIPLY. However, the second MULTIPLY would have caused the condition:

   After First MULTIPLY	After Second MULTIPLY
   ITEMA = 16	ITEMA = 32
   ITEMB = -80	ITEMB = -80
   ITEMC = 40	ITEMC = 80
   ITEMD = 5	ITEMD = 6