home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
DBDEMO.ZIP
/
DEMOFLS.ZIP
/
D30ACBD1.BND
(
.txt
)
< prev
next >
Wrap
DB2 Bind
|
1991-07-03
|
802b
|
18 lines
D30ACBD1cAuQJDHHTGRAY 0
INCLUDE sqlca
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR GOTO exit_error
WHENEVER SQLWARNING CONTINUE
WHENEVER NOT FOUND CONTINUE
CREATE UNIQUE INDEX IDX_B_NUMB ON BOX (B_NUMB)
CREATE UNIQUE INDEX IDX_L_NUMB ON LOAN (L_NUMB)
CREATE INDEX IDX_L_SSN ON LOAN (L_SSN)
CREATE UNIQUE INDEX IDX_S_ACCNUMB ON SAVINGS (S_ACCNUMB)
CREATE INDEX IDX_S_SSN ON SAVINGS (S_SSN)
CREATE INDEX IDX_C_SSN1 ON CHECKING (C_SSN1)
CREATE INDEX IDX_CR_ACCNUMB ON CREDITS (CR_ACCNUMB)
CREATE INDEX IDX_DB_ACCNUMB ON DEBITS (DB_ACCNUMB)
WHENEVER SQLERROR CONTINUE
ROLLBACK WORK