12.2 Plus of min

Het is gebruikelijk dat we een positief getal zonder teken vermelden. COBOL kent echter ook voorzieningen voor minder gebruikelijke situaties. Bijvoorbeeld de situatie dat we altijd een teken voor een getal willen zien. Een plusteken als het getal positief is, een minteken als het getal negatief is. Deze wens geven we aan met een plusteken:

01 temperatuur pic +Z9.
  

Hier volgen enkele move-opdrachten. Na de opdracht staat wat de inhoud van het veld temperatuur is geworden.

                                         inhoud
move -10 to temperatuur                   -10
move -5 to temperatuur                    - 5
move 0 to temperatuur                     + 0
move 5 to temperatuur                     + 5
move +10 to temperatuur                   +10
  

Let erop dat een plusteken niet betekent dat er altijd een plusteken komt. Er komt altijd een teken. Dat teken kan een plusteken of een minteken zijn.

Bij het boekhouden plaatst men soms het teken niet vóór het bedrag, maar erna. Ook dat is in COBOL mogelijk. Het plusteken of het minteken mag ook als laatste teken voorkomen in de picture-string. Behalve de plaats verandert er niks. Als er een minteken staat, verschijnt er een minteken bij een negatief getal en een spatie bij een positief getal. Staat er een plusteken dan komt er altijd een teken. Voorbeelden:

veldbeschrijving         move-opdracht           inhoud

01 veld pic zz9+         move 123 to veld        123+
01 veld pic zz9+         move -123 to veld       123-
01 veld pic zz9-         move 123 to veld        123
01 veld pic zz9-         move -123 to veld       123-
  

Speciaal voor de boekhouders heeft COBOL nog meer mogelijkheden om een negatief getal aan te duiden. Als het getal negatief is, kan men de twee letters DB of de twee letters CR achteraan krijgen. Banken noemen negatieve bedragen debet en willen dan DB bij de bedragen zien; handelsondernemingen noemen negatieve bedragen credit en zij willen CR bij de bedragen zien. In beide gevallen komen de letters er alleen bij een negatieve waarde. Bij een positieve waarde komen er op die plaats twee spaties. DB of CR verschijnen altijd in hoofdletters, ook als men ze als kleine letters in de picture-string opneemt.

veldbeschrijving         move-opdracht           inhoud

01 veld pic zz9DB        move 456 to veld        456
01 veld pic zz9DB        move -456 to veld       456DB
01 veld pic zz9CR        move 456 to veld        456
01 veld pic zz9cr        move -456 to veld       456CR