EXTERNAL LONG FUNCTION LIB$LOOKUP_KEY(STRING, LONG, OPTIONAL LONG, STRING, INTEGER)
      .
      .
      .
  ret_status% = LIB$LOOKUP_KEY(value$, point%)