12.4 Drijvend

In een programma komt de volgende veldbeschrijving voor:

01 veld pic +ZZZ,ZZZ,ZZ9.99.
  

Als we een klein getal naar dit veld brengen dan staan er veel spaties tussen het teken en het eerste cijfer. Stel bijvoorbeeld dat we 23.45 naar veld brengen. Het resultaat is:

+         23.45
  

COBOL biedt hiervoor een oplossing: maak het plusteken drijvend (Engels: floating). We geven dit aan met een reeks van plustekens.

01 veld pic ++++,+++,++9.99.
  

Het plusteken komt te staan voor het eerste niet-onderdrukte cijfer. Als je het getal een kwartslag naar rechts draait, dan 'drijft' het plusteken mee met de lengte van het getal. Voorbeelden:

veldbeschrijving         move-opdracht           inhoud

01 veld pic +++++++9     move 123456 to veld      +123456
01 veld pic +++++++9     move 0 to veld                +0
01 veld pic ++++9.99     move 23.45 to veld        +23.45
  

Behalve het plusteken, mag ook het minteken of het valutateken drijvend zijn. Als het valutateken drijvend is, dan mag er alleen maar een min of een plus vooraf staan. Geen ander teken.

Er kan slechts één teken drijvend zijn: òf het plusteken, òf het minteken, òf het valutateken. Een drijvend teken houdt tegelijkertijd nulonderdrukking in. Daardoor mogen de Z en het sterretje niet samen met een drijvend teken voorkomen.