PARM BASE,OUTPUT="$NULL"

#  FILENAME: DBMAKE.XEQ - Joe Geiser
#
#  INPUT PARAMETER: ROOTFILE NAME
#  THIS COMMAND FILE ASSUMES THAT THE SCHEMA IS NAMED
#  "ROOTFILE" + "SC", AND IS LOCATED IN THE LOGON GROUP
#  WHICH IS WHERE THE DATABASE WILL BE CREATED.
#  OPTIONAL 2ND PARAMETER IS OUTPUT DEVICE, WHICH
#  WILL DEFAULT TO $NULL

FILE QWERTY;ACC=APPEND
SETVAR DBM_SCHEMA,"!BASE" + "SC"
FILE DBSTEXT=!DBM_SCHEMA
FILE DBSLIST=!OUTPUT
DBSCHEMA,3
ECHO CREATE !BASE >*QWERTY
ECHO EXIT >*QWERTY
DBUTIL <QWERTY
PURGE QWERTY,TEMP