6.6. Příkaz ADD

          Formát 1:

          ADD {numerická-položka | numerický-literál} ...

               TO {numerická-položka [ROUNDED]} ...

               [ON SIZE ERROR příkaz ... ]

          Funkce: Do každé z příjmových položek uvedených za slovem TO
          se uloží její původní hodnota zvětšená o součet hodnot všech
          operandů uvedených mezi slovy ADD a TO.

          Příklad: Příkaz ADD A B C D TO E  je ekvivalentní s příkazem
          COMPUTE E = E + A + B + C + D.

          Příklad:  Příkaz  ADD A B C D TO E ROUNDED F G ROUNDED H  je
          ekvivalentní s příkazy

               COMPUTE POM = A + B + C + D
               ADD POM TO E ROUNDED
               ADD POM TO F
               ADD POM TO G ROUNDED
               ADD POM TO H

          Příklad: Příkaz  ADD se nejčastěji  používá v nejjednodušším
          možném tvaru "ADD 1 TO A" nebo ADD A TO B".

          Formát 2:

          ADD {numerická-položka | 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čet  hodnot všech operandů uvedených mezi
          slovy ADD a GIVING.  Původní hodnoty příjmových položek jsou
          bezvýznamné.

          Příklad:   Příkaz   ADD A B C D GIVING E   je   ekvivalentní
          s příkazem COMPUTE E = A + B + C + D.

          Příklad: Příkaz

          ADD A (I J K) -1.5 B OF C GIVING I ROUNDED J E (I J) ROUNDED

          je ekvivalentní s příkazy

               COMPUTE POM = A (I J K) + -1.5 + B OF C
               COMPUTE I ROUNDED = POM
               COMPUTE J = POM
               COMPUTE E (I J) ROUNDED = POM

          Poznámka: V jednom příkazu ADD nesmí tedy být současně slova
          TO a GIVING.