6.8. Příkaz MULTIPLY Formát 1: MULTIPLY {numerická-položka | numerický-literál} BY {numerická-položka [ROUNDED]} ... [ON SIZE ERROR příkaz ... ] Funkce: Do každé z příjmových položek uvedených za slovem BY se uloží její původní hodnota vynásobená násobitelem uvedeným za slovem MULTIPLY. Příklad: Příkaz MULTIPLY A BY B je ekvivalentní s příkazem COMPUTE B = B * A. Příklad: Příkaz MULTIPLY A BY A B C je ekvivalentní s příkazy MOVE A TO POM COMPUTE A = A * POM COMPUTE B = B * POM COMPUTE C = C * POM Formát 2: - - - - | numerická-položka | | numerická-položka | MULTIPLY < > BY < > | numerický-literál | | numerický-literál | - - - - GIVING {numerická-položka [ROUNDED]} ... [ON SIZE ERROR příkaz ... ] Funkce: Do každé z příjmových položek uvedených za slovem GIVING se uloží součin hodnoty násobence uvedeného za slovem BY a hodnoty násobitele uvedeného za slovem MULTIPLY. Původní hodnoty příjmových položek jsou bezvýznamné. Hodnota násobence (za BY) ani násobitele (za MULTIPLY) se nezmění. Příklad: Příkaz MULTIPLY A BY B GIVING C je ekvivalentní s příkazem COMPUTE C = B * A. Příklad: Příkaz MULTIPLY A BY B GIVING C D E je ekvivalentní s příkazy COMPUTE POM = B * A MOVE POM TO C D E