If you create an alias DICTDB for the database then that selects the working database.
You have to access the database tables in another program, though, as CREATE ALIAS doesn't apply to the current program.
Code:
CREATE ALIAS DICTDB FOR DATABASE mydb. /* For mydb database */
You can use a variable to store the database you want to select.
Code:
DEF VAR mydb AS CHAR INITIAL "sports2000" NO-UNDO.
CREATE ALIAS DICTDB FOR DATABASE VALUE (mydb).