The Get System Currency Symbol routine returns the system's
    currency symbol.

    Format

      LIB$CURRENCY  currency-string [,resultant-length]

1 - Returns

    OpenVMS usage:cond_value
    type:         longword (unsigned)
    access:       write only
    mechanism:    by value

2 - Arguments

 currency-string

    OpenVMS usage:char_string
    type:         character string
    access:       write only
    mechanism:    by descriptor

    Currency symbol. The currency-string argument is the address of a
    descriptor pointing to the currency symbol.

 resultant-length

    OpenVMS usage:word_unsigned
    type:         word (unsigned)
    access:       write only
    mechanism:    by reference

    Number of characters that LIB$CURRENCY has written into the
    currency-string argument, not counting padding in the case of a
    fixed-length string. The resultant-length argument is the address
    of an unsigned word containing the length of the currency symbol.
    If the input string is truncated to the size specified in the
    currency-string argument, resultant-length is set to this size.
    Therefore, resultant-length can always be used by the calling
    program to access a valid substring of currency-string.