home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
DBDEMO.ZIP
/
DEMOFLS.ZIP
/
INDICES.BND
(
.txt
)
< prev
next >
Wrap
DB2 Bind
|
1991-07-09
|
1KB
|
23 lines
INDICES SAmmPJHHBMCHUGH 0
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR GO TO error
WHENEVER NOT FOUND GO TO ext
DECLARE Cindx CURSOR FOR SELECT CU_SSN FROM BMCHUGH.PERFDAT3 WHERE CU_SSN BETWEEN '111-11-1020' AND '111-11-1140'
OPEN Cindx
FETCH Cindx INTO :st_cu_ssn
CLOSE Cindx
WHENEVER SQLERROR GO TO error
WHENEVER NOT FOUND GO TO ext
DECLARE CNOINDEX CURSOR FOR SELECT * FROM BMCHUGH.PERFDAT3 WHERE CU_SSN BETWEEN '111-11-1020' AND '111-11-1140'
OPEN CNOINDEX
FETCH CNOINDEX INTO :st_cu_ssn
CLOSE CNOINDEX
st_cu_ssn
st_cu_name
s_bal
c_accnumb
st_cu_addr1
st_cu_addr2
st_cu_zip