This command may be discontinued in a future release. We highly recommend that you no longer use this command. To take advantage of newer Production Reporting functionality, use the ALTER‑LOCALE command.
Redefines the currency symbol to be printed.
MONEY-SYMBOL new_symbol
new_symbol
A new, single character to replace the dollar sign ($) or DOLLAR‑SYMBOL character on the printed report.
To change the symbol that prints on the report, use the MONEY‑SYMBOL in the programs PROCEDURE sections. When the MONEY‑SYMBOL is set, that value is used until the next MONEY‑SYMBOL command executes.
The DOLLAR-SYMBOL and MONEY-SYMBOL can be used together to customize your Production Reporting application programs and the reports they produce.
To indicate a non-edit character, surround its decimal value with angle brackets (<>). Refer to Table 109 under Table 109 for characters that cannot be used with MONEY‑SYMBOL.
MONEY-SYMBOL has the same effect as these options of the ALTER‑LOCALE command: MONEY-SIGN and MONEY-SIGN-LOCATION=LEFT.
The following example shows how to use the DOLLAR-SYMBOL and MONEY‑SYMBOL commands:
begin-setup dollar-symbol £ ! Define £ as the ! currency symbol end-setup begin-procedure ! If #Amount=1234.56 ... money-symbol £ print #Amount () Edit £££,999.99 ! Prints as: £1,234.56 ... money-symbol $ print #Amount () Edit £££,999.99 ! Prints as: $1,234.56 ... money-symbol print #Amount () Edit £££,999.99 ! Prints as: 1,234.56 ... end-procedure