Creates a new OpenEdge database.
When you create a new database by copying an existing database provided by OpenEdge (such as the empty database, demo database, or Sports2020 database), the AVM always assigns the new database a new GUID database identifier.
This procedure prompts for the name of a database to connect. If the database does not exist, the procedure creates it.
r-credb.p
                DEFINE VARIABLE dbname AS CHARACTER NO-UNDO LABEL "Database" FORMAT "x(65)".
/* Prompt the user for the name of a demo database to connect. */
SET dbname HELP "Enter the name of your database."
  WITH FRAME dbname-frame SIDE-LABELS.
/* If the entered name does not have the .db suffix, add it. This is necessary
   for the search function to work correctly. */
IF LENGTH(dbname) < 3 THEN
  dbname = dbname + ".db".
ELSE IF SUBSTRING(dbname, LENGTH(dbname) - 2) = ".db" THEN
  dbname = dbname + ".db".
/* If the database does not exist, create it from Sports2020. */
IF SEARCH(dbname) = ? THEN DO:
  MESSAGE "Database does not exist. Do you want to create it?"
    VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO TITLE "Connect Database"
    UPDATE create-it AS LOGICAL.
  IF create-it THEN DO:
    CREATE DATABASE dbname FROM "Sports2020".
    MESSAGE "New database created:" dbname.
  END.
  ELSE UNDO, RETRY.
END.
/* Connect the database. */
CONNECT VALUE(dbname) -1.
               | 
            
ALIAS function, CONNECT statement, CONNECTED function, CREATE ALIAS statement, DATASERVERS function, DBCODEPAGE function, DBCOLLATION function, DBRESTRICTIONS function, DBTYPE function, DELETE ALIAS statement, DISCONNECT statement, ERROR-STATUS system handle, FRAME-DB function, LDBNAME function, NO-ERROR option, NUM-DBS function, PDBNAME function, SDBNAME function