The Compress a Node Name to Its Short Form Equivalence routine
    compresses a node name to an unambiguous short form usable within
    the naming environment where the compression is performed.

    Format

      LIB$COMPRESS_NODENAME  nodename ,compressed-nodename

                             [,resultant-length]