Installation guide

4-10
Bull S.A.May 25th, 1999
9.4.2 IBM–1252: Example of a conversion program
This example prints the Euro character (coded hex 80) on an X terminal.
export LANG=fr_FR.IBM–1252
keeps the F character for the value to convert.
The Euro character is given by the filler value hex 80.
$set NLS
$set XOPEN
environment division.
special–names.
environment–name is envname
environment–value is envvalue.
data division.
working–storage section.
01 francs–value pic 9(10)v99.
01 euro–value pic 9(10)v99.
01 edited–francs–value pic $(9)9.99.
01 edited–euro–value.
02 edited–euro–value–1 pic z(9)9.99.
02 filler pic x value x”80”.
01 change–rate pic 9V9(5) value 6.55957.
procedure division.
move 10000.00 to francs–value.
divide change–rate into francs–value
giving euro–value rounded.
move francs–value to edited–francs–value.
move euro–value to edited–euro–value–1.
display edited–francs–value ” = ”
edited–euro–value.
stop run.
9.4.3 ISO8859–15: Example of a conversion program
This example prints the Euro character (coded hex a4) on an ASCII BQ306 terminal.
export LANG=fr_FR.IBM–1252
keeps the F character for the value to convert.
The Euro character is given by the filler value hex a4.
$set NLS
$set XOPEN
environment division.
special–names.
environment–name is envname
environment–value is envvalue.
data division.
working–storage section.
01 francs–value pic 9(10)v99.
01 euro–value pic 9(10)v99.
01 edited–francs–value pic $(9)9.99.
01 edited–euro–value.
02 edited–euro–value–1 pic z(9)9.99.
02 filler pic x value x”a4”.
01 change–rate pic 9V9(5) value 6.55957.
procedure division.
move 10000.00 to francs–value.
divide change–rate into francs–value
giving euro–value rounded.
move francs–value to edited–francs–value.
move euro–value to edited–euro–value–1.
display edited–francs–value ” = ”
edited–euro–value.
stop run.