LDBNAME(integer-expressionlogical-namealiasBUFFER bufname)logical-name or aliasBUFFER bufname
DO WHILE LDBNAME(1) <> ? : /* the parameter. is the number 1 */DISCONNECT VALUE(LDBNAME(1)).END.
DEFINE VARIABLE testnm AS CHARACTER NO-UNDO.SET testnm.IF LDBNAME(testnm) = testnm THENMESSAGE testnm "is a true logical database name.".ELSE IF LDBNAME(testnm) = ? THENMESSAGE testnm "is not the name or alias of any connected database.".ELSEMESSAGE testnm "is an ALIAS for database " LDBNAME(testnm).
© 2013 Progress Software Corporation and/or its subsidiaries or affiliates. |