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

    The Fit Long File Specification into Fixed Field routine takes a
    file specification, such as an OpenVMS RMS resultant name string,
    and shortens it (if necessary) so that it fits into a field of
    fixed width.

    Format

      LIB$TRIM_FILESPEC  old-filespec ,new-filespec

                         [,word-integer-width] [,resultant-length]

1 - Returns

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

2 - Arguments

 old-filespec

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

    File specification to be trimmed. The old-filespec argument
    contains the address of a descriptor pointing to this file
    specification string.

    The file specification should be an RMS resultant name string.

 new-filespec

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

    Trimmed file specification. The new-filespec argument contains
    the address of a descriptor pointing to this trimmed file
    specification string. LIB$TRIM_FILESPEC writes the trimmed file
    specification into new-filespec.

 word-integer-width

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

    Maximum field width desired. The word-integer-width argument is
    the address of an unsigned word that contains this maximum field
    width.

    If omitted, the current length of new-filespec is used. If new-
    filespec is not a fixed-length string, you should specify word-
    integer-width to ensure that the desired width is used.

 resultant-length

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

    Length of the trimmed file specification, not including any blank
    padding or truncated characters. The resultant-length argument is
    the address of an unsigned word that contains this length. This
    is an optional argument.