MONEY

Specify the currency symbol

WSupported on Windows
USupported on Unix
VSupported on OpenVMS
NSupported in Synergy .NET
Note

The MONEY routine is deprecated; we recommend you use the LOCALIZE routine instead. The latter allows full customization of numeric-to-alpha formatting behavior without changing the formatting string.

xcall MONEY(currency)

Arguments

currency

An expression that contains the new currency symbol to be used when decimal data is transferred to an alpha variable. If currency is longer than one character, only the leftmost character is used. (a)

Discussion

The MONEY subroutine changes the dollar-sign formatting character ($) to another character.

You can change the dollar sign used in explicit decimal-to-alpha formatting to any ASCII character. However, to avoid confusion, we recommend that you don’t substitute another standard formatting character for the dollar sign: Don’t use a comma (,), period (.), asterisk (*), hyphen (-), or the uppercase letters X or Z.

The designated currency symbol remains in effect until you execute another MONEY subroutine or until the program terminates.

Examples

The following example converts the dollar sign to a British pound sign.

.define TTCHN           ,1
record
    price               ,a10
proc
    open(TTCHN, o, "tt:")
    xcall money('£')
    price = 99.99, "£££,£££.££"
    display(TTCHN, "Price in pounds: ", price)
    stop
.end