home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Treasures, Inc.
/
pctreasures.mdf
/
WINDOWS
/
adabas
/
f_0001
/
env
/
infosys.ins
< prev
next >
Wrap
Text File
|
1999-11-01
|
1KB
|
56 lines
/ *********************************************************************
/* @(#)INFOSYS.ins 10.01.00 1998-01-30
/ Create system tables for system messages and help information
/ *********************************************************************
/
INIT SERVERDB
/
IF $RC (EXISTS TABLE SYSMESSAGES) = 0
THEN
BEGIN
/
DROP TABLE SYSMESSAGES
/
COMMIT WORK
/
END
/
CREATE TABLE SYSMESSAGES
( MSGNO FIXED (5,0) KEY,
LANGUAGE CHAR (03) ASCII KEY,
MSGTEXT CHAR (80) ASCII )
/
GRANT SELECT
ON SYSMESSAGES
TO PUBLIC
/
COMMIT WORK
/
/
/ *********************************************************************
/
IF $RC (EXISTS TABLE SYSHELP) = 0
THEN
/
BEGIN
/
DROP TABLE SYSHELP
/
COMMIT WORK
/
END
/
CREATE TABLE SYSHELP
( LANGUAGE CHAR (03) ASCII KEY,
HELP_ID CHAR (12) ASCII KEY,
LINENO FIXED (5,0) KEY,
HELP_MODE CHAR (02) ASCII,
LINE CHAR (132) ASCII )
/
GRANT SELECT ON SYSHELP TO PUBLIC
/
COMMIT WORK
/
END INIT SERVERDB
/