Getallen stellen vaak bedragen voor. Het is dan gebruikelijk vóór het bedrag te vermelden om welke valuta het gaat, zoals in £123.45. Omdat COBOL van Amerikaanse origine is, geldt het dollarteken als valutateken (Engels: currency sign). In de picture-clausule mogen we vooraan een dollarteken opnemen. Er mag alleen eventueel een plus- of een minteken vooraf gaan, geen andere tekens. Het dollarteken komt dan op de aangegeven plaats als het betrokken veld het ontvangende veld in een opdracht.
veldbeschrijving move-opdracht inhoud 01 veld pic $zz9.99 move 23.45 to veld $ 23.45 01 veld pic +$zz9.99 move 23.45 to veld +$ 23.45 01 veld pic -$zz9.99 move 23.45 to veld $ 23.45
De ontwerpcommissie van COBOL heeft de mogelijkheid geboden het valutateken te wijzigen. Dat wijzigen gebeurt in de paragraaf special-names. In deze paragraaf kan bij voorbeeld staan:
special-names.
currency sign is "F".
Het valutateken is nu geen dollarteken meer, maar de letter E. In de picture-string kunnen we de letter E als valutateken opnemen:
veldbeschrijving move-opdracht inhoud 01 veld pic Fzz9.99 move 23.45 to veld F 23.45 01 veld pic +Fzz9.99 move 23.45 to veld +F 23.45 01 veld pic -Fzz9.99 move 23.45 to veld F 23.45
Helaas is het aantal tekens dat we mogen gebruiken tamelijk beperkt. Alle letters die al een betekenis hebben in de picture-string zijn uiteraard uitgesloten. Daarmee vallen af: A B C D P R S V X en Z. Verder zijn uitgesloten alle cijfers, alle kleine letters en de speciale tekens * + - , . ; ( ) " = en /.
Serie: leerboeken informatica
Titel: Tijd voor COBOL 2
Auteur: Andree Hollander
