VMS Help RTL Routines, LIB$, LIB$DIGIT_SEP  *Conan The Librarian (sorry for the slow response - running on an old VAX)

    The Get Digit Separator Symbol routine returns the system's digit
    separator symbol.

    Format

      LIB$DIGIT_SEP  digit-separator-string [,resultant-length]

1 - Returns

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

2 - Arguments

 digit-separator-string

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

    Digit separator symbol returned by LIB$DIGIT_SEP. The digit-
    separator-string argument is the address of a descriptor pointing
    to the digit separator.

 resultant-length

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

    Number of characters written into digit-separator-string, 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 digit separator symbol. If the
    input string is truncated to the size specified in the digit-
    separator-string descriptor, resultant-length is set to this
    size. Therefore, resultant-length can always be used by the
    calling program to access a valid substring of digit-separator-
    string.